mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

diff options

Diffstat (limited to 'html')

0 files changed, 0 insertions, 0 deletions

='#n157'>157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - linux/tile/grapheme-stack.mu</title> <meta name="Generator" content="Vim/8.1"> <meta name="plugin-version" content="vim8.1_v1"> <meta name="syntax" content="none"> <meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy="> <meta name="colorscheme" content="minimal-light"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body onload='JumpToLine();'> <a href='https://github.com/akkartik/mu/blob/main/linux/tile/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/linux/tile/grapheme-stack.mu</a> <pre id='vimCodeElement'> 1 type <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a> { 2 data: (handle array grapheme) 3 <a href='../203stack.subx.html#L338'>top</a>: int 4 } 5 6 fn <a href='grapheme-stack.mu.html#L6'>initialize-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), n: int { 7 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 8 var d/edi: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 9 populate d, n 10 var <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 11 copy-to *top, 0 12 } 13 14 fn <a href='grapheme-stack.mu.html#L14'>clear-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) { 15 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 16 var <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 17 copy-to *top, 0 18 } 19 20 fn <a href='grapheme-stack.mu.html#L20'>grapheme-stack-empty?</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) -> _/eax: boolean { 21 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 22 var <a href='../203stack.subx.html#L338'>top</a>/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 23 compare *top, 0 24 { 25 break-if-!= 26 return 1/true 27 } 28 return 0/false 29 } 30 31 fn <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), _val: grapheme { 32 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 33 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 34 var data-ah/edx: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 35 var data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 36 var <a href='../203stack.subx.html#L338'>top</a>/edx: int <- copy *top-addr 37 var dest-addr/edx: (addr grapheme) <- index data, <a href='../203stack.subx.html#L338'>top</a> 38 var val/eax: grapheme <- copy _val 39 copy-to *dest-addr, val 40 add-to *top-addr, 1 41 } 42 43 fn <a href='grapheme-stack.mu.html#L43'>pop-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) -> _/eax: grapheme { 44 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 45 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 46 { 47 compare *top-addr, 0 48 break-if-> 49 return -1 50 } 51 subtract-from *top-addr, 1 52 var data-ah/edx: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 53 var data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 54 var <a href='../203stack.subx.html#L338'>top</a>/edx: int <- copy *top-addr 55 var result-addr/eax: (addr grapheme) <- index data, <a href='../203stack.subx.html#L338'>top</a> 56 return *result-addr 57 } 58 59 fn <a href='grapheme-stack.mu.html#L59'>copy-grapheme-stack</a> _src: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) { 60 var src/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _src 61 var data-ah/edi: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> src, data 62 var _data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 63 var data/edi: (addr array grapheme) <- copy _data 64 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> src, <a href='../203stack.subx.html#L338'>top</a> 65 var i/eax: int <- copy 0 66 { 67 compare i, *top-addr 68 break-if->= 69 var g/edx: (addr grapheme) <- index data, i 70 <a href='grapheme-stack.mu.html#L31'>push-grapheme-stack</a> dest, *g 71 i <- increment 72 loop 73 } 74 } 75 76 # dump stack to screen from bottom to top 77 # don't move the cursor or anything 78 fn <a href='grapheme-stack.mu.html#L78'>render-stack-from-bottom</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) { 79 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 80 var data-ah/edi: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 81 var _data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 82 var data/edi: (addr array grapheme) <- copy _data 83 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 84 var i/eax: int <- copy 0 85 { 86 compare i, *top-addr 87 break-if->= 88 var g/edx: (addr grapheme) <- index data, i 89 <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g 90 i <- increment 91 loop 92 } 93 } 94 95 # dump stack to screen from top to bottom 96 # don't move the cursor or anything 97 fn <a href='grapheme-stack.mu.html#L97'>render-stack-from-top</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../405screen.mu.html#L9'>screen</a>: (addr <a href='../405screen.mu.html#L9'>screen</a>) { 98 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 99 var data-ah/edi: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 100 var _data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 101 var data/edi: (addr array grapheme) <- copy _data 102 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 103 var i/eax: int <- copy *top-addr 104 i <- decrement 105 { 106 compare i, 0 107 break-if-< 108 var g/edx: (addr grapheme) <- index data, i 109 <a href='../405screen.mu.html#L214'>print-grapheme</a> <a href='../405screen.mu.html#L9'>screen</a>, *g 110 i <- decrement 111 loop 112 } 113 } 114 115 # compare from bottom 116 # beware: modifies 'stream', which must be disposed of after a false result 117 fn <a href='grapheme-stack.mu.html#L117'>prefix-match?</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte) -> _/eax: boolean { 118 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 119 var data-ah/edi: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 120 var _data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 121 var data/edi: (addr array grapheme) <- copy _data 122 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 123 var i/ebx: int <- copy 0 124 { 125 compare i, *top-addr 126 break-if->= 127 # if curr != expected, return false 128 { 129 var curr-a/edx: (addr grapheme) <- index data, i 130 var expected/eax: grapheme <- <a href='../403unicode.mu.html#L158'>read-grapheme</a> s 131 { 132 compare expected, *curr-a 133 break-if-= 134 return 0/false 135 } 136 } 137 i <- increment 138 loop 139 } 140 return 1 # true 141 } 142 143 # compare from bottom 144 # beware: modifies 'stream', which must be disposed of after a false result 145 fn <a href='grapheme-stack.mu.html#L145'>suffix-match?</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte) -> _/eax: boolean { 146 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 147 var data-ah/edi: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 148 var _data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 149 var data/edi: (addr array grapheme) <- copy _data 150 var top-addr/eax: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 151 var i/ebx: int <- copy *top-addr 152 i <- decrement 153 { 154 compare i, 0 155 break-if-< 156 { 157 var curr-a/edx: (addr grapheme) <- index data, i 158 var expected/eax: grapheme <- <a href='../403unicode.mu.html#L158'>read-grapheme</a> s 159 # if curr != expected, return false 160 { 161 compare expected, *curr-a 162 break-if-= 163 return 0/false 164 } 165 } 166 i <- decrement 167 loop 168 } 169 return 1 # true 170 } 171 172 fn <a href='grapheme-stack.mu.html#L172'>grapheme-stack-is-decimal-integer?</a> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) -> _/eax: boolean { 173 var self/esi: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <- copy _self 174 var data-ah/eax: (addr handle array grapheme) <- <a href='../131table.subx.html#L26'>get</a> self, data 175 var _data/eax: (addr array grapheme) <- <a href='../120allocate.subx.html#L258'>lookup</a> *data-ah 176 var data/edx: (addr array grapheme) <- copy _data 177 var top-addr/ecx: (addr int) <- <a href='../131table.subx.html#L26'>get</a> self, <a href='../203stack.subx.html#L338'>top</a> 178 var i/ebx: int <- copy 0 179 var <a href='data.mu.html#L82'>result</a>/eax: boolean <- copy 1/true 180 $grapheme-stack-is-integer?:loop: { 181 compare i, *top-addr 182 break-if->= 183 var g/edx: (addr grapheme) <- index data, i 184 <a href='data.mu.html#L82'>result</a> <- <a href='../126write-int-decimal.subx.html#L306'>decimal-digit?</a> *g 185 compare <a href='data.mu.html#L82'>result</a>, 0/false 186 break-if-= 187 i <- increment 188 loop 189 } 190 return <a href='data.mu.html#L82'>result</a> 191 } </pre> </body> </html>


context:
space:
mode: