andrius
/
stage0
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Enhanced stage2 lisp High level prototype to include line comments and write command

This commit is contained in:
Jeremiah Orians 2017-04-08 22:49:04 -04:00
parent 3fbdd9dd9d
commit fc6b86468b
No known key found for this signature in database
GPG Key ID: 7457821534D2ACCD
4 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
stage2/High_level_prototypes/lisp.c
View File

@ -32,6 +32,7 @@ int main()
{
garbage_init();
init_sl3();
output = fopen("tape_02", "w");
for(;;)
{
garbage_collect();
@ -43,5 +44,6 @@ int main()
writeobj(stdout, temp);
printf("\n");
}
fclose(output);
return 0;
}

1
stage2/High_level_prototypes/lisp.h
View File

@ -56,3 +56,4 @@ struct cell* make_cons(struct cell* a, struct cell* b);
/* Global objects */
struct cell *all_symbols, *top_env, *nil, *tee, *quote, *s_if, *s_lambda, *s_define, *s_setb, *s_cond, *s_begin;
FILE* output;

22
stage2/High_level_prototypes/lisp_eval.c
View File

@ -376,30 +376,40 @@ struct cell* prim_listp(struct cell* args)
return nil;
}
struct cell* prim_display(struct cell* args)
struct cell* prim_output(struct cell* args, FILE* out)
{
for(; nil != args; args = args->cdr)
{
if(INT == args->car->type)
{
printf("%d", args->car->value);
fprintf(out, "%d", args->car->value);
}
else if(ASCII == args->car->type)
{
printf("%c", args->car->value);
fprintf(out, "%c", args->car->value);
}
else if(CONS == args->car->type)
{
prim_display(args->car);
prim_output(args->car, out);
}
else
{
printf("%s", args->car->string);
fprintf(out, "%s", args->car->string);
}
}
return tee;
}
struct cell* prim_display(struct cell* args)
{
return prim_output(args, stdout);
}
struct cell* prim_write(struct cell* args)
{
return prim_output(args, output);
}
int64_t cells_remaining();
struct cell* prim_freecell(struct cell* args)
{
@ -425,6 +435,7 @@ struct cell* prim_ascii(struct cell* args)
struct cell* prim_halt(struct cell* args)
{
fclose(output);
exit(EXIT_SUCCESS);
}
@ -485,6 +496,7 @@ void init_sl3()
spinup(make_sym("<="), make_prim(prim_numle));
spinup(make_sym("<"), make_prim(prim_numlt));
spinup(make_sym("display"), make_prim(prim_display));
spinup(make_sym("write"), make_prim(prim_write));
spinup(make_sym("free_mem"), make_prim(prim_freecell));
spinup(make_sym("ascii!"), make_prim(prim_ascii));
spinup(make_sym("list?"), make_prim(prim_listp));

9
stage2/High_level_prototypes/lisp_read.c
View File

@ -231,6 +231,15 @@ uint32_t Readline(FILE* source_file, char* temp)
{
exit(EXIT_SUCCESS);
}
else if(59 == c)
{
/* drop everything until we hit newline */
while(10 != c)
{
c = fgetc(source_file);
}
goto Line_complete;
}
else if((0 == depth) && ((10 == c) || (13 == c) || (32 == c) || (9 == c)))
{
goto Line_complete;