int
main(int argc, char **argv)
{
ctx cctx;
FILE *f; char *m = 0, *lft; long l, val; int c, ad = 1, i;
v *cl = mkCons(0,0), *v, *n, *r;
memset(&cctx, 0, sizeof(cctx));
if (argv[1] && (f = fopen(argv[1],"r"))) {
fseek(f, 0, SEEK_END);
l = ftell(f);
fseek(f, 0, SEEK_SET);
m = (char *)malloc(l+1);
fread(m, 1, l, f);
m[l] = 0;
fclose(f);
printf("%s", m);
}
v = scan(&cctx, m);
print(&cctx, stderr, v ); printf("\n");
l_init(&cctx) ;
evlist(&cctx, v, cctx.env);
return 0;
}
void mkSnoc(List& xs, ELEM_TYPE x){
if(isNil(xs))
mkCons(x, xs);
else{
ListNode* newNode = new ListNode;
newNode -> elem = x;
newNode -> next = NULL;
xs -> last -> next = newNode;
xs -> last = newNode;
}
}
