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/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 631, Fri Apr 28 08:30:52 2000 UTC revision 632, Sat Apr 29 15:50:42 2000 UTC
# Line 258  Line 258 
258            val recomp = run mkStdSrcPath NONE recomp_runner            val recomp = run mkStdSrcPath NONE recomp_runner
259            val make = run mkStdSrcPath NONE (make_runner true)            val make = run mkStdSrcPath NONE (make_runner true)
260    
261              fun makedepend { group, targetname, outstream } = let
262                  val oss = SrcPath.osstring
263                  val fnrec = { bininfo = fn i => [BinInfo.stablename i],
264                                smlinfo = fn i => [oss (SmlInfo.group i),
265                                                   oss (SmlInfo.sourcepath i)],
266                                Cons = fn (l, s) => foldl StringSet.add' s l,
267                                Nil = StringSet.empty }
268                  val p = mkStdSrcPath group
269                  val gr = GroupReg.new ()
270              in
271                  (case Parse.parse (parse_arg (gr, NONE, p)) of
272                       NONE => false
273                     | SOME (g, _) => let
274                           val names = MkList.group fnrec g
275                           fun oneTarget t =
276                               TextIO.output (outstream, " \\\n\t" ^ t)
277                       in
278                           TextIO.output (outstream, targetname ^ ":");
279                           StringSet.app oneTarget names;
280                           TextIO.output (outstream, "\n");
281                           true
282                       end)
283                  before dropPickles ()
284              end
285    
286            (* I would have liked to express this using "run", but "run"            (* I would have liked to express this using "run", but "run"
287             * thinks it has to return a bool... *)             * thinks it has to return a bool... *)
288            fun mk_standalone sflag s = let            fun mk_standalone sflag s = let
# Line 369  Line 394 
394                    Stabilize.loadStable ginfo                    Stabilize.loadStable ginfo
395                      { getGroup = fn _ => raise Fail "CMBoot: initial getGroup",                      { getGroup = fn _ => raise Fail "CMBoot: initial getGroup",
396                        anyerrors = ref false }                        anyerrors = ref false }
397                      initgspec                      (initgspec, NONE)
398            in            in
399                case loadInitGroup () of                case loadInitGroup () of
400                    NONE => raise Fail "CMBoot: unable to load init group"                    NONE => raise Fail "CMBoot: unable to load init group"
# Line 488  Line 513 
513              val descr = SrcPath.descr              val descr = SrcPath.descr
514              val osstring = SrcPath.osstring              val osstring = SrcPath.osstring
515              val dismiss = Parse.dismissLib              val dismiss = Parse.dismissLib
516                fun unshare lib = (Link.unshare lib; dismiss lib)
517          end          end
518    
519          structure State = struct          structure State = struct
# Line 509  Line 535 
535          val recomp = recomp          val recomp = recomp
536          val stabilize = stabilize          val stabilize = stabilize
537    
538            val makedepend = makedepend
539    
540          val symval = SSV.symval          val symval = SSV.symval
541          val load_plugin = cwd_load_plugin          val load_plugin = cwd_load_plugin
542          val mk_standalone = mk_standalone          val mk_standalone = mk_standalone

Legend:
Removed from v.631  
changed lines
  Added in v.632

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