115 lines
3.3 KiB
C
115 lines
3.3 KiB
C
#ifndef MK_MOKA_H
|
|
#define MK_MOKA_H
|
|
|
|
#include "commons.h"
|
|
#include "vec.h"
|
|
#include "value.h"
|
|
#include "symtable.h"
|
|
|
|
struct frame
|
|
{
|
|
struct vec stack;
|
|
struct vec local_values;
|
|
};
|
|
|
|
struct moka_mod
|
|
{
|
|
char* name;
|
|
struct module* module;
|
|
};
|
|
|
|
struct moka
|
|
{
|
|
struct status* status;
|
|
struct symtable symtable;
|
|
struct vec frame_stack;
|
|
struct vec global_values;
|
|
struct vec modules;
|
|
};
|
|
|
|
void moka_mod_init(struct moka_mod* self,
|
|
char const* name,
|
|
struct module* new_module);
|
|
void moka_mod_free(struct moka_mod* self);
|
|
|
|
void moka_init(struct moka* self, struct status* status);
|
|
void frame_init(struct frame* self);
|
|
void frame_free(struct frame* self);
|
|
void moka_free(struct moka* self);
|
|
|
|
|
|
void moka_import_module(struct moka* self,
|
|
char const* name,
|
|
struct module* module);
|
|
|
|
struct module* moka_try_get_module(struct moka* self,
|
|
char const* name);
|
|
|
|
void moka_decl_var(struct moka* self,
|
|
char* name,
|
|
MOKA value);
|
|
|
|
void moka_decl_native(struct moka* self,
|
|
char* name,
|
|
native_fun_t fun,
|
|
int arity);
|
|
|
|
struct frame* moka_frame(struct moka* self);
|
|
bool moka_has_top(struct moka* self);
|
|
MOKA moka_top(struct moka* self);
|
|
MOKA moka_pop(struct moka* self);
|
|
|
|
int moka_line(struct moka* self, MOKA value);
|
|
size_t moka_str(struct moka* self, MOKA value,
|
|
char* buffer, size_t size);
|
|
|
|
bool moka_is_lt(struct moka* self, MOKA mk_lhs, MOKA mk_rhs);
|
|
bool moka_is_gt(struct moka* self, MOKA mk_lhs, MOKA mk_rhs);
|
|
bool moka_is_eqv(struct moka* self, MOKA mk_lhs, MOKA mk_rhs);
|
|
|
|
MOKA moka_add(struct moka* self, int count);
|
|
MOKA moka_sub(struct moka* self, int count);
|
|
MOKA moka_mul(struct moka* self, int count);
|
|
MOKA moka_div(struct moka* self, int count);
|
|
MOKA moka_mod(struct moka* self);
|
|
MOKA moka_pow(struct moka* self);
|
|
|
|
bool moka_is(struct moka* self, MOKA value, TypeKind type);
|
|
TypeKind moka_type_of(struct moka* self, MOKA value);
|
|
|
|
void moka_dump(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_make_array(struct moka* self, int elements_count);
|
|
MOKA moka_call(struct moka* self, int arg_count);
|
|
|
|
MOKA moka_push(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_int(struct moka* self, int value, int line);
|
|
int moka_get_int(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_float(struct moka* self, float value, int line);
|
|
float moka_get_float(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_bool(struct moka* self, bool value, int line);
|
|
bool moka_get_bool(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_string(struct moka* self, char const* value, int line);
|
|
char* moka_get_string(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_symbol(struct moka* self, char const* value, int line);
|
|
char* moka_get_symbol(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_ref(struct moka* self, size_t value, int line);
|
|
size_t moka_get_ref(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_push_native(struct moka* self,
|
|
native_fun_t value,
|
|
int arity,
|
|
int line);
|
|
native_fun_t moka_get_native(struct moka* self, MOKA value);
|
|
|
|
MOKA moka_eval_lazy(struct moka* self, MOKA lazy_value);
|
|
MOKA moka_push_lazy(struct moka* self, struct node* value, int line);
|
|
struct node* moka_get_lazy(struct moka* self, MOKA value);
|
|
#endif
|