view samples/osmod.tp @ 377:93c28eee141e tip

Merge
author Michael Pavone <pavone@retrodev.com>
date Sat, 15 Aug 2015 22:45:33 -0700
parents d1dc2d70bdfd
children
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) createPerm: 0b110110110
		os write: file "hello file!\n"
		os close: file
		0
	}
}