From 372367f59a897162912d0646158bdea1e07d6e66 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 26 Jun 2021 20:55:36 -0700 Subject: html: better highlighting for int registers --- html/shell/parse.mu.html | 97 ++++++++++++++++++++++++------------------------ 1 file changed, 48 insertions(+), 49 deletions(-) (limited to 'html/shell/parse.mu.html') diff --git a/html/shell/parse.mu.html b/html/shell/parse.mu.html index e57e5959..71dcd66c 100644 --- a/html/shell/parse.mu.html +++ b/html/shell/parse.mu.html @@ -14,18 +14,17 @@ pre { white-space: pre-wrap; font-family: monospace; color: #000000; background- body { font-size:12pt; font-family: monospace; color: #000000; background-color: #ffffd7; } a { color:inherit; } * { font-size:12pt; font-size: 1em; } -.muRegEdi { color: #87ffd7; } -.Special { color: #ff6060; } +.PreProc { color: #c000c0; } +.muRegEdx { color: #af5f00; } .LineNr { } -.muRegEdx { color: #878700; } -.muRegEcx { color: #af875f; } -.muRegEsi { color: #87d787; } -.muRegEax { color: #875f00; } +.muRegEsi { color: #005faf; } +.muComment { color: #005faf; } +.Constant { color: #008787; } +.muRegEdi { color: #00af00; } +.muRegEcx { color: #870000; } .Delimiter { color: #c000c0; } .muFunction { color: #af5f00; text-decoration: underline; } -.Constant { color: #008787; } -.PreProc { color: #c000c0; } -.muComment { color: #005faf; } +.Special { color: #ff6060; } --> @@ -63,14 +62,14 @@ if ('onhashchange' in window) { 
   1 fn parse-input tokens: (addr stream token), out: (addr handle cell), trace: (addr trace) {
   2   rewind-stream tokens
-  3   var empty?/eax: boolean <- stream-empty? tokens
+  3   var empty?/eax: boolean <- stream-empty? tokens
   4   compare empty?, 0/false
   5   {
   6     break-if-=
   7     error trace, "nothing to parse"
   8     return
   9   }
- 10   var close-paren?/eax: boolean <- copy 0/false
+ 10   var close-paren?/eax: boolean <- copy 0/false
  11   var dot?/ecx: boolean <- copy 0/false
  12   close-paren?, dot? <- parse-sexpression tokens, out, trace
  13   {
@@ -86,7 +85,7 @@ if ('onhashchange' in window) {
  23     return
  24   }
  25   {
- 26     var empty?/eax: boolean <- stream-empty? tokens
+ 26     var empty?/eax: boolean <- stream-empty? tokens
  27     compare empty?, 0/false
  28     break-if-!=
  29     error trace, "unexpected tokens at end; only type in a single expression at a time"
@@ -96,12 +95,12 @@ if ('onhashchange' in window) {
  33 # return values:
  34 #   unmatched close-paren encountered?
  35 #   dot encountered? (only used internally by recursive calls)
- 36 fn parse-sexpression tokens: (addr stream token), _out: (addr handle cell), trace: (addr trace) -> _/eax: boolean, _/ecx: boolean {
+ 36 fn parse-sexpression tokens: (addr stream token), _out: (addr handle cell), trace: (addr trace) -> _/eax: boolean, _/ecx: boolean {
  37   trace-text trace, "parse", "parse"
  38   trace-lower trace
  39   var curr-token-storage: token
  40   var curr-token/ecx: (addr token) <- address curr-token-storage
- 41   var empty?/eax: boolean <- stream-empty? tokens
+ 41   var empty?/eax: boolean <- stream-empty? tokens
  42   compare empty?, 0/false
  43   {
  44     break-if-=
@@ -112,75 +111,75 @@ if ('onhashchange' in window) {
  49   read-from-stream tokens, curr-token
  50   $parse-sexpression:type-check: {
  51     # single quote -> parse as list with a special car
- 52     var quote-token?/eax: boolean <- quote-token? curr-token
+ 52     var quote-token?/eax: boolean <- quote-token? curr-token
  53     compare quote-token?, 0/false
  54     {
  55       break-if-=
  56       var out/edi: (addr handle cell) <- copy _out
  57       allocate-pair out
- 58       var out-addr/eax: (addr cell) <- lookup *out
+ 58       var out-addr/eax: (addr cell) <- lookup *out
  59       var left-ah/edx: (addr handle cell) <- get out-addr, left
  60       new-symbol left-ah, "'"
  61       var right-ah/edx: (addr handle cell) <- get out-addr, right
- 62       var close-paren?/eax: boolean <- copy 0/false
+ 62       var close-paren?/eax: boolean <- copy 0/false
  63       var dot?/ecx: boolean <- copy 0/false
  64       close-paren?, dot? <- parse-sexpression tokens, right-ah, trace
  65       trace-higher trace
  66       return close-paren?, dot?
  67     }
  68     # backquote quote -> parse as list with a special car
- 69     var backquote-token?/eax: boolean <- backquote-token? curr-token
+ 69     var backquote-token?/eax: boolean <- backquote-token? curr-token
  70     compare backquote-token?, 0/false
  71     {
  72       break-if-=
  73       var out/edi: (addr handle cell) <- copy _out
  74       allocate-pair out
- 75       var out-addr/eax: (addr cell) <- lookup *out
+ 75       var out-addr/eax: (addr cell) <- lookup *out
  76       var left-ah/edx: (addr handle cell) <- get out-addr, left
  77       new-symbol left-ah, "`"
  78       var right-ah/edx: (addr handle cell) <- get out-addr, right
- 79       var close-paren?/eax: boolean <- copy 0/false
+ 79       var close-paren?/eax: boolean <- copy 0/false
  80       var dot?/ecx: boolean <- copy 0/false
  81       close-paren?, dot? <- parse-sexpression tokens, right-ah, trace
  82       trace-higher trace
  83       return close-paren?, dot?
  84     }
  85     # unquote -> parse as list with a special car
- 86     var unquote-token?/eax: boolean <- unquote-token? curr-token
+ 86     var unquote-token?/eax: boolean <- unquote-token? curr-token
  87     compare unquote-token?, 0/false
  88     {
  89       break-if-=
  90       var out/edi: (addr handle cell) <- copy _out
  91       allocate-pair out
- 92       var out-addr/eax: (addr cell) <- lookup *out
+ 92       var out-addr/eax: (addr cell) <- lookup *out
  93       var left-ah/edx: (addr handle cell) <- get out-addr, left
  94       new-symbol left-ah, ","
  95       var right-ah/edx: (addr handle cell) <- get out-addr, right
- 96       var close-paren?/eax: boolean <- copy 0/false
+ 96       var close-paren?/eax: boolean <- copy 0/false
  97       var dot?/ecx: boolean <- copy 0/false
  98       close-paren?, dot? <- parse-sexpression tokens, right-ah, trace
  99       trace-higher trace
 100       return close-paren?, dot?
 101     }
 102     # unquote-splice -> parse as list with a special car
-103     var unquote-splice-token?/eax: boolean <- unquote-splice-token? curr-token
+103     var unquote-splice-token?/eax: boolean <- unquote-splice-token? curr-token
 104     compare unquote-splice-token?, 0/false
 105     {
 106       break-if-=
 107       var out/edi: (addr handle cell) <- copy _out
 108       allocate-pair out
-109       var out-addr/eax: (addr cell) <- lookup *out
+109       var out-addr/eax: (addr cell) <- lookup *out
 110       var left-ah/edx: (addr handle cell) <- get out-addr, left
 111       new-symbol left-ah, ",@"
 112       var right-ah/edx: (addr handle cell) <- get out-addr, right
-113       var close-paren?/eax: boolean <- copy 0/false
+113       var close-paren?/eax: boolean <- copy 0/false
 114       var dot?/ecx: boolean <- copy 0/false
 115       close-paren?, dot? <- parse-sexpression tokens, right-ah, trace
 116       trace-higher trace
 117       return close-paren?, dot?
 118     }
 119     # dot -> return
-120     var dot?/eax: boolean <- dot-token? curr-token
+120     var dot?/eax: boolean <- dot-token? curr-token
 121     compare dot?, 0/false
 122     {
 123       break-if-=
@@ -188,7 +187,7 @@ if ('onhashchange' in window) {
 125       return 0/false, 1/true
 126     }
 127     # not bracket -> parse atom
-128     var bracket-token?/eax: boolean <- bracket-token? curr-token
+128     var bracket-token?/eax: boolean <- bracket-token? curr-token
 129     compare bracket-token?, 0/false
 130     {
 131       break-if-!=
@@ -196,16 +195,16 @@ if ('onhashchange' in window) {
 133       break $parse-sexpression:type-check
 134     }
 135     # open paren -> parse list
-136     var open-paren?/eax: boolean <- open-paren-token? curr-token
+136     var open-paren?/eax: boolean <- open-paren-token? curr-token
 137     compare open-paren?, 0/false
 138     {
 139       break-if-=
 140       var curr/esi: (addr handle cell) <- copy _out
 141       allocate-pair curr
-142       var curr-addr/eax: (addr cell) <- lookup *curr
+142       var curr-addr/eax: (addr cell) <- lookup *curr
 143       var left/edx: (addr handle cell) <- get curr-addr, left
 144       {
-145         var close-paren?/eax: boolean <- copy 0/false
+145         var close-paren?/eax: boolean <- copy 0/false
 146         var dot?/ecx: boolean <- copy 0/false
 147         close-paren?, dot? <- parse-sexpression tokens, left, trace
 148         {
@@ -216,12 +215,12 @@ if ('onhashchange' in window) {
 153         }
 154         compare close-paren?, 0/false
 155         break-if-!=
-156         var curr-addr/eax: (addr cell) <- lookup *curr
+156         var curr-addr/eax: (addr cell) <- lookup *curr
 157         curr <- get curr-addr, right
 158         var tmp-storage: (handle cell)
 159         var tmp/edx: (addr handle cell) <- address tmp-storage
 160         $parse-sexpression:list-loop: {
-161           var close-paren?/eax: boolean <- copy 0/false
+161           var close-paren?/eax: boolean <- copy 0/false
 162           var dot?/ecx: boolean <- copy 0/false
 163           close-paren?, dot? <- parse-sexpression tokens, tmp, trace
 164           # '.' -> clean up right here and return
@@ -235,7 +234,7 @@ if ('onhashchange' in window) {
 172           # ')' -> return
 173           compare close-paren?, 0/false
 174           break-if-!=
-175           var curr-addr/eax: (addr cell) <- lookup *curr
+175           var curr-addr/eax: (addr cell) <- lookup *curr
 176           var left/ecx: (addr handle cell) <- get curr-addr, left
 177           copy-object tmp, left
 178           #
@@ -246,7 +245,7 @@ if ('onhashchange' in window) {
 183       break $parse-sexpression:type-check
 184     }
 185     # close paren -> return
-186     var close-paren?/eax: boolean <- close-paren-token? curr-token
+186     var close-paren?/eax: boolean <- close-paren-token? curr-token
 187     compare close-paren?, 0/false
 188     {
 189       break-if-=
@@ -257,8 +256,8 @@ if ('onhashchange' in window) {
 194     var stream-storage: (stream byte 0x400)
 195     var stream/edx: (addr stream byte) <- address stream-storage
 196     write stream, "unexpected token "
-197     var curr-token-data-ah/eax: (addr handle stream byte) <- get curr-token, text-data
-198     var curr-token-data/eax: (addr stream byte) <- lookup *curr-token-data-ah
+197     var curr-token-data-ah/eax: (addr handle stream byte) <- get curr-token, text-data
+198     var curr-token-data/eax: (addr stream byte) <- lookup *curr-token-data-ah
 199     rewind-stream curr-token-data
 200     write-stream stream, curr-token-data
 201     error-stream trace, stream
@@ -270,27 +269,27 @@ if ('onhashchange' in window) {
 207 fn parse-atom _curr-token: (addr token), _out: (addr handle cell), trace: (addr trace) {
 208   trace-text trace, "parse", "parse atom"
 209   var curr-token/ecx: (addr token) <- copy _curr-token
-210   var curr-token-data-ah/eax: (addr handle stream byte) <- get curr-token, text-data
-211   var _curr-token-data/eax: (addr stream byte) <- lookup *curr-token-data-ah
+210   var curr-token-data-ah/eax: (addr handle stream byte) <- get curr-token, text-data
+211   var _curr-token-data/eax: (addr stream byte) <- lookup *curr-token-data-ah
 212   var curr-token-data/esi: (addr stream byte) <- copy _curr-token-data
 213   trace trace, "parse", curr-token-data
 214   # number
-215   var number-token?/eax: boolean <- number-token? curr-token
+215   var number-token?/eax: boolean <- number-token? curr-token
 216   compare number-token?, 0/false
 217   {
 218     break-if-=
 219     rewind-stream curr-token-data
-220     var _val/eax: int <- parse-decimal-int-from-stream curr-token-data
+220     var _val/eax: int <- parse-decimal-int-from-stream curr-token-data
 221     var val/ecx: int <- copy _val
 222     var val-float/xmm0: float <- convert val
 223     allocate-number _out
-224     var out/eax: (addr handle cell) <- copy _out
-225     var out-addr/eax: (addr cell) <- lookup *out
+224     var out/eax: (addr handle cell) <- copy _out
+225     var out-addr/eax: (addr cell) <- lookup *out
 226     var dest/edi: (addr float) <- get out-addr, number-data
 227     copy-to *dest, val-float
 228     {
 229       {
-230         var should-trace?/eax: boolean <- should-trace? trace
+230         var should-trace?/eax: boolean <- should-trace? trace
 231         compare should-trace?, 0/false
 232       }
 233       break-if-=
@@ -307,7 +306,7 @@ if ('onhashchange' in window) {
 244   }
 245   # default: copy either to a symbol or a stream
 246   # stream token -> literal
-247   var stream-token?/eax: boolean <- stream-token? curr-token
+247   var stream-token?/eax: boolean <- stream-token? curr-token
 248   compare stream-token?, 0/false
 249   {
 250     break-if-=
@@ -319,14 +318,14 @@ if ('onhashchange' in window) {
 256     allocate-symbol _out
 257   }
 258   # copy token data
-259   var out/eax: (addr handle cell) <- copy _out
-260   var out-addr/eax: (addr cell) <- lookup *out
+259   var out/eax: (addr handle cell) <- copy _out
+260   var out-addr/eax: (addr cell) <- lookup *out
 261   var curr-token-data-ah/ecx: (addr handle stream byte) <- get curr-token, text-data
 262   var dest-ah/edx: (addr handle stream byte) <- get out-addr, text-data
 263   copy-object curr-token-data-ah, dest-ah
 264   {
 265     {
-266       var should-trace?/eax: boolean <- should-trace? trace
+266       var should-trace?/eax: boolean <- should-trace? trace
 267       compare should-trace?, 0/false
 268     }
 269     break-if-=
@@ -343,7 +342,7 @@ if ('onhashchange' in window) {
 280 
 281 fn parse-dot-tail tokens: (addr stream token), _out: (addr handle cell), trace: (addr trace) {
 282   var out/edi: (addr handle cell) <- copy _out
-283   var close-paren?/eax: boolean <- copy 0/false
+283   var close-paren?/eax: boolean <- copy 0/false
 284   var dot?/ecx: boolean <- copy 0/false
 285   close-paren?, dot? <- parse-sexpression tokens, out, trace
 286   compare close-paren?, 0/false
-- 
cgit 1.4.1-2-gfad0