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/branches/primop-branch/src/system/Basis/Implementation/Unix/os-process.sml
ViewVC logotype

Diff of /sml/branches/primop-branch/src/system/Basis/Implementation/Unix/os-process.sml

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

revision 1470, Mon Mar 29 22:45:55 2004 UTC revision 1471, Mon Mar 29 22:45:55 2004 UTC
# Line 21  Line 21 
21      val success = 0      val success = 0
22      val failure = 1      val failure = 1
23    
24        fun isSuccess 0 = true
25          | isSuccess _ = false
26    
27      fun system cmd = (case P_Proc.fork()      fun system cmd = (case P_Proc.fork()
28             of NONE => (             of NONE => (
29                  P_Proc.exec ("/bin/sh", ["sh", "-c", cmd])                  P_Proc.exec ("/bin/sh", ["sh", "-c", cmd])
# Line 52  Line 55 
55    
56      val getEnv = Posix.ProcEnv.getenv      val getEnv = Posix.ProcEnv.getenv
57    
58        val sleep = ignore o Posix.Process.sleep
59    
60    end    end
61  end  end
   

Legend:
Removed from v.1470  
changed lines
  Added in v.1471

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