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/main/cm-boot.sml
ViewVC logotype

Diff of /sml/trunk/src/cm/main/cm-boot.sml

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

revision 464, Tue Nov 9 06:49:52 1999 UTC revision 465, Tue Nov 9 09:08:54 1999 UTC
# Line 245  Line 245 
245                fun say_error () = Say.say ["SLAVE: error\n"]                fun say_error () = Say.say ["SLAVE: error\n"]
246                fun say_pong () = Say.say ["SLAVE: pong\n"]                fun say_pong () = Say.say ["SLAVE: pong\n"]
247    
               val home =  
                   case OS.Process.getEnv "HOME" of  
                       SOME h => (fn d => OS.Path.mkAbsolute { path = d,  
                                                               relativeTo = h })  
                     | NONE => (fn d =>  
                                (Say.say ["HOME not set!\n"];  
                                 raise Fail "HOME not set"))  
   
248                fun path (s, pcmode) = SrcPath.fromDescr pcmode s                fun path (s, pcmode) = SrcPath.fromDescr pcmode s
249    
250                fun chDir d =                fun chDir d =
251                    (OS.FileSys.chDir (SrcPath.osstring (path (d, pcmode)));                    OS.FileSys.chDir (SrcPath.osstring (path (d, pcmode)))
                    Say.say ["New dir: ", OS.FileSys.getDir (), "\n"])  
252    
253                fun waitForStart () = let                fun waitForStart () = let
254                    val line = TextIO.inputLine TextIO.stdIn                    val line = TextIO.inputLine TextIO.stdIn

Legend:
Removed from v.464  
changed lines
  Added in v.465

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