diff options
author | Kartik Agaram <vc@akkartik.com> | 2021-11-09 09:29:56 -0800 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2021-11-09 09:29:56 -0800 |
commit | 53d69dd1c5707a1cddd5c2ca6827b9a517659eeb (patch) | |
tree | a54b647c8922c2cc5afd48c586dfbafb23bfe5d6 /linux/tile/grapheme-stack.mu | |
parent | 3ff2fe607c2cb5690d201d3b83ddcc957e949b7a (diff) | |
download | mu-53d69dd1c5707a1cddd5c2ca6827b9a517659eeb.tar.gz |
keep 'grapheme-stack'
We want to at least document intent there.
Diffstat (limited to 'linux/tile/grapheme-stack.mu')
-rw-r--r-- | linux/tile/grapheme-stack.mu | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/linux/tile/grapheme-stack.mu b/linux/tile/grapheme-stack.mu index c7565a1c..0966be6c 100644 --- a/linux/tile/grapheme-stack.mu +++ b/linux/tile/grapheme-stack.mu @@ -1,24 +1,24 @@ -type code-point-utf8-stack { +type grapheme-stack { data: (handle array code-point-utf8) top: int } -fn initialize-code-point-utf8-stack _self: (addr code-point-utf8-stack), n: int { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn initialize-grapheme-stack _self: (addr grapheme-stack), n: int { + var self/esi: (addr grapheme-stack) <- copy _self var d/edi: (addr handle array code-point-utf8) <- get self, data populate d, n var top/eax: (addr int) <- get self, top copy-to *top, 0 } -fn clear-code-point-utf8-stack _self: (addr code-point-utf8-stack) { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn clear-grapheme-stack _self: (addr grapheme-stack) { + var self/esi: (addr grapheme-stack) <- copy _self var top/eax: (addr int) <- get self, top copy-to *top, 0 } -fn code-point-utf8-stack-empty? _self: (addr code-point-utf8-stack) -> _/eax: boolean { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn grapheme-stack-empty? _self: (addr grapheme-stack) -> _/eax: boolean { + var self/esi: (addr grapheme-stack) <- copy _self var top/eax: (addr int) <- get self, top compare *top, 0 { @@ -28,8 +28,8 @@ fn code-point-utf8-stack-empty? _self: (addr code-point-utf8-stack) -> _/eax: bo return 0/false } -fn push-code-point-utf8-stack _self: (addr code-point-utf8-stack), _val: code-point-utf8 { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn push-grapheme-stack _self: (addr grapheme-stack), _val: code-point-utf8 { + var self/esi: (addr grapheme-stack) <- copy _self var top-addr/ecx: (addr int) <- get self, top var data-ah/edx: (addr handle array code-point-utf8) <- get self, data var data/eax: (addr array code-point-utf8) <- lookup *data-ah @@ -40,8 +40,8 @@ fn push-code-point-utf8-stack _self: (addr code-point-utf8-stack), _val: code-po add-to *top-addr, 1 } -fn pop-code-point-utf8-stack _self: (addr code-point-utf8-stack) -> _/eax: code-point-utf8 { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn pop-grapheme-stack _self: (addr grapheme-stack) -> _/eax: code-point-utf8 { + var self/esi: (addr grapheme-stack) <- copy _self var top-addr/ecx: (addr int) <- get self, top { compare *top-addr, 0 @@ -56,8 +56,8 @@ fn pop-code-point-utf8-stack _self: (addr code-point-utf8-stack) -> _/eax: code- return *result-addr } -fn copy-code-point-utf8-stack _src: (addr code-point-utf8-stack), dest: (addr code-point-utf8-stack) { - var src/esi: (addr code-point-utf8-stack) <- copy _src +fn copy-grapheme-stack _src: (addr grapheme-stack), dest: (addr grapheme-stack) { + var src/esi: (addr grapheme-stack) <- copy _src var data-ah/edi: (addr handle array code-point-utf8) <- get src, data var _data/eax: (addr array code-point-utf8) <- lookup *data-ah var data/edi: (addr array code-point-utf8) <- copy _data @@ -67,7 +67,7 @@ fn copy-code-point-utf8-stack _src: (addr code-point-utf8-stack), dest: (addr co compare i, *top-addr break-if->= var g/edx: (addr code-point-utf8) <- index data, i - push-code-point-utf8-stack dest, *g + push-grapheme-stack dest, *g i <- increment loop } @@ -75,8 +75,8 @@ fn copy-code-point-utf8-stack _src: (addr code-point-utf8-stack), dest: (addr co # dump stack to screen from bottom to top # don't move the cursor or anything -fn render-stack-from-bottom _self: (addr code-point-utf8-stack), screen: (addr screen) { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn render-stack-from-bottom _self: (addr grapheme-stack), screen: (addr screen) { + var self/esi: (addr grapheme-stack) <- copy _self var data-ah/edi: (addr handle array code-point-utf8) <- get self, data var _data/eax: (addr array code-point-utf8) <- lookup *data-ah var data/edi: (addr array code-point-utf8) <- copy _data @@ -94,8 +94,8 @@ fn render-stack-from-bottom _self: (addr code-point-utf8-stack), screen: (addr s # dump stack to screen from top to bottom # don't move the cursor or anything -fn render-stack-from-top _self: (addr code-point-utf8-stack), screen: (addr screen) { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn render-stack-from-top _self: (addr grapheme-stack), screen: (addr screen) { + var self/esi: (addr grapheme-stack) <- copy _self var data-ah/edi: (addr handle array code-point-utf8) <- get self, data var _data/eax: (addr array code-point-utf8) <- lookup *data-ah var data/edi: (addr array code-point-utf8) <- copy _data @@ -114,8 +114,8 @@ fn render-stack-from-top _self: (addr code-point-utf8-stack), screen: (addr scre # compare from bottom # beware: modifies 'stream', which must be disposed of after a false result -fn prefix-match? _self: (addr code-point-utf8-stack), s: (addr stream byte) -> _/eax: boolean { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn prefix-match? _self: (addr grapheme-stack), s: (addr stream byte) -> _/eax: boolean { + var self/esi: (addr grapheme-stack) <- copy _self var data-ah/edi: (addr handle array code-point-utf8) <- get self, data var _data/eax: (addr array code-point-utf8) <- lookup *data-ah var data/edi: (addr array code-point-utf8) <- copy _data @@ -142,8 +142,8 @@ fn prefix-match? _self: (addr code-point-utf8-stack), s: (addr stream byte) -> _ # compare from bottom # beware: modifies 'stream', which must be disposed of after a false result -fn suffix-match? _self: (addr code-point-utf8-stack), s: (addr stream byte) -> _/eax: boolean { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn suffix-match? _self: (addr grapheme-stack), s: (addr stream byte) -> _/eax: boolean { + var self/esi: (addr grapheme-stack) <- copy _self var data-ah/edi: (addr handle array code-point-utf8) <- get self, data var _data/eax: (addr array code-point-utf8) <- lookup *data-ah var data/edi: (addr array code-point-utf8) <- copy _data @@ -169,15 +169,15 @@ fn suffix-match? _self: (addr code-point-utf8-stack), s: (addr stream byte) -> _ return 1 # true } -fn code-point-utf8-stack-is-decimal-integer? _self: (addr code-point-utf8-stack) -> _/eax: boolean { - var self/esi: (addr code-point-utf8-stack) <- copy _self +fn grapheme-stack-is-decimal-integer? _self: (addr grapheme-stack) -> _/eax: boolean { + var self/esi: (addr grapheme-stack) <- copy _self var data-ah/eax: (addr handle array code-point-utf8) <- get self, data var _data/eax: (addr array code-point-utf8) <- lookup *data-ah var data/edx: (addr array code-point-utf8) <- copy _data var top-addr/ecx: (addr int) <- get self, top var i/ebx: int <- copy 0 var result/eax: boolean <- copy 1/true - $code-point-utf8-stack-is-integer?:loop: { + $grapheme-stack-is-integer?:loop: { compare i, *top-addr break-if->= var g/edx: (addr code-point-utf8) <- index data, i |