Minor optimizations to indent/dedent/nodent.

nomsu.lua

@@ -172,20 +172,22 @@ do
   _with_0.utf8_char = (R("\194\223") * R("\128\191") + R("\224\239") * R("\128\191") * R("\128\191") + R("\240\244") * R("\128\191") * R("\128\191") * R("\128\191"))
   _with_0.ident_char = R("az", "AZ", "09") + P("_") + _with_0.utf8_char
   _with_0.indent = Cmt(Carg(1), function(self, start, userdata)
-    if #match(self, "^[ ]*", start) >= userdata.indent + 4 then
+    local indented = userdata.indent .. '    '
-      userdata.indent = userdata.indent + 4
+    if sub(self, start, start + #indented - 1) == indented then
-      return start + userdata.indent
+      userdata.indent = indented
+      return start + #indented
     end
   end)
   _with_0.dedent = Cmt(Carg(1), function(self, start, userdata)
-    if #match(self, "^[ ]*", start) <= userdata.indent - 4 then
+    local dedented = sub(userdata.indent, 1, -5)
-      userdata.indent = userdata.indent - 4
+    if #match(self, "^[ ]*", start) <= #dedented then
+      userdata.indent = dedented
       return start
     end
   end)
   _with_0.nodent = Cmt(Carg(1), function(self, start, userdata)
-    if #match(self, "^[ ]*", start) >= userdata.indent then
+    if sub(self, start, start + #userdata.indent - 1) == userdata.indent then
-      return start + userdata.indent
+      return start + #userdata.indent
     end
   end)
   _with_0.userdata = Carg(1)
@@ -311,7 +313,7 @@ do
       assert(type(nomsu_code) ~= 'string')
       local userdata = {
         source_code = nomsu_code,
-        indent = 0,
+        indent = "",
         errors = { },
         source = nomsu_code.source
       }

nomsu.moon

@@ -140,22 +140,24 @@ NOMSU_DEFS = with {}
     .ident_char = R("az","AZ","09") + P("_") + .utf8_char
 
     -- If the line begins with #indent+4 spaces, the pattern matches *those* spaces
-    -- and adds them to the stack (not any more).
+    -- and adds them to the current indent (not any more).
     .indent = Cmt Carg(1), (start, userdata)=>
-        if #match(@, "^[ ]*", start) >= userdata.indent + 4
+        indented = userdata.indent..'    '
-            userdata.indent += 4
+        if sub(@, start, start+#indented-1) == indented
-            return start + userdata.indent
+            userdata.indent = indented
-    -- If the number of leading space characters is <= the number of space on the top of the
+            return start + #indented
-    -- stack minus 4, this pattern matches and pops off the top of the stack exactly once.
+    -- If the number of leading space characters is <= the number of spaces in the current
+    -- indent minus 4, this pattern matches and decrements the current indent exactly once.
     .dedent = Cmt Carg(1), (start, userdata)=>
-        if #match(@, "^[ ]*", start) <= userdata.indent - 4
+        dedented = sub(userdata.indent, 1, -5)
-            userdata.indent -= 4
+        if #match(@, "^[ ]*", start) <= #dedented
+            userdata.indent = dedented
             return start
-    -- If the number of leading space characters is >= the number on the top of the
+    -- If the number of leading space characters is >= the number of spaces in the current
-    -- stack, this pattern matches and does not modify the stack.
+    -- indent, this pattern matches and does not modify the indent.
     .nodent = Cmt Carg(1), (start, userdata)=>
-        if #match(@, "^[ ]*", start) >= userdata.indent
+        if sub(@, start, start+#userdata.indent-1) == userdata.indent
-            return start + userdata.indent
+            return start + #userdata.indent
 
     .userdata = Carg(1)
 
@@ -318,7 +320,7 @@ class NomsuCompiler
     parse: (nomsu_code)=>
         assert(type(nomsu_code) != 'string')
         userdata = {
-            source_code:nomsu_code, indent: 0, errors: {},
+            source_code:nomsu_code, indent: "", errors: {},
             source: nomsu_code.source,
         }
         tree = NOMSU_PATTERN\match(tostring(nomsu_code), nil, userdata)