blob: 75ce2e39ea0e1e7b5f607d9998b6a58a2384a3ea (
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
33
34
35
36
37
38
39
|
# accept a filename on the commandline, read it and print it out to screen
# only ascii right now, just like the rest of Mu
#
# To run:
# $ ./translate apps/print-file.mu
# $ echo abc > x
# $ ./a.elf x
# abc
fn main _args: (addr array addr array byte) -> _/ebx: int {
var args/eax: (addr array addr array byte) <- copy _args
var n/ecx: int <- length args
compare n, 1
{
break-if->
print-string 0/screen, "usage: cat <filename>\n"
return 0
}
{
break-if-<=
var filename/edx: (addr addr array byte) <- index args 1
var in: (handle buffered-file)
{
var addr-in/eax: (addr handle buffered-file) <- address in
open *filename, 0/read-only, addr-in
}
var _in-addr/eax: (addr buffered-file) <- lookup in
var in-addr/ecx: (addr buffered-file) <- copy _in-addr
{
var c/eax: byte <- read-byte-buffered in-addr
compare c, 0xffffffff/end-of-file
break-if-=
var g/eax: grapheme <- copy c
print-grapheme 0/screen, g
loop
}
}
return 0
}
|