path: root/src/main.c

#include <getopt.h>
#include <stdio.h>
#include <stdlib.h>

#include "badlib.h"
#include "lexer.c"

typedef enum ExecMode {
    RUN_NORMAL,
    PRINT_LEX,
    PRINT_PARSE,
    PRINT_SEMANTIC,
    PRINT_SYMTABLES,
} ExecMode;

static ExecMode mode = RUN_NORMAL;

void
init(void) {
    log_init_default();
}

void
print_token(Token tok) {
    println("%d:%d\t%s %s", tok.line, tok.col, token_str[tok.type], tok.val);
}

void
print_tokens(Str path, Token *tokens) {
    for (sz i = 0; i < array_size(tokens); i++) {
        Token tok = tokens[i];
        print("%s:", path);
        print_token(tok);
    }
}

typedef struct Parser {
    Token current;
    Token previous;
    Token *tokens;
    sz idx;
    bool err;
    bool panic;
} Parser;

typedef enum {
    PREC_NONE = 0,
    PREC_ASSIGNMENT,  // = FIXME: this may not happen in our lang?
    PREC_OR,          // ||
    PREC_AND,         // &&
    PREC_EQUALITY,    // == !=
    PREC_COMPARISON,  // < > <= >=
    PREC_TERM,        // + -
    PREC_FACTOR,      // * /
    PREC_UNARY,       // ! -
    PREC_CALL,        // . ()
    PREC_PRIMARY
} ParsePrecedence;

typedef void (*ParseFn)(Parser *);

typedef struct {
    ParseFn prefix;
    ParseFn infix;
    ParsePrecedence precedence;
} ParseRule;

void parse_expr(Parser *parser);
void parse_advance(Parser *parser);

void parse_grouping(Parser *parser);
void parse_unary(Parser *parser);
void parse_binary(Parser *parser);
void parse_number(Parser *parser);

ParseRule parse_rules[] = {
    [TOK_LPAREN] = {parse_grouping, NULL, PREC_NONE},
    [TOK_SUB] = {parse_unary, parse_binary, PREC_TERM},
    [TOK_ADD] = {NULL, parse_binary, PREC_TERM},
    [TOK_DIV] = {NULL, parse_binary, PREC_FACTOR},
    [TOK_MUL] = {NULL, parse_binary, PREC_FACTOR},
    [TOK_NUMBER] = {parse_number, NULL, PREC_NONE},
};

void
parse_emit_err(Parser *parser, Token token, Str msg) {
    if (parser->panic) {
        return;
    }
    parser->panic = true;
    parser->err = true;
    eprint("%d:%d: error: %s", token.line, token.col, msg);

    if (token.type == TOK_EOF) {
        eprintln(" -> at end of the file");
    } else if (token.type != TOK_UNKNOWN) {
        eprintln(" -> at %s", token.val);
    }
}

void
parse_advance(Parser *parser) {
    assert(parser);
    parser->previous = parser->current;
    parser->current = parser->tokens[parser->idx++];
}

static void
parse_consume(Parser *parser, TokenType type, Str msg) {
    if (parser->current.type == type) {
        parse_advance(parser);
        return;
    }
    parse_emit_err(parser, parser->current, msg);
}

static void
parse_prec(Parser *parser, ParsePrecedence precedence) {
    parse_advance(parser);
    ParseFn prefix = parse_rules[parser->previous.type].prefix;
    if (prefix == NULL) {
        parse_emit_err(parser, parser->previous, cstr("expected expression"));
        return;
    }
    prefix(parser);

    while (precedence <= parse_rules[parser->current.type].precedence) {
        parse_advance(parser);
        ParseFn infix = parse_rules[parser->previous.type].infix;
        if (infix == NULL) {
            parse_emit_err(parser, parser->previous,
                           cstr("expected expression"));
            return;
        }
        infix(parser);
    }
}

void
parse_unary(Parser *parser) {
    print("parsing unary ");
    print_token(parser->previous);
    parse_prec(parser, PREC_ASSIGNMENT);
    TokenType type = parser->previous.type;
    parse_expr(parser);
    // TODO: ...
    switch (type) {
        // case TOKEN_MINUS: emitByte(OP_NEGATE); break;
        default:
            return;  // Unreachable.
    }
}

