1 files changed, 174 insertions, 0 deletions

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);
+}