summaryrefslogtreecommitdiff
path: root/tnslc/c_wrap.tnsl
diff options
context:
space:
mode:
authorKyle Gunger <kgunger12@gmail.com>2023-05-14 01:43:58 -0400
committerKyle Gunger <kgunger12@gmail.com>2023-05-14 01:43:58 -0400
commitd850bd17e2533179bfbc2dd6cd8d0c11a43786ba (patch)
tree15dd425c4c6013983f45df5b0a9fff20afe5a7b9 /tnslc/c_wrap.tnsl
parented25b8e9740307c5de2d3e14b1ff6f85391b7953 (diff)
Windows C wrapping
Diffstat (limited to 'tnslc/c_wrap.tnsl')
-rw-r--r--tnslc/c_wrap.tnsl45
1 files changed, 30 insertions, 15 deletions
diff --git a/tnslc/c_wrap.tnsl b/tnslc/c_wrap.tnsl
index 9c0faf6..eead086 100644
--- a/tnslc/c_wrap.tnsl
+++ b/tnslc/c_wrap.tnsl
@@ -3,10 +3,15 @@ asm "extern realloc"
asm "extern free"
asm "extern printf"
+{}uint8 _alert = "Alert!"
+uint _stop = 0
+
/; _alloc (uint size) [~void]
~void out
# Mov size into proper register, and set all extras to zero
- asm "mov rcx, rax"
+ asm "mov rax, 0"
+ asm "mov rbx, 0"
+ asm "mov rcx, r8"
asm "mov rdx, 0"
asm "mov rdi, 0"
asm "mov rsi, 0"
@@ -23,8 +28,10 @@ asm "extern printf"
/; _realloc (~void ptr, uint new_size) [~void]
~void out
# Mov ptr and new size into proper registers, and set all extras to zero
- asm "mov rcx, rax"
- asm "mov rdx, rbx"
+ asm "mov rax, 0"
+ asm "mov rbx, 0"
+ asm "mov rcx, r8"
+ asm "mov rdx, r9"
asm "mov rdi, 0"
asm "mov rsi, 0"
asm "mov r8, 0"
@@ -40,6 +47,8 @@ asm "extern printf"
/; _delete (~void ptr)
# setup call by clearing most values
+ asm "mov rax, 0"
+ asm "mov rbx, 0"
asm "mov rcx, rax"
asm "mov rdx, 0"
asm "mov rdi, 0"
@@ -66,45 +75,51 @@ asm "extern printf"
# there's no more to do 'cause free returns nothing
;/
+/; print_alert
+ _printf(~_alert{0})
+;/
+
struct Vector {
uint
el_size,
num_el,
dat_size,
- ~void dat
+ ~uint8 dat
}
/; method Vector
/; resize (uint num_el)
self.dat_size = num_el
- _realloc(self.dat, num_el * self.el_size)
+ self.dat = _realloc(self.dat, num_el * self.el_size)
;/
- /; get (uint i) [~void]
+ /; get (uint i) [~uint8]
/; if (i !< self.num_el)
return self.dat
;/
return self.dat + (i * self.el_size)
;/
- /; set (uint i, ~void data)
- ~void index = self.get(i)
- /; loop (i = 0; i < self.el_size) [index = index + 1; data = data + 1; i++]
- index = data
+ /; set (uint i, ~uint8 data)
+ ~uint8 index = self.get(i)
+ /; loop (i = 0; i < self.el_size) [i++]
+ index` = data`
+ index++
+ data++
;/
;/
- /; push (~void data)
- self.num_el++
- self.set(self.num_el - 1, data)
+ /; push (~uint8 data)
+ self.set(self.num_el, data)
+ self.num_el = self.num_el + 1
/; if (self.num_el !< self.dat_size)
- self.resize(2*self.dat_size)
+ self.resize(2 * self.dat_size)
;/
;/
/; pop
- self.num_el--
+ self.num_el = self.num_el - 1
/; if (self.num_el !== 0 && self.num_el < self.dat_size / 4)
self.resize(self.dat_size / 2)
;/