118 lines
2.9 KiB
C
118 lines
2.9 KiB
C
#ifndef PEBBLISP_H
|
|
#define PEBBLISP_H
|
|
|
|
#include "env.h"
|
|
#include "object.h"
|
|
|
|
struct Slice {
|
|
const char* text;
|
|
unsigned char length;
|
|
};
|
|
|
|
typedef struct Result {
|
|
Object obj;
|
|
struct Slice* slices;
|
|
} Result;
|
|
|
|
Object eval(const Object* obj, struct Environment* env);
|
|
|
|
Result parse(struct Slice* slices);
|
|
|
|
Result readSeq(struct Slice* slices);
|
|
|
|
Result parseAtom(struct Slice* slice);
|
|
|
|
Object parseEval(const char* input, struct Environment* env);
|
|
|
|
void evalForms(Object* destList, const Object* src, struct Environment* env);
|
|
|
|
void copySlice(char* dest, struct Slice* src);
|
|
|
|
Object evalLambdaArgs(const Object* arg_forms, struct Environment* env);
|
|
Object listEvalLambda(Object* lambda, const Object* remaining,
|
|
struct Environment* env);
|
|
|
|
// Slices
|
|
void copySlice(char* dest, struct Slice* src);
|
|
|
|
void debugSlice(struct Slice* s);
|
|
|
|
#define BASIC_OP(_name) \
|
|
Object _name(Object obj1, Object obj2, struct Environment *env);
|
|
|
|
BASIC_OP(add);
|
|
|
|
BASIC_OP(sub);
|
|
|
|
BASIC_OP(mul);
|
|
|
|
BASIC_OP(dvi);
|
|
|
|
BASIC_OP(mod);
|
|
|
|
BASIC_OP(equ);
|
|
|
|
BASIC_OP(gth);
|
|
|
|
BASIC_OP(lth);
|
|
|
|
BASIC_OP(and);
|
|
|
|
BASIC_OP(or);
|
|
#undef BASIC_OP
|
|
|
|
Object catObjects(const Object obj1, const Object obj2,
|
|
struct Environment* env);
|
|
|
|
Object filter(Object obj1, Object obj2, struct Environment* env);
|
|
|
|
Object append(Object list, Object newElement, struct Environment* env);
|
|
|
|
Object prepend(Object list, Object newElement, struct Environment* env);
|
|
|
|
Object reduce(Object listInitial, Object func, struct Environment* env);
|
|
|
|
Object at(Object index, Object list, struct Environment* env);
|
|
|
|
Object rest(Object list, Object ignore, struct Environment* env);
|
|
|
|
Object reverse(Object _list, Object ignore, struct Environment* ignore2);
|
|
|
|
Object isNum(Object test, Object ignore, struct Environment* ignore2);
|
|
|
|
Object isList(Object test, Object ignore, struct Environment* ignore2);
|
|
|
|
Object isString(Object test, Object ignore, struct Environment* ignore2);
|
|
|
|
Object isErr(Object test, Object ignore, struct Environment* ignore2);
|
|
|
|
Object charAt(Object string, Object at, struct Environment* ignore);
|
|
|
|
Object charVal(Object test, Object ignore, struct Environment* ignore2);
|
|
|
|
Object print(Object p, Object ignore, struct Environment* ignore2);
|
|
|
|
Object pChar(Object c, Object i1, struct Environment* i2);
|
|
|
|
Object printEnvO(Object i1, Object i2, struct Environment* env);
|
|
|
|
Object parseEvalO(Object text, Object ignore, struct Environment* env);
|
|
|
|
Object possessive(Object structo, Object field, struct Environment* env);
|
|
|
|
#ifdef STANDALONE
|
|
|
|
Object takeInput(Object i1, Object i2, struct Environment* i3);
|
|
|
|
Object systemCall(Object call, Object _, struct Environment* i3);
|
|
|
|
Object loadFile(Object filename, Object _, struct Environment* env);
|
|
|
|
Object startServer(Object path, Object textFunc, struct Environment* env);
|
|
Object addGetRoute(Object path, Object textFunc, struct Environment* env);
|
|
Object addPostRoute(Object path, Object textFunc, struct Environment* env);
|
|
|
|
#endif
|
|
|
|
#endif
|