-static inline void free_impl_func(impl_func *f) {
- free_impl_type(f->return_type);
- free_impl_args(f->args);
- free(f->name);
- free(f);
-}
-
-typedef struct let_func {
- token_t type;
- char *name;
-} let_func;
-
-static inline let_func *init_let_func(token_t type, char *name) {
- let_func *func = malloc(sizeof(*func));
- func->type = type;
- func->name = (char *) strdup((const char *) name);
- return func;
-}
-
-static inline void free_let_func(let_func *func) {
- free(func->name);
- free(func);
-}
-
-typedef struct let_value {
- let_func *func;
- impl_var *var;
- unsigned is_reference:1;
-} let_value;
-
-static inline let_value *init_let_value(let_func *func, impl_var *var, int is_reference) {
- let_value *val = malloc(sizeof(*val));
- val->is_reference = is_reference;
- val->func = func;
- val->var = var;
- return val;
-}
-
-static inline void free_let_value(let_value *val) {
- if (val->func) {
- free_let_func(val->func);
- }
- if (val->var) {
- free_impl_var(val->var);
- }
- free(val);
-}
-
-typedef struct let_stmt {
- decl_var *var;
- let_value *val;
- impl_arg *arg;
- impl_val out;
- void *ptr;
- void *mem;
-} let_stmt;
-
-static inline let_stmt *init_let_stmt(decl_var *var, let_value *val) {
- let_stmt *let = calloc(1, sizeof(*let));
- let->var = var;
- let->val = val;
- return let;
-}
-
-static inline void free_let_stmt(let_stmt *stmt) {
- free_decl_var(stmt->var);
- free_let_value(stmt->val);
- free(stmt);
-}
-
-typedef struct set_func {
- token_t type;
- char *name;
-} set_func;
-
-static inline set_func *init_set_func(token_t type, char *name) {
- set_func *func = malloc(sizeof(*func));
- func->type = type;
- func->name = (char *) strdup((const char *) name);
- return func;
-}
-
-static inline void free_set_func(set_func *func) {
- free(func->name);
- free(func);
-}
-
-typedef struct set_value {
- set_func *func;
- decl_vars *vars;
-} set_value;
-
-static inline set_value *init_set_value(set_func *func, decl_vars *vars) {
- set_value *val = malloc(sizeof(*val));
- val->func = func;
- val->vars = vars;
- return val;
-}
-
-static inline void free_set_value(set_value *val) {
- free_set_func(val->func);
- free_decl_vars(val->vars);
- free(val);
-}
-
-typedef struct set_stmt {
- impl_var *var;
- set_value *val;
- impl_arg *arg;
-} set_stmt;
-
-static inline set_stmt *init_set_stmt(impl_var *var, set_value *val) {
- set_stmt *set = malloc(sizeof(*set));
- set->var = var;
- set->val = val;
- return set;
-}
-
-static inline void free_set_stmt(set_stmt *set) {
- free_impl_var(set->var);
- free_set_value(set->val);
- free(set);
-}
-
-typedef struct return_stmt {
- set_func *func;
- decl_var *decl;
-} return_stmt;
-
-static inline return_stmt *init_return_stmt(set_func *func, decl_var *decl) {
- return_stmt *ret = malloc(sizeof(*ret));
- ret->func = func;
- ret->decl = decl;
- return ret;
-}
-
-static inline void free_return_stmt(return_stmt *ret) {
- free_set_func(ret->func);
- free_decl_var(ret->decl);
- free(ret);
-}
-
-typedef struct free_stmt {
- decl_vars *vars;
-} free_stmt;
-
-static inline free_stmt *init_free_stmt(decl_vars *vars) {
- free_stmt *free_ = malloc(sizeof(*free_));
- free_->vars = vars;
- return free_;
-}
-
-static inline void free_free_stmt(free_stmt *free_) {
- free_decl_vars(free_->vars);
- free(free_);
-}
-
-typedef struct impl_stmt {
- token_t type;
- union {
- let_stmt *let;
- set_stmt *set;
- return_stmt *ret;
- free_stmt *fre;
- void *ptr;
- } s;
-} impl_stmt;
-
-static inline impl_stmt *init_impl_stmt(token_t type, void *ptr) {
- impl_stmt *stmt = malloc(sizeof(*stmt));
- stmt->type = type;
- stmt->s.ptr = ptr;
- return stmt;
-}
-
-static inline void free_impl_stmt(impl_stmt *stmt) {
- switch (stmt->type) {
- case PSI_T_LET:
- free_let_stmt(stmt->s.let);
- break;
- case PSI_T_SET:
- free_set_stmt(stmt->s.set);
- break;
- case PSI_T_RETURN:
- free_return_stmt(stmt->s.ret);
- break;
- case PSI_T_FREE:
- free_free_stmt(stmt->s.fre);
- break;
- }
- free(stmt);
-}
-
-typedef struct impl_stmts {
- struct {
- return_stmt **list;
- size_t count;
- } ret;
- struct {
- let_stmt **list;
- size_t count;
- } let;
- struct {
- set_stmt **list;
- size_t count;
- } set;
- struct {
- free_stmt **list;
- size_t count;
- } fre;
-} impl_stmts;
-
-static inline void *add_impl_stmt_ex(void *list, size_t count, void *stmt) {
- list = realloc(list, count * sizeof(list));
- ((void **)list)[count-1] = stmt;
- return list;
-}
-
-static inline impl_stmts *add_impl_stmt(impl_stmts *stmts, impl_stmt *stmt) {
- switch (stmt->type) {
- case PSI_T_RETURN:
- stmts->ret.list = add_impl_stmt_ex(stmts->ret.list, ++stmts->ret.count, stmt->s.ret);
- break;
- case PSI_T_LET:
- stmts->let.list = add_impl_stmt_ex(stmts->let.list, ++stmts->let.count, stmt->s.let);
- break;
- case PSI_T_SET:
- stmts->set.list = add_impl_stmt_ex(stmts->set.list, ++stmts->set.count, stmt->s.set);
- break;
- case PSI_T_FREE:
- stmts->fre.list = add_impl_stmt_ex(stmts->fre.list, ++stmts->fre.count, stmt->s.fre);
- break;
- }
- free(stmt);
- return stmts;
-}
-
-static inline impl_stmts *init_impl_stmts(impl_stmt *stmt) {
- impl_stmts *stmts = calloc(1, sizeof(*stmts));
- return add_impl_stmt(stmts, stmt);
-}
-
-static inline void free_impl_stmts(impl_stmts *stmts) {
- size_t i;
-
- for (i = 0; i < stmts->let.count; ++i) {
- free_let_stmt(stmts->let.list[i]);
- }
- free(stmts->let.list);
- for (i = 0; i < stmts->ret.count; ++i) {
- free_return_stmt(stmts->ret.list[i]);
- }
- free(stmts->ret.list);
- for (i = 0; i < stmts->set.count; ++i) {
- free_set_stmt(stmts->set.list[i]);
- }
- free(stmts->set.list);
- for (i = 0; i < stmts->fre.count; ++i) {
- free_free_stmt(stmts->fre.list[i]);
- }
- free(stmts->fre.list);
- free(stmts);
-}
-
-typedef struct impl {
- impl_func *func;
- impl_stmts *stmts;
- decl *decl;
-} impl;
-
-static inline impl *init_impl(impl_func *func, impl_stmts *stmts) {
- impl *i = malloc(sizeof(*i));
- i->func = func;
- i->stmts = stmts;
- return i;
-}
-
-static inline void free_impl(impl *impl) {
- free_impl_func(impl->func);
- free_impl_stmts(impl->stmts);
- free(impl);
-}
-
-typedef struct impls {
- size_t count;
- impl **list;
-} impls;
-
-static impls *add_impl(impls *impls, impl *impl) {
- if (!impls) {
- impls = calloc(1, sizeof(*impls));
- }
- impls->list = realloc(impls->list, ++impls->count * sizeof(*impls->list));
- impls->list[impls->count-1] = impl;
- return impls;
-}
-
-static void free_impls(impls *impls) {
- size_t i;
-
- for (i = 0; i < impls->count; ++i) {
- free_impl(impls->list[i]);
- }
- free(impls->list);
- free(impls);
-}
-
-typedef struct const_type {
- token_t type;
- char *name;
-} const_type;
-
-static inline const_type *init_const_type(token_t type, const char *name) {
- const_type *ct = malloc(sizeof(*ct));
- ct->type = type;
- ct->name = strdup(name);
- return ct;
-}
-
-static inline void free_const_type(const_type *type) {
- free(type->name);
- free(type);
-}
-
-typedef struct constant {
- const_type *type;
- char *name;
- impl_def_val *val;
-} constant;
-
-static inline constant *init_constant(const_type *type, char *name, impl_def_val *val) {
- constant *c = malloc(sizeof(*c));
- c->type = type;
- c->name = strdup(name);
- c->val = val;
- return c;
-}
-
-static inline void free_constant(constant *constant) {
- free_const_type(constant->type);
- free(constant->name);
- free_impl_def_val(constant->val);
- free(constant);
-}
-
-typedef struct constants {
- size_t count;
- constant **list;
-} constants;
-
-static inline constants *add_constant(constants *constants, constant *constant) {
- if (!constants) {
- constants = calloc(1, sizeof(*constants));
- }
- constants->list = realloc(constants->list, ++constants->count * sizeof(*constants->list));
- constants->list[constants->count-1] = constant;
- return constants;
-}
-
-static inline void free_constants(constants *c) {
- size_t i;
-
- for (i = 0; i < c->count; ++i) {
- free_constant(c->list[i]);
- }
- free(c->list);
- free(c);
-}
-
-#define PSI_ERROR 16
-#define PSI_WARNING 32
-typedef void (*psi_error_cb)(int type, const char *msg, ...);
-
-#define PSI_DATA_MEMBERS \
- constants *consts; \
- decl_typedefs *defs; \
- decls *decls; \
- impls *impls; \
- char *lib; \
- char *fn; \
- psi_error_cb error
-typedef struct PSI_Data {