void
parse_binary(Parser *parser) {
    print("parsing binary ");
    print_token(parser->previous);
    TokenType operatorType = parser->previous.type;
    ParseRule rule = parse_rules[operatorType];
    parse_prec(parser, rule.precedence + 1);

    // TODO: ...
    // switch (operatorType) {
    //   case TOKEN_PLUS:          emitByte(OP_ADD); break;
    //   case TOKEN_MINUS:         emitByte(OP_SUBTRACT); break;
    //   case TOKEN_STAR:          emitByte(OP_MULTIPLY); break;
    //   case TOKEN_SLASH:         emitByte(OP_DIVIDE); break;
    //   default: return; // Unreachable.
    // }
}

void
parse_number(Parser *parser) {
    print("parsing number ");
    print_token(parser->previous);
    // TODO: ...
    // double value = strtod(parser.previous.start, NULL);
    // emitConstant(value);
}

void
parse_grouping(Parser *parser) {
    print("parsing group  ");
    print_token(parser->previous);
    parse_expr(parser);
    parse_consume(parser, TOK_RPAREN, cstr("expected ')' after expression"));
}

void
parse_expr(Parser *parser) {
    // TODO: ...
    // Can this be prec_none instead?
    parse_prec(parser, PREC_ASSIGNMENT);
}

void
process_file(Str path) {
    Arena lexer_arena = arena_create(LEXER_MEM, os_allocator);

    FileContents file = platform_read_file(path, &lexer_arena);
    if (file.err) {
        eprintln("%s: error: %s", path, cstr("WOT"));
        return;
    }
    sz errors = 0;

    // Lexer.
    Scanner scanner = {.str = file.data};
    Token *tokens = NULL;
    Token tok = {0};
    while (tok.type != TOK_EOF) {
        tok = scan_token(&scanner);
        if (tok.type == TOK_UNKNOWN) {
            eprintln("%s:%d:%d:%s %s", path, tok.line, tok.col,
                     token_str[tok.type], tok.val);
            errors++;
            continue;
        }
        array_push(tokens, tok, &lexer_arena);
    }

    // Only proceed if there are no errors.
    if (errors) {
        goto stop;
    }

    // Parser.
    Parser parser = {.tokens = tokens};
    parse_advance(&parser);
    parse_expr(&parser);
    parse_consume(&parser, TOK_EOF, cstr("expected end of file"));

    // print_tokens(path, tokens); // DEBUG

stop:
    // Free up resources.
    arena_destroy(&lexer_arena, os_allocator);
}

#ifndef BIN_NAME
#define BIN_NAME "bdl"
#endif

void
print_usage(void) {
    printf("Usage: %s [options] <filename filename ...>\n", BIN_NAME);
    printf("\n");
    printf("\t-h \t\tShow usage.\n");
    printf(
        "\t-p [l|p|s|t]\tPrint mode for [l]exing, [p]arsing, [s]emantic "
        "analysis, symbol [t]ables\n");
    printf("\n");
}

int
main(int argc, char *argv[]) {
    int option;
    while ((option = getopt(argc, argv, "hp:")) != -1) {
        switch (option) {
            case 'h': {
                print_usage();
                goto exit_success;
            } break;
            case 'p': {
                if (optarg[0] == 'l' && optarg[1] == '\0') {
                    mode = PRINT_LEX;
                } else if (optarg[0] == 'p' && optarg[1] == '\0') {
                    mode = PRINT_PARSE;
                } else if (optarg[0] == 's' && optarg[1] == '\0') {
                    mode = PRINT_SEMANTIC;
                } else if (optarg[0] == 't' && optarg[1] == '\0') {
                    mode = PRINT_SYMTABLES;
                } else {
                    print_usage();
                    return EXIT_FAILURE;
                }
            } break;
            default: {
                print_usage();
                return EXIT_FAILURE;
            } break;
        }
    }

    init();

    // Run from stdin.
    if (optind == argc) {
        // TODO: REPL
        // repl();
        goto exit_success;
    }

    // Run from file.
    while (optind < argc) {
        char *file_name = argv[optind];
        Str file_path = STR(file_name);
        process_file(file_path);
        optind++;
    }

exit_success:
    return EXIT_SUCCESS;
}