akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

7814

This commit is contained in:
Kartik K. Agaram 2021-02-26 22:11:12 -08:00
parent 4d0fd93cb0
commit d3ec20aa03
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
baremetal/shell/read.mu
View File

@ -1,11 +1,15 @@
# out is not allocated # out is not allocated
fn read-cell in: (addr gap-buffer), _out: (addr handle cell), trace: (addr trace) { fn read-cell in: (addr gap-buffer), out: (addr handle cell), trace: (addr trace) {
var tokens-storage: (stream cell 0x100) var tokens-storage: (stream cell 0x100)
var tokens/ecx: (addr stream cell) <- address tokens-storage var tokens/ecx: (addr stream cell) <- address tokens-storage
tokenize in, tokens, trace tokenize in, tokens, trace
# TODO: insert parens # TODO: insert parens
# TODO: transform infix # TODO: transform infix
# TODO: parse. For now we just convert first token into a symbol and return it. parse-sexpression tokens, out, trace
}
fn parse-sexpression tokens: (addr stream cell), _out: (addr handle cell), trace: (addr trace) {
# For now we just convert first token into a symbol and return it. TODO
var empty?/eax: boolean <- stream-empty? tokens var empty?/eax: boolean <- stream-empty? tokens
compare empty?, 0/false compare empty?, 0/false
{ {