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

.

This commit is contained in:
Kartik K. Agaram 2021-04-15 08:45:51 -07:00
parent 262290a4e8
commit 126a0390f5
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
shell/tokenize.mu
View File

@ -557,13 +557,15 @@ fn quote-token? _in: (addr cell) -> _/eax: boolean {
fn open-paren-token? _in: (addr cell) -> _/eax: boolean {
var in/eax: (addr cell) <- copy _in
var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
var in-data/eax: (addr stream byte) <- lookup *in-data-ah
var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
var in-data/ecx: (addr stream byte) <- copy _in-data
rewind-stream in-data
var g/eax: grapheme <- read-grapheme in-data
compare g, 0x28/open-paren
{
break-if-!=
return 1/true
var result/eax: boolean <- stream-empty? in-data
return result
}
return 0/false
}
@ -571,13 +573,15 @@ fn open-paren-token? _in: (addr cell) -> _/eax: boolean {
fn close-paren-token? _in: (addr cell) -> _/eax: boolean {
var in/eax: (addr cell) <- copy _in
var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
var in-data/eax: (addr stream byte) <- lookup *in-data-ah
var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
var in-data/ecx: (addr stream byte) <- copy _in-data
rewind-stream in-data
var g/eax: grapheme <- read-grapheme in-data
compare g, 0x29/open-paren
compare g, 0x29/close-paren
{
break-if-!=
return 1/true
var result/eax: boolean <- stream-empty? in-data
return result
}
return 0/false
}