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/branches/primop-branch/src/cm/main/filename-policy.sml
ViewVC logotype

Diff of /sml/branches/primop-branch/src/cm/main/filename-policy.sml

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

revision 1470, Mon Mar 29 22:45:55 2004 UTC revision 1471, Mon Mar 29 22:45:55 2004 UTC
# Line 24  Line 24 
24      val mkIndexName : policy -> SrcPath.file -> string      val mkIndexName : policy -> SrcPath.file -> string
25    
26      val kind2name : SMLofNJ.SysInfo.os_kind -> string      val kind2name : SMLofNJ.SysInfo.os_kind -> string
27    
28        val cm_dir_arc : string
29  end  end
30    
31  functor FilenamePolicyFn (val cmdir : string  functor FilenamePolicyFn (val cmdir : string
32                            val versiondir: Version.t -> string                            val versiondir: Version.t -> string
33                            val skeldir : string                            val skeldir : string
34                            val guiddir : string                            val guiddir : string
                           val icprefix : string  
35                            val indexdir : string) :> FILENAMEPOLICY = struct                            val indexdir : string) :> FILENAMEPOLICY = struct
36    
37      type policy = { bin: SrcPath.file -> string,      type policy = { bin: SrcPath.file -> string,
# Line 57  Line 58 
58              OS.Path.joinDirFile { dir = d2, file = f }              OS.Path.joinDirFile { dir = d2, file = f }
59          end          end
60          val archos = concat [arch, "-", os]          val archos = concat [arch, "-", os]
         val archosidcache = concat [icprefix, "-", arch, "-", os]  
61          val stable0 = cmname [archos] o shiftstable          val stable0 = cmname [archos] o shiftstable
62          val stable =          val stable =
63              if ignoreversion then stable0 o #1              if ignoreversion then stable0 o #1
# Line 105  Line 105 
105      fun mkGUidName (p: policy) s = #guid p s      fun mkGUidName (p: policy) s = #guid p s
106      fun mkStableName (p: policy) (s, v) = #stable p (s, v)      fun mkStableName (p: policy) (s, v) = #stable p (s, v)
107      fun mkIndexName (p: policy) s = #index p s      fun mkIndexName (p: policy) s = #index p s
108    
109        val cm_dir_arc = cmdir
110  end  end
111    
112  structure FilenamePolicy =  structure FilenamePolicy =
113      FilenamePolicyFn (val cmdir = "CM"      FilenamePolicyFn (val cmdir = Option.getOpt
114                                          (OS.Process.getEnv "CM_DIR_ARC", ".cm")
115                        val skeldir = "SKEL"                        val skeldir = "SKEL"
116                        val guiddir = "GUID"                        val guiddir = "GUID"
                       val icprefix = "IC"  
117                        val indexdir = "INDEX"                        val indexdir = "INDEX"
118                        val versiondir = Version.toString)                        val versiondir = Version.toString)

Legend:
Removed from v.1470  
changed lines
  Added in v.1471

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