42 lines
982 B
C
42 lines
982 B
C
#include <stdio.h>
|
|
/* parser.c */
|
|
Object* nextexpr(FILE*);
|
|
void skipline(FILE*);
|
|
|
|
/* repl.c */
|
|
void repl(Object *env, FILE*, char *pre);
|
|
void readlibs(char *argv[], Object *env);
|
|
|
|
/* eval.c */
|
|
Object* eval(Object *env, Object *expr);
|
|
|
|
/* new */
|
|
|
|
Object* newint(GC *,long);
|
|
Object* newcons(GC *,Object*,Object*);
|
|
Object* newenv(GC *,Object*name, Object *vars, Object *up);
|
|
Object* newacons(GC *,Object*, Object*, Object*);
|
|
Object* newsymbol(GC *,char*, int);
|
|
Object* newstr(GC *,int);
|
|
Object* newfn(GC *,Object *env, Object *params, Object *body, enum OType type);
|
|
|
|
/* gc.c */
|
|
GC* newgc(void *top, int cap);
|
|
void gcrun(GC *);
|
|
void* gcalloc(GC *gc, int sz);
|
|
void printgc(char *, GC *);
|
|
|
|
/* str.c */
|
|
Object* strputc(Object*, int);
|
|
Object* strputs(Object*, Object*);
|
|
int strequal(Object*, Object*);
|
|
void strinit(Object *s, Object *str);
|
|
|
|
/* error.c */
|
|
void panic(char *fmt, ...);
|
|
void error(char *fmt, ...);
|
|
|
|
/* builtin */
|
|
Bltinfn bltinlookup(Object *obj);
|
|
void printexpr(Object *obj);
|