From 5582d6427e2bc09b9975615f87cace64ce2d29ca Mon Sep 17 00:00:00 2001
From: Kyle Gunger <kgunger12@gmail.com>
Date: Thu, 15 Sep 2022 15:30:53 -0400
Subject: Fix string from int

---
 tnslc/util.tnsl | 56 ++++++++++++++++++++++++++++++++++++++++++++++++--------
 1 file changed, 48 insertions(+), 8 deletions(-)

(limited to 'tnslc/util.tnsl')

diff --git a/tnslc/util.tnsl b/tnslc/util.tnsl
index a26b93e..4e2849b 100644
--- a/tnslc/util.tnsl
+++ b/tnslc/util.tnsl
@@ -46,6 +46,16 @@
     ;return out
 ;/
 
+/; reverse_string({}charp str) [{}charp]
+	;{}charp out = ""
+
+	/; loop (int i = len str; i > 0) [i = i - 1]
+		;out.append(str{i - 1})
+	;/
+
+	;return out
+;/
+
 /; is_whitespace (charp c) [bool]
 	;return c == '\t' || c == '\n' || c == ' '
 ;/
@@ -74,33 +84,63 @@
     ;/
 
     ;c.append(digit_to_char(i))
+	;i = i / 10
 
     /; loop (i !== 0) [i = i / 10]
         ;c.append(digit_to_char(i))
     ;/
 
-    ;return c
+    ;return reverse_string(c)
+;/
+
+/; int_from_string ({}charp str) [int]
+	;bool inv = str{0} == '-'
+	;int out = 0
+
+	/; loop ()
+
+	;/
+	
+	/; if (inv)
+		;out = -out
+	;/
+
+	;return out
 ;/
 
 /; get_escape_code (charp c) [charp]
     /; if (c == '\'')
         ;return '\''
+    ;; else if (c == 'a')
+        ;return '\a'
+    ;; else if (c == 'b')
+        ;return '\b'
+    ;; else if (c == 'e')
+        ;return '\e'
+    ;; else if (c == 'f')
+        ;return '\f'
     ;; else if (c == 'n')
         ;return '\n'
-    ;; else if (c == 't')
-        ;return '\t'
-    ;; else if (c == '\r')
+    ;; else if (c == 'r')
         ;return '\r'
-    ;; else if (c == '\b')
-        ;return '\b'
-    ;/
+	;; else if (c == 't')
+        ;return '\t'
+	;; else if (c == 'v')
+        ;return '\v'
+	;/
 
     ;return 0
 ;/
 
+/; parse_hex_code ({}charp c) [charp]
+	/;
+
+	;/
+;/
+
 /; unquote_char ({}charp c) [charp]
     /; if (c{1} == '\\')
-        /; if (c{2} == 'u')
+        /; if (c{2} == 'x')
             ;return 0
         ;/
         ;return get_escape_code(c{2})
-- 
cgit v1.2.3