From be9813b1062c1f9b2c0d13a76d56c41ba984c1db Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Tue, 20 Sep 2022 00:03:32 -0400
Subject: Generate a dummy file

---
 tnslc/compile/compile.tnsl | 59 +++++++++++++++++++++++++++++++++++++++++++++-
 tnslc/compile/isa_x86.tnsl | 32 -------------------------
 tnslc/tnslc.tnsl           |  6 +++--
 tnslc/util.tnsl            | 12 ++--------
 4 files changed, 64 insertions(+), 45 deletions(-)

diff --git a/tnslc/compile/compile.tnsl b/tnslc/compile/compile.tnsl
index d1f72b4..d7e9416 100644
--- a/tnslc/compile/compile.tnsl
+++ b/tnslc/compile/compile.tnsl
@@ -21,10 +21,67 @@
 ;/
 
 
+/; compile_block (~int cur, ~{}Token data, ~{}charp hsec, csec, dsec)
+	;hsec`.append('b')
+
+	;cur`++
+	
+	/; loop (cur` < len data`) [cur`++]
+		/; if (string_equate(data`{cur`}.data`, ";/") || string_equate(data`{cur`}.data`, ";;"))
+			;break
+		;; else if (string_equate(data`{cur`}.data`, "/;"))
+			;bool ch = true
+			/; loop (ch)
+				;compile_block(cur, data, hsec, csec, dsec)
+				;ch = string_equate(data`{cur`}.data`, ";;")
+			;/			
+		;; else if (string_equate(data`{cur`}.data`, ";"))
+			;compile_statement(cur, data, hsec, csec, dsec)
+		;/
+	;/
+;/
+
+/; compile_statement (~int cur, ~{}Token data, ~{}charp hsec, csec, dsec)
+	;csec`.append('c')
+	;dsec`.append('d')
+;/
+
 /; do_compile ({}charp file, ~{}Token data)
-	/;
+	;{}charp hsec = ".global _start\n"
+	;{}charp csec = ".text\n"
+	;{}charp dsec = ".data\n"
+
+	;int j = len data`
+
+	/; loop (int i = 0; i < j) [i++]
+		/; if (string_equate(data`{i}.data`, "/;"))
+			;compile_block(~i, data, ~hsec, ~csec, ~dsec)
+		;; else if (string_equate(data`{i}.data`, ";"))
+			;compile_statement(~i, data, ~hsec, ~csec, ~dsec)
+		;; else
+			;break
+		;/
+	;/
+
+	;tnsl.io.File out = tnsl.io.writeFile(file)
+	
+	/; loop (int i = 0; i < len hsec) [i++]
+		;out.write(hsec{i})
+	;/
+
+	;out.write('\n')
 
+	/; loop (int i = 0; i < len csec) [i++]
+		;out.write(csec{i})
 	;/
+
+	;out.write('\n')
+
+	/; loop (int i = 0; i < len dsec) [i++]
+		;out.write(dsec{i})
+	;/
+
+	;out.write('\n')
 ;/
 
 ;struct Symtab {
diff --git a/tnslc/compile/isa_x86.tnsl b/tnslc/compile/isa_x86.tnsl
index 1df9902..bc5d43f 100644
--- a/tnslc/compile/isa_x86.tnsl
+++ b/tnslc/compile/isa_x86.tnsl
@@ -14,35 +14,3 @@
 	EXPRESS OR IMPLIED
 #/
 
-/; gen_x86 (~Node program, {}charp out)
-	;tnsl.io.File o = tnsl.io.writeFile(out)
-	
-	;{}uint8 current = gen_head(program)
-	/; loop (int i = 0; i < len current) [i++]
-		;o.write(current{i})
-	;/
-
-	;{}uint8 current = gen_data(program)
-	/; loop (int i = 0; i < len current) [i++]
-		;o.write(current{i})
-	;/
-
-	;{}uint8 current = gen_text(program)
-	/; loop (int i = 0; i < len current) [i++]
-		;o.write(current{i})
-	;/
-
-	;o.close()
-;/
-
-/; gen_data (~Node program) [{}charp]
-
-;/
-
-/; gen_text (~Node program) [{}charp]
-
-;/
-
-/; gen_head (~Node program) [{}charp]
-
-;/
diff --git a/tnslc/tnslc.tnsl b/tnslc/tnslc.tnsl
index ec6fa04..2a19f20 100644
--- a/tnslc/tnslc.tnsl
+++ b/tnslc/tnslc.tnsl
@@ -24,8 +24,8 @@
 
 /; main ({}{}charp args) [int]
 
-	/; if (len args < 1)
-		;tnsl.io.println(string_from_int(97265))
+	/; if (len args < 2)
+		;tnsl.io.println("Usage: tnslc [file in] [file out]")
 		;return 1
 	;/
 
@@ -39,5 +39,7 @@
 	
 	# ;tnslc.Node tree_node = tnslc.ast.make_tree(psrc, args{0})
 
+	;tnslc.do_compile(args{1}, psrc)
+
 	;return 0
 ;/
diff --git a/tnslc/util.tnsl b/tnslc/util.tnsl
index 4e2849b..5d84dec 100644
--- a/tnslc/util.tnsl
+++ b/tnslc/util.tnsl
@@ -32,18 +32,10 @@
     ;return true
 ;/
 
-/; add_strings (~{}charp a, b) [{}charp]
-    ;{}charp out = ""
-
-    /; loop (int i = 0; i < len a`) [i++]
-        ;out.append(a`{i})
-    ;/
-
+/; add_strings (~{}charp a, b)
     /; loop (int i = 0; i < len b`) [i++]
-        ;out.append(b`{i})
+        ;a`.append(b`{i})
     ;/
-
-    ;return out
 ;/
 
 /; reverse_string({}charp str) [{}charp]
-- 
cgit v1.2.3