/**
 * 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;
    }
}