Mercurial > repos > tabletprog

annotate 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
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
48
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
1 #{
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
2 main <- {
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
3 os write: 1 "hello stdout via POSIX write\n"
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
4 name <- os read: 0 100
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
5 os write: 2 "hello " . name . " via stderr\n"
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
6 file <- os open: "output.txt" (os O_WRONLY) + (os O_CREAT) + (os O_TRUNC)
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7 os write: file "hello file!\n"
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
8 os close: file
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
9 0
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
10 }
18ab96287c3a Add builtin module os containing some baisc POSIX file IO
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
11 }