1 files changed, 137 insertions, 0 deletions
diff --git a/comp/lucas-standen-NEA/code2/comp.c b/comp/lucas-standen-NEA/code2/comp.c
new file mode 100644
index 0000000..c11fdd8
--- /dev/null
+++ b/comp/lucas-standen-NEA/code2/comp.c
@@ -0,0 +1,137 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "tokenizer.h"
+
+char *names[] = {
+	"defun", // takes a func name, func return type, and args // 0
+	"endfun", // takes no args // 1
+	"let", // takes a name and type, then a value (immutable) // 2
+	"set", // same as above but mutable values // 3
+	"if", // takes a condition // 4
+	"endif", // takes no args  // 5
+	"elif", // same as if, but only executes if the prev statment didnt // 6
+	"else", // its else! //
+	"for", // takes a iterator and type, a condition, and an increment // 8
+	"endfor", // takes no args // 9
+	"write", // takes an int and puts it on the screen // 10
+	"symbol",
+	"+",
+	"-",
+	"*",
+	"/",
+	"=",
+	"!=",
+	"<",
+	">",
+	"<=",
+	">=",
+	"cast",
+	"typeof",
+	"exit",
+	"return",
+};
+
+void vartypeToC(char *str){
+	char *name = malloc(strlen(str));
+	char *type = malloc(strlen(str));
+	
+	int j = 0, i = 0;
+
+	for (; i < strlen(str); i++){
+		if (str[i] == ':'){
+			break;
+		}
+		name[i] = str[i];
+	}
+	name[i] = '\0';
+	i++;
+
+	for (; i < strlen(str); i++){
+		if (str[i] == ':'){
+			break;
+		}
+		type[j] = str[i];
+		j++;
+	}
+	type[j] = '\0';
+
+	printf("%s %s", type, name);
+	free(type);
+	free(name);
+}
+
+char *getVarName(char *exp){
+	char *out = malloc(strlen(exp));
+	memcpy(out, exp, strlen(exp));
+	char *pos = strchr(out, ':');
+	pos[0] = '\0';
+	return out;
+}
+
+void reversepolishToC(astNode *exp){
+	printf("%s ", exp->args[0]);
+	if (exp->func[0] == '=') printf("==");
+	else printf("%s", exp->func);
+	printf(" %s", exp->args[1]);
+}
+
+void compile(astNode *node){
+	if (strcmp(names[0], node->func) == 0){
+		printf("%s %s(", node->args[1], node->args[0]);
+		int i = 2;
+		while (node->args[i] != NULL){
+			vartypeToC(node->args[i]);
+			i++;
+		}
+		printf("){\n");
+	}
+	else if (strcmp(names[1], node->func) == 0){
+		printf("\n}\n");
+	}
+	else if (strcmp(names[2], node->func) == 0){
+		printf("const ");
+		vartypeToC(node->args[0]);
+		printf(" = %s;\n", node->args[1]);
+	}
+	else if (strcmp(names[3], node->func) == 0){
+		vartypeToC(node->args[0]);
+		printf(" = %s;\n", node->args[1]);
+	}
+	else if (strcmp(names[4], node->func) == 0){
+		printf("if (");
+		reversepolishToC(node->children[0]);
+		printf("){\n");
+	}
+	else if (strcmp(names[5], node->func) == 0){
+		printf("\n}\n");
+	}
+	else if (strcmp(names[6], node->func) == 0){
+		printf("\n}\n");
+		printf("else if (");
+		reversepolishToC(node->children[0]);
+		printf("){\n");
+	}
+	else if (strcmp(names[7], node->func) == 0){
+		printf("\n}\n");
+		printf("else{");
+	} 
+	else if (strcmp(names[8], node->func) == 0){
+		printf("for (");
+		vartypeToC(node->args[0]);
+		printf(" = 0;");
+		reversepolishToC(node->children[1]);
+		printf("; %s+=%s){", getVarName(node->args[0]), node->args[2]);
+	} 
+	else if (strcmp(names[9], node->func) == 0){
+		printf("\n}\n");
+	}
+	else if (strcmp(names[10], node->func) == 0){
+		printf("printf(\"");
+		printf("%%d\\n");
+		printf("\", %s);", node->args[0]);
+		
+	}
+
+}