104 lines
1.4 KiB
C
104 lines
1.4 KiB
C
#include <stdint.h>
|
|
|
|
typedef uintptr_t u64;
|
|
typedef struct Object Object;
|
|
typedef Object* (*Bltinfn)(Object *env, Object *args);
|
|
|
|
enum OType
|
|
{
|
|
OERROR,
|
|
OCELL,
|
|
OSYMBOL,
|
|
OIDENT,
|
|
OINT,
|
|
OSTRING,
|
|
OLAMBDA,
|
|
OBLTIN,
|
|
OFUNC,
|
|
OENV,
|
|
};
|
|
|
|
struct Object
|
|
{
|
|
enum OType type; /* type */
|
|
int flag; /* flag */
|
|
Object *next; /* for gc */
|
|
Object *forward;
|
|
union{
|
|
/* int */
|
|
long num;
|
|
/* cell */
|
|
struct{
|
|
Object *car;
|
|
Object *cdr;
|
|
};
|
|
/* string & ident */
|
|
char *sym;
|
|
struct{
|
|
char *beg;
|
|
char *ptr;
|
|
char *end;
|
|
};
|
|
/* function */
|
|
struct{
|
|
Object *params;
|
|
Object *body;
|
|
Object *env;
|
|
};
|
|
/* env */
|
|
struct{
|
|
Object *name;
|
|
Object *up;
|
|
Object *vars;
|
|
};
|
|
};
|
|
};
|
|
|
|
/*
|
|
*0 ~ 64 : for object
|
|
*64 ~ 100 : for string
|
|
*/
|
|
typedef struct
|
|
{
|
|
int running;
|
|
void *memory;
|
|
u64 cap;
|
|
u64 using;
|
|
u64 top;
|
|
/* objects */
|
|
struct{
|
|
Object *objs;
|
|
Object *freed;
|
|
u64 ob;
|
|
u64 oe;
|
|
u64 op;
|
|
};
|
|
/* string */
|
|
struct{
|
|
u64 sb;
|
|
u64 se;
|
|
};
|
|
}GC;
|
|
|
|
extern GC *gc;
|
|
extern Object Nil;
|
|
extern Object Minus;
|
|
extern Object Plus;
|
|
extern Object Mul;
|
|
extern Object Div;
|
|
extern Object Mod;
|
|
extern Object Lambda;
|
|
extern Object Car;
|
|
extern Object Cdr;
|
|
extern Object Quote;
|
|
extern Object Cons;
|
|
extern Object Define;
|
|
extern Object Setq;
|
|
extern Object Eq;
|
|
extern Object Ne;
|
|
extern Object If;
|
|
extern Object Ge;
|
|
extern Object Le;
|
|
extern Object Lt;
|
|
extern Object Gt;
|