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

Diff of /sml/trunk/src/cm/bootstrap/build-initdg.sml

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

revision 344, Sun Jun 20 03:14:57 1999 UTC revision 345, Sun Jun 20 11:55:26 1999 UTC
# Line 37  Line 37 
37          val context = AbsPath.relativeContext (AbsPath.dir specgroup)          val context = AbsPath.relativeContext (AbsPath.dir specgroup)
38          val specname = AbsPath.name specgroup          val specname = AbsPath.name specgroup
39          val _ = Say.vsay ["[reading init spec from ", specname, "]\n"]          val _ = Say.vsay ["[reading init spec from ", specname, "]\n"]
40          val stream = AbsPath.openTextIn specgroup  
41            fun work stream = let
42          val source = S.newSource (specname, 1, stream, false, errcons)          val source = S.newSource (specname, 1, stream, false, errcons)
43          val sourceMap = #sourceMap source          val sourceMap = #sourceMap source
44    
# Line 67  Line 68 
68                              { context = context, spec = spec }                              { context = context, spec = spec }
69                      in                      in
70                          SmlInfo.info gp { sourcepath = p,                          SmlInfo.info gp { sourcepath = p,
71                                            group = (specgroup, (pos, newpos)),                                                group = (specgroup,
72                                                           (pos, newpos)),
73                                            share = NONE,                                            share = NONE,
74                                            split = split }                                            split = split }
75                      end                      end
# Line 127  Line 129 
129      in      in
130          loop (false, StringMap.empty, NONE, 1)          loop (false, StringMap.empty, NONE, 1)
131      end      end
132        in
133            SafeIO.perform { openIt = fn () => AbsPath.openTextIn specgroup,
134                             closeIt = TextIO.closeIn,
135                             work = work,
136                             cleanup = fn () => () }
137        end
138  end  end

Legend:
Removed from v.344  
changed lines
  Added in v.345

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