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/tools/make/tool.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/tools/make/tool.sml

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

revision 1077, Tue Feb 19 15:48:50 2002 UTC revision 1078, Tue Feb 19 21:26:48 2002 UTC
# Line 37  Line 37 
37                           restoptions)                           restoptions)
38                      end                      end
39              val p = srcpath (mkpath ())              val p = srcpath (mkpath ())
40              val tname = nativeSpec p              val tname = nativeSpec p    (* for passing to "make" *)
41              val partial_expansion =              val partial_expansion =
42                  (* The "make" class is odd in that it has only a target                  (* The "make" class is odd in that it has only a target
43                   * but no sources. *)                   * but no sources.  We use "str" and "mkpath", that is,
44                     * we retain the distinction between native and standard
45                     * paths instead of going native in all cases. *)
46                  ({ smlfiles = [], cmfiles = [], sources = [] },                  ({ smlfiles = [], cmfiles = [], sources = [] },
47                   [{ name = tname, mkpath = native2pathmaker tname,                   [{ name = str, mkpath = mkpath,
48                      class = tclass, opts = topts, derived = true }])                      class = tclass, opts = topts, derived = true }])
49              fun runcmd () = let              fun runcmd () = let
50                  val cmdname = mkCmdName stdCmdPath                  val cmdname = mkCmdName stdCmdPath
51                    val tname =
52                        if OS.Path.isAbsolute tname then
53                            OS.Path.mkRelative
54                                { path = tname,
55                                  relativeTo = OS.FileSys.getDir () }
56                        else tname
57                  val cmd = concat (cmdname :: foldr (fn (x, l) => " " :: x :: l)                  val cmd = concat (cmdname :: foldr (fn (x, l) => " " :: x :: l)
58                                                     [" ", tname] mopts)                                                     [" ", tname] mopts)
59              in              in

Legend:
Removed from v.1077  
changed lines
  Added in v.1078

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