summaryrefslogtreecommitdiff
path: root/tnslc
diff options
context:
space:
mode:
authorKyle Gunger <kgunger12@gmail.com>2024-03-29 20:25:04 -0400
committerKyle Gunger <kgunger12@gmail.com>2024-03-29 20:25:04 -0400
commita282af0b8fd4102778d6d8781c29f1c0202e13ee (patch)
tree645cb1db4d206eef65ce071f064a911473a0a50a /tnslc
parent606ab9da9e4231564c91e4613bfbbb8883f7eb9d (diff)
int and string conversion algo
Diffstat (limited to 'tnslc')
-rw-r--r--tnslc/tnslc.tnsl32
-rw-r--r--tnslc/utils/algo.tnsl186
2 files changed, 194 insertions, 24 deletions
diff --git a/tnslc/tnslc.tnsl b/tnslc/tnslc.tnsl
index 23d3531..852d22e 100644
--- a/tnslc/tnslc.tnsl
+++ b/tnslc/tnslc.tnsl
@@ -17,7 +17,7 @@ usage:
~uint8 char_str = "%c\0"
~uint8 newline = "\n\0"
-~uint8 rel_pth = "../../tnslc.tnsl\0"
+~uint8 scratch = "1234\0"
/; main (int argc, ~~uint8 argv) [int]
asm "mov r10, rdi"
@@ -27,30 +27,14 @@ usage:
_printf(USAGE)
return 1
;/
-
- utils.File fin
- fin.init(argv{1})
- fin.open()
-
- /; if (fin.at_end == true)
- _printf(FOPEN_ERR)
- fin.end()
- return 2
- ;/
-
- /; loop (fin.at_end == false)
- _print_num(char_str, fin.read())
- ;/
-
- utils.File rel = fin.relative(rel_pth)
- ~uint8 str = rel.path.to_cstr('/')
- _printf(str)
+
+ int i = utils.cstr_to_int(scratch)
+ _print_num(utils.NUM_STR, 0 - i)
+ i = 0 - i
+ ~uint8 s = utils.int_to_str(i)
+ _printf(s)
_printf(newline)
- _delete(str)
- rel.end()
-
- fin.close()
- fin.end()
+ _delete(s)
return 0
;/
diff --git a/tnslc/utils/algo.tnsl b/tnslc/utils/algo.tnsl
index c501e35..1668e15 100644
--- a/tnslc/utils/algo.tnsl
+++ b/tnslc/utils/algo.tnsl
@@ -8,3 +8,189 @@
return false
;/
+# Length of a cstr
+/; strlen(~uint8 str) [int]
+ int out = 0
+ /; loop (str` !== 0) [str++; out++] ;/
+ return out
+;/
+
+/; base_for_char (uint8 c) [int]
+ /; if (c == 'b' || c == 'B')
+ return 2
+ ;; else if (c == 'o' || c == 'O')
+ return 8
+ ;; else if (c == 'x' || c == 'X')
+ return 16
+ ;/
+
+ return 10
+;/
+
+/; decode_bin (uint8 ch) [int]
+ /; if (ch == '1')
+ return 1
+ ;/
+ return 0
+;/
+
+/; decode_oct (uint8 ch) [int]
+ /; if (ch !< '0' && ch !> '7')
+ return ch - '0'
+ ;/
+ return 0
+;/
+
+/; decode_hex (uint8 ch) [int]
+ /; if (ch !< '0' && ch !> '9')
+ return ch - '0'
+ ;; else if (ch !< 'a' && ch !> 'f')
+ return ch - 'a'
+ ;; else if (ch !< 'A' && ch !> 'F')
+ return ch - 'A'
+ ;/
+ return 0
+;/
+
+/; decode_dec (uint8 ch) [int]
+ _print_num(NUM_STR, ch)
+ /; if (ch !< '0' && ch !> '9')
+ return ch - '0'
+ ;/
+ return 0
+;/
+
+/; cstr_to_int(~uint8 str) [int]
+ int base = 10
+ int start = 0
+ int l = strlen(str)
+
+ # Get base
+ /; if (l > start + 2 && str{start} == '0')
+ /; if (str{start + 1} > '9' || str{start + 1} < '0')
+ base = base_for_char(str{start + 1})
+ start = 2
+ ;/
+ ;/
+
+ int out = 0
+ /; loop (start < l) [start++]
+ out = out * base
+ int decoded = 0
+
+ _print_num(NUM_STR, start)
+ _print_num(NUM_STR, str{start})
+ /; if (base == 2)
+ decoded = decode_bin(str{start})
+ ;; else if (base == 8)
+ decoded = decode_oct(str{start})
+ ;; else if (base == 10)
+ decoded = decode_dec(str{start})
+ ;; else if (base == 16)
+ decoded = decode_hex(str{start})
+ ;/
+
+ out = out + decoded
+ ;/
+
+ return out
+;/
+
+/; cstr_to_uint(~uint8 str) [uint]
+ int base = 10
+ int start = 0
+ int l = strlen(str)
+
+ # Get base
+ /; if (l > start + 2 && str{start} == '0')
+ /; if (str{start + 1} > '9' || str{start + 1} < '0')
+ base = base_for_char(str{start + 1})
+ start = 2
+ ;/
+ ;/
+
+ uint out = 0
+ /; loop (start < l) [start++]
+ out = out * base
+ uint decoded = 0
+
+ /; if (base == 2)
+ decoded = decode_bin(str{start})
+ ;; else if (base == 8)
+ decoded = decode_oct(str{start})
+ ;; else if (base == 10)
+ decoded = decode_dec(str{start})
+ ;; else if (base == 16)
+ decoded = decode_hex(str{start})
+ ;/
+
+ out = out + decoded
+ ;/
+
+ return out
+;/
+
+/; reverse_str (~uint8 str)
+ uint8 tmp
+ int l = strlen(str)
+ /; loop(int i = 0; i < l / 2) [i++]
+ tmp = str{i}
+ str{i} = str{(l - 1) - i}
+ str{(l - 1) - i} = tmp
+ ;/
+;/
+
+/; uint_to_hex_str(uint i) [~uint8]
+ Vector out
+ out.init(1)
+
+ out.push_char('0')
+ out.push_char('x')
+
+ /; loop (i > 0) [i = i / 16]
+ int n = i % 16
+ /; if (n > 9)
+ out.push_char('a' + n - 10)
+ ;; else
+ out.push_char('0' + n)
+ ;/
+ ;/
+
+ /; if (out.count < 3)
+ out.push_char('0')
+ ;; else
+ ~uint8 str = out.as_cstr()
+ reverse_str(str + 2)
+ ;/
+
+ return out.as_cstr()
+;/
+
+/; int_to_str(int i) [~uint8]
+ Vector out
+ out.init(1)
+
+ /; if (i < 0)
+ out.push_char('-')
+ i = 0 - i
+ ;/
+
+ /; loop (i > 0) [i = i / 10]
+ int n = i % 10
+ out.push_char('0' + n)
+ ;/
+
+ /; if (out.count < 1)
+ out.push_char('0')
+ ;/
+
+ ~uint8 str = out.as_cstr()
+ /; if (str` == '-')
+ reverse_str(str + 1)
+ ;; else
+ reverse_str(str)
+ ;/
+
+ return str
+;/
+