1 files changed, 0 insertions, 99 deletions
diff --git a/compiler/lex.c b/compiler/lex.c
deleted file mode 100644
index 2459881..0000000
--- a/compiler/lex.c
+++ /dev/null
@@ -1,99 +0,0 @@
-#include "lex.h"
-
-#include <string.h>
-
-#include "mem.h"
-
-inline unsigned is_space_char(char input) {
-	return input == '\t' || input == ' ' || input == '\n' || input == '\r';
-}
-
-inline unsigned is_int_char(char input) {
-	return '0' <= input && input <= '9';
-}
-
-// The number of bytes that should be read to read an integer
-unsigned char lex_int_length(char* input) {
-	unsigned char n = 0;
-	while (is_int_char(*input++)) n++;
-	return n;
-}
-
-inline unsigned is_name_char(char input) {
-	return (('A' <= input && input <= 'Z') ||
-			('a' <= input && input <= 'z') ||
-			input == '_');
-}
-
-// The number of bytes that should be read to read a name
-unsigned char lex_name_length(char* input) {
-	unsigned char n = 0;
-	while (is_name_char(*input++)) n++;
-	return n;
-}
-
-token_list* lex(token_list* list, char* input) {
-	if (input[0] == 0) {
-		return NULL;
-	}
-	
-	token_list* first_list;
-	if (list) {
-		first_list = list;
-		while (list->rest) list = list->rest;
-		list->rest = my_calloc(1, sizeof(token_list));
-		list = list->rest;
-	} else {
-		first_list = list = my_calloc(1, sizeof(token_list));
-	}
-
-	while (*input) {
-		list->elem.var = NULL;
-
-		unsigned proceed_to_next_token = 1;
-
-		switch (*input) {
-			case ';': list->elem.kind = TOKEN_SEMICOLON; break;
-			case ':': list->elem.kind = TOKEN_COLON;     break;
-			case '(': list->elem.kind = TOKEN_OPEN_P;    break;
-			case ')': list->elem.kind = TOKEN_CLOSE_P;   break;
-			case '[': list->elem.kind = TOKEN_OPEN_SQ;   break;
-			case ']': list->elem.kind = TOKEN_CLOSE_SQ;  break;
-			case '=': list->elem.kind = TOKEN_EQUALS;    break;
-			case ',': list->elem.kind = TOKEN_COMMA;     break;
-	
-			default:
-				if (is_int_char(*input)) {
-					list->elem.kind = TOKEN_INT;
-					unsigned char len = lex_int_length(input);
-					char* s = my_calloc(1, len + 1);
-					list->elem.var = my_calloc(1, sizeof(int));
-					strncpy(s, input, len);
-					*((int*) list->elem.var) = atoi(s);
-					my_free(s);
-					input += len - 1;
-				} else if (is_name_char(*input)) {
-					list->elem.kind = TOKEN_NAME;
-					unsigned char len = lex_name_length(input);
-					list->elem.var = my_calloc(1, len + 1);
-					strncpy(list->elem.var, input, len);
-					input += len - 1;
-				} else if (is_space_char(*input)) {
-					proceed_to_next_token = 0;
-				} else {
-					free_token_list(first_list);
-					my_free(first_list);
-					return NULL;
-				}
-		}
-
-		input++;
-
-		if (*input && proceed_to_next_token) {
-			list->rest = my_calloc(1, sizeof(token_list));
-			list = list->rest;
-		}
-	}
-
-	return first_list;
-}