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

Diff of /sml/trunk/src/cm/tools/nowebtool.sml

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

revision 641, Thu May 11 01:16:45 2000 UTC revision 642, Thu May 11 07:30:29 2000 UTC
# Line 42  Line 42 
42                          ("cm", "#line %L %F%N")])                          ("cm", "#line %L %F%N")])
43    
44          fun rule { spec, context, mkNativePath } = let          fun rule { spec, context, mkNativePath } = let
45              val (str, pathmaker, _, too) = spec              val { name = str, mkpath, opts = too, derived, ... } : spec = spec
46              val sname = nativeSpec (pathmaker str)              val p = mkpath str
47                val sname = nativeSpec p
48              fun oneTarget (tname, rname, tclass, topts, lf, cpif) = let              fun oneTarget (tname, rname, tclass, topts, lf, cpif) = let
49                  fun runcmd () = let                  fun runcmd () = let
50                      val cmdname = mkCmdName stdCmdPath                      val cmdname = mkCmdName stdCmdPath
# Line 77  Line 78 
78              in              in
79                  if outdated tool ([tname], sname) then runcmd ()                  if outdated tool ([tname], sname) then runcmd ()
80                  else ();                  else ();
81                  (tname, mkNativePath, tclass, topts)                  { name = tname, mkpath = mkNativePath,
82                      class = tclass, opts = topts, derived = true }
83              end              end
84    
85              fun simpleTarget { name, mkpath } = let              fun simpleTarget { name, mkpath } = let
# Line 130  Line 132 
132                      else badkw name                      else badkw name
133                  end                  end
134              fun rulefn () =              fun rulefn () =
135                  ({ cmfiles = [], smlfiles = [] },                  ({ cmfiles = [], smlfiles = [],
136                       sources = [(p, { class = class, derived = derived })] },
137                   case too of                   case too of
138                       SOME opts => map oneOpt opts                       SOME opts => map oneOpt opts
139                     | NONE => let                     | NONE => let
# Line 151  Line 154 
154          in          in
155              context rulefn              context rulefn
156          end          end
157            fun sfx s =
158                registerClassifier (stdSfxClassifier { sfx = s, class = class })
159      in      in
160          val _ = registerClass (class, rule)          val _ = registerClass (class, rule)
161            val _ = sfx "nw"
162          fun lineNumbering class = let          fun lineNumbering class = let
163              fun get () = StringMap.find (!lnr, class)              fun get () = StringMap.find (!lnr, class)
164              fun set NONE =              fun set NONE =

Legend:
Removed from v.641  
changed lines
  Added in v.642

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