Mercurial > repos > tabletprog
comparison samples/osmod.tp @ 49:f2cda2e6f70e
Fix os open to optionally take a file permission bit parameter. Update example to use this parameter. Add support for hex and binary integer literals
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 13 Jul 2012 14:16:51 -0700 |
parents | 18ab96287c3a |
children | d1dc2d70bdfd |
comparison
equal
deleted
inserted
replaced
48:18ab96287c3a | 49:f2cda2e6f70e |
---|---|
1 #{ | 1 #{ |
2 main <- { | 2 main <- { |
3 os write: 1 "hello stdout via POSIX write\n" | 3 os write: 1 "hello stdout via POSIX write\n" |
4 name <- os read: 0 100 | 4 name <- os read: 0 100 |
5 os write: 2 "hello " . name . " via stderr\n" | 5 os write: 2 "hello " . name . " via stderr\n" |
6 file <- os open: "output.txt" (os O_WRONLY) + (os O_CREAT) + (os O_TRUNC) | 6 file <- os open: "output.txt" (os O_WRONLY) + (os O_CREAT) + (os O_TRUNC) 0b110110110 |
7 os write: file "hello file!\n" | 7 os write: file "hello file!\n" |
8 os close: file | 8 os close: file |
9 0 | 9 0 |
10 } | 10 } |
11 } | 11 } |