diff options
Diffstat (limited to 'apps/print-file.mu')
-rw-r--r-- | apps/print-file.mu | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/apps/print-file.mu b/apps/print-file.mu deleted file mode 100644 index 57e044dc..00000000 --- a/apps/print-file.mu +++ /dev/null @@ -1,39 +0,0 @@ -# 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_mu 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 -} |