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/smlfile/policy.sml
ViewVC logotype

Annotation of /sml/trunk/src/cm/smlfile/policy.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 274 - (view) (download)

1 : blume 274 signature POLICY = sig
2 :    
3 :     type policy
4 :    
5 :     val default : policy
6 :    
7 :     val mkBinPath : policy -> AbsPath.t -> AbsPath.t
8 :     val mkSkelPath : policy -> AbsPath.t -> AbsPath.t
9 :     end
10 :    
11 :     structure Policy :> POLICY = struct
12 :    
13 :     type policy = Dummy.t
14 :    
15 :     val default = Dummy.v
16 :    
17 :     fun cmpath (d, s) = let
18 :     val { dir = d0, file = f } = AbsPath.splitDirFile s
19 :     val d1 = AbsPath.joinDirFile { dir = d0, file = "CM" }
20 :     val d2 = AbsPath.joinDirFile { dir = d1, file = d }
21 :     in
22 :     AbsPath.joinDirFile { dir = d2, file = f }
23 :     end
24 :    
25 :     fun mkBinPath _ s = cmpath ("bin", s)
26 :     fun mkSkelPath _ s = cmpath ("SKEL", s)
27 :     end

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