7775
This commit is contained in:
parent
70def3209b
commit
668bec391c
|
@ -17,21 +17,3 @@ fn main {
|
||||||
loop
|
loop
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
fn run in: (addr gap-buffer), out: (addr stream byte) {
|
|
||||||
# tokenize
|
|
||||||
# insert parens
|
|
||||||
# transform infix
|
|
||||||
# token tree
|
|
||||||
# syntax tree
|
|
||||||
rewind-gap-buffer in
|
|
||||||
clear-stream out
|
|
||||||
{
|
|
||||||
var done?/eax: boolean <- gap-buffer-scan-done? in
|
|
||||||
compare done?, 0/false
|
|
||||||
break-if-!=
|
|
||||||
var g/eax: grapheme <- read-from-gap-buffer in
|
|
||||||
write-grapheme out, g
|
|
||||||
loop
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
|
@ -90,3 +90,21 @@ fn edit-sandbox _self: (addr sandbox), key: byte {
|
||||||
}
|
}
|
||||||
add-grapheme-to-sandbox self, g
|
add-grapheme-to-sandbox self, g
|
||||||
}
|
}
|
||||||
|
|
||||||
|
fn run in: (addr gap-buffer), out: (addr stream byte) {
|
||||||
|
# tokenize
|
||||||
|
# insert parens
|
||||||
|
# transform infix
|
||||||
|
# token tree
|
||||||
|
# syntax tree
|
||||||
|
rewind-gap-buffer in
|
||||||
|
clear-stream out
|
||||||
|
{
|
||||||
|
var done?/eax: boolean <- gap-buffer-scan-done? in
|
||||||
|
compare done?, 0/false
|
||||||
|
break-if-!=
|
||||||
|
var g/eax: grapheme <- read-from-gap-buffer in
|
||||||
|
write-grapheme out, g
|
||||||
|
loop
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user