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 878, Wed Jul 18 17:43:27 2001 UTC revision 879, Thu Jul 19 18:59:38 2001 UTC
# Line 13  Line 13 
13      val build : GeneralParams.info -> SrcPath.file ->      val build : GeneralParams.info -> SrcPath.file ->
14          { pervasive: DependencyGraph.sbnode,          { pervasive: DependencyGraph.sbnode,
15            others: DependencyGraph.sbnode list,            others: DependencyGraph.sbnode list,
16            src: GenericVC.Source.inputSource } option            src: Source.inputSource } option
17  end  end
18    
19  structure BuildInitDG :> BUILD_INIT_DG = struct  structure BuildInitDG :> BUILD_INIT_DG = struct
20    
21      structure S = GenericVC.Source      structure S = Source
22      structure EM = GenericVC.ErrorMsg      structure EM = ErrorMsg
23      structure SM = GenericVC.SourceMap      structure SM = SourceMap
24      structure DG = DependencyGraph      structure DG = DependencyGraph
25      structure LSC = GenericVC.Control.LambdaSplitting      structure LSC = Control.LambdaSplitting
26    
27      fun build (gp: GeneralParams.info) specgroup = let      fun build (gp: GeneralParams.info) specgroup = let
28          val penv = #penv (#param gp)          val penv = #penv (#param gp)
# Line 59  Line 59 
59                              sub (line, len -1 ) = #"\n" andalso                              sub (line, len -1 ) = #"\n" andalso
60                              sub (line, len - 2) = #"\\"                              sub (line, len - 2) = #"\\"
61                      in                      in
62                          GenericVC.SourceMap.newline sourceMap newpos;                          SourceMap.newline sourceMap newpos;
63                          if iscont then                          if iscont then
64                              loop (newpos, TextIO.inputLine stream,                              loop (newpos, TextIO.inputLine stream,
65                                    substring (line, 0, len - 2) :: lines)                                    substring (line, 0, len - 2) :: lines)
# Line 107  Line 107 
107                                  foldr one ([], false) args                                  foldr one ([], false) args
108                              val xe =                              val xe =
109                                  if needs_primenv then                                  if needs_primenv then
110                                      SOME (GenericVC.Environment.primEnv)                                      SOME (Environment.primEnv)
111                                  else NONE                                  else NONE
112                              val i = sml (file, split, xe, is_rts, ecs)                              val i = sml (file, split, xe, is_rts, ecs)
113                              val n = DG.SNODE { smlinfo = i,                              val n = DG.SNODE { smlinfo = i,

Legend:
Removed from v.878  
changed lines
  Added in v.879

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