simon/post-scarcity
1
0
Fork 0
Code Issues 2 Pull requests Projects Releases Packages Wiki Activity Actions

11 out of 12 unit tests passing, progress!

Browse source 
I don't understand why it works, but it works.
This commit is contained in:
simon 2017-09-12 22:14:11 +01:00
parent 784fdce49a
commit 36d8431a91
26 changed files with 547 additions and 580 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/repl.c
View file

@ -22,21 +22,22 @@
* @param show_prompt true if prompts should be shown.
*/
void
repl(FILE * in_stream, FILE * out_stream, FILE * error_stream,
bool show_prompt)
{
while (!feof(in_stream)) {
if (show_prompt) {
fwprintf(out_stream, L"\n:: ");
repl( FILE * in_stream, FILE * out_stream, FILE * error_stream,
bool show_prompt ) {
while ( !feof( in_stream ) ) {
if ( show_prompt ) {
fwprintf( out_stream, L"\n:: " );
}
struct cons_pointer input = read(in_stream);
fwprintf(error_stream, L"\nread {%d,%d}=> ", input.page, input.offset);
if (show_prompt) {
fwprintf(out_stream, L"\n-> ");
struct cons_pointer input = read( in_stream );
fwprintf( error_stream, L"\nread {%d,%d}=> ", input.page,
input.offset );
if ( show_prompt ) {
fwprintf( out_stream, L"\n-> " );
}
// print( out_stream, lisp_eval(input, oblist, NULL));
print(out_stream, input);
fwprintf(out_stream, L"\n");
fwprintf(error_stream, L"\neval {%d,%d}=> ", input.page, input.offset);
print( out_stream, input );
fwprintf( out_stream, L"\n" );
fwprintf( error_stream, L"\neval {%d,%d}=> ", input.page,
input.offset );
}
}