blob: c4339cefc792751b07aab276b4f685358f784731 (
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
|
type file-state {
source: (handle buffered-file)
at-start-of-line?: boolean
heading-level?: int
}
fn init-file-state self: (addr file-state), filename: (addr array byte) {
#? var file/esi: (addr buffered-file) <- load-file filename
load-buffer-file self, filename
# self->at-start-of-line? = true
# self->heading-level? = 0
}
fn done-reading? self: (addr file-state) -> result/eax: boolean {
}
fn load-file filename: (addr array byte) -> out/esi: (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-=
var g/eax: grapheme <- copy c
print-grapheme 0, g
loop
}
|