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

Parent Directory | Revision Log | 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

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

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