shitty ptrs

build.sh

@@ -5,7 +5,7 @@ FILENAME="$1"
 ./target/release/sloth std/extern.sloth std/stdmath.sloth std/stdio.sloth $FILENAME
 
 # Generate binary
-clang -lm output.o std/stdsocket.c std/stdio.c std/stdlib.c std/stdmath.c -o "${FILENAME%.sloth}"
+clang -lm output.o std/stdsocket.c std/stdio.c std/stdlib.c std/stdmath.c std/stdmem.c -o "${FILENAME%.sloth}"
 
 # Move file
 mv "${FILENAME%.sloth}" out/

examples/cgol.sloth

@@ -1,7 +1,7 @@
 fn populate() [Int]
 {
 	# Initialize life vector
-	var life: [Int] = [1];
+	var life: [Int] = ["Hello World"];
 	vpopi(life);
 
 	# Fill the vector with random values

examples/mem.sloth

@@ -0,0 +1,9 @@
+fn main() {
+  var intpointer: Int = memalloc(64);
+  println("We vibin");
+  assignrefi(intpointer, 10);
+  println("Still vibin");
+  var derefd: Int = drefi(intpointer);
+  print("Val of drefd: ");
+  println(istr(derefd));
+}

sloth/src/codegen/mod.rs

@@ -556,6 +556,7 @@ impl<'ctx> Codegen<'ctx> {
                             "",
                         )
                     };
+
                     self.builder.build_store(value_ptr, value);
                 }
 

std/extern.sloth

@@ -26,3 +26,8 @@ foreign fn clientsock(port: Int, addr: String) Int;
 foreign fn closesock(soc: Int, server:Bool);
 foreign fn sendsock(msg: String, soc: Int);
 foreign fn recvsock(soc: Int) String;
+
+#stdmem
+foreign fn memalloc(size: Int) Int;
+foreign fn drefi(loc: Int) Int;
+foreign fn assignrefi(loc: Int, num: Int);

std/stdmem.c

@@ -0,0 +1,20 @@
+#include <stdint.h>
+#include <stdio.h>
+#include <stdlib.h>
+char *heap[100000];
+int heaploc = 0;
+
+int memalloc(int size) {
+  const int chunk = heaploc;
+  heap[heaploc++] = malloc(size);
+  printf("MEMALLOC: heap[%d]\n", chunk);
+  return chunk;
+}
+int drefi(int loc) {
+  printf("DREF: *heap[%d] = %d\n", loc, *heap[loc]);
+  return *heap[loc];
+}
+void assignrefi(int loc, int num) {
+  *heap[loc] = num;
+  printf("ASSREF: *heap[%d] = %d\n", loc, *heap[loc]);
+}