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

SCM Repository

[smlnj] View of /sml/trunk/src/cm/smlfile/policy.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 274 - (download) (annotate)
Fri May 14 05:23:02 1999 UTC (20 years, 6 months ago) by blume
File size: 610 byte(s)
stage0 -- links fine (for testing); parses correctly (apparently)
signature POLICY = sig

    type policy

    val default : policy

    val mkBinPath : policy -> AbsPath.t -> AbsPath.t
    val mkSkelPath : policy -> AbsPath.t -> AbsPath.t
end

structure Policy :> POLICY = struct

    type policy = Dummy.t

    val default = Dummy.v

    fun cmpath (d, s) = let
	val { dir = d0, file = f } = AbsPath.splitDirFile s
	val d1 = AbsPath.joinDirFile { dir = d0, file = "CM" }
	val d2 = AbsPath.joinDirFile { dir = d1, file = d }
    in
	AbsPath.joinDirFile { dir = d2, file = f }
    end

    fun mkBinPath _ s = cmpath ("bin", s)
    fun mkSkelPath _ s = cmpath ("SKEL", s)
end

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