Mercurial > repos > tabletprog

diff samples/osmod.tp @ 48:18ab96287c3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add builtin module os containing some baisc POSIX file IO
author Mike Pavone <pavone@retrodev.com>
date Fri, 13 Jul 2012 10:46:27 -0700
parents
children f2cda2e6f70e
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/samples/osmod.tp	Fri Jul 13 10:46:27 2012 -0700
@@ -0,0 +1,11 @@
+#{
+	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)
+		os write: file "hello file!\n"
+		os close: file
+		0
+	}
+}