Nothing works.

src/ast.c

@@ -1,6 +1,7 @@
 #include <stdio.h>
 
 #include "include/ast.h"
+#include "include/dstr.h"
 #include "include/util.h"
 
 extern AST* root;
@@ -29,15 +30,30 @@ void ast_destroy(AST* ast) {
     }
 }
 
-void ast_print(AST* ast) {
+void ast_print(AST* ast) { ast_print_i(ast, 0); }
-    log_dbgf("Tree type: %s", asttype_names[ast->type]);
-    fflush(stdout);
-}
 
+void ast_print_i(AST* ast, int i) {
+    INDENT_BEGIN(i);
+
+    INDENT_TITLE("AST", ast);
+    INDENT_FIELD("type", "%s", asttype_names[ast->type]);
+    INDENT_FIELD_EXT_NONL_START("data");
+    switch (ast->type) {
+    case AST_TYPE_NUM:
+        printf("%s  %lf\n", INDENT_spacing->buf, *(ASTNumData*)ast->data);
+        break;
+    case AST_TYPE_CALL: ast_call_print(ast->data, i + 2); break;
+    default:            exit(1);
+    }
+    INDENT_FIELD_NONL_END;
+    INDENT_END;
+}
 
 ASTNumData* ast_num_data_init(double val) {
     talloc(ASTNumData, num);
 
+    log_dbgf("val: %lf", val);
+
     *num = val;
 
     return num;
@@ -47,9 +63,19 @@ void ast_num_data_destroy(ASTNumData* num) {
     if (!num) return free(num);
 }
 
+void ast_num_print(ASTNumData* data, int i) {
+    INDENT_BEGIN(i);
+
+    INDENT_FIELD("data", "%lf", *data);
+
+    INDENT_END;
+}
+
 ASTCallData* ast_call_data_init(char* to, size_t argc, AST** argv) {
     talloc(ASTCallData, call);
 
+    log_dbgf("to: %s", to);
+
     call->to = to;
     call->argc = argc;
     call->argv = argv;
@@ -62,3 +88,14 @@ void ast_call_data_destroy(ASTCallData* call) {
     for (size_t i = 0; i < call->argc; i++) free(call->argv[i]);
     free(call);
 }
+
+void ast_call_print(ASTCallData* data, int i) {
+    INDENT_BEGIN(i);
+
+    INDENT_TITLE("ASTCallData", data);
+    INDENT_FIELD("to", "%s", data->to);
+    INDENT_FIELD("argc", "%ld", data->argc);
+    INDENT_FIELD_LIST("argv", data->argv, data->argc, ast_print_i);
+
+    INDENT_END;
+}

src/exec.c

@@ -7,26 +7,35 @@
 
 extern AST* root;
 
-void exec_expr() {
+ASTNumData exec_expr(AST* ast) {
-    ast_print(root);
+    ast_print(ast);
     log_dbg("Started execution.");
-    switch (root->type) {
+    switch (ast->type) {
-    case AST_TYPE_CALL: exec_call(); break;
+    case AST_TYPE_CALL: return exec_call(ast);
+    case AST_TYPE_NUM:
+        exec_print(*(ASTNumData*)ast->data);
+        return *(ASTNumData*)ast->data;
     default: printf("what\n");
     }
 }
 
-void exec_call() {
+ASTNumData exec_call(AST* ast) {
     log_dbg("Started call execution.");
     fflush(stdout);
-    ASTCallData* calldata = (ASTCallData*)root->data;
+    ASTCallData* calldata = (ASTCallData*)ast->data;
     if (!strcmp(calldata->to, "+") && calldata->argc == 2) {
 
+        /*
         ASTNumData* n1 = (ASTNumData*)calldata->argv[0]->data;
         ASTNumData* n2 = (ASTNumData*)calldata->argv[1]->data;
+        */
 
-        exec_return(*n1 + *n2);
+        ASTNumData n1 = exec_expr(calldata->argv[0]);
+        ASTNumData n2 = exec_expr(calldata->argv[1]);
+
+        return n1 + n2;
     }
+    return -1000;
 }
 
-void exec_return(double n) { printf("= %lf\n", n); }
+void exec_print(double n) { printf("= %lf\n", n); }

src/grammar.y

@@ -42,6 +42,17 @@ exp:
             ast_init(AST_TYPE_NUM, ast_num_data_init($3))
         };
         $$ = ast_init(AST_TYPE_CALL, ast_call_data_init("+", 2, argv));
+    }
+    /*| NUM PLUS exp {
+        AST* argv[2] = {
+            ast_init(AST_TYPE_NUM, ast_num_data_init($1)),
+            $3
         };
+        $$ = ast_init(AST_TYPE_CALL, ast_call_data_init("+", 2, argv));
+    }
+    | exp PLUS exp {
+        AST* argv[2] = { $1, $3 };
+        $$ = ast_init(AST_TYPE_CALL, ast_call_data_init("+", 2, argv));
+    };*/
 
 %%

src/include/ast.h

@@ -17,11 +17,13 @@ typedef struct {
 AST* ast_init(ASTType type, void* data);
 void ast_destroy(AST* ast);
 void ast_print(AST* ast);
+void ast_print_i(AST* ast, int i);
 
 typedef double ASTNumData;
 
 ASTNumData* ast_num_data_init(double val);
 void ast_num_data_destroy(ASTNumData* num);
+void ast_num_print(ASTNumData*, int i);
 
 typedef struct {
     char* to;       // What the call's to.
@@ -31,5 +33,6 @@ typedef struct {
 
 ASTCallData* ast_call_data_init(char* to, size_t argc, AST** argv);
 void ast_call_data_destroy(ASTCallData* call);
+void ast_call_print(ASTCallData*, int i);
 
 #endif

src/include/exec.h

@@ -1,8 +1,10 @@
 #ifndef EXEC_H
 #define EXEC_H
 
-void exec_expr();
+#include "ast.h"
-void exec_call();
+
-void exec_return(double n);
+ASTNumData exec_expr(AST* ast);
+ASTNumData exec_call(AST* ast);
+void exec_print(double n);
 
 #endif

src/include/token.h

@@ -1,39 +0,0 @@
-#ifndef TOKEN_H
-#define TOKEN_H
-
-#include <stdlib.h>
-
-typedef enum {
-    TOKEN_TYPE_CALL,
-    TOKEN_TYPE_NUMBER,
-    TOKEN_TYPE_MAX = TOKEN_TYPE_NUMBER,
-} TokenType;
-
-// Token.
-typedef struct {
-    TokenType type; // The type of the Token.
-    size_t valn;    // The length of val.
-    char* val;      // The text of the Token.
-    size_t len;     // Length of the text of the Token.
-} Token;
-
-Token* token_init(TokenType type, char* val, size_t valn);
-void token_destroy(Token* token);
-
-// Prints out a representation of the Token.
-void token_print(Token* token);
-
-// Prints out a representation of the Token, with the specified indent level.
-void token_print_i(Token* token, int ilevel);
-
-// Prints out a representation of the TokenType.
-void tokentype_print(TokenType t);
-
-// Prints out a representation of the TokenType, with the specified indent
-// level.
-void tokentype_print_i(TokenType t, int ilevel);
-
-// Prints a token's type. That's it.
-void tokentype_print_raw(TokenType t);
-
-#endif

src/include/util.h

@@ -50,7 +50,7 @@
 
 // Print & indent the title of a section.
 #define INDENT_TITLE(THING, WHERE)                                             \
-    printf("%s" COL_BCYA THING " @ %p\n" COL_RESET, INDENT_spacing->buf, WHERE);
+    printf("%s" COL_BCYA THING COL_RESET " @" COL_MAG " %p\n" COL_RESET, INDENT_spacing->buf, WHERE);
 
 // Print & indent a thing.
 #define INDENT_FIELD(FIELD, VAL, ...)                                          \
@@ -64,8 +64,8 @@
            INDENT_spacing->buf, INDENT_spacing->buf, __VA_ARGS__);
 
 // Print & indent a thing without any newline.
-#define INDENT_FIELD_NONL_START(FIELD)                                         \
+#define INDENT_FIELD_EXT_NONL_START(FIELD)                                         \
-    printf("%s " COL_BWHI FIELD ": " COL_RESET COL_WHI, INDENT_spacing->buf);
+    printf("%s " COL_BWHI FIELD ":\n" COL_RESET COL_WHI, INDENT_spacing->buf);
 #define INDENT_FIELD_NONL_END printf( "\n" COL_RESET);
 
 // Print an array A of N things, by calling the function F.

src/lexer.c

@@ -15,6 +15,7 @@ int acc_int(int c) {
 }
 
 double acc_float(int c) {
+    int dplaces = 0;
     double value = (double)(c - '0');
 
     // Grab everything prior to '.'.
@@ -24,13 +25,17 @@ double acc_float(int c) {
     }
 
     if (*inp ==  '.') {
-        char* oinp = inp++;
+        inp++;
+
         while (isdigit(*inp)) {
             // TODO:
             // Accumulate as int, divide once at end.
-            value = value + (((double)(*inp - '0'))/pow(10.0l, (double)(inp-oinp))); // Accumulate value.
+            // value = value + (((double)(*inp - '0'))/pow(10.0l, (double)(inp-oinp))); // Accumulate value.
+            value = value * 10 + (*inp - '0'); // Accumulate value.
+            dplaces++;
             inp++;
         }
+        value = value / pow(10, dplaces);
     }
 
     // > 1.20000
@@ -66,4 +71,4 @@ int yylex() {
 
     return 0;
 }
-void yyerror(char const* s) { fprintf(stderr, "Syntax error:\n%s\n", s); }
+void yyerror(char const* s) { fprintf(stderr, "Parse error: %s\n", s); }

src/main.c

@@ -48,7 +48,8 @@ int main(int argc, char** argv) {
             else
                 printf("Parse error.\n");
 
-            exec_expr();
+            //exec_expr(root);
+            ast_print(root);
         }
 
         dstr_destroy(ln);

src/token.c

@@ -1,62 +0,0 @@
-#include <stdio.h>
-
-#include "include/token.h"
-#include "include/dstr.h"
-#include "include/util.h"
-
-static char* tokentype_names[] = {
-    [TOKEN_TYPE_CALL] = "CALL",
-    [TOKEN_TYPE_NUMBER] = "NUMBER",
-};
-
-Token* token_init(TokenType type, char* val, size_t valn) {
-    Token* t = malloc(sizeof(Token));
-
-    t->type = type;
-    t->valn = valn;
-    t->val = val;
-
-    return t;
-}
-
-void token_destroy(Token* t) {
-    free(t->val);
-    free(t);
-}
-
-void token_print(Token* token) { token_print_i(token, 0); }
-
-void token_print_i(Token *token, int ilvl) {
-    INDENT_BEGIN(ilvl);
-
-    INDENT_TITLE("Token", token);
-    INDENT_FIELD_NONL_START("type")
-        tokentype_print_raw(token->type);
-    INDENT_FIELD_NONL_END
-    INDENT_FIELD("valn", "%ld", token->valn); 
-    INDENT_FIELD_NL("val", "\"%s\"", token->val);
-}
-
-void tokentype_print_raw(TokenType t) {
-    if (t > TOKEN_TYPE_MAX) {
-        printf("Unknown (%d)", t);
-        log_dbgf("%d is not a valid TokenType (max: %d)", t, TOKEN_TYPE_MAX);
-        return;
-    }
-
-    printf("%s", tokentype_names[t]);
-}
-
-void tokentype_print(TokenType t) { tokentype_print_i(t, 0); }
-
-void tokentype_print_i(TokenType t, int i) {
-    INDENT_BEGIN(i);
-
-    if (t > TOKEN_TYPE_MAX) {
-        INDENT_FIELD("val", "Unknown (%d)", t);
-        log_dbgf("%d is not a valid TokenType (max: %d)", t, TOKEN_TYPE_MAX);
-        return;
-    }
-
-    INDENT_FIELD("val", "%s", tokentype_names[t]);
-}