Mercurial > repos > rhope
comparison kernel.rhope @ 79:80d8c9248f85
Began work on File
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 10 Jul 2010 18:02:04 -0400 |
parents | 4d5ea487f810 |
children | d78613686a38 |
comparison
equal
deleted
inserted
replaced
78:4d5ea487f810 | 79:80d8c9248f85 |
---|---|
38 yes,no <- If[[num]!=[0i32]] | 38 yes,no <- If[[num]!=[0i32]] |
39 } | 39 } |
40 | 40 |
41 Foreign C:libc | 41 Foreign C:libc |
42 { | 42 { |
43 open[name(Array,Raw Pointer),flags(Int32,Naked):filedes(Int32,Naked)] | |
43 write[filedes(Int32,Naked),buf(Array,Raw Pointer),nbyte(Int64,Naked):written(Int32,Naked)] | 44 write[filedes(Int32,Naked),buf(Array,Raw Pointer),nbyte(Int64,Naked):written(Int32,Naked)] |
44 read[filedes(Int32,Naked),buf(Array,Raw Pointer,Mutable),nbyte(Int64,Naked):read(Int64,Naked),buf] | 45 read[filedes(Int32,Naked),buf(Array,Raw Pointer,Mutable),nbyte(Int64,Naked):read(Int64,Naked),buf] |
46 close[filedes(Int32,Naked):status(Int32,Naked)] | |
47 fsync[filedes(Int32,Naked):status(Int32,Naked)] | |
45 } | 48 } |
46 | 49 |
47 _Print Int32[n,buf:out] | 50 _Print Int32[n,buf:out] |
48 { | 51 { |
49 If[[n] < [10i32]] | 52 If[[n] < [10i32]] |