From 3ff2fe607c2cb5690d201d3b83ddcc957e949b7a Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Tue, 9 Nov 2021 09:23:31 -0800 Subject: . --- html/linux/tile/environment.mu.html | 122 ++++++++++++++++++------------------ 1 file changed, 61 insertions(+), 61 deletions(-) (limited to 'html/linux/tile/environment.mu.html') 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; } --> @@ -135,7 +135,7 @@ if ('onhashchange' in window) { 70 # Iterate 71 ############# 72 - 73 fn process _self: (addr environment), key: grapheme { + 73 fn process _self: (addr environment), key: code-point-utf8 { 74 var self/esi: (addr environment) <- copy _self 75 var fn-name-ah/eax: (addr handle word) <- get self, partial-function-name 76 var fn-name/eax: (addr word) <- lookup *fn-name-ah @@ -167,7 +167,7 @@ if ('onhashchange' in window) { 102 } 103 104 # collect new name in partial-function-name, and move the cursor to function with that name - 105 fn process-goto-dialog _self: (addr environment), key: grapheme { + 105 fn process-goto-dialog _self: (addr environment), key: code-point-utf8 { 106 var self/esi: (addr environment) <- copy _self 107 var fn-name-ah/edi: (addr handle word) <- get self, partial-function-name 108 # if 'esc' pressed, cancel goto @@ -195,7 +195,7 @@ if ('onhashchange' in window) { 130 compare key, 0x7f/del # backspace on Macs 131 $process-goto-dialog:backspace: { 132 break-if-!= - 133 # if not at start, delete grapheme before cursor + 133 # if not at start, delete code-point-utf8 before cursor 134 var fn-name/eax: (addr word) <- lookup *fn-name-ah 135 var at-start?/eax: boolean <- cursor-at-start? fn-name 136 compare at-start?, 0/false @@ -207,24 +207,24 @@ if ('onhashchange' in window) { 142 return 143 } 144 # otherwise insert key within current word - 145 var print?/eax: boolean <- real-grapheme? key - 146 $process-goto-dialog:real-grapheme: { + 145 var print?/eax: boolean <- real-code-point-utf8? key + 146 $process-goto-dialog:real-code-point-utf8: { 147 compare print?, 0/false 148 break-if-= 149 var fn-name/eax: (addr word) <- lookup *fn-name-ah - 150 add-grapheme-to-word fn-name, key + 150 add-code-point-utf8-to-word fn-name, key 151 return 152 } 153 # silently ignore other hotkeys 154 } 155 - 156 fn process-function _self: (addr environment), _function: (addr function), key: grapheme { + 156 fn process-function _self: (addr environment), _function: (addr function), key: code-point-utf8 { 157 var self/esi: (addr environment) <- copy _self 158 var function/edi: (addr function) <- copy _function 159 process-function-edit self, function, key 160 } 161 - 162 fn process-function-edit _self: (addr environment), _function: (addr function), key: grapheme { + 162 fn process-function-edit _self: (addr environment), _function: (addr function), key: code-point-utf8 { 163 var self/esi: (addr environment) <- copy _self 164 var function/edi: (addr function) <- copy _function 165 var cursor-word-ah/ebx: (addr handle word) <- get function, cursor-word @@ -355,7 +355,7 @@ if ('onhashchange' in window) { 290 compare key, 0x7f/del # backspace on Macs 291 $process-function-edit:backspace: { 292 break-if-!= - 293 # if not at start of some word, delete grapheme before cursor within current word + 293 # if not at start of some word, delete code-point-utf8 before cursor within current word 294 var at-start?/eax: boolean <- cursor-at-start? cursor-word 295 compare at-start?, 0/false 296 { @@ -390,25 +390,25 @@ if ('onhashchange' in window) { 325 copy-object new-prev-word-ah, cursor-word-ah 326 return 327 } - 328 # if start of word is quote and grapheme before cursor is not, just insert it as usual + 328 # if start of word is quote and code-point-utf8 before cursor is not, just insert it as usual 329 # TODO: support string escaping 330 { - 331 var first-grapheme/eax: grapheme <- first-grapheme cursor-word - 332 compare first-grapheme, 0x22/double-quote + 331 var first-code-point-utf8/eax: code-point-utf8 <- first-code-point-utf8 cursor-word + 332 compare first-code-point-utf8, 0x22/double-quote 333 break-if-!= - 334 var final-grapheme/eax: grapheme <- grapheme-before-cursor cursor-word - 335 compare final-grapheme, 0x22/double-quote + 334 var final-code-point-utf8/eax: code-point-utf8 <- code-point-utf8-before-cursor cursor-word + 335 compare final-code-point-utf8, 0x22/double-quote 336 break-if-= 337 break $process-function-edit:space 338 } - 339 # if start of word is '[' and grapheme before cursor is not ']', just insert it as usual + 339 # if start of word is '[' and code-point-utf8 before cursor is not ']', just insert it as usual 340 # TODO: support nested arrays 341 { - 342 var first-grapheme/eax: grapheme <- first-grapheme cursor-word - 343 compare first-grapheme, 0x5b/[ + 342 var first-code-point-utf8/eax: code-point-utf8 <- first-code-point-utf8 cursor-word + 343 compare first-code-point-utf8, 0x5b/[ 344 break-if-!= - 345 var final-grapheme/eax: grapheme <- grapheme-before-cursor cursor-word - 346 compare final-grapheme, 0x5d/] + 345 var final-code-point-utf8/eax: code-point-utf8 <- code-point-utf8-before-cursor cursor-word + 346 compare final-code-point-utf8, 0x5d/] 347 break-if-= 348 break $process-function-edit:space 349 } @@ -433,26 +433,26 @@ if ('onhashchange' in window) { 368 var at-end?/eax: boolean <- cursor-at-end? cursor-word 369 compare at-end?, 0/false 370 break-if-!= - 371 var g/eax: grapheme <- pop-after-cursor cursor-word - 372 add-grapheme-to-word next-word, g + 371 var g/eax: code-point-utf8 <- pop-after-cursor cursor-word + 372 add-code-point-utf8-to-word next-word, g 373 loop 374 } 375 cursor-to-start next-word 376 return 377 } 378 # otherwise insert key within current word - 379 var g/edx: grapheme <- copy key - 380 var print?/eax: boolean <- real-grapheme? key - 381 $process-function-edit:real-grapheme: { + 379 var g/edx: code-point-utf8 <- copy key + 380 var print?/eax: boolean <- real-code-point-utf8? key + 381 $process-function-edit:real-code-point-utf8: { 382 compare print?, 0/false 383 break-if-= - 384 add-grapheme-to-word cursor-word, g + 384 add-code-point-utf8-to-word cursor-word, g 385 return 386 } 387 # silently ignore other hotkeys 388 } 389 - 390 fn process-sandbox _self: (addr environment), _sandbox: (addr sandbox), key: grapheme { + 390 fn process-sandbox _self: (addr environment), _sandbox: (addr sandbox), key: code-point-utf8 { 391 var self/esi: (addr environment) <- copy _self 392 var sandbox/edi: (addr sandbox) <- copy _sandbox 393 var rename-word-mode-ah?/ecx: (addr handle word) <- get sandbox, partial-name-for-cursor-word @@ -478,7 +478,7 @@ if ('onhashchange' in window) { 413 process-sandbox-edit self, sandbox, key 414 } 415 - 416 fn process-sandbox-edit _self: (addr environment), _sandbox: (addr sandbox), key: grapheme { + 416 fn process-sandbox-edit _self: (addr environment), _sandbox: (addr sandbox), key: code-point-utf8 { 417 var self/esi: (addr environment) <- copy _self 418 var sandbox/edi: (addr sandbox) <- copy _sandbox 419 var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path @@ -795,7 +795,7 @@ if ('onhashchange' in window) { 730 compare key, 0x7f/del # backspace on Macs 731 $process-sandbox-edit:backspace: { 732 break-if-!= - 733 # if not at start of some word, delete grapheme before cursor within current word + 733 # if not at start of some word, delete code-point-utf8 before cursor within current word 734 var at-start?/eax: boolean <- cursor-at-start? cursor-word 735 compare at-start?, 0/false 736 { @@ -831,25 +831,25 @@ if ('onhashchange' in window) { 766 decrement-final-element cursor-call-path 767 return 768 } - 769 # if start of word is quote and grapheme before cursor is not, just insert it as usual + 769 # if start of word is quote and code-point-utf8 before cursor is not, just insert it as usual 770 # TODO: support string escaping 771 { - 772 var first-grapheme/eax: grapheme <- first-grapheme cursor-word - 773 compare first-grapheme, 0x22/double-quote + 772 var first-code-point-utf8/eax: code-point-utf8 <- first-code-point-utf8 cursor-word + 773 compare first-code-point-utf8, 0x22/double-quote 774 break-if-!= - 775 var final-grapheme/eax: grapheme <- grapheme-before-cursor cursor-word - 776 compare final-grapheme, 0x22/double-quote + 775 var final-code-point-utf8/eax: code-point-utf8 <- code-point-utf8-before-cursor cursor-word + 776 compare final-code-point-utf8, 0x22/double-quote 777 break-if-= 778 break $process-sandbox-edit:space 779 } - 780 # if start of word is '[' and grapheme before cursor is not ']', just insert it as usual + 780 # if start of word is '[' and code-point-utf8 before cursor is not ']', just insert it as usual 781 # TODO: support nested arrays 782 { - 783 var first-grapheme/eax: grapheme <- first-grapheme cursor-word - 784 compare first-grapheme, 0x5b/[ + 783 var first-code-point-utf8/eax: code-point-utf8 <- first-code-point-utf8 cursor-word + 784 compare first-code-point-utf8, 0x5b/[ 785 break-if-!= - 786 var final-grapheme/eax: grapheme <- grapheme-before-cursor cursor-word - 787 compare final-grapheme, 0x5d/] + 786 var final-code-point-utf8/eax: code-point-utf8 <- code-point-utf8-before-cursor cursor-word + 787 compare final-code-point-utf8, 0x5d/] 788 break-if-= 789 break $process-sandbox-edit:space 790 } @@ -874,8 +874,8 @@ if ('onhashchange' in window) { 809 var at-end?/eax: boolean <- cursor-at-end? cursor-word 810 compare at-end?, 0/false 811 break-if-!= - 812 var g/eax: grapheme <- pop-after-cursor cursor-word - 813 add-grapheme-to-word next-word, g + 812 var g/eax: code-point-utf8 <- pop-after-cursor cursor-word + 813 add-code-point-utf8-to-word next-word, g 814 loop 815 } 816 cursor-to-start next-word @@ -903,12 +903,12 @@ if ('onhashchange' in window) { 838 return 839 } 840 # otherwise insert key within current word - 841 var g/edx: grapheme <- copy key - 842 var print?/eax: boolean <- real-grapheme? key - 843 $process-sandbox-edit:real-grapheme: { + 841 var g/edx: code-point-utf8 <- copy key + 842 var print?/eax: boolean <- real-code-point-utf8? key + 843 $process-sandbox-edit:real-code-point-utf8: { 844 compare print?, 0/false 845 break-if-= - 846 add-grapheme-to-word cursor-word, g + 846 add-code-point-utf8-to-word cursor-word, g 847 return 848 } 849 # silently ignore other hotkeys @@ -917,7 +917,7 @@ if ('onhashchange' in window) { 852 # collect new name in partial-name-for-cursor-word, and then rename the word 853 # at cursor to it 854 # Precondition: cursor-call-path is a singleton (not within a call) - 855 fn process-sandbox-rename _sandbox: (addr sandbox), key: grapheme { + 855 fn process-sandbox-rename _sandbox: (addr sandbox), key: code-point-utf8 { 856 var sandbox/esi: (addr sandbox) <- copy _sandbox 857 var new-name-ah/edi: (addr handle word) <- get sandbox, partial-name-for-cursor-word 858 # if 'esc' pressed, cancel rename @@ -976,7 +976,7 @@ if ('onhashchange' in window) { 911 { 912 var new-name/eax: (addr word) <- lookup *new-name-ah 913 cursor-to-start new-name - 914 add-grapheme-to-word new-name, 0x3d/= + 914 add-code-point-utf8-to-word new-name, 0x3d/= 915 } 916 # append name to new line 917 chain-words new-line-word-ah, new-name-ah @@ -1006,7 +1006,7 @@ if ('onhashchange' in window) { 941 compare key, 0x7f/del # backspace on Macs 942 $process-sandbox-rename:backspace: { 943 break-if-!= - 944 # if not at start, delete grapheme before cursor + 944 # if not at start, delete code-point-utf8 before cursor 945 var new-name/eax: (addr word) <- lookup *new-name-ah 946 var at-start?/eax: boolean <- cursor-at-start? new-name 947 compare at-start?, 0/false @@ -1018,12 +1018,12 @@ if ('onhashchange' in window) { 953 return 954 } 955 # otherwise insert key within current word - 956 var print?/eax: boolean <- real-grapheme? key - 957 $process-sandbox-rename:real-grapheme: { + 956 var print?/eax: boolean <- real-code-point-utf8? key + 957 $process-sandbox-rename:real-code-point-utf8: { 958 compare print?, 0/false 959 break-if-= 960 var new-name/eax: (addr word) <- lookup *new-name-ah - 961 add-grapheme-to-word new-name, key + 961 add-code-point-utf8-to-word new-name, key 962 return 963 } 964 # silently ignore other hotkeys @@ -1033,7 +1033,7 @@ if ('onhashchange' in window) { 968 # of the sandbox to be a new function with that name. Replace the last line 969 # with a call to the appropriate function. 970 # Precondition: cursor-call-path is a singleton (not within a call) - 971 fn process-sandbox-define _sandbox: (addr sandbox), functions: (addr handle function), key: grapheme { + 971 fn process-sandbox-define _sandbox: (addr sandbox), functions: (addr handle function), key: code-point-utf8 { 972 var sandbox/esi: (addr sandbox) <- copy _sandbox 973 var new-name-ah/edi: (addr handle word) <- get sandbox, partial-name-for-function 974 # if 'esc' pressed, cancel define @@ -1098,7 +1098,7 @@ if ('onhashchange' in window) { 1033 compare key, 0x7f/del # backspace on Macs 1034 $process-sandbox-define:backspace: { 1035 break-if-!= -1036 # if not at start, delete grapheme before cursor +1036 # if not at start, delete code-point-utf8 before cursor 1037 var new-name/eax: (addr word) <- lookup *new-name-ah 1038 var at-start?/eax: boolean <- cursor-at-start? new-name 1039 compare at-start?, 0/false @@ -1110,12 +1110,12 @@ if ('onhashchange' in window) { 1045 return 1046 } 1047 # otherwise insert key within current word -1048 var print?/eax: boolean <- real-grapheme? key -1049 $process-sandbox-define:real-grapheme: { +1048 var print?/eax: boolean <- real-code-point-utf8? key +1049 $process-sandbox-define:real-code-point-utf8: { 1050 compare print?, 0/false 1051 break-if-= 1052 var new-name/eax: (addr word) <- lookup *new-name-ah -1053 add-grapheme-to-word new-name, key +1053 add-code-point-utf8-to-word new-name, key 1054 return 1055 } 1056 # silently ignore other hotkeys @@ -2172,7 +2172,7 @@ if ('onhashchange' in window) { 2107 start-color screen, 0, 0xf7 2108 clear-rect screen, row, col, new-row, col2 2109 col <- add 1 -2110 #? var dummy/eax: grapheme <- read-key-from-real-keyboard +2110 #? var dummy/eax: code-point-utf8 <- read-key-from-real-keyboard 2111 render-function screen, row, col, f 2112 new-row <- add 1/function-bottom-margin 2113 col <- subtract 1/function-left-padding @@ -2209,7 +2209,7 @@ if ('onhashchange' in window) { 2144 render-line-without-stack screen, body, row, col, cursor-word, cursor-row, cursor-col 2145 } 2146 -2147 fn real-grapheme? g: grapheme -> _/eax: boolean { +2147 fn real-code-point-utf8? g: code-point-utf8 -> _/eax: boolean { 2148 # if g == newline return true 2149 compare g, 0xa 2150 { -- cgit 1.4.1-2-gfad0