From 9cc69d69c6cd83ed4aa367b4a08ca379cae45805 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sun, 31 May 2020 23:43:49 -0700 Subject: 6456 - new directory for live-blogging prototypes I don't have layers yet in Mu. But I can still create lots of versions of a program. --- prototypes/browse/1-print-file.mu | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) create mode 100644 prototypes/browse/1-print-file.mu (limited to 'prototypes/browse/1-print-file.mu') diff --git a/prototypes/browse/1-print-file.mu b/prototypes/browse/1-print-file.mu new file mode 100644 index 00000000..ea441572 --- /dev/null +++ b/prototypes/browse/1-print-file.mu @@ -0,0 +1,32 @@ +fn main args: (addr array (addr array byte)) -> exit-status/ebx: int { + var filename/eax: (addr array byte) <- first-arg args + var file/ecx: (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/ecx: (addr buffered-file) { + var result: (handle buffered-file) + { + var tmp1/eax: (addr handle buffered-file) <- address result + open filename, 0, tmp1 + } + var tmp2/eax: (addr buffered-file) <- lookup result + out <- copy tmp2 +} + +fn dump in: (addr buffered-file) { + { + var c/eax: byte <- read-byte-buffered in + compare c, 0xffffffff # EOF marker + break-if-= + print-byte c + loop + } +} -- cgit 1.4.1-2-gfad0