116 lines
2.8 KiB
C
116 lines
2.8 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)
|
|
{
|
|
fputwc(btowc('"'), output);
|
|
print_string_contents(output, pointer);
|
|
fputwc(btowc('"'), 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) {
|
|
fputwc(btowc(' '), output);
|
|
}
|
|
print(output, cell->payload.cons.car);
|
|
|
|
print_list_contents(output, cell->payload.cons.cdr, true);
|
|
break;
|
|
case NILTV:
|
|
break;
|
|
default:
|
|
fwprintf(output, L" . ");
|
|
print(output, pointer);
|
|
}
|
|
}
|
|
|
|
void print_list(FILE * output, struct cons_pointer pointer)
|
|
{
|
|
fputwc(btowc('('), output);
|
|
print_list_contents(output, pointer, false);
|
|
fputwc(btowc(')'), 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:
|
|
fwprintf(output, L"%ld", cell.payload.integer.value);
|
|
break;
|
|
case NILTV:
|
|
fwprintf(output, L"nil");
|
|
break;
|
|
case REALTV:
|
|
fwprintf(output, L"%lf", cell.payload.real.value);
|
|
break;
|
|
case STRINGTV:
|
|
print_string(output, pointer);
|
|
break;
|
|
case SYMBOLTV:
|
|
print_string_contents(output, pointer);
|
|
break;
|
|
case TRUETV:
|
|
fwprintf(output, L"t");
|
|
break;
|
|
default:
|
|
fwprintf(stderr,
|
|
L"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]);
|
|
break;
|
|
}
|
|
}
|