Simon Brooke
e968b30bbc
still one I know of). More unit tests, and all pass. Not evalling yet. Good day's work.
104 lines
2.5 KiB
C
104 lines
2.5 KiB
C
/**
|
|
* print.c
|
|
*
|
|
* First pass at a printer, for bootstrapping.
|
|
*
|
|
*
|
|
* (c) 2017 Simon Brooke <simon@journeyman.cc>
|
|
* Licensed under GPL version 2.0, or, at your option, any later version.
|
|
*/
|
|
|
|
#include <ctype.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
/* wide characters */
|
|
#include <wchar.h>
|
|
#include <wctype.h>
|
|
|
|
#include "conspage.h"
|
|
#include "consspaceobject.h"
|
|
#include "integer.h"
|
|
#include "print.h"
|
|
|
|
void print_string_contents( FILE* output, struct cons_pointer pointer) {
|
|
if ( stringp( pointer) || symbolp( pointer)) {
|
|
struct cons_space_object* cell = &pointer2cell(pointer);
|
|
wint_t c = cell->payload.string.character;
|
|
|
|
if ( c != '\0') {
|
|
fputwc( c, output);
|
|
}
|
|
print_string_contents( output, cell->payload.string.cdr);
|
|
}
|
|
}
|
|
|
|
|
|
void print_string( FILE* output, struct cons_pointer pointer) {
|
|
fputc( '"', output);
|
|
print_string_contents( output, pointer);
|
|
fputc( '"', output);
|
|
}
|
|
|
|
/**
|
|
* Print a single list cell (cons cell). TODO: does not handle dotted pairs.
|
|
*/
|
|
void print_list_contents( FILE* output, struct cons_pointer pointer,
|
|
bool initial_space) {
|
|
struct cons_space_object* cell = &pointer2cell(pointer);
|
|
|
|
switch ( cell->tag.value) {
|
|
case CONSTV :
|
|
if (initial_space) {
|
|
fputc( ' ', output);
|
|
}
|
|
print( output, cell->payload.cons.car);
|
|
|
|
print_list_contents( output, cell->payload.cons.cdr, true);
|
|
break;
|
|
case NILTV:
|
|
break;
|
|
default:
|
|
fprintf( output, " . ");
|
|
print( output, pointer);
|
|
}
|
|
}
|
|
|
|
|
|
void print_list( FILE* output, struct cons_pointer pointer) {
|
|
fputc( '(', output);
|
|
print_list_contents( output, pointer, false);
|
|
fputc( ')', output);
|
|
}
|
|
|
|
void print( FILE* output, struct cons_pointer pointer) {
|
|
struct cons_space_object cell = pointer2cell( pointer);
|
|
|
|
/* Because tags have values as well as bytes, this if ... else if
|
|
* statement can ultimately be replaced by a switch, which will
|
|
* be neater. */
|
|
switch ( cell.tag.value) {
|
|
case CONSTV :
|
|
print_list( output, pointer);
|
|
break;
|
|
case INTEGERTV :
|
|
fprintf( output, "%ld", cell.payload.integer.value);
|
|
break;
|
|
case NILTV :
|
|
fprintf( output, "nil");
|
|
break;
|
|
case STRINGTV :
|
|
print_string( output, pointer);
|
|
break;
|
|
case SYMBOLTV :
|
|
print_string_contents( output, pointer);
|
|
break;
|
|
case TRUETV :
|
|
fprintf( output, "t");
|
|
break;
|
|
default :
|
|
fprintf( stderr, "Error: Unrecognised tag value %d (%c%c%c%c)\n",
|
|
cell.tag.value, cell.tag.bytes[0], cell.tag.bytes[1],
|
|
cell.tag.bytes[2], cell.tag.bytes[3]);
|
|
}
|
|
}
|