wip arrays

compiler.c

@@ -676,6 +676,27 @@ grouping()
 	consume(TOKEN_RPAREN);
 }
 
+
+void calculate_strides(i32* dims, i32 num_dims, i32* out_strides) {
+    int current_stride = 1;
+    
+    for (int i = num_dims - 1; i >= 0; i--) {
+        out_strides[i] = current_stride;
+        current_stride *= dims[i];
+    }
+}
+
+void
+define_array()
+{
+	/* example
+	i32 dims[3] = {3, 3, 3};
+    i32 strides[3];
+    
+    calculate_strides(dims, 3, strides);
+	*/
+}
+
 void
 number()
 {

emit/uxn/lib/undar.c

@@ -82,3 +82,64 @@ nat_to_int(unsigned n)
 {
     return (int)n;
 }
+
+int
+int_add(int a, int b)
+{
+	return a + b;
+}
+int
+int_sub(int a, int b)
+{
+	return a - b;
+}
+int
+int_mul(int a, int b)
+{
+	return a * b;
+}
+int
+int_div(int a, int b)
+{
+	return a / b;
+}
+int
+int_eq(int a, int b)
+{
+	return a == b;
+}
+int
+int_ne(int a, int b)
+{
+	return a != b;
+}
+int
+int_lt(int a, int b)
+{
+	return a < b;
+}
+int
+int_le(int a, int b)
+{
+	return a <= b;
+}
+int
+int_gt(int a, int b)
+{
+	return a > b;
+}
+int
+int_ge(int a, int b)
+{
+	return a >= b;
+}
+int
+int_neg(int f)
+{
+	return -f;
+}
+int
+int_abs(int f)
+{
+	return (f < 0) ? -f : f;
+}

emit/uxn/lib/undar.tal

@@ -147,6 +147,120 @@
   &return
     POP2r JMP2r
 
+@int_add_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 STH2kr LDA2 ADD2 !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_sub_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 STH2kr LDA2 SUB2 !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_mul_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 STH2kr LDA2 MUL2 !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_div_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 STH2kr LDA2 sdiv
+    !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_eq_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 STH2kr LDA2 EQU2 #00 SWP !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_ne_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 STH2kr LDA2 NEQ2 #00 SWP !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_lt_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 #8000 EOR2 STH2kr LDA2 #8000 EOR2 LTH2 #00 SWP !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_le_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr INC2 INC2 LDA2 #8000 EOR2 STH2kr LDA2 #8000 EOR2 GTH2 #00 SWP #01 EOR !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_gt_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr LDA2 #8000 EOR2 STH2kr INC2 INC2 LDA2 #8000 EOR2 LTH2 #00 SWP !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_ge_ ( b* a* -- result* )
+    OVR2r LIT2r 0004 SUB2r STH2kr INC2 INC2 STA2
+    STH2kr STA2
+    STH2kr LDA2 #8000 EOR2 STH2kr INC2 INC2 LDA2 #8000 EOR2 GTH2 #00 SWP #01 EOR !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_neg_ ( f* -- result* )
+    OVR2r LIT2r 0002 SUB2r STH2kr STA2
+    #0000 STH2kr LDA2 SUB2 !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+
+@int_abs_ ( f* -- result* )
+    OVR2r LIT2r 0002 SUB2r STH2kr STA2
+    STH2kr LDA2 #8000 EOR2 #8000 LTH2 ?&then.1
+    STH2kr LDA2 !&end.1
+
+  &then.1
+    #0000 STH2kr LDA2 SUB2
+
+  &end.1
+    !&return
+    #0000
+
+  &return
+    POP2r JMP2r
+    
 @str/<print> ( str* -- )
     LDAk DUP ?{ POP POP2 JMP2r }
     #18 DEO

test/add.ul

@@ -1,7 +1,5 @@
-
-function main() {
 print(add(1, 1) as str);
-}
+halt;
 
 /**
  * Add two numbers together

test/bang.ul

@@ -3,3 +3,5 @@ bool flag = false;
 if (!flag) {
     print("flag is false");
 }
+
+halt;

test/fib.ul

@@ -1,6 +1,5 @@
-function main() {
 print(fib(23) as str);
-}
+halt;
 
 /**
  * Recursively calculate fibonacci

test/for.ul

@@ -1,9 +1,11 @@
 nat i = 0;
 
-for (nat x in [0..10]) {
+//for (nat x in [0..10]) {
-    print(x as str);
+//    print(x as str);
-}
+//}
 
 for (nat j = 0; j < 10; j = j + 1) {
     print(j as str);
 }
+
+halt;

test/global.ul

@@ -1,6 +1,4 @@
 int i = 122;
 int j = 32;
-
+print((i - j) as str);
-function main() {
+halt;
-    putchar((i - j));
-}

test/if.ul

@@ -1,4 +1,3 @@
-function main() {
 nat x = 20;
 
 if (x == 10) {
@@ -8,4 +7,3 @@ function main() {
 } else {
     print("x is something else");
 }
-}

test/local.ul

@@ -1,6 +1,9 @@
-function main() {
+local_fn();
+halt;
+
+function local_fn() {
     int i = 122;
     int j = 32;
 
-    putchar((i - j)); // prints ascii `Z`
+    printf((i - j));
 }

test/malloc.ul

@@ -1,9 +1,4 @@
-/**
- * Main function
- */
-function main() {
 print("Enter a string: ");
 str msg = read(32);
 print(msg);
 return 0;
-}

test/paint.ul

@@ -34,10 +34,6 @@ plex Mouse implements Device {
   bool btn4;
 }
 
-/**
- * Main function
- */
-function main() {
 Screen screen = open("/dev/screen/0", 0);
 Mouse mouse = open("/dev/mouse/0", 0);
 
@@ -64,8 +60,8 @@ function main() {
   
   rectangle(screen, selected_color, x, y, 5, 5);
 }
-    exit(0);
+halt;
-}
+
 
 /**
  * Checks if the click is within the bound and update the selected color if so.

test/plex.ul

@@ -36,15 +36,13 @@ plex Rect {
     }   
 } 
 
+Rect r = create_geometry();
+print(r.toS());
+halt;
+
 function create_geometry() Rect {
     Point tl(10, 20);
     Point br(100, 50);
     Rect final_rect(tl, br, 90, 180);
     return final_rect;
 }
-
-function main() int {
-    Rect r = create_geometry();
-    print(r.toS());
-    return 0;
-}