diff options
Diffstat (limited to 'html/linux/tile/environment.mu.html')
| -rw-r--r-- | html/linux/tile/environment.mu.html | 122 |
1 files changed, 61 insertions, 61 deletions
diff --git a/html/linux/tile/environment.mu.html b/html/linux/tile/environment.mu.html index 34efaaa2..ea0a2706 100644 --- a/html/linux/tile/environment.mu.html +++ b/html/linux/tile/environment.mu.html @@ -16,18 +16,18 @@ a { color:inherit; } * { font-size:12pt; font-size: 1em; } .LineNr { } .Delimiter { color: #c000c0; } -.muRegEcx { color: #870000; } -.muRegEdx { color: #af5f00; } +.muFunction { color: #af5f00; text-decoration: underline; } .muRegEbx { color: #5f00ff; } .muRegEsi { color: #005faf; } .muRegEdi { color: #00af00; } .Constant { color: #008787; } .Special { color: #ff6060; } .PreProc { color: #c000c0; } -.muFunction { color: #af5f00; text-decoration: underline; } -.muComment { color: #005faf; } .muS2Comment { color: #8a8a8a; } .CommentedCode { color: #8a8a8a; } +.muComment { color: #005faf; } +.muRegEcx { color: #870000; } +.muRegEdx { color: #af5f00; } --> </style> @@ -135,7 +135,7 @@ if ('onhashchange' in window) { <span id="L70" class="LineNr"> 70 </span><span class="muComment"># Iterate</span> <span id="L71" class="LineNr"> 71 </span><span class="muComment">#############</span> <span id="L72" class="LineNr"> 72 </span> -<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L73'>process</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L73" class="LineNr"> 73 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L73'>process</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L74" class="LineNr"> 74 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L75" class="LineNr"> 75 </span> <span class="PreProc">var</span> fn-name-ah/eax: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name <span id="L76" class="LineNr"> 76 </span> <span class="PreProc">var</span> fn-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah @@ -167,7 +167,7 @@ if ('onhashchange' in window) { <span id="L102" class="LineNr"> 102 </span><span class="Delimiter">}</span> <span id="L103" class="LineNr"> 103 </span> <span id="L104" class="LineNr"> 104 </span><span class="muComment"># collect new name in partial-function-name, and move the cursor to function with that name</span> -<span id="L105" class="LineNr"> 105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L105'>process-goto-dialog</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L105" class="LineNr"> 105 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L105'>process-goto-dialog</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L106" class="LineNr"> 106 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L107" class="LineNr"> 107 </span> <span class="PreProc">var</span> fn-name-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> self, partial-function-name <span id="L108" class="LineNr"> 108 </span> <span class="muComment"># if 'esc' pressed, cancel goto</span> @@ -195,7 +195,7 @@ if ('onhashchange' in window) { <span id="L130" class="LineNr"> 130 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L131" class="LineNr"> 131 </span> $process-goto-dialog:backspace: <span class="Delimiter">{</span> <span id="L132" class="LineNr"> 132 </span> <span class="PreProc">break-if-!=</span> -<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L133" class="LineNr"> 133 </span> <span class="muComment"># if not at start, delete code-point-utf8 before cursor</span> <span id="L134" class="LineNr"> 134 </span> <span class="PreProc">var</span> fn-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah <span id="L135" class="LineNr"> 135 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> fn-name <span id="L136" class="LineNr"> 136 </span> compare at-start?, <span class="Constant">0</span>/false @@ -207,24 +207,24 @@ if ('onhashchange' in window) { <span id="L142" class="LineNr"> 142 </span> <span class="PreProc">return</span> <span id="L143" class="LineNr"> 143 </span> <span class="Delimiter">}</span> <span id="L144" class="LineNr"> 144 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L146" class="LineNr"> 146 </span> $process-goto-dialog:real-grapheme: <span class="Delimiter">{</span> +<span id="L145" class="LineNr"> 145 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L146" class="LineNr"> 146 </span> $process-goto-dialog:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L147" class="LineNr"> 147 </span> compare print?, <span class="Constant">0</span>/false <span id="L148" class="LineNr"> 148 </span> <span class="PreProc">break-if-=</span> <span id="L149" class="LineNr"> 149 </span> <span class="PreProc">var</span> fn-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *fn-name-ah -<span id="L150" class="LineNr"> 150 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> fn-name, key +<span id="L150" class="LineNr"> 150 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> fn-name, key <span id="L151" class="LineNr"> 151 </span> <span class="PreProc">return</span> <span id="L152" class="LineNr"> 152 </span> <span class="Delimiter">}</span> <span id="L153" class="LineNr"> 153 </span> <span class="muComment"># silently ignore other hotkeys</span> <span id="L154" class="LineNr"> 154 </span><span class="Delimiter">}</span> <span id="L155" class="LineNr"> 155 </span> -<span id="L156" class="LineNr"> 156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L156'>process-function</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L156" class="LineNr"> 156 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L156'>process-function</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L157" class="LineNr"> 157 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L158" class="LineNr"> 158 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _function <span id="L159" class="LineNr"> 159 </span> <a href='environment.mu.html#L162'>process-function-edit</a> self, <a href='data.mu.html#L21'>function</a>, key <span id="L160" class="LineNr"> 160 </span><span class="Delimiter">}</span> <span id="L161" class="LineNr"> 161 </span> -<span id="L162" class="LineNr"> 162 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L162'>process-function-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L162" class="LineNr"> 162 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L162'>process-function-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _function: (addr <a href='data.mu.html#L21'>function</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L163" class="LineNr"> 163 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L164" class="LineNr"> 164 </span> <span class="PreProc">var</span> <a href='data.mu.html#L21'>function</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L21'>function</a>) <span class="Special"><-</span> copy _function <span id="L165" class="LineNr"> 165 </span> <span class="PreProc">var</span> cursor-word-ah/<span class="muRegEbx">ebx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L21'>function</a>, cursor-word @@ -355,7 +355,7 @@ if ('onhashchange' in window) { <span id="L290" class="LineNr"> 290 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L291" class="LineNr"> 291 </span> $process-function-edit:backspace: <span class="Delimiter">{</span> <span id="L292" class="LineNr"> 292 </span> <span class="PreProc">break-if-!=</span> -<span id="L293" class="LineNr"> 293 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L293" class="LineNr"> 293 </span> <span class="muComment"># if not at start of some word, delete code-point-utf8 before cursor within current word</span> <span id="L294" class="LineNr"> 294 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word <span id="L295" class="LineNr"> 295 </span> compare at-start?, <span class="Constant">0</span>/false <span id="L296" class="LineNr"> 296 </span> <span class="Delimiter">{</span> @@ -390,25 +390,25 @@ if ('onhashchange' in window) { <span id="L325" class="LineNr"> 325 </span> copy-object new-prev-word-ah, cursor-word-ah <span id="L326" class="LineNr"> 326 </span> <span class="PreProc">return</span> <span id="L327" class="LineNr"> 327 </span> <span class="Delimiter">}</span> -<span id="L328" class="LineNr"> 328 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> +<span id="L328" class="LineNr"> 328 </span> <span class="muComment"># if start of word is quote and code-point-utf8 before cursor is not, just insert it as usual</span> <span id="L329" class="LineNr"> 329 </span> <span class="muComment"># TODO: support string escaping</span> <span id="L330" class="LineNr"> 330 </span> <span class="Delimiter">{</span> -<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L332" class="LineNr"> 332 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x22</span>/double-quote +<span id="L331" class="LineNr"> 331 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L332" class="LineNr"> 332 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x22</span>/double-quote <span id="L333" class="LineNr"> 333 </span> <span class="PreProc">break-if-!=</span> -<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L335" class="LineNr"> 335 </span> compare final-grapheme, <span class="Constant">0x22</span>/double-quote +<span id="L334" class="LineNr"> 334 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L335" class="LineNr"> 335 </span> compare final-code-point-utf8, <span class="Constant">0x22</span>/double-quote <span id="L336" class="LineNr"> 336 </span> <span class="PreProc">break-if-=</span> <span id="L337" class="LineNr"> 337 </span> <span class="PreProc">break</span> $process-function-edit:space <span id="L338" class="LineNr"> 338 </span> <span class="Delimiter">}</span> -<span id="L339" class="LineNr"> 339 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> +<span id="L339" class="LineNr"> 339 </span> <span class="muComment"># if start of word is '[' and code-point-utf8 before cursor is not ']', just insert it as usual</span> <span id="L340" class="LineNr"> 340 </span> <span class="muComment"># TODO: support nested arrays</span> <span id="L341" class="LineNr"> 341 </span> <span class="Delimiter">{</span> -<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L343" class="LineNr"> 343 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x5b</span>/[ +<span id="L342" class="LineNr"> 342 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L343" class="LineNr"> 343 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x5b</span>/[ <span id="L344" class="LineNr"> 344 </span> <span class="PreProc">break-if-!=</span> -<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L346" class="LineNr"> 346 </span> compare final-grapheme, <span class="Constant">0x5d</span>/] +<span id="L345" class="LineNr"> 345 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L346" class="LineNr"> 346 </span> compare final-code-point-utf8, <span class="Constant">0x5d</span>/] <span id="L347" class="LineNr"> 347 </span> <span class="PreProc">break-if-=</span> <span id="L348" class="LineNr"> 348 </span> <span class="PreProc">break</span> $process-function-edit:space <span id="L349" class="LineNr"> 349 </span> <span class="Delimiter">}</span> @@ -433,26 +433,26 @@ if ('onhashchange' in window) { <span id="L368" class="LineNr"> 368 </span> <span class="PreProc">var</span> at-end?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word <span id="L369" class="LineNr"> 369 </span> compare at-end?, <span class="Constant">0</span>/false <span id="L370" class="LineNr"> 370 </span> <span class="PreProc">break-if-!=</span> -<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word -<span id="L372" class="LineNr"> 372 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g +<span id="L371" class="LineNr"> 371 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word +<span id="L372" class="LineNr"> 372 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g <span id="L373" class="LineNr"> 373 </span> <span class="PreProc">loop</span> <span id="L374" class="LineNr"> 374 </span> <span class="Delimiter">}</span> <span id="L375" class="LineNr"> 375 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> <span id="L376" class="LineNr"> 376 </span> <span class="PreProc">return</span> <span id="L377" class="LineNr"> 377 </span> <span class="Delimiter">}</span> <span id="L378" class="LineNr"> 378 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy key -<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L381" class="LineNr"> 381 </span> $process-function-edit:real-grapheme: <span class="Delimiter">{</span> +<span id="L379" class="LineNr"> 379 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy key +<span id="L380" class="LineNr"> 380 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L381" class="LineNr"> 381 </span> $process-function-edit:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L382" class="LineNr"> 382 </span> compare print?, <span class="Constant">0</span>/false <span id="L383" class="LineNr"> 383 </span> <span class="PreProc">break-if-=</span> -<span id="L384" class="LineNr"> 384 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L384" class="LineNr"> 384 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> cursor-word, g <span id="L385" class="LineNr"> 385 </span> <span class="PreProc">return</span> <span id="L386" class="LineNr"> 386 </span> <span class="Delimiter">}</span> <span id="L387" class="LineNr"> 387 </span> <span class="muComment"># silently ignore other hotkeys</span> <span id="L388" class="LineNr"> 388 </span><span class="Delimiter">}</span> <span id="L389" class="LineNr"> 389 </span> -<span id="L390" class="LineNr"> 390 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L390'>process-sandbox</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L390" class="LineNr"> 390 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L390'>process-sandbox</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L391" class="LineNr"> 391 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L392" class="LineNr"> 392 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L393" class="LineNr"> 393 </span> <span class="PreProc">var</span> rename-word-mode-ah?/<span class="muRegEcx">ecx</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word @@ -478,7 +478,7 @@ if ('onhashchange' in window) { <span id="L413" class="LineNr"> 413 </span> <a href='environment.mu.html#L416'>process-sandbox-edit</a> self, <a href='data.mu.html#L5'>sandbox</a>, key <span id="L414" class="LineNr"> 414 </span><span class="Delimiter">}</span> <span id="L415" class="LineNr"> 415 </span> -<span id="L416" class="LineNr"> 416 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L416'>process-sandbox-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L416" class="LineNr"> 416 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L416'>process-sandbox-edit</a></span> _self: (addr <a href='environment.mu.html#L16'>environment</a>), _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L417" class="LineNr"> 417 </span> <span class="PreProc">var</span> self/<span class="muRegEsi">esi</span>: (addr <a href='environment.mu.html#L16'>environment</a>) <span class="Special"><-</span> copy _self <span id="L418" class="LineNr"> 418 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEdi">edi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L419" class="LineNr"> 419 </span> <span class="PreProc">var</span> cursor-call-path-ah/eax: (addr handle <a href='data.mu.html#L77'>call-path-element</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, cursor-call-path @@ -795,7 +795,7 @@ if ('onhashchange' in window) { <span id="L730" class="LineNr"> 730 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L731" class="LineNr"> 731 </span> $process-sandbox-edit:backspace: <span class="Delimiter">{</span> <span id="L732" class="LineNr"> 732 </span> <span class="PreProc">break-if-!=</span> -<span id="L733" class="LineNr"> 733 </span> <span class="muComment"># if not at start of some word, delete grapheme before cursor within current word</span> +<span id="L733" class="LineNr"> 733 </span> <span class="muComment"># if not at start of some word, delete code-point-utf8 before cursor within current word</span> <span id="L734" class="LineNr"> 734 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> cursor-word <span id="L735" class="LineNr"> 735 </span> compare at-start?, <span class="Constant">0</span>/false <span id="L736" class="LineNr"> 736 </span> <span class="Delimiter">{</span> @@ -831,25 +831,25 @@ if ('onhashchange' in window) { <span id="L766" class="LineNr"> 766 </span> <a href='data.mu.html#L465'>decrement-final-element</a> cursor-call-path <span id="L767" class="LineNr"> 767 </span> <span class="PreProc">return</span> <span id="L768" class="LineNr"> 768 </span> <span class="Delimiter">}</span> -<span id="L769" class="LineNr"> 769 </span> <span class="muComment"># if start of word is quote and grapheme before cursor is not, just insert it as usual</span> +<span id="L769" class="LineNr"> 769 </span> <span class="muComment"># if start of word is quote and code-point-utf8 before cursor is not, just insert it as usual</span> <span id="L770" class="LineNr"> 770 </span> <span class="muComment"># TODO: support string escaping</span> <span id="L771" class="LineNr"> 771 </span> <span class="Delimiter">{</span> -<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L773" class="LineNr"> 773 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x22</span>/double-quote +<span id="L772" class="LineNr"> 772 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L773" class="LineNr"> 773 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x22</span>/double-quote <span id="L774" class="LineNr"> 774 </span> <span class="PreProc">break-if-!=</span> -<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L776" class="LineNr"> 776 </span> compare final-grapheme, <span class="Constant">0x22</span>/double-quote +<span id="L775" class="LineNr"> 775 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L776" class="LineNr"> 776 </span> compare final-code-point-utf8, <span class="Constant">0x22</span>/double-quote <span id="L777" class="LineNr"> 777 </span> <span class="PreProc">break-if-=</span> <span id="L778" class="LineNr"> 778 </span> <span class="PreProc">break</span> $process-sandbox-edit:space <span id="L779" class="LineNr"> 779 </span> <span class="Delimiter">}</span> -<span id="L780" class="LineNr"> 780 </span> <span class="muComment"># if start of word is '[' and grapheme before cursor is not ']', just insert it as usual</span> +<span id="L780" class="LineNr"> 780 </span> <span class="muComment"># if start of word is '[' and code-point-utf8 before cursor is not ']', just insert it as usual</span> <span id="L781" class="LineNr"> 781 </span> <span class="muComment"># TODO: support nested arrays</span> <span id="L782" class="LineNr"> 782 </span> <span class="Delimiter">{</span> -<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-grapheme</a>/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L132'>first-grapheme</a> cursor-word -<span id="L784" class="LineNr"> 784 </span> compare <a href='word.mu.html#L132'>first-grapheme</a>, <span class="Constant">0x5b</span>/[ +<span id="L783" class="LineNr"> 783 </span> <span class="PreProc">var</span> <a href='word.mu.html#L132'>first-code-point-utf8</a>/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L132'>first-code-point-utf8</a> cursor-word +<span id="L784" class="LineNr"> 784 </span> compare <a href='word.mu.html#L132'>first-code-point-utf8</a>, <span class="Constant">0x5b</span>/[ <span id="L785" class="LineNr"> 785 </span> <span class="PreProc">break-if-!=</span> -<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> final-grapheme/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L140'>grapheme-before-cursor</a> cursor-word -<span id="L787" class="LineNr"> 787 </span> compare final-grapheme, <span class="Constant">0x5d</span>/] +<span id="L786" class="LineNr"> 786 </span> <span class="PreProc">var</span> final-code-point-utf8/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L140'>code-point-utf8-before-cursor</a> cursor-word +<span id="L787" class="LineNr"> 787 </span> compare final-code-point-utf8, <span class="Constant">0x5d</span>/] <span id="L788" class="LineNr"> 788 </span> <span class="PreProc">break-if-=</span> <span id="L789" class="LineNr"> 789 </span> <span class="PreProc">break</span> $process-sandbox-edit:space <span id="L790" class="LineNr"> 790 </span> <span class="Delimiter">}</span> @@ -874,8 +874,8 @@ if ('onhashchange' in window) { <span id="L809" class="LineNr"> 809 </span> <span class="PreProc">var</span> at-end?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L163'>cursor-at-end?</a> cursor-word <span id="L810" class="LineNr"> 810 </span> compare at-end?, <span class="Constant">0</span>/false <span id="L811" class="LineNr"> 811 </span> <span class="PreProc">break-if-!=</span> -<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> g/eax: grapheme <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word -<span id="L813" class="LineNr"> 813 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g +<span id="L812" class="LineNr"> 812 </span> <span class="PreProc">var</span> g/eax: code-point-utf8 <span class="Special"><-</span> <a href='word.mu.html#L214'>pop-after-cursor</a> cursor-word +<span id="L813" class="LineNr"> 813 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> <a href='../127next-word.subx.html#L11'>next-word</a>, g <span id="L814" class="LineNr"> 814 </span> <span class="PreProc">loop</span> <span id="L815" class="LineNr"> 815 </span> <span class="Delimiter">}</span> <span id="L816" class="LineNr"> 816 </span> <a href='word.mu.html#L185'>cursor-to-start</a> <a href='../127next-word.subx.html#L11'>next-word</a> @@ -903,12 +903,12 @@ if ('onhashchange' in window) { <span id="L838" class="LineNr"> 838 </span> <span class="PreProc">return</span> <span id="L839" class="LineNr"> 839 </span> <span class="Delimiter">}</span> <span id="L840" class="LineNr"> 840 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: grapheme <span class="Special"><-</span> copy key -<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L843" class="LineNr"> 843 </span> $process-sandbox-edit:real-grapheme: <span class="Delimiter">{</span> +<span id="L841" class="LineNr"> 841 </span> <span class="PreProc">var</span> g/<span class="muRegEdx">edx</span>: code-point-utf8 <span class="Special"><-</span> copy key +<span id="L842" class="LineNr"> 842 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L843" class="LineNr"> 843 </span> $process-sandbox-edit:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L844" class="LineNr"> 844 </span> compare print?, <span class="Constant">0</span>/false <span id="L845" class="LineNr"> 845 </span> <span class="PreProc">break-if-=</span> -<span id="L846" class="LineNr"> 846 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> cursor-word, g +<span id="L846" class="LineNr"> 846 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> cursor-word, g <span id="L847" class="LineNr"> 847 </span> <span class="PreProc">return</span> <span id="L848" class="LineNr"> 848 </span> <span class="Delimiter">}</span> <span id="L849" class="LineNr"> 849 </span> <span class="muComment"># silently ignore other hotkeys</span> @@ -917,7 +917,7 @@ if ('onhashchange' in window) { <span id="L852" class="LineNr"> 852 </span><span class="muComment"># collect new name in partial-name-for-cursor-word, and then rename the word</span> <span id="L853" class="LineNr"> 853 </span><span class="muComment"># at cursor to it</span> <span id="L854" class="LineNr"> 854 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> -<span id="L855" class="LineNr"> 855 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L855'>process-sandbox-rename</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L855" class="LineNr"> 855 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L855'>process-sandbox-rename</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L856" class="LineNr"> 856 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L857" class="LineNr"> 857 </span> <span class="PreProc">var</span> new-name-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-cursor-word <span id="L858" class="LineNr"> 858 </span> <span class="muComment"># if 'esc' pressed, cancel rename</span> @@ -976,7 +976,7 @@ if ('onhashchange' in window) { <span id="L911" class="LineNr"> 911 </span> <span class="Delimiter">{</span> <span id="L912" class="LineNr"> 912 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah <span id="L913" class="LineNr"> 913 </span> <a href='word.mu.html#L185'>cursor-to-start</a> new-name -<span id="L914" class="LineNr"> 914 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, <span class="Constant">0x3d</span>/= +<span id="L914" class="LineNr"> 914 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> new-name, <span class="Constant">0x3d</span>/= <span id="L915" class="LineNr"> 915 </span> <span class="Delimiter">}</span> <span id="L916" class="LineNr"> 916 </span> <span class="muComment"># append name to new line</span> <span id="L917" class="LineNr"> 917 </span> <a href='word.mu.html#L459'>chain-words</a> new-line-word-ah, new-name-ah @@ -1006,7 +1006,7 @@ if ('onhashchange' in window) { <span id="L941" class="LineNr"> 941 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L942" class="LineNr"> 942 </span> $process-sandbox-rename:backspace: <span class="Delimiter">{</span> <span id="L943" class="LineNr"> 943 </span> <span class="PreProc">break-if-!=</span> -<span id="L944" class="LineNr"> 944 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L944" class="LineNr"> 944 </span> <span class="muComment"># if not at start, delete code-point-utf8 before cursor</span> <span id="L945" class="LineNr"> 945 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah <span id="L946" class="LineNr"> 946 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> new-name <span id="L947" class="LineNr"> 947 </span> compare at-start?, <span class="Constant">0</span>/false @@ -1018,12 +1018,12 @@ if ('onhashchange' in window) { <span id="L953" class="LineNr"> 953 </span> <span class="PreProc">return</span> <span id="L954" class="LineNr"> 954 </span> <span class="Delimiter">}</span> <span id="L955" class="LineNr"> 955 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L957" class="LineNr"> 957 </span> $process-sandbox-rename:real-grapheme: <span class="Delimiter">{</span> +<span id="L956" class="LineNr"> 956 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L957" class="LineNr"> 957 </span> $process-sandbox-rename:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L958" class="LineNr"> 958 </span> compare print?, <span class="Constant">0</span>/false <span id="L959" class="LineNr"> 959 </span> <span class="PreProc">break-if-=</span> <span id="L960" class="LineNr"> 960 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah -<span id="L961" class="LineNr"> 961 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, key +<span id="L961" class="LineNr"> 961 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> new-name, key <span id="L962" class="LineNr"> 962 </span> <span class="PreProc">return</span> <span id="L963" class="LineNr"> 963 </span> <span class="Delimiter">}</span> <span id="L964" class="LineNr"> 964 </span> <span class="muComment"># silently ignore other hotkeys</span> @@ -1033,7 +1033,7 @@ if ('onhashchange' in window) { <span id="L968" class="LineNr"> 968 </span><span class="muComment"># of the sandbox to be a new function with that name. Replace the last line</span> <span id="L969" class="LineNr"> 969 </span><span class="muComment"># with a call to the appropriate function.</span> <span id="L970" class="LineNr"> 970 </span><span class="muComment"># Precondition: cursor-call-path is a singleton (not within a call)</span> -<span id="L971" class="LineNr"> 971 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L971'>process-sandbox-define</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), key: grapheme <span class="Delimiter">{</span> +<span id="L971" class="LineNr"> 971 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L971'>process-sandbox-define</a></span> _sandbox: (addr <a href='data.mu.html#L5'>sandbox</a>), functions: (addr handle <a href='data.mu.html#L21'>function</a>), key: code-point-utf8 <span class="Delimiter">{</span> <span id="L972" class="LineNr"> 972 </span> <span class="PreProc">var</span> <a href='data.mu.html#L5'>sandbox</a>/<span class="muRegEsi">esi</span>: (addr <a href='data.mu.html#L5'>sandbox</a>) <span class="Special"><-</span> copy _sandbox <span id="L973" class="LineNr"> 973 </span> <span class="PreProc">var</span> new-name-ah/<span class="muRegEdi">edi</span>: (addr handle <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../131table.subx.html#L26'>get</a> <a href='data.mu.html#L5'>sandbox</a>, partial-name-for-function <span id="L974" class="LineNr"> 974 </span> <span class="muComment"># if 'esc' pressed, cancel define</span> @@ -1098,7 +1098,7 @@ if ('onhashchange' in window) { <span id="L1033" class="LineNr">1033 </span> compare key, <span class="Constant">0x7f</span>/del <span class="muComment"># backspace on Macs</span> <span id="L1034" class="LineNr">1034 </span> $process-sandbox-define:backspace: <span class="Delimiter">{</span> <span id="L1035" class="LineNr">1035 </span> <span class="PreProc">break-if-!=</span> -<span id="L1036" class="LineNr">1036 </span> <span class="muComment"># if not at start, delete grapheme before cursor</span> +<span id="L1036" class="LineNr">1036 </span> <span class="muComment"># if not at start, delete code-point-utf8 before cursor</span> <span id="L1037" class="LineNr">1037 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah <span id="L1038" class="LineNr">1038 </span> <span class="PreProc">var</span> at-start?/eax: boolean <span class="Special"><-</span> <a href='word.mu.html#L155'>cursor-at-start?</a> new-name <span id="L1039" class="LineNr">1039 </span> compare at-start?, <span class="Constant">0</span>/false @@ -1110,12 +1110,12 @@ if ('onhashchange' in window) { <span id="L1045" class="LineNr">1045 </span> <span class="PreProc">return</span> <span id="L1046" class="LineNr">1046 </span> <span class="Delimiter">}</span> <span id="L1047" class="LineNr">1047 </span> <span class="muComment"># otherwise insert key within current word</span> -<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-grapheme?</a> key -<span id="L1049" class="LineNr">1049 </span> $process-sandbox-define:real-grapheme: <span class="Delimiter">{</span> +<span id="L1048" class="LineNr">1048 </span> <span class="PreProc">var</span> print?/eax: boolean <span class="Special"><-</span> <a href='environment.mu.html#L2147'>real-code-point-utf8?</a> key +<span id="L1049" class="LineNr">1049 </span> $process-sandbox-define:real-code-point-utf8: <span class="Delimiter">{</span> <span id="L1050" class="LineNr">1050 </span> compare print?, <span class="Constant">0</span>/false <span id="L1051" class="LineNr">1051 </span> <span class="PreProc">break-if-=</span> <span id="L1052" class="LineNr">1052 </span> <span class="PreProc">var</span> new-name/eax: (addr <a href='data.mu.html#L42'>word</a>) <span class="Special"><-</span> <a href='../120allocate.subx.html#L258'>lookup</a> *new-name-ah -<span id="L1053" class="LineNr">1053 </span> <a href='word.mu.html#L148'>add-grapheme-to-word</a> new-name, key +<span id="L1053" class="LineNr">1053 </span> <a href='word.mu.html#L148'>add-code-point-utf8-to-word</a> new-name, key <span id="L1054" class="LineNr">1054 </span> <span class="PreProc">return</span> <span id="L1055" class="LineNr">1055 </span> <span class="Delimiter">}</span> <span id="L1056" class="LineNr">1056 </span> <span class="muComment"># silently ignore other hotkeys</span> @@ -2172,7 +2172,7 @@ if ('onhashchange' in window) { <span id="L2107" class="LineNr">2107 </span> <a href='../405screen.mu.html#L523'>start-color</a> <a href='../405screen.mu.html#L9'>screen</a>, <span class="Constant">0</span>, <span class="Constant">0xf7</span> <span id="L2108" class="LineNr">2108 </span> <a href='box.mu.html#L71'>clear-rect</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, new-row, col2 <span id="L2109" class="LineNr">2109 </span> col <span class="Special"><-</span> add <span class="Constant">1</span> -<span id="L2110" class="LineNr">2110 </span><span class="CommentedCode">#? var dummy/eax: grapheme <- read-key-from-real-keyboard</span> +<span id="L2110" class="LineNr">2110 </span><span class="CommentedCode">#? var dummy/eax: code-point-utf8 <- read-key-from-real-keyboard</span> <span id="L2111" class="LineNr">2111 </span> <a href='environment.mu.html#L2121'>render-function</a> <a href='../405screen.mu.html#L9'>screen</a>, row, col, f <span id="L2112" class="LineNr">2112 </span> new-row <span class="Special"><-</span> add <span class="Constant">1</span>/function-bottom-margin <span id="L2113" class="LineNr">2113 </span> col <span class="Special"><-</span> subtract <span class="Constant">1</span>/function-left-padding @@ -2209,7 +2209,7 @@ if ('onhashchange' in window) { <span id="L2144" class="LineNr">2144 </span> <a href='environment.mu.html#L1634'>render-line-without-stack</a> <a href='../405screen.mu.html#L9'>screen</a>, body, row, col, cursor-word, cursor-row, cursor-col <span id="L2145" class="LineNr">2145 </span><span class="Delimiter">}</span> <span id="L2146" class="LineNr">2146 </span> -<span id="L2147" class="LineNr">2147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2147'>real-grapheme?</a></span> g: grapheme<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> +<span id="L2147" class="LineNr">2147 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='environment.mu.html#L2147'>real-code-point-utf8?</a></span> g: code-point-utf8<span class="PreProc"> -> </span>_/eax: boolean <span class="Delimiter">{</span> <span id="L2148" class="LineNr">2148 </span> <span class="muComment"># if g == newline return true</span> <span id="L2149" class="LineNr">2149 </span> compare g, <span class="Constant">0xa</span> <span id="L2150" class="LineNr">2150 </span> <span class="Delimiter">{</span> |