SCM Repository
Annotation of /sml/trunk/src/cm/paths/pathconfig.sml
Parent Directory
| 
Revision Log
Revision 286 - (view) (download)
| 1 : | blume | 265 | (* just a placeholder so far *) |
| 2 : | |||
| 3 : | blume | 267 | (* |
| 4 : | * Configurable path anchors for new CM. | ||
| 5 : | * | ||
| 6 : | * (C) 1999 Lucent Technologies, Bell Laboratories | ||
| 7 : | * | ||
| 8 : | * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp) | ||
| 9 : | *) | ||
| 10 : | |||
| 11 : | blume | 265 | signature PATHCONFIG = sig |
| 12 : | val configAnchor : string -> (unit -> string) option | ||
| 13 : | end | ||
| 14 : | |||
| 15 : | structure PathConfig :> PATHCONFIG = struct | ||
| 16 : | (* this is bogus -- should not be hard-wired like this *) | ||
| 17 : | blume | 286 | fun configAnchor "smlnj" = SOME (fn () => "/home/blume/ML/current/lib") |
| 18 : | blume | 265 | | configAnchor _ = NONE |
| 19 : | end |
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
