about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-06-18 20:08:19 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-06-18 20:08:19 -0700
commitc6cb3605444af2399346b9d33d7b6cb489db7f53 (patch)
tree7acc2a17896764123c813dbae7bc2cef09752111
parent93e2e3f93445038db48423695b7d5cf9c9583f4a (diff)
downloadmu-c6cb3605444af2399346b9d33d7b6cb489db7f53.tar.gz
.
-rw-r--r--shell/tokenize.mu98
1 files changed, 49 insertions, 49 deletions
diff --git a/shell/tokenize.mu b/shell/tokenize.mu
index 39922a83..a8c92568 100644
--- a/shell/tokenize.mu
+++ b/shell/tokenize.mu
@@ -1004,9 +1004,9 @@ fn operator-grapheme? g: grapheme -> _/eax: boolean {
   return 0/false
 }
 
-fn number-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn number-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
   var in-data/ecx: (addr stream byte) <- copy _in-data
   rewind-stream in-data
@@ -1021,16 +1021,16 @@ fn number-token? _in: (addr token) -> _/eax: boolean {
   return result
 }
 
-fn bracket-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
+fn bracket-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
   {
-    var in-type/eax: (addr int) <- get in, type
+    var in-type/eax: (addr int) <- get self, type
     compare *in-type, 1/stream
     break-if-!=
     # streams are never paren tokens
     return 0/false
   }
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var in-data/eax: (addr stream byte) <- lookup *in-data-ah
   rewind-stream in-data
   var g/eax: grapheme <- read-grapheme in-data
@@ -1038,45 +1038,45 @@ fn bracket-token? _in: (addr token) -> _/eax: boolean {
   return result
 }
 
-fn quote-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn quote-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var in-data/eax: (addr stream byte) <- lookup *in-data-ah
   rewind-stream in-data
   var result/eax: boolean <- stream-data-equal? in-data, "'"
   return result
 }
 
-fn backquote-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn backquote-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var in-data/eax: (addr stream byte) <- lookup *in-data-ah
   rewind-stream in-data
   var result/eax: boolean <- stream-data-equal? in-data, "`"
   return result
 }
 
-fn unquote-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn unquote-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var in-data/eax: (addr stream byte) <- lookup *in-data-ah
   rewind-stream in-data
   var result/eax: boolean <- stream-data-equal? in-data, ","
   return result
 }
 
-fn unquote-splice-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn unquote-splice-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var in-data/eax: (addr stream byte) <- lookup *in-data-ah
   rewind-stream in-data
   var result/eax: boolean <- stream-data-equal? in-data, ",@"
   return result
 }
 
-fn open-paren-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn open-paren-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
   var in-data/ecx: (addr stream byte) <- copy _in-data
   rewind-stream in-data
@@ -1090,9 +1090,9 @@ fn open-paren-token? _in: (addr token) -> _/eax: boolean {
   return 0/false
 }
 
-fn close-paren-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn close-paren-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
   var in-data/ecx: (addr stream byte) <- copy _in-data
   rewind-stream in-data
@@ -1106,9 +1106,9 @@ fn close-paren-token? _in: (addr token) -> _/eax: boolean {
   return 0/false
 }
 
-fn dot-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn dot-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var _in-data/eax: (addr stream byte) <- lookup *in-data-ah
   var in-data/ecx: (addr stream byte) <- copy _in-data
   rewind-stream in-data
@@ -1131,9 +1131,9 @@ fn test-dot-token {
   check result, "F - test-dot-token"
 }
 
-fn stream-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-type/eax: (addr int) <- get in, type
+fn stream-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-type/eax: (addr int) <- get self, type
   compare *in-type, 1/stream
   {
     break-if-=
@@ -1142,9 +1142,9 @@ fn stream-token? _in: (addr token) -> _/eax: boolean {
   return 1/true
 }
 
-fn comment-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-data-ah/eax: (addr handle stream byte) <- get in, text-data
+fn comment-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-data-ah/eax: (addr handle stream byte) <- get self, text-data
   var in-data/eax: (addr stream byte) <- lookup *in-data-ah
   rewind-stream in-data
   var g/eax: grapheme <- read-grapheme in-data
@@ -1156,9 +1156,9 @@ fn comment-token? _in: (addr token) -> _/eax: boolean {
   return 1/true
 }
 
-fn skip-token? _in: (addr token) -> _/eax: boolean {
-  var in/eax: (addr token) <- copy _in
-  var in-type/eax: (addr int) <- get in, type
+fn skip-token? _self: (addr token) -> _/eax: boolean {
+  var self/eax: (addr token) <- copy _self
+  var in-type/eax: (addr int) <- get self, type
   compare *in-type, 2/skip
   {
     break-if-=
@@ -1167,23 +1167,23 @@ fn skip-token? _in: (addr token) -> _/eax: boolean {
   return 1/true
 }
 
-fn allocate-token _out: (addr handle token) {
-  var out/eax: (addr handle token) <- copy _out
-  allocate out
-  var out-addr/eax: (addr token) <- lookup *out
-  var dest-ah/eax: (addr handle stream byte) <- get out-addr, text-data
+fn allocate-token _self-ah: (addr handle token) {
+  var self-ah/eax: (addr handle token) <- copy _self-ah
+  allocate self-ah
+  var self/eax: (addr token) <- lookup *self-ah
+  var dest-ah/eax: (addr handle stream byte) <- get self, text-data
   populate-stream dest-ah, 0x40/max-symbol-size
 }
 
-fn initialize-token _out: (addr handle token), val: (addr array byte) {
-  var out/eax: (addr handle token) <- copy _out
-  var out-addr/eax: (addr token) <- lookup *out
-  var dest-ah/eax: (addr handle stream byte) <- get out-addr, text-data
+fn initialize-token _self-ah: (addr handle token), val: (addr array byte) {
+  var self-ah/eax: (addr handle token) <- copy _self-ah
+  var self/eax: (addr token) <- lookup *self-ah
+  var dest-ah/eax: (addr handle stream byte) <- get self, text-data
   var dest/eax: (addr stream byte) <- lookup *dest-ah
   write dest, val
 }
 
-fn new-token out: (addr handle token), val: (addr array byte) {
-  allocate-token out
-  initialize-token out, val
+fn new-token self-ah: (addr handle token), val: (addr array byte) {
+  allocate-token self-ah
+  initialize-token self-ah, val
 }