ccm/lib/ccm.h

#ifndef CCM_CCM_H
#define CCM_CCM_H

#include "commons.h"
#include "vec.h"
#include "value.h"
#include "err.h"

typedef unsigned long long CCM;

typedef struct {
    err_t err;
    vec_t values;
    vec_t stack;
} ccm_t;

void ccm_init(ccm_t* self);
void ccm_free(ccm_t* self);

size_t ccm_str(ccm_t* self, char* buffer, size_t size);

CCM ccm_from_value(ccm_t* self, value_t* value);
value_t* ccm_to_value(ccm_t* self, CCM value);

int ccm_is_num(ccm_t* self, CCM value);
double ccm_from_num(ccm_t* self, CCM value);
CCM ccm_to_num(ccm_t* self, double value, int line);

int ccm_is_tuple(ccm_t* self, CCM value);
vec_t* ccm_from_tuple(ccm_t* self, CCM value);
CCM ccm_to_tuple(ccm_t* self, vec_t* values, int line);

int ccm_is_boolean(ccm_t* self, CCM value);
int ccm_from_boolean(ccm_t* self, CCM value);
CCM ccm_to_boolean(ccm_t* self, int value, int line);

int ccm_is_str(ccm_t* self, CCM value);
char* ccm_from_str(ccm_t* self, CCM value);
CCM ccm_to_str(ccm_t* self, char* value, int line);

void ccm_push(ccm_t* self, CCM value);
CCM ccm_pop(ccm_t* self);
CCM ccm_top(ccm_t* self, int depth);

void ccm_in(ccm_t* self);
void ccm_add(ccm_t* self);
void ccm_sub(ccm_t* self);
void ccm_usub(ccm_t* self);
void ccm_mul(ccm_t* self);
void ccm_div(ccm_t* self);
void ccm_mod(ccm_t* self);
void ccm_pow(ccm_t* self);
void ccm_not(ccm_t* self);

void ccm_eq(ccm_t* self);
void ccm_ne(ccm_t* self);
void ccm_lt(ccm_t* self);
void ccm_le(ccm_t* self);
void ccm_gt(ccm_t* self);
void ccm_ge(ccm_t* self);

#endif