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

Standardised formatting.

Browse source
This commit is contained in:
simon 2017-08-14 20:18:13 +01:00
parent 31176e1f39
commit d7886550a6
25 changed files with 1131 additions and 949 deletions
Download patch file Download diff file Expand all files Collapse all files

24
src/repl.c
View file

@ -21,22 +21,22 @@
* @param err_stream the stream to send errors to;
* @param show_prompt true if prompts should be shown.
*/
void repl( FILE* in_stream, FILE* out_stream, FILE* error_stream,
bool show_prompt) {
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:: ");
fwprintf(out_stream, L"\n:: ");
}
struct cons_pointer input = read( in_stream);
fwprintf( error_stream, L"\nread {%d,%d}=> ", input.page, input.offset);
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-> ");
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, 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);
}
}