Mercurial > repos > rhope

comparison kernel.rhope @ 79:80d8c9248f85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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]]