about summary refs log tree commit diff stats
path: root/apps/print-file.mu
blob: c44e09d19fedd8a37c6d9cf08390535fdbf82553 (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
40
# 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)) -> exit-status/ebx: int {
  var args/eax: (addr array (addr array byte)) <- copy _args
$main-body: {
    var n/ecx: int <- length args
    compare n, 1
    {
      break-if->
      print-string "usage: cat <filename>\n"
      break $main-body
    }
    {
      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, 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  # EOF marker
        break-if-=
        print-byte c
        loop
      }
    }
  }
  exit-status <- copy 0
}