summaryrefslogtreecommitdiff
path: root/tnslc
diff options
context:
space:
mode:
Diffstat (limited to 'tnslc')
-rw-r--r--tnslc/c_wrap_linux.tnsl44
-rw-r--r--tnslc/compile/compile.tnsl5
-rw-r--r--tnslc/compile/generator.tnsl0
-rw-r--r--tnslc/compile/lexer.tnsl0
-rw-r--r--tnslc/compile/tokenizer.tnsl0
-rw-r--r--tnslc/file.tnsl0
-rw-r--r--tnslc/tnslc.tnsl12
-rw-r--r--tnslc/vector.tnsl38
8 files changed, 77 insertions, 22 deletions
diff --git a/tnslc/c_wrap_linux.tnsl b/tnslc/c_wrap_linux.tnsl
index 31037db..4e7768a 100644
--- a/tnslc/c_wrap_linux.tnsl
+++ b/tnslc/c_wrap_linux.tnsl
@@ -16,7 +16,7 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Mov size into proper register, and set all extras to zero
- asm "mov rdi, r8"
+ asm "mov rdi, r10"
asm "mov rsi, 0"
asm "xor rax, rax"
@@ -24,8 +24,8 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "call malloc wrt ..plt"
# Set out to the returned value
- # (The compiler assignes spaces sequentially, and we have a uint in r8)
- asm "mov r9, rax"
+ # (The compiler assignes spaces sequentially, and we have a uint in r10)
+ asm "mov r11, rax"
return out
;/
@@ -41,16 +41,16 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Mov ptr and new size into proper registers, and set all extras to zero
- asm "mov rdi, r8"
- asm "mov rsi, r9"
+ asm "mov rdi, r10"
+ asm "mov rsi, r11"
asm "xor rax, rax"
# Do call
asm "call realloc wrt ..plt"
# Set out to the returned value
- # (The compiler assignes spaces sequentially. We have a ptr in r8, and a uint in r9)
- asm "mov r10, rax"
+ # (The compiler assignes spaces sequentially. We have a ptr in r10, and a uint in r11)
+ asm "mov r12, rax"
return out
;/
@@ -65,7 +65,7 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# setup call by clearing most values
- asm "mov rdi, r8"
+ asm "mov rdi, r10"
asm "mov rsi, 0"
asm "xor rax, rax"
@@ -85,7 +85,7 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# setup call by clearing most values
- asm "mov rdi, r8"
+ asm "mov rdi, r10"
asm "xor rsi, rsi"
asm "xor rax, rax"
@@ -105,8 +105,8 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# setup call by clearing most values
- asm "mov rdi, r8"
- asm "mov rsi, r9"
+ asm "mov rdi, r10"
+ asm "mov rsi, r11"
asm "xor rax, rax"
# do call
@@ -128,14 +128,14 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Do call
- asm "mov rdi, r8"
+ asm "mov rdi, r10"
asm "mov rsi, 0q1102"
asm "mov rdx, 0q700"
asm "call open wrt ..plt"
# Set out to the returned value
# (The compiler assignes spaces sequentially. We have a ptr in r8)
- asm "mov r9, rax"
+ asm "mov r11, rax"
return out
;/
@@ -152,14 +152,14 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Do syscall
- asm "mov rdi, r8"
+ asm "mov rdi, r10"
asm "mov rsi, 2"
asm "mov rdx, 0q700"
asm "call open wrt ..plt"
# Set out to the returned value
# (The compiler assignes spaces sequentially. We have a ptr in r8, and a uint in r9)
- asm "mov r9, rax"
+ asm "mov r11, rax"
return out
;/
@@ -174,7 +174,7 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Do syscall
- asm "mov rdi, r8"
+ asm "mov rdi, r10"
asm "call close wrt ..plt"
;/
@@ -189,13 +189,13 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Do syscall
- asm "mov rdi, r8" # handle
- asm "mov rsi, r9" # buffer
+ asm "mov rdi, r10" # handle
+ asm "mov rsi, r11" # buffer
asm "mov rdx, 1" # one byte
asm "call read wrt ..plt"
# return number of bytes read
- asm "mov r10, rax"
+ asm "mov r12, rax"
return out
;/
@@ -211,12 +211,12 @@ asm "extern malloc, realloc, free, printf, open, close, read, write"
asm "sub rsp, 128"
# Do syscall
- asm "mov rdi, r8" # handle
- asm "mov rsi, r9" # buffer
+ asm "mov rdi, r10" # handle
+ asm "mov rsi, r11" # buffer
asm "mov rdx, 1" # one byte
asm "call write wrt ..plt"
- asm "mov r10, rax"
+ asm "mov r12, rax"
return out
;/
diff --git a/tnslc/compile/compile.tnsl b/tnslc/compile/compile.tnsl
new file mode 100644
index 0000000..157969e
--- /dev/null
+++ b/tnslc/compile/compile.tnsl
@@ -0,0 +1,5 @@
+/; module compile
+ :import "tokenizer.tnsl"
+ :import "lexer.tnsl"
+ :import "generator.tnsl"
+;/
diff --git a/tnslc/compile/generator.tnsl b/tnslc/compile/generator.tnsl
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/tnslc/compile/generator.tnsl
diff --git a/tnslc/compile/lexer.tnsl b/tnslc/compile/lexer.tnsl
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/tnslc/compile/lexer.tnsl
diff --git a/tnslc/compile/tokenizer.tnsl b/tnslc/compile/tokenizer.tnsl
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/tnslc/compile/tokenizer.tnsl
diff --git a/tnslc/file.tnsl b/tnslc/file.tnsl
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/tnslc/file.tnsl
diff --git a/tnslc/tnslc.tnsl b/tnslc/tnslc.tnsl
index 993771b..56623b7 100644
--- a/tnslc/tnslc.tnsl
+++ b/tnslc/tnslc.tnsl
@@ -1,6 +1,18 @@
:import "c_wrap_linux.tnsl"
+/; module utils
+ :import "vector.tnsl"
+ :import "file.tnsl"
+;/
+
+:import "compile/compile.tnsl"
+
/; main [int]
+ utils.Vector vec
+
+ vec.init(1)
+ vec.end()
+
return 0
;/
diff --git a/tnslc/vector.tnsl b/tnslc/vector.tnsl
new file mode 100644
index 0000000..529e3a2
--- /dev/null
+++ b/tnslc/vector.tnsl
@@ -0,0 +1,38 @@
+struct Vector {
+ ~void data,
+ uint
+ count,
+ size,
+ _elsz
+}
+
+uint VECTOR_MIN_ELEMENTS = 4
+~void NULL = 0
+
+~uint8 NUM_STR = "Num %d\n\0"
+
+/; method Vector
+
+ /; init (uint elsz)
+ self._elsz = elsz
+ self.size = VECTOR_MIN_ELEMENTS
+ self.count = 0
+ self.data = _alloc(self.size * self._elsz)
+ ;/
+
+ /; get (uint index) [~void]
+ /; if (index !< self.count)
+ return NULL
+ ;/
+
+ return self.data + index * self._elsz
+ ;/
+
+ /; end
+ self.count = 0
+ self.size = 0
+ self._elsz = 0
+ _delete(self.data)
+ ;/
+;/
+