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 359, Tue Jun 29 01:53:40 1999 UTC revision 360, Tue Jun 29 09:21:02 1999 UTC
# Line 12  Line 12 
12    
13      val hardwire : (string * string) list -> mode      val hardwire : (string * string) list -> mode
14      val envcfg : (string * string EnvConfig.getterSetter) list -> mode      val envcfg : (string * string EnvConfig.getterSetter) list -> mode
15        val bootcfg : string -> mode
16    
17      val configAnchor : mode -> string -> (unit -> string) option      val configAnchor : mode -> string -> (unit -> string) option
18  end  end
# Line 34  Line 35 
35          if a = a' then SOME (fn () => EnvConfig.getSet gs NONE)          if a = a' then SOME (fn () => EnvConfig.getSet gs NONE)
36          else envcfg t a          else envcfg t a
37    
38        fun bootcfg bootdir a = let
39            fun isDir x = OS.FileSys.isDir x handle _ => false
40            val d = OS.Path.concat (bootdir, a)
41        in
42            if isDir d then SOME (fn () => d) else NONE
43        end
44    
45      fun configAnchor m s = m s      fun configAnchor m s = m s
46  end  end

Legend:
Removed from v.359  
changed lines
  Added in v.360

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