#ifndef GMQCC_PARSER_HDR
#define GMQCC_PARSER_HDR
#include "gmqcc.h"
#include "lexer.h"
#include "ast.h"

#include "intrin.h"
#include "fold.h"

#define parser_ctx(p) ((p).lex->tok.ctx)

struct parser_t {
    parser_t();
    ~parser_t();

    void remove_ast();

    lex_file *lex;
    Token tok;

    bool ast_cleaned;

    std::vector<ast_expression *> globals;
    std::vector<ast_expression *> fields;
    std::vector<ast_function *> functions;
    size_t translated;

    /* must be deleted first, they reference immediates and values */
    std::vector<ast_value *> accessors;

    ast_value *nil;
    ast_value *reserved_version;

    size_t crc_globals;
    size_t crc_fields;

    ast_function *function;
    ht aliases;

    /* All the labels the function defined...
     * Should they be in ast_function instead?
     */
    std::vector<ast_label*> labels;
    std::vector<ast_goto*> gotos;
    std::vector<const char *> breaks;
    std::vector<const char *> continues;

    /* A list of hashtables for each scope */
    std::vector<ht> variables;
    ht htfields;
    ht htglobals;
    std::vector<ht> typedefs;

    /* not to be used directly, we use the hash table */
    std::vector<ast_expression*> _locals;
    std::vector<size_t> _blocklocals;
    std::vector<std::unique_ptr<ast_value>> _typedefs;
    std::vector<size_t> _blocktypedefs;
    std::vector<lex_ctx_t> _block_ctx;

    /* we store the '=' operator info */
    const oper_info *assign_op;

    /* magic values */
    ast_value *const_vec[3];

    /* pragma flags */
    bool noref;

    /* collected information */
    size_t max_param_count;

    fold m_fold;
    intrin m_intrin;
};

/* parser.c */
inline char *parser_strdup(const char *str)
{
    if (str && !*str) {
        /* actually dup empty strings */
        auto *out = reinterpret_cast<char*>(mem_a(1));
        *out = 0;
        return out;
    }
    return util_strdup(str);
}
ast_expression *parser_find_global(parser_t &parser, const char *name);
parser_t *parser_create();
bool parser_compile_file(parser_t &parser, const char *);
bool parser_compile_string(parser_t &parser, const char *, const char *, size_t);
bool parser_finish(parser_t &parser, const char *);

#endif