tour - touring some programming systems

diff options

Diffstat (limited to 'js/games/nluqo.github.io/~bh/art/Bolling.jpg')

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 - apps/tile/word.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/master/apps/tile/word.mu'>https://github.com/akkartik/mu/blob/master/apps/tile/word.mu</a> <pre id='vimCodeElement'> 1 fn <a href='word.mu.html#L1'>initialize-word</a> _self: (addr word) { 2 var self/esi: (addr word) <- copy _self 3 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 4 <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah 5 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 6 initialize-gap-buffer data 7 # TODO: sometimes initialize box-data rather than scalar-data 8 } 9 10 ## some helpers for creating words. mostly for tests 11 12 fn <a href='word.mu.html#L12'>initialize-word-with</a> _self: (addr word), s: (addr array byte) { 13 var self/esi: (addr word) <- copy _self 14 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 15 <a href='../../120allocate.subx.html#L66'>allocate</a> data-ah 16 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 17 initialize-gap-buffer-with data, s 18 } 19 20 fn <a href='word.mu.html#L20'>allocate-word-with</a> _out: (addr handle word), s: (addr array byte) { 21 var out/eax: (addr handle word) <- copy _out 22 <a href='../../120allocate.subx.html#L66'>allocate</a> out 23 var out-addr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *out 24 <a href='word.mu.html#L12'>initialize-word-with</a> out-addr, s 25 } 26 27 # just for tests for now 28 # TODO: handle existing next 29 # one implication of handles: append must take a handle 30 fn <a href='word.mu.html#L30'>append-word-with</a> self-h: (handle word), s: (addr array byte) { 31 var self/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> self-h 32 var next-ah/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> self, next 33 <a href='word.mu.html#L20'>allocate-word-with</a> next-ah, s 34 var next/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah 35 var prev-ah/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> next, prev 36 <a href='../../120allocate.subx.html#L489'>copy-handle</a> self-h, prev-ah 37 } 38 39 # just for tests for now 40 # TODO: handle existing prev 41 fn <a href='word.mu.html#L41'>prepend-word-with</a> self-h: (handle word), s: (addr array byte) { 42 var self/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> self-h 43 var prev-ah/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> self, prev 44 <a href='word.mu.html#L20'>allocate-word-with</a> prev-ah, s 45 var prev/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *prev-ah 46 var next-ah/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> prev, next 47 <a href='../../120allocate.subx.html#L489'>copy-handle</a> self-h, next-ah 48 } 49 50 ## real primitives 51 52 fn <a href='word.mu.html#L52'>move-word-contents</a> _src-ah: (addr handle word), _dest-ah: (addr handle word) { 53 var dest-ah/eax: (addr handle word) <- copy _dest-ah 54 var _dest/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah 55 var dest/edi: (addr word) <- copy _dest 56 var src-ah/eax: (addr handle word) <- copy _src-ah 57 var _src/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah 58 var src/esi: (addr word) <- copy _src 59 <a href='word.mu.html#L201'>cursor-to-start</a> src 60 var src-data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> src, scalar-data 61 var src-data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-data-ah 62 var src-stack/ecx: (addr grapheme-stack) <- <a href='../../131table.subx.html#L26'>get</a> src-data, right 63 { 64 var done?/eax: boolean <- grapheme-stack-empty? src-stack 65 compare done?, 0 # false 66 break-if-!= 67 var g/eax: grapheme <- pop-grapheme-stack src-stack 68 #? print-grapheme 0, g 69 #? print-string 0, "\n" 70 <a href='word.mu.html#L164'>add-grapheme-to-word</a> dest, g 71 loop 72 } 73 } 74 75 fn <a href='word.mu.html#L75'>copy-word-contents-before-cursor</a> _src-ah: (addr handle word), _dest-ah: (addr handle word) { 76 var dest-ah/eax: (addr handle word) <- copy _dest-ah 77 var _dest/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah 78 var dest/edi: (addr word) <- copy _dest 79 var src-ah/eax: (addr handle word) <- copy _src-ah 80 var src/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah 81 var src-data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> src, scalar-data 82 var src-data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-data-ah 83 var src-stack/ecx: (addr grapheme-stack) <- <a href='../../131table.subx.html#L26'>get</a> src-data, left 84 var src-stack-data-ah/eax: (addr handle array grapheme) <- <a href='../../131table.subx.html#L26'>get</a> src-stack, data 85 var _src-stack-data/eax: (addr array grapheme) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-stack-data-ah 86 var src-stack-data/edx: (addr array grapheme) <- copy _src-stack-data 87 var top-addr/ecx: (addr int) <- <a href='../../131table.subx.html#L26'>get</a> src-stack, <a href='../../203stack.subx.html#L338'>top</a> 88 var i/eax: int <- copy 0 89 { 90 compare i, *top-addr 91 break-if->= 92 var g/edx: (addr grapheme) <- index src-stack-data, i 93 <a href='word.mu.html#L164'>add-grapheme-to-word</a> dest, *g 94 i <- increment 95 loop 96 } 97 } 98 99 fn <a href='word.mu.html#L99'>word-equal?</a> _self: (addr word), s: (addr array byte) -> _/eax: boolean { 100 var self/esi: (addr word) <- copy _self 101 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 102 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 103 var result/eax: boolean <- gap-buffer-equal? data, s 104 return result 105 } 106 107 fn <a href='word.mu.html#L107'>word-length</a> _self: (addr word) -> _/eax: int { 108 var self/esi: (addr word) <- copy _self 109 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 110 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 111 var result/eax: int <- gap-buffer-length data 112 return result 113 } 114 115 fn <a href='word.mu.html#L115'>first-word</a> _in: (addr handle word), out: (addr handle word) { 116 var curr-ah/esi: (addr handle word) <- copy _in 117 var curr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah 118 var prev/edi: (addr handle word) <- copy 0 119 { 120 prev <- <a href='../../131table.subx.html#L26'>get</a> curr, prev 121 var curr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *prev 122 compare curr, 0 123 break-if-= 124 copy-object prev, curr-ah 125 loop 126 } 127 copy-object curr-ah, out 128 } 129 130 fn <a href='word.mu.html#L130'>final-word</a> _in: (addr handle word), out: (addr handle word) { 131 var curr-h: (handle word) 132 var curr-ah/esi: (addr handle word) <- address curr-h 133 copy-object _in, curr-ah 134 var curr/eax: (addr word) <- copy 0 135 var next/edi: (addr handle word) <- copy 0 136 { 137 curr <- <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah 138 next <- <a href='../../131table.subx.html#L26'>get</a> curr, next 139 curr <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next 140 compare curr, 0 141 break-if-= 142 copy-object next, curr-ah 143 loop 144 } 145 copy-object curr-ah, out 146 } 147 148 fn <a href='word.mu.html#L148'>first-grapheme</a> _self: (addr word) -> _/eax: grapheme { 149 var self/esi: (addr word) <- copy _self 150 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 151 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 152 var result/eax: grapheme <- first-grapheme-in-gap-buffer data 153 return result 154 } 155 156 fn <a href='word.mu.html#L156'>grapheme-before-cursor</a> _self: (addr word) -> _/eax: grapheme { 157 var self/esi: (addr word) <- copy _self 158 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 159 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 160 var result/eax: grapheme <- grapheme-before-cursor-in-gap-buffer data 161 return result 162 } 163 164 fn <a href='word.mu.html#L164'>add-grapheme-to-word</a> _self: (addr word), c: grapheme { 165 var self/esi: (addr word) <- copy _self 166 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 167 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 168 add-grapheme-at-gap data, c 169 } 170 171 fn <a href='word.mu.html#L171'>cursor-at-start?</a> _self: (addr word) -> _/eax: boolean { 172 var self/esi: (addr word) <- copy _self 173 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 174 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 175 var result/eax: boolean <- gap-at-start? data 176 return result 177 } 178 179 fn <a href='word.mu.html#L179'>cursor-at-end?</a> _self: (addr word) -> _/eax: boolean { 180 var self/esi: (addr word) <- copy _self 181 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 182 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 183 var result/eax: boolean <- gap-at-end? data 184 return result 185 } 186 187 fn <a href='word.mu.html#L187'>cursor-left</a> _self: (addr word) { 188 var self/esi: (addr word) <- copy _self 189 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 190 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 191 var dummy/eax: grapheme <- gap-left data 192 } 193 194 fn <a href='word.mu.html#L194'>cursor-right</a> _self: (addr word) { 195 var self/esi: (addr word) <- copy _self 196 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 197 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 198 var dummy/eax: grapheme <- gap-right data 199 } 200 201 fn <a href='word.mu.html#L201'>cursor-to-start</a> _self: (addr word) { 202 var self/esi: (addr word) <- copy _self 203 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 204 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 205 gap-to-start data 206 } 207 208 fn <a href='word.mu.html#L208'>cursor-to-end</a> _self: (addr word) { 209 var self/esi: (addr word) <- copy _self 210 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 211 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 212 gap-to-end data 213 } 214 215 fn <a href='word.mu.html#L215'>cursor-index</a> _self: (addr word) -> _/eax: int { 216 var self/esi: (addr word) <- copy _self 217 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 218 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 219 var result/eax: int <- gap-index data 220 return result 221 } 222 223 fn <a href='word.mu.html#L223'>delete-before-cursor</a> _self: (addr word) { 224 var self/esi: (addr word) <- copy _self 225 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 226 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 227 delete-before-gap data 228 } 229 230 fn <a href='word.mu.html#L230'>pop-after-cursor</a> _self: (addr word) -> _/eax: grapheme { 231 var self/esi: (addr word) <- copy _self 232 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 233 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 234 var result/eax: grapheme <- pop-after-gap data 235 return result 236 } 237 238 fn <a href='word.mu.html#L238'>delete-next</a> _self: (addr word) { 239 var self/esi: (addr word) <- copy _self 240 var next-ah/edi: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> self, next 241 var next/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah 242 compare next, 0 243 break-if-= 244 var next-next-ah/ecx: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> next, next 245 var self-ah/esi: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> next, prev 246 copy-object next-next-ah, next-ah 247 var new-next/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next-next-ah 248 compare new-next, 0 249 break-if-= 250 var dest/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> new-next, prev 251 copy-object self-ah, dest 252 } 253 254 fn <a href='word.mu.html#L254'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _self: (addr word) { 255 var self/esi: (addr word) <- copy _self 256 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 257 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 258 render-gap-buffer <a href='../../405screen.mu.html#L9'>screen</a>, data 259 } 260 261 fn <a href='word.mu.html#L261'>print-words</a> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle word) { 262 var words-ah/eax: (addr handle word) <- copy _words-ah 263 var words-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *words-ah 264 compare words-a, 0 265 break-if-= 266 # print 267 <a href='word.mu.html#L254'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, words-a 268 <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, " " 269 # recurse 270 var next-ah/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> words-a, next 271 <a href='word.mu.html#L261'>print-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah 272 } 273 274 fn <a href='word.mu.html#L274'>print-words-in-reverse</a> <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>), _words-ah: (addr handle word) { 275 var words-ah/eax: (addr handle word) <- copy _words-ah 276 var words-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *words-ah 277 compare words-a, 0 278 break-if-= 279 # recurse 280 var next-ah/ecx: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> words-a, next 281 <a href='word.mu.html#L261'>print-words</a> <a href='../../405screen.mu.html#L9'>screen</a>, next-ah 282 # print 283 <a href='word.mu.html#L254'>print-word</a> <a href='../../405screen.mu.html#L9'>screen</a>, words-a 284 <a href='../../405screen.mu.html#L169'>print-string</a> <a href='../../405screen.mu.html#L9'>screen</a>, " " 285 } 286 287 # Gotcha with some word operations: ensure dest-ah isn't in the middle of some 288 # existing chain of words. There are two pointers to patch, and you'll forget 289 # to do the other one. 290 fn <a href='word.mu.html#L290'>copy-words</a> _src-ah: (addr handle word), _dest-ah: (addr handle word) { 291 var src-ah/eax: (addr handle word) <- copy _src-ah 292 var src-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah 293 compare src-a, 0 294 break-if-= 295 # copy 296 var dest-ah/edi: (addr handle word) <- copy _dest-ah 297 <a href='word.mu.html#L372'>copy-word</a> src-a, dest-ah 298 # recurse 299 var rest: (handle word) 300 var rest-ah/ecx: (addr handle word) <- address rest 301 var next-src-ah/esi: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> src-a, next 302 <a href='word.mu.html#L290'>copy-words</a> next-src-ah, rest-ah 303 <a href='word.mu.html#L488'>chain-words</a> dest-ah, rest-ah 304 } 305 306 fn <a href='word.mu.html#L306'>copy-words-in-reverse</a> _src-ah: (addr handle word), _dest-ah: (addr handle word) { 307 var src-ah/eax: (addr handle word) <- copy _src-ah 308 var _src-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src-ah 309 var src-a/esi: (addr word) <- copy _src-a 310 compare src-a, 0 311 break-if-= 312 # recurse 313 var next-src-ah/ecx: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> src-a, next 314 var dest-ah/edi: (addr handle word) <- copy _dest-ah 315 <a href='word.mu.html#L306'>copy-words-in-reverse</a> next-src-ah, dest-ah 316 # 317 <a href='word.mu.html#L320'>copy-word-at-end</a> src-a, dest-ah 318 } 319 320 fn <a href='word.mu.html#L320'>copy-word-at-end</a> src: (addr word), _dest-ah: (addr handle word) { 321 var dest-ah/edi: (addr handle word) <- copy _dest-ah 322 # if dest is null, copy and return 323 var dest-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah 324 compare dest-a, 0 325 { 326 break-if-!= 327 <a href='word.mu.html#L372'>copy-word</a> src, dest-ah 328 return 329 } 330 # copy current word 331 var new: (handle word) 332 var new-ah/ecx: (addr handle word) <- address new 333 <a href='word.mu.html#L372'>copy-word</a> src, new-ah 334 # append it at the end 335 var curr-ah/edi: (addr handle word) <- copy dest-ah 336 { 337 var curr-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah # curr-a guaranteed not to be null 338 var next-ah/ecx: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> curr-a, next 339 var next-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah 340 compare next-a, 0 341 break-if-= 342 curr-ah <- copy next-ah 343 loop 344 } 345 <a href='word.mu.html#L488'>chain-words</a> curr-ah, new-ah 346 } 347 348 fn <a href='word.mu.html#L348'>append-word-at-end-with</a> _dest-ah: (addr handle word), s: (addr array byte) { 349 var dest-ah/edi: (addr handle word) <- copy _dest-ah 350 # if dest is null, copy and return 351 var dest-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah 352 compare dest-a, 0 353 { 354 break-if-!= 355 <a href='word.mu.html#L20'>allocate-word-with</a> dest-ah, s 356 return 357 } 358 # otherwise append at end 359 var curr-ah/edi: (addr handle word) <- copy dest-ah 360 { 361 var curr-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-ah # curr-a guaranteed not to be null 362 var next-ah/ecx: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> curr-a, next 363 var next-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah 364 compare next-a, 0 365 break-if-= 366 curr-ah <- copy next-ah 367 loop 368 } 369 <a href='word.mu.html#L30'>append-word-with</a> *curr-ah, s 370 } 371 372 fn <a href='word.mu.html#L372'>copy-word</a> _src-a: (addr word), _dest-ah: (addr handle word) { 373 var dest-ah/eax: (addr handle word) <- copy _dest-ah 374 <a href='../../120allocate.subx.html#L66'>allocate</a> dest-ah 375 var _dest-a/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *dest-ah 376 var dest-a/eax: (addr word) <- copy _dest-a 377 <a href='word.mu.html#L1'>initialize-word</a> dest-a 378 var dest/edi: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> dest-a, scalar-data 379 var src-a/eax: (addr word) <- copy _src-a 380 var src/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> src-a, scalar-data 381 copy-gap-buffer src, dest 382 } 383 384 # one implication of handles: append must take a handle 385 fn <a href='word.mu.html#L385'>append-word</a> _self-ah: (addr handle word) { 386 var saved-self-storage: (handle word) 387 var saved-self/eax: (addr handle word) <- address saved-self-storage 388 copy-object _self-ah, saved-self 389 #? { 390 #? print-string 0, "self-ah is " 391 #? var foo/eax: int <- copy _self-ah 392 #? print-int32-hex 0, foo 393 #? print-string 0, "\n" 394 #? } 395 var self-ah/esi: (addr handle word) <- copy _self-ah 396 var _self/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *self-ah 397 var self/ebx: (addr word) <- copy _self 398 #? { 399 #? print-string 0, "0: self is " 400 #? var self-ah/eax: (addr handle word) <- copy _self-ah 401 #? var self/eax: (addr word) <- lookup *self-ah 402 #? var foo/eax: int <- copy self 403 #? print-int32-hex 0, foo 404 #? print-string 0, "\n" 405 #? } 406 # allocate new handle 407 var new: (handle word) 408 var new-ah/ecx: (addr handle word) <- address new 409 <a href='../../120allocate.subx.html#L66'>allocate</a> new-ah 410 var new-addr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> new 411 <a href='word.mu.html#L1'>initialize-word</a> new-addr 412 #? { 413 #? print-string 0, "new is " 414 #? var foo/eax: int <- copy new-addr 415 #? print-int32-hex 0, foo 416 #? print-string 0, "\n" 417 #? } 418 # new->next = self->next 419 var src/esi: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> self, next 420 #? { 421 #? print-string 0, "src is " 422 #? var foo/eax: int <- copy src 423 #? print-int32-hex 0, foo 424 #? print-string 0, "\n" 425 #? } 426 var dest/edi: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> new-addr, next 427 copy-object src, dest 428 # new->next->prev = new 429 { 430 var next-addr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *src 431 compare next-addr, 0 432 break-if-= 433 #? { 434 #? print-string 0, "next-addr is " 435 #? var foo/eax: int <- copy next-addr 436 #? print-int32-hex 0, foo 437 #? print-string 0, "\n" 438 #? } 439 dest <- <a href='../../131table.subx.html#L26'>get</a> next-addr, prev 440 #? #? { 441 #? #? print-string 0, "self-ah is " 442 #? #? var foo/eax: int <- copy _self-ah 443 #? #? print-int32-hex 0, foo 444 #? #? print-string 0, "\n" 445 #? #? print-string 0, "2: self is " 446 #? #? var self-ah/eax: (addr handle word) <- copy _self-ah 447 #? #? var self/eax: (addr word) <- lookup *self-ah 448 #? #? var foo/eax: int <- copy self 449 #? #? print-int32-hex 0, foo 450 #? #? print-string 0, "\n" 451 #? #? } 452 #? { 453 #? print-string 0, "copying new to " 454 #? var foo/eax: int <- copy dest 455 #? print-int32-hex 0, foo 456 #? print-string 0, "\n" 457 #? } 458 copy-object new-ah, dest 459 #? { 460 #? print-string 0, "4: self is " 461 #? var self-ah/eax: (addr handle word) <- copy _self-ah 462 #? var self/eax: (addr word) <- lookup *self-ah 463 #? var foo/eax: int <- copy self 464 #? print-int32-hex 0, foo 465 #? print-string 0, "\n" 466 #? } 467 } 468 # new->prev = saved-self 469 dest <- <a href='../../131table.subx.html#L26'>get</a> new-addr, prev 470 #? { 471 #? print-string 0, "copying " 472 #? var self-ah/esi: (addr handle word) <- copy _self-ah 473 #? var self/eax: (addr word) <- lookup *self-ah 474 #? var foo/eax: int <- copy self 475 #? print-int32-hex 0, foo 476 #? print-string 0, " to " 477 #? foo <- copy dest 478 #? print-int32-hex 0, foo 479 #? print-string 0, "\n" 480 #? } 481 var saved-self-ah/eax: (addr handle word) <- address saved-self-storage 482 copy-object saved-self-ah, dest 483 # self->next = new 484 dest <- <a href='../../131table.subx.html#L26'>get</a> self, next 485 copy-object new-ah, dest 486 } 487 488 fn <a href='word.mu.html#L488'>chain-words</a> _self-ah: (addr handle word), _next: (addr handle word) { 489 var self-ah/esi: (addr handle word) <- copy _self-ah 490 var _self/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *self-ah 491 var self/ecx: (addr word) <- copy _self 492 var dest/edx: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> self, next 493 var next-ah/edi: (addr handle word) <- copy _next 494 copy-object next-ah, dest 495 var next/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *next-ah 496 compare next, 0 497 break-if-= 498 dest <- <a href='../../131table.subx.html#L26'>get</a> next, prev 499 copy-object self-ah, dest 500 } 501 502 fn <a href='word.mu.html#L502'>emit-word</a> _self: (addr word), out: (addr stream byte) { 503 var self/esi: (addr word) <- copy _self 504 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 505 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 506 emit-gap-buffer data, out 507 } 508 509 fn <a href='word.mu.html#L509'>word-to-string</a> _self: (addr word), out: (addr handle array byte) { 510 var self/esi: (addr word) <- copy _self 511 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 512 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 513 gap-buffer-to-string data, out 514 } 515 516 fn <a href='word.mu.html#L516'>word-is-decimal-integer?</a> _self: (addr word) -> _/eax: boolean { 517 var self/eax: (addr word) <- copy _self 518 var data-ah/eax: (addr handle gap-buffer) <- <a href='../../131table.subx.html#L26'>get</a> self, scalar-data 519 var data/eax: (addr gap-buffer) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah 520 var result/eax: boolean <- gap-buffer-is-decimal-integer? data 521 return result 522 } 523 524 # ABSOLUTELY GHASTLY 525 fn <a href='word.mu.html#L525'>word-exists?</a> _haystack-ah: (addr handle word), _needle: (addr word) -> _/ebx: boolean { 526 var needle-name-storage: (handle array byte) 527 var needle-name-ah/eax: (addr handle array byte) <- address needle-name-storage 528 <a href='word.mu.html#L509'>word-to-string</a> _needle, needle-name-ah # profligate leak 529 var _needle-name/eax: (addr array byte) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *needle-name-ah 530 var needle-name/edi: (addr array byte) <- copy _needle-name 531 # base case 532 var haystack-ah/esi: (addr handle word) <- copy _haystack-ah 533 var curr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *haystack-ah 534 compare curr, 0 535 { 536 break-if-!= 537 return 0 # false 538 } 539 # check curr 540 var curr-name-storage: (handle array byte) 541 var curr-name-ah/ecx: (addr handle array byte) <- address curr-name-storage 542 <a href='word.mu.html#L509'>word-to-string</a> curr, curr-name-ah # profligate leak 543 var curr-name/eax: (addr array byte) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *curr-name-ah 544 var found?/eax: boolean <- <a href='../../105string-equal.subx.html#L15'>string-equal?</a> needle-name, curr-name 545 compare found?, 0 546 { 547 break-if-= 548 return 1 # true 549 } 550 # recurse 551 var curr/eax: (addr word) <- <a href='../../120allocate.subx.html#L256'>lookup</a> *haystack-ah 552 var next-haystack-ah/eax: (addr handle word) <- <a href='../../131table.subx.html#L26'>get</a> curr, next 553 var result/ebx: boolean <- <a href='word.mu.html#L525'>word-exists?</a> next-haystack-ah, _needle 554 return result 555 } </pre> </body> </html>


context:
space:
mode: