deduplicated duplicate deduplication functions - getwtxt

diff options

author	Ben Morrison <ben@gbmor.dev>	2019-06-06 02:21:00 -0400
committer	Ben Morrison <ben@gbmor.dev>	2019-06-06 02:22:56 -0400
commit	eca8525e5811cad371e407507594fa95d8db98c1 (patch)
tree	8f1467964c280dffd17f6c432efe0b03bf42bf3e /svc/go.mod
parent	1a15258ee5d93ffef8f8c768ff725d7429a3248c (diff)
download	getwtxt-eca8525e5811cad371e407507594fa95d8db98c1.tar.gz

deduplicated duplicate deduplication functions

Diffstat (limited to 'svc/go.mod')

0 files changed, 0 insertions, 0 deletions

<!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 - baremetal/shell/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/baremetal/shell/grapheme-stack.mu'>https://github.com/akkartik/mu/blob/main/baremetal/shell/grapheme-stack.mu</a> <pre id='vimCodeElement'> 1 # grapheme stacks are the smallest unit of editable text 2 # they are typically rendered horizontally 3 4 type <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a> { 5 data: (handle array grapheme) 6 <a href='../../203stack.subx.html#L338'>top</a>: int 7 } 8 9 fn <a href='grapheme-stack.mu.html#L9'>initialize-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), n: int { 10 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 11 var d/edi: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 12 populate d, n 13 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> 14 copy-to *top, 0 15 } 16 17 fn <a href='grapheme-stack.mu.html#L17'>clear-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) { 18 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 19 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> 20 copy-to *top, 0 21 } 22 23 fn <a href='grapheme-stack.mu.html#L23'>grapheme-stack-empty?</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) -> _/eax: boolean { 24 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 25 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> 26 compare *top, 0 27 { 28 break-if-!= 29 return 1/true 30 } 31 return 0/false 32 } 33 34 fn <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), _val: grapheme { 35 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 36 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 37 var data-ah/edx: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 38 var data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 39 var <a href='../../203stack.subx.html#L338'>top</a>/edx: int <- copy *top-addr 40 var dest-addr/edx: (addr grapheme) <- index data, <a href='../../203stack.subx.html#L338'>top</a> 41 var val/eax: grapheme <- copy _val 42 copy-to *dest-addr, val 43 add-to *top-addr, 1 44 } 45 46 fn <a href='grapheme-stack.mu.html#L46'>pop-grapheme-stack</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) -> _/eax: grapheme { 47 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 48 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 49 { 50 compare *top-addr, 0 51 break-if-> 52 return -1 53 } 54 subtract-from *top-addr, 1 55 var data-ah/edx: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 56 var data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 57 var <a href='../../203stack.subx.html#L338'>top</a>/edx: int <- copy *top-addr 58 var result-addr/eax: (addr grapheme) <- index data, <a href='../../203stack.subx.html#L338'>top</a> 59 return *result-addr 60 } 61 62 fn <a href='grapheme-stack.mu.html#L62'>copy-grapheme-stack</a> _src: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), dest: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) { 63 var src/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _src 64 var data-ah/edi: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> src, data 65 var _data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 66 var data/edi: (addr array grapheme) <- copy _data 67 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> src, <a href='../../203stack.subx.html#L338'>top</a> 68 var i/eax: int <- copy 0 69 { 70 compare i, *top-addr 71 break-if->= 72 var g/edx: (addr grapheme) <- index data, i 73 <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> dest, *g 74 i <- increment 75 loop 76 } 77 } 78 79 # dump stack to screen from bottom to top 80 # colors hardcoded 81 fn <a href='grapheme-stack.mu.html#L81'>render-stack-from-bottom</a> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), x: int, y: int -> _/eax: int { 82 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 83 var data-ah/edi: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 84 var _data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 85 var data/edi: (addr array grapheme) <- copy _data 86 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 87 var i/eax: int <- copy 0 88 { 89 compare i, *top-addr 90 break-if->= 91 var g/edx: (addr grapheme) <- index data, i 92 draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, *g, x, y, 3/fg=cyan, 0/bg 93 i <- increment 94 increment x # assume left to right 95 loop 96 } 97 return x 98 } 99 100 # dump stack to screen from top to bottom 101 # optionally render a 'cursor' with the top grapheme 102 fn <a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), x: int, y: int, render-cursor?: boolean -> _/eax: int { 103 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 104 var data-ah/edi: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 105 var _data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 106 var data/edi: (addr array grapheme) <- copy _data 107 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 108 var i/eax: int <- copy *top-addr 109 i <- decrement 110 # if render-cursor?, peel off first iteration 111 { 112 compare render-cursor?, 0/false 113 break-if-= 114 compare i, 0 115 break-if-< 116 var g/edx: (addr grapheme) <- index data, i 117 draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, *g, x, y, 3/fg=cyan, 7/bg=cursor 118 i <- decrement 119 increment x # assume left to right 120 } 121 # remaining iterations 122 { 123 compare i, 0 124 break-if-< 125 var g/edx: (addr grapheme) <- index data, i 126 draw-grapheme <a href='../../405screen.mu.html#L9'>screen</a>, *g, x, y, 3/fg=cyan, 0/bg 127 i <- decrement 128 increment x # assume left to right 129 loop 130 } 131 return x 132 } 133 134 fn <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> { 135 # setup: gs = "abc" 136 var gs-storage: <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a> 137 var gs/edi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- address gs-storage 138 <a href='grapheme-stack.mu.html#L9'>initialize-grapheme-stack</a> gs, 5 139 var g/eax: grapheme <- copy 0x61/a 140 <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> gs, g 141 g <- copy 0x62/b 142 <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> gs, g 143 g <- copy 0x63/c 144 <a href='grapheme-stack.mu.html#L34'>push-grapheme-stack</a> gs, g 145 # setup: screen 146 var screen-on-stack: <a href='../../405screen.mu.html#L9'>screen</a> 147 var <a href='../../405screen.mu.html#L9'>screen</a>/esi: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <- address screen-on-stack 148 <a href='../../405screen.mu.html#L30'>initialize-screen</a> <a href='../../405screen.mu.html#L9'>screen</a>, 5, 4 149 # 150 var x/eax: int <- <a href='grapheme-stack.mu.html#L81'>render-stack-from-bottom</a> <a href='../../405screen.mu.html#L9'>screen</a>, gs, 0/x, 0/y 151 <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, 0/y, "abc ", "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from bottom" 152 <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, 3, "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from bottom: result" 153 check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, 7/bg=cursor, 0/y, " ", "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from bottom: bg" 154 # 155 var x/eax: int <- <a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a> <a href='../../405screen.mu.html#L9'>screen</a>, gs, 0/x, 1/y, 0/cursor=false 156 <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, 1/y, "cba ", "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor" 157 <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, 3, "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor: result" 158 check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, 7/bg=cursor, 1/y, " ", "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor: bg" 159 # 160 var x/eax: int <- <a href='grapheme-stack.mu.html#L102'>render-stack-from-top</a> <a href='../../405screen.mu.html#L9'>screen</a>, gs, 0/x, 2/y, 1/cursor=true 161 <a href='../../405screen.mu.html#L623'>check-screen-row</a> <a href='../../405screen.mu.html#L9'>screen</a>, 2/y, "cba ", "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> with cursor" 162 <a href='../../102test.subx.html#L23'>check-ints-equal</a> x, 3, "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> without cursor: result" 163 check-background-color-in-screen-row <a href='../../405screen.mu.html#L9'>screen</a>, 7/bg=cursor, 2/y, "| ", "F - <a href='grapheme-stack.mu.html#L134'>test-render-grapheme-stack</a> from <a href='../../203stack.subx.html#L338'>top</a> with cursor: bg" 164 } 165 166 # compare from bottom 167 # beware: modifies 'stream', which must be disposed of after a false result 168 fn <a href='grapheme-stack.mu.html#L168'>prefix-match?</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), s: (addr stream byte) -> _/eax: boolean { 169 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 170 var data-ah/edi: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 171 var _data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 172 var data/edi: (addr array grapheme) <- copy _data 173 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 174 var i/ebx: int <- copy 0 175 { 176 compare i, *top-addr 177 break-if->= 178 # if curr != expected, return false 179 { 180 var curr-a/edx: (addr grapheme) <- index data, i 181 var expected/eax: grapheme <- <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s 182 { 183 compare expected, *curr-a 184 break-if-= 185 return 0/false 186 } 187 } 188 i <- increment 189 loop 190 } 191 return 1 # true 192 } 193 194 # compare from bottom 195 # beware: modifies 'stream', which must be disposed of after a false result 196 fn <a href='grapheme-stack.mu.html#L196'>suffix-match?</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>), s: (addr stream byte) -> _/eax: boolean { 197 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 198 var data-ah/edi: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 199 var _data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 200 var data/edi: (addr array grapheme) <- copy _data 201 var top-addr/eax: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 202 var i/ebx: int <- copy *top-addr 203 i <- decrement 204 { 205 compare i, 0 206 break-if-< 207 { 208 var curr-a/edx: (addr grapheme) <- index data, i 209 var expected/eax: grapheme <- <a href='../../403unicode.mu.html#L158'>read-grapheme</a> s 210 # if curr != expected, return false 211 { 212 compare expected, *curr-a 213 break-if-= 214 return 0/false 215 } 216 } 217 i <- decrement 218 loop 219 } 220 return 1 # true 221 } 222 223 fn <a href='grapheme-stack.mu.html#L223'>grapheme-stack-is-decimal-integer?</a> _self: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) -> _/eax: boolean { 224 var self/esi: (addr <a href='grapheme-stack.mu.html#L4'>grapheme-stack</a>) <- copy _self 225 var data-ah/eax: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> self, data 226 var _data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L258'>lookup</a> *data-ah 227 var data/edx: (addr array grapheme) <- copy _data 228 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> 229 var i/ebx: int <- copy 0 230 var result/eax: boolean <- copy 1/true 231 $grapheme-stack-is-integer?:loop: { 232 compare i, *top-addr 233 break-if->= 234 var g/edx: (addr grapheme) <- index data, i 235 result <- <a href='../../126write-int-decimal.subx.html#L306'>is-decimal-digit?</a> *g 236 compare result, 0/false 237 break-if-= 238 i <- increment 239 loop 240 } 241 return result 242 } </pre> </body> </html>


context:
space:
mode: