blob: 6bfacfe45e6215082b569691f4907ef5462cece2 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
fn main args: (addr array addr array byte) -> exit-status/ebx: int {
var filename/eax: (addr array byte) <- first-arg args
var file/eax: (addr buffered-file) <- load-file filename
dump file
exit-status <- copy 0
}
fn first-arg args-on-stack: (addr array addr array byte) -> out/eax: (addr array byte) {
var args/eax: (addr array addr array byte) <- copy args-on-stack
var result/eax: (addr addr array byte) <- index args, 1
out <- copy *result
}
fn load-file filename: (addr array byte) -> out/eax: (addr buffered-file) {
var result: (handle buffered-file)
{
var tmp1/eax: (addr handle buffered-file) <- address result
open filename, 0, tmp1
}
out <- lookup result
}
fn dump in: (addr buffered-file) {
{
var c/eax: byte <- read-byte-buffered in
compare c, 0xffffffff # EOF marker
break-if-=
var g/eax: grapheme <- copy c
print-grapheme 0, g
loop
}
}
|