view samples/osmod.tp @ 281:f6dfb85e80e5

Forgot to return this in previous self fix
author Michael Pavone <pavone@retrodev.com>
date Mon, 21 Jul 2014 19:41:15 -0700
parents f2cda2e6f70e
children d1dc2d70bdfd
line wrap: on
line source

#{
	main <- {
		os write: 1 "hello stdout via POSIX write\n"
		name <- os read: 0 100
		os write: 2 "hello " . name . " via stderr\n"
		file <- os open: "output.txt" (os O_WRONLY) + (os O_CREAT) + (os O_TRUNC) 0b110110110
		os write: file "hello file!\n"
		os close: file
		0
	}
}