Annotation of /sml/trunk/src/cm/paths/pathconfig.sml

Parent Directory | Revision Log

---

Revision 318 - (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 :	blume	318	type mode
13 :
14 :			val default : mode
15 :
16 :			val configAnchor : mode -> string -> (unit -> string) option
17 :	blume	265	end
18 :
19 :	blume	309	(*
20 :			* The names of config anchors must be names of actual files.
21 :			* Function configAnchor will map the name of the anchor to
22 :			* the directory that contains the corresponding file.
23 :			*)
24 :	blume	265	structure PathConfig :> PATHCONFIG = struct
25 :	blume	318	type mode = Dummy.t
26 :
27 :			val default = Dummy.v
28 :
29 :	blume	265	(* this is bogus -- should not be hard-wired like this *)
30 :	blume	318	fun configAnchor _ "smlnj-lib.cm" =
31 :	blume	309	SOME (fn () => "/home/blume/ML/current/lib")
32 :	blume	318	| configAnchor _ _ = NONE
33 :	blume	265	end

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0