57 lines
1.4 KiB
C
57 lines
1.4 KiB
C
#ifndef MK_VALUE_H
|
|
#define MK_VALUE_H
|
|
|
|
#include "commons.h"
|
|
#include "native.h"
|
|
#include "array.h"
|
|
|
|
#define TYPE_KIND(G) \
|
|
G(TY_INT), G(TY_FLOAT), G(TY_BOOL), \
|
|
G(TY_STRING), G(TY_SYMBOL), G(TY_REF), \
|
|
G(TY_NATIVE), G(TY_LAZY), G(TY_ARRAY)
|
|
|
|
MK_ENUM_H(TypeKind, TYPE_KIND);
|
|
|
|
union value_data
|
|
{
|
|
int integer;
|
|
float real;
|
|
bool boolean;
|
|
char* str;
|
|
char* sym;
|
|
size_t ref;
|
|
struct native* native;
|
|
struct node* lazy;
|
|
struct array* array;
|
|
};
|
|
|
|
struct value
|
|
{
|
|
union value_data data;
|
|
TypeKind type;
|
|
int line;
|
|
};
|
|
|
|
void value_init_int(struct value* self, int value, int line);
|
|
void value_init_float(struct value* self, float value, int line);
|
|
void value_init_bool(struct value* self, bool value, int line);
|
|
void value_init_string(struct value* self, char const* value, int line);
|
|
void value_init_symbol(struct value* self, char const* value, int line);
|
|
void value_init_ref(struct value* self, size_t value, int line);
|
|
void value_init_native(struct value* self, struct native* value, int line);
|
|
void value_init_lazy(struct value* self, struct node* value, int line);
|
|
void value_init_array(struct value* self, struct vec* new_values, int line);
|
|
|
|
size_t value_str(struct value* self,
|
|
char* buffer,
|
|
size_t size,
|
|
struct moka* moka);
|
|
|
|
bool value_is_eqv(struct value* self,
|
|
struct value* rhs,
|
|
struct moka* moka);
|
|
|
|
void value_free(struct value* self);
|
|
|
|
#endif
|