Diff of /sml/branches/idlbasis-devel/src/system/Basis/Implementation/Unix/os-process.sml

Parent Directory | Revision Log | Patch

	revision 866, Mon Jul 2 16:33:10 2001 UTC	revision 867, Mon Jul 2 20:14:11 2001 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
62

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.866   changed lines   Added in v.867

---

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