All tests passing, repl builds successfully

repl/lib_standard.c

@@ -18,7 +18,7 @@ static int nativeClock(Interpreter* interpreter, LiteralArray* arguments) {
 
 	//push to the stack
 	int len = strlen(timestr) - 1; //-1 for the newline
-	Literal timeLiteral = TO_STRING_LITERAL(copyString(timestr, len), len);
+	Literal timeLiteral = TO_STRING_LITERAL(createRefStringLength(timestr, len));
 
 	//push to the stack
 	pushLiteralArray(&interpreter->stack, timeLiteral);
@@ -57,7 +57,7 @@ int hookStandard(Interpreter* interpreter, Literal identifier, Literal alias) {
 
 		//load the dict with functions
 		for (int i = 0; natives[i].name; i++) {
-			Literal name = TO_STRING_LITERAL(copyString(natives[i].name, strlen(natives[i].name)), strlen(natives[i].name));
+			Literal name = TO_STRING_LITERAL(createRefStringLength(natives[i].name, strlen(natives[i].name)));
 			Literal func = TO_FUNCTION_LITERAL((void*)natives[i].fn, 0);
 			func.type = LITERAL_FUNCTION_NATIVE;
 

repl/lib_timer.c

@@ -292,12 +292,12 @@ static int nativeTimerToString(Interpreter* interpreter, LiteralArray* arguments
 	if (timer->tv_sec == 0 && timer->tv_usec < 0) { //special case, for when the negative sign is encoded in the usec
 		char buffer[128];
 		snprintf(buffer, 128, "-%ld.%06ld", timer->tv_sec, -timer->tv_usec);
-		resultLiteral = TO_STRING_LITERAL( copyString(buffer, strlen(buffer)), strlen(buffer));
+		resultLiteral = TO_STRING_LITERAL(createRefStringLength(buffer, strlen(buffer)));
 	}
 	else { //normal case
 		char buffer[128];
 		snprintf(buffer, 128, "%ld.%06ld", timer->tv_sec, timer->tv_usec);
-		resultLiteral = TO_STRING_LITERAL( copyString(buffer, strlen(buffer)), strlen(buffer));
+		resultLiteral = TO_STRING_LITERAL(createRefStringLength(buffer, strlen(buffer)));
 	}
 
 	pushLiteralArray(&interpreter->stack, resultLiteral);
@@ -374,7 +374,7 @@ int hookTimer(Interpreter* interpreter, Literal identifier, Literal alias) {
 
 		//load the dict with functions
 		for (int i = 0; natives[i].name; i++) {
-			Literal name = TO_STRING_LITERAL(copyString(natives[i].name, strlen(natives[i].name)), strlen(natives[i].name));
+			Literal name = TO_STRING_LITERAL(createRefStringLength(natives[i].name, strlen(natives[i].name)));
 			Literal func = TO_FUNCTION_LITERAL((void*)natives[i].fn, 0);
 			func.type = LITERAL_FUNCTION_NATIVE;
 

repl/repl_main.c

@@ -50,15 +50,15 @@ void repl() {
 		ASTNode* node = scanParser(&parser);
 		while(node != NULL) {
 			//pack up and restart
-			if (node->type == AST_NODEERROR) {
+			if (node->type == AST_NODE_ERROR) {
 				printf(ERROR "error node detected\n" RESET);
 				error = true;
-				freeNode(node);
+				freeASTNode(node);
 				break;
 			}
 
 			writeCompiler(&compiler, node);
-			freeNode(node);
+			freeASTNode(node);
 			node = scanParser(&parser);
 		}
 

repl/repl_tools.c

@@ -78,16 +78,16 @@ unsigned char* compileString(char* source, size_t* size) {
 	ASTNode* node = scanParser(&parser);
 	while(node != NULL) {
 		//pack up and leave
-		if (node->type == AST_NODEERROR) {
+		if (node->type == AST_NODE_ERROR) {
 			printf(ERROR "error node detected\n" RESET);
-			freeNode(node);
+			freeASTNode(node);
 			freeCompiler(&compiler);
 			freeParser(&parser);
 			return NULL;
 		}
 
 		writeCompiler(&compiler, node);
-		freeNode(node);
+		freeASTNode(node);
 		node = scanParser(&parser);
 	}
 

test/makefile

@@ -4,27 +4,7 @@ IDIR +=. ../source ../repl
 CFLAGS +=$(addprefix -I,$(IDIR)) -g -Wall -W -Wno-unused-parameter -Wno-unused-function -Wno-unused-variable
 LIBS +=
 ODIR = obj
-
+TARGETS = $(wildcard ../source/*.c) $(wildcard ../repl/lib_*.c)
-#TARGETS = $(wildcard ../source/*.c) $(wildcard ../repl/lib_*.c)
-
-#literal primitives
-TARGETS+=../source/memory.c ../source/refstring.c ../source/literal.c ../source/literal_array.c ../source/literal_dictionary.c ../source/scope.c
-
-#lexer
-TARGETS+=../source/toy_common.c ../source/keyword_types.c ../source/lexer.c
-
-#ast primitives
-TARGETS+=../source/ast_node.c
-
-#parser
-TARGETS+=../source/parser.c
-
-#compiler
-TARGETS+=../source/compiler.c
-
-#interpreter
-TARGETS+=../source/interpreter.c ../source/builtin.c
-
 TESTS = $(wildcard test_*.c)
 OBJ = $(addprefix $(ODIR)/,$(TARGETS:../source/%.c=%.o)) $(addprefix $(ODIR)/,$(TESTS:.c=.o))
 

test/test_call_from_host.c

@@ -64,16 +64,16 @@ unsigned char* compileString(char* source, size_t* size) {
 	ASTNode* node = scanParser(&parser);
 	while(node != NULL) {
 		//pack up and leave
-		if (node->type == AST_NODEERROR) {
+		if (node->type == AST_NODE_ERROR) {
 			printf(ERROR "error node detected\n" RESET);
-			freeNode(node);
+			freeASTNode(node);
 			freeCompiler(&compiler);
 			freeParser(&parser);
 			return NULL;
 		}
 
 		writeCompiler(&compiler, node);
-		freeNode(node);
+		freeASTNode(node);
 		node = scanParser(&parser);
 	}
 

test/test_libraries.c

@@ -79,16 +79,16 @@ unsigned char* compileString(char* source, size_t* size) {
 	ASTNode* node = scanParser(&parser);
 	while(node != NULL) {
 		//pack up and leave
-		if (node->type == AST_NODEERROR) {
+		if (node->type == AST_NODE_ERROR) {
 			printf(ERROR "error node detected\n" RESET);
-			freeNode(node);
+			freeASTNode(node);
 			freeCompiler(&compiler);
 			freeParser(&parser);
 			return NULL;
 		}
 
 		writeCompiler(&compiler, node);
-		freeNode(node);
+		freeASTNode(node);
 		node = scanParser(&parser);
 	}
 

test/test_opaque_data_type.c

@@ -62,16 +62,16 @@ unsigned char* compileString(char* source, size_t* size) {
 	ASTNode* node = scanParser(&parser);
 	while(node != NULL) {
 		//pack up and leave
-		if (node->type == AST_NODEERROR) {
+		if (node->type == AST_NODE_ERROR) {
 			printf(ERROR "error node detected\n" RESET);
-			freeNode(node);
+			freeASTNode(node);
 			freeCompiler(&compiler);
 			freeParser(&parser);
 			return NULL;
 		}
 
 		writeCompiler(&compiler, node);
-		freeNode(node);
+		freeASTNode(node);
 		node = scanParser(&parser);
 	}