From 8b727c4173c65efb55b59dec9cd5e4066aa9f1f1 Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Fri, 19 May 2023 18:02:40 -0400
Subject: Updated enum checking

---
 tnslc/basic.tnsl |  4 ++++
 tnslc/enum.tnsl  |  6 +++++-
 tnslc/hello.tnsl |  2 +-
 tnslc/tnslc.tnsl | 23 +++++++++++++++++------
 4 files changed, 27 insertions(+), 8 deletions(-)
 create mode 100644 tnslc/basic.tnsl

(limited to 'tnslc')

diff --git a/tnslc/basic.tnsl b/tnslc/basic.tnsl
new file mode 100644
index 0000000..5d4f040
--- /dev/null
+++ b/tnslc/basic.tnsl
@@ -0,0 +1,4 @@
+
+/; main [int]
+    return 0
+;/
\ No newline at end of file
diff --git a/tnslc/enum.tnsl b/tnslc/enum.tnsl
index e8c4932..e8e9c03 100644
--- a/tnslc/enum.tnsl
+++ b/tnslc/enum.tnsl
@@ -4,6 +4,10 @@ enum TEST_ENUM [int] {
     i = 0
 }
 
+/; module m
+    int i = 0
+;/
+
 /; main [int]
-    return TEST_ENUM.i
+    return TEST_ENUM.i + m.i
 ;/
\ No newline at end of file
diff --git a/tnslc/hello.tnsl b/tnslc/hello.tnsl
index 0742564..a2bdc68 100644
--- a/tnslc/hello.tnsl
+++ b/tnslc/hello.tnsl
@@ -1,6 +1,6 @@
 :include "c_wrap.tnsl"
 
-{}uint8 star = "hello.tnsl\0"
+{}uint8 star = "*\0"
 {}uint8 space = " \0"
 {}uint8 new_line = "\n\0"
 
diff --git a/tnslc/tnslc.tnsl b/tnslc/tnslc.tnsl
index a225041..7042439 100644
--- a/tnslc/tnslc.tnsl
+++ b/tnslc/tnslc.tnsl
@@ -7,7 +7,7 @@
 # 1 - Info (default)
 # 2 - Debugging information (useful for me, probably less for you)
 # 3 - Also logs the state changes of the log itself
-;{}uint8 log_level = "2"
+;{}uint8 log_level = "1"
 ;{}uint8 log_mode = "single"
 
 /; log_state({}uint8 new_state)
@@ -1928,13 +1928,18 @@
     ;/
 
     /; _find_def ({}{}uint8 artifact, int r) [Variable]
+        ;log_debug(string_add("Finding def: ", artifact{r}))
+        ;log_debug(string_join(artifact, "."))
         /; if (len artifact !> r)
             ;return {"", NO_TYPE, 0, 0}
         ;/
 
         /; if (len artifact - 1 > r)
+            ;log_debug("loopin")
+            ;{}uint8 e_name = string_add("__#", artifact{r})
+            ;{}uint8 m_name = string_add("_#", artifact{r})
             /; loop (int i = 0; i < len (self.sub)) [i++]
-                /; if (string_equate(artifact{r}, self.sub{i}.name))
+                /; if (string_equate(artifact{r}, self.sub{i}.name) || string_equate(e_name, self.sub{i}.name) || string_equate(m_name, self.sub{i}.name))
                     ;log_debug(string_add("Artifact: ", artifact{r}))
                     ;return self.sub{i}._find_def(artifact, r + 1)
                 ;/
@@ -1964,6 +1969,7 @@
     ;/
 
     /; find_def ({}{}uint8 artifact) [Variable]
+        ;log_debug("Finding def...")
         ;return self._find_def(artifact, 0)
     ;/
 
@@ -2464,6 +2470,10 @@
         ;/
     ;/
 
+    ;log_debug(string_join( {
+        "Adding enum ", name, " of type ", et.name
+    }, ""))
+
     /; if (string_equate(et.name, ""))
         ;et = Primitives{3}
     ;/
@@ -3036,6 +3046,7 @@
 ;/
 
 /; _eval_value(~{}Token tok, int start, max, ~CompData out, mov, ~Module current, ~Scope scope, Type t, ~int layer) [Variable]
+    ;log_vis(".")
     /; if (start == max - 1)
         /; if (tok`{start}.type_is(TOKEN.LITERAL))
             ;{}uint8 l = current`.full_path()
@@ -3073,7 +3084,6 @@
 
     /; if (pr < 2)
         ;log_debug("Dot _eval_value")
-        ;tnsl.io.println(layer`)
         ;return _eval_dot(tok, ~start, max, out, mov, current, scope, t, layer)
     ;/
 
@@ -3649,6 +3659,7 @@
     /; if (len name == 0)
         ;log_err(string_add("Did not find name for module or pethod block. ", tok`{cur`}.sprint()))
     ;/
+    ;log_debug(string_add("Generating module ", name))
 
     ;~Module new = find_or_create(name, current, exp)
     
@@ -3675,7 +3686,7 @@
 
 # Second pass on a module
 # Generates code and calls compile_file_second_pass if an include happens
-/; module_pass_two (~{}Token tok, ~int cur, ~Module current, ~CompData out, Path f)
+/; module_pass_two (~{}Token tok, ~int cur, ~Module current, ~CompData out)
     ;int max = find_closing(tok, cur)
     /; loop (cur`++; cur` < len tok`) [cur`++]
         /; if (tok`{cur`}.type_is(TOKEN.DEFWORD))
@@ -3700,7 +3711,7 @@
         ;; else if (tok`{cur`}.cmp("/;") || tok`{cur`}.cmp(";;"))
             ;log_debug("Mod block")
             /; if (tok`{cur` + 1}.cmp("export") || tok`{cur` + 1}.cmp("module"))
-                ;module_pass_two(tok, cur, current, out, f)
+                ;module_pass_two(tok, cur, current, out)
             ;; else
                 ;compile_block(tok, cur, current, out)
             ;/
@@ -3822,7 +3833,7 @@
         ;; else if (tok`{i}.cmp("/;") || tok`{i}.cmp(";;"))
             ;log_debug("Root block")
             /; if (tok`{i + 1}.cmp("export") || tok`{i + 1}.cmp("module"))
-                ;module_pass_two(tok, ~i, current, ~out, f)
+                ;module_pass_two(tok, ~i, current, ~out)
             ;; else
                 ;compile_block(tok, ~i, current, ~out)
             ;/
-- 
cgit v1.2.3