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/paths/pathconfig.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 265 - (download) (annotate)
Fri May 7 08:42:54 1999 UTC (22 years, 5 months ago) by blume
File size: 408 byte(s)
laid foundations for lexer, parser, basic path handling
(* just a placeholder so far *)

signature PATHCONFIG = sig
    val configAnchor : string -> (unit -> string) option
end

structure PathConfig :> PATHCONFIG = struct
    (* this is bogus -- should not be hard-wired like this *)
    fun configAnchor "basis" = SOME (fn () => "/usr/local/smlnj/lib/basis")
      | configAnchor "smlnj" = SOME (fn () => "/usr/local/smlnj/lib")
      | configAnchor _ = NONE
end

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