diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-06-05 13:58:28 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-06-05 13:58:28 -0700 |
commit | d7f41fd02a20504b858793f033bcfce994fe454d (patch) | |
tree | 17fceb4a410893edca099411755d3ed8e3f8f77f /prototypes/browse/20/file-state.mu | |
parent | b3998440f35026a0ad45e85cc6de0e8cc62b00f1 (diff) | |
download | mu-d7f41fd02a20504b858793f033bcfce994fe454d.tar.gz |
6469
Let's start committing new prototype directories *before* we start hacking on them. Version control is useful right from the draft when programming in a language without any error messages.
Diffstat (limited to 'prototypes/browse/20/file-state.mu')
-rw-r--r-- | prototypes/browse/20/file-state.mu | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/prototypes/browse/20/file-state.mu b/prototypes/browse/20/file-state.mu new file mode 100644 index 00000000..35f40229 --- /dev/null +++ b/prototypes/browse/20/file-state.mu @@ -0,0 +1,44 @@ +type file-state { + source: (handle buffered-file) + eof?: boolean +} + +fn init-file-state _self: (addr file-state), filename: (addr array byte) { + var self/eax: (addr file-state) <- copy _self + load-file self, filename + var eof/eax: (addr boolean) <- get self, eof? + copy-to *eof, 0 # false +} + +fn load-file _self: (addr file-state), filename: (addr array byte) { + var self/eax: (addr file-state) <- copy _self + var out/esi: (addr handle buffered-file) <- get self, source + open filename, 0, out # 0 = read mode +} + +fn next-char _self: (addr file-state) -> result/eax: byte { + var self/ecx: (addr file-state) <- copy _self + var source/eax: (addr handle buffered-file) <- get self, source + var in/eax: (addr buffered-file) <- lookup *source + result <- read-byte-buffered in + # if result == EOF, set eof? + compare result, 0xffffffff # EOF marker + { + var eof/ecx: (addr boolean) <- get self, eof? + copy-to *eof, 1 # true + } +} + +fn done-reading? _self: (addr file-state) -> result/eax: boolean { + var self/eax: (addr file-state) <- copy _self + var eof/eax: (addr boolean) <- get self, eof? + result <- copy *eof +} + +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 +} |