SCM Repository
Diff of /sml/trunk/src/cm/bootstrap/btcompile.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 343, Sat Jun 19 09:29:33 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", |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
