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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 308, Wed Jun 2 01:26:19 1999 UTC revision 309, Wed Jun 2 03:21:57 1999 UTC
# Line 12  Line 12 
12      val configAnchor : string -> (unit -> string) option      val configAnchor : string -> (unit -> string) option
13  end  end
14    
15    (*
16     * The names of config anchors must be names of actual files.
17     * Function configAnchor will map the name of the anchor to
18     * the directory that contains the corresponding file.
19     *)
20  structure PathConfig :> PATHCONFIG = struct  structure PathConfig :> PATHCONFIG = struct
21      (* this is bogus -- should not be hard-wired like this *)      (* this is bogus -- should not be hard-wired like this *)
22      fun configAnchor "smlnj" = SOME (fn () => "/home/blume/ML/current/lib")      fun configAnchor "smlnj-lib.cm" =
23            SOME (fn () => "/home/blume/ML/current/lib")
24        | configAnchor _ = NONE        | configAnchor _ = NONE
25  end  end

Legend:
Removed from v.308  
changed lines
  Added in v.309

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