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

Diff of /sml/trunk/src/cm/depend/build.sml

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

revision 293, Tue May 25 03:04:50 1999 UTC revision 294, Tue May 25 09:06:06 1999 UTC
# Line 12  Line 12 
12          { imports: impexp SymbolMap.map,          { imports: impexp SymbolMap.map,
13            gimports: impexp SymbolMap.map,            gimports: impexp SymbolMap.map,
14            smlfiles: SmlInfo.info list,            smlfiles: SmlInfo.info list,
15            localdefs: SmlInfo.info SymbolMap.map }            localdefs: SmlInfo.info SymbolMap.map,
16              subgroups: GroupGraph.group list }
17          * SymbolSet.set option          (* filter *)          * SymbolSet.set option          (* filter *)
18          * (string -> unit)              (* error *)          * (string -> unit)              (* error *)
19          ->          ->
# Line 43  Line 44 
44    
45      (* get the description for a symbol *)      (* get the description for a symbol *)
46      fun symDesc (s, r) =      fun symDesc (s, r) =
47          S.nameSpaceToString (S.nameSpace s) :: " " ::          S.nameSpaceToString (S.nameSpace s) :: " " :: S.name s :: r
         S.name s :: r  
48    
49      fun build (coll, fopt, error) = let      fun build (coll, fopt, error) = let
50          val { imports, gimports, smlfiles, localdefs } = coll          val { imports, gimports, smlfiles, localdefs, subgroups } = coll
51    
52          (* the "blackboard" where analysis results are announced *)          (* the "blackboard" where analysis results are announced *)
53          (* (also used for cycle detection) *)          (* (also used for cycle detection) *)
# Line 199  Line 199 
199                      (SS.app (ignore o lookup e) s; DE.EMPTY)                      (SS.app (ignore o lookup e) s; DE.EMPTY)
200    
201                  and evalSeqDecl e [] = DE.EMPTY                  and evalSeqDecl e [] = DE.EMPTY
202                    | evalSeqDecl e (h :: t) =                    | evalSeqDecl e (h :: t) = let
203                      foldl (fn (d, e') =>                          fun one (d, e') =
204                             DE.LAYER (evalDecl (DE.LAYER (e', e)) d, e'))                              DE.LAYER (evalDecl (DE.LAYER (e', e)) d, e')
205                            (evalDecl e h)                      in
206                            t                          foldl one (evalDecl e h) t
207                        end
208    
209                  and evalModExp e (SK.Var sp) = lookSymPath e sp                  and evalModExp e (SK.Var sp) = lookSymPath e sp
210                    | evalModExp e (SK.Decl l) = evalSeqDecl e l                    | evalModExp e (SK.Decl l) = evalSeqDecl e l

Legend:
Removed from v.293  
changed lines
  Added in v.294

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