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

Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml

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

revision 336, Thu Jun 17 09:23:20 1999 UTC revision 344, Sun Jun 20 03:14:57 1999 UTC
# Line 51  Line 51 
51          val pcmodespec = AbsPath.native { context = ctxt, spec = pcmodespec }          val pcmodespec = AbsPath.native { context = ctxt, spec = pcmodespec }
52          val binroot = AbsPath.native { context = ctxt, spec = binroot }          val binroot = AbsPath.native { context = ctxt, spec = binroot }
53    
54          fun build_pcmode () = let          val pcmode = let
55              val s = AbsPath.openTextIn pcmodespec              val s = AbsPath.openTextIn pcmodespec
56              fun loop l = let              fun loop l = let
57                  val line = TextIO.inputLine s                  val line = TextIO.inputLine s
# Line 67  Line 67 
67              loop [] before TextIO.closeIn s              loop [] before TextIO.closeIn s
68          end          end
69    
         val pcmode = build_pcmode ()  
   
70          val fnpolicy =          val fnpolicy =
71              FilenamePolicy.separate { root = binroot,              FilenamePolicy.separate { root = binroot,
72                                        parentArc = "DOTDOT",                                        parentArc = "DOTDOT",

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

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