From f44f1f8c7ef7b6266667dce76db686af3258adfc Mon Sep 17 00:00:00 2001
From: jdlugosz963 <jdlugosz963@gmail.com>
Date: Wed, 1 Mar 2023 23:30:31 +0100
Subject: Build simple abstract syntax tree

---
 parser.c | 174 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 174 insertions(+)
 create mode 100644 parser.c

(limited to 'parser.c')

diff --git a/parser.c b/parser.c
new file mode 100644
index 0000000..574d2ac
--- /dev/null
+++ b/parser.c
@@ -0,0 +1,174 @@
+#include "parser.h"
+#include "lexer.h"
+#include "types.h"
+#include <stdio.h>
+
+
+LISP_OBJECT *parser_parse_str(char *str)
+{
+	Lexer *lexer = lexer_tokenize(str);
+	lexer_tokens_reverse(lexer);
+
+	Token *token = lexer->tokens;
+	LISP_OBJECT *lisp_obj = NULL;
+	lisp_obj = parser_parse_tokens(&token);
+
+	lexer_free(lexer);
+
+	return lisp_obj;
+}
+
+LISP_OBJECT *parser_parse_tokens(Token **token)
+{
+	LISP_OBJECT *lisp_obj = NULL;
+	switch((*token)->type)
+	{
+	case TOKEN_TYPE_SPECIAL:
+		lisp_obj = parser_make_list(token);
+		break;
+	case TOKEN_TYPE_NUMBER:
+		lisp_obj = parser_make_number(token);
+		break;
+	case TOKEN_TYPE_STRING:
+		lisp_obj = parser_make_string(token);
+		break;
+	case TOKEN_TYPE_SYMBOL:
+		lisp_obj = parser_make_symbol(token);
+		break;
+	case TOKEN_TYPE_TRUE:
+		lisp_obj = parser_make_true(token);
+		break;
+	case TOKEN_TYPE_FALSE:
+		lisp_obj = parser_make_false(token);
+		break;
+	case TOKEN_TYPE_NIL:
+		lisp_obj = parser_make_nil(token);
+		break;
+	case TOKEN_TYPE_ERROR:
+		lisp_obj = lisp_object_make_error((*token)->value);
+		*token = (*token)->next;
+		break;
+	default:
+		*token = (*token)->next;
+		lisp_obj = lisp_object_make_error("Something bad happenend!");
+	}
+	return lisp_obj;
+}
+
+LISP_OBJECT *parser_make_list(Token **token)
+{
+	LISP_OBJECT *lisp_list_obj = lisp_object_make_list();
+	char close_delimiter = ( *(*token)->value == '(' ) ? ')' : ']';
+	*token = (*token)->next;
+	int is_close_delimiter = 1;
+
+	while(*token)
+	{
+		if((*token)->type==TOKEN_TYPE_SPECIAL &&
+		   *(*token)->value==close_delimiter)
+		{
+			is_close_delimiter=0;
+			*token=(*token)->next;
+			break;
+		}
+
+		lisp_object_list_push(lisp_list_obj,
+				      (void *)parser_parse_tokens(token));
+
+	}
+
+
+	List *list = list_reverse(lisp_list_obj->value.list);
+	lisp_list_obj->value.list = list;
+
+	if(is_close_delimiter != 0)
+	{
+		LISP_OBJECT *err_msg = lisp_object_make_error("Unbalanced parenthesis!");
+		lisp_object_list_push(lisp_list_obj, err_msg);
+	}
+
+        return lisp_list_obj;
+}
+
+
+LISP_OBJECT *parser_make_number(Token **token)
+{
+	LISP_OBJECT *lisp_obj = NULL;
+	char *number_str = (*token)->value;
+	union
+	{
+		long long natural;
+		double floating;
+		
+	} number;
+
+	if((*token)->is_decimal_point)
+	{
+		sscanf(number_str, "%lf", &number.floating);
+		lisp_obj = lisp_object_make_number_float(number.floating);
+	}
+	else
+	{
+		sscanf(number_str, "%lld", &number.natural);
+		lisp_obj = lisp_object_make_number_natural(number.natural);
+	}
+
+
+	*token=(*token)->next;
+	return lisp_obj;
+}
+
+LISP_OBJECT *parser_make_string(Token **token)
+{
+	char *str = (*token)->value;
+	LISP_OBJECT *lisp_obj = lisp_object_make_string(str);
+
+	*token=(*token)->next;
+	return lisp_obj;
+}
+
+LISP_OBJECT *parser_make_symbol(Token **token)
+{
+	char *str = (*token)->value;
+	LISP_OBJECT *lisp_obj = lisp_object_make_symbol(str);
+
+	*token=(*token)->next;
+	return lisp_obj;
+}
+
+LISP_OBJECT *parser_make_true(Token **token)
+{
+	LISP_OBJECT *lisp_obj = lisp_object_make_true();
+
+	*token=(*token)->next;
+	return lisp_obj;
+}
+
+LISP_OBJECT *parser_make_false(Token **token)
+{
+	LISP_OBJECT *lisp_obj = lisp_object_make_false();
+
+	*token=(*token)->next;
+	return lisp_obj;
+}
+
+
+LISP_OBJECT *parser_make_nil(Token **token)
+{
+	LISP_OBJECT *lisp_obj = lisp_object_make_nil();
+
+	*token=(*token)->next;
+	return lisp_obj;
+}
+
+int main()
+{
+	char *test = "(display (string-append \"4*3+2=\" (number->string (+ (* 4 3) 1))))";
+
+
+	LISP_OBJECT *obj = NULL;
+
+	obj = parser_parse_str(test);
+	lisp_object_print(obj, 0);
+	lisp_object_free(obj);
+}
-- 
cgit v1.2.3