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

Diff of /sml/trunk/src/cm/link.sml

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

revision 309, Wed Jun 2 03:21:57 1999 UTC revision 310, Wed Jun 2 07:28:27 1999 UTC
# Line 40  Line 40 
40        structure RecompTraversal = CompileGenericFn (structure CT = Recomp)        structure RecompTraversal = CompileGenericFn (structure CT = Recomp)
41        structure ExecTraversal = CompileGenericFn (structure CT = Exec)        structure ExecTraversal = CompileGenericFn (structure CT = Exec)
42    
43          fun bn2statenv gp i = #1 (#stat (valOf (RecompTraversal.bnode gp i)))
44    
45          structure Stabilize =  StabilizeFn (val bn2statenv = bn2statenv)
46    
47          structure Parse = ParseFn (structure Stabilize = Stabilize)
48    
49        fun doall farsbnode (GroupGraph.GROUP { exports, ... }, gp) = let        fun doall farsbnode (GroupGraph.GROUP { exports, ... }, gp) = let
50            fun one ((fsbn, _), false) = false            fun one ((fsbn, _), false) = false
51              | one ((fsbn, _), true) =              | one ((fsbn, _), true) =
# Line 57  Line 63 
63    in    in
64      structure CM = struct      structure CM = struct
65    
66          fun run f s = let          fun run sflag f s = let
67              val c = AbsPath.cwdContext ()              val c = AbsPath.cwdContext ()
68              val p = AbsPath.native { context = AbsPath.cwdContext (),              val p = AbsPath.native { context = AbsPath.cwdContext (),
69                                       spec = s }                                       spec = s }
# Line 70  Line 76 
76                            keep_going = false,                            keep_going = false,
77                            pervasive = perv,                            pervasive = perv,
78                            corenv = corenv }                            corenv = corenv }
79              val g = CMParse.parse param p              val g = Parse.parse param sflag p
80          in          in
81              Option.map f g              Option.map f g
82          end          end
83    
84          val parse = run #1          fun stabilize recursively = run (SOME recursively) #1
85          val recomp = run recomp_group          val recomp = run NONE recomp_group
86          val make = run make_group          val make = run NONE make_group
87      end      end
88    
89      structure CMB = struct      structure CMB = struct

Legend:
Removed from v.309  
changed lines
  Added in v.310

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