Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/paths/pathconfig.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 265 - (view) (download)

1 : blume 265 (* just a placeholder so far *)
2 :    
3 :     signature PATHCONFIG = sig
4 :     val configAnchor : string -> (unit -> string) option
5 :     end
6 :    
7 :     structure PathConfig :> PATHCONFIG = struct
8 :     (* this is bogus -- should not be hard-wired like this *)
9 :     fun configAnchor "basis" = SOME (fn () => "/usr/local/smlnj/lib/basis")
10 :     | configAnchor "smlnj" = SOME (fn () => "/usr/local/smlnj/lib")
11 :     | configAnchor _ = NONE
12 :     end

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