Subversion Repositories igor

#include <stdio.h>

#include <inttypes.h>

#include "print.h"

#include "object.h"

#include "regs.h"

#include "memory.h"

uint8_t currently_printing[MEMORY_ADDRESS_SPACE_SIZE];

void

print_init(void)

{

        int i;

        for (i = 0; i < DEFAULT_MEMORY_SIZE; i++)

                currently_printing[i] = 0;

}

void

print_list(uint32_t addr, int first)

{

        reg_t val = memory_get(addr);

        int32_t datum = object_get_datum(val);

        uint32_t type = object_get_type(val);

        if (type == TYPE_CONS) {

                reg_t cdr = memory_get(addr+1);

                if (object_get_type(cdr) != TYPE_SNOC) {

                        printf("#(0x%X:malformed cons cell: second part has type 0x%X)",

                               addr, object_get_type(cdr));

                        return;

                }

                printf(first ? "(" : " ");

                print(datum);

                print_list(object_get_datum(cdr), 0);

        } else if (type == TYPE_NIL) {

                printf(")");

        } else {

                printf(" . ");

                print(addr);

                printf(")");

        }

}

void

print_array(uint32_t addr)

{

        reg_t val = memory_get(addr);

        int i;

        int sz = object_get_datum(val);

        int str = 1;

        for (i = 0; i < sz; i++) {

                val = memory_get(addr+i+1);

                if (object_get_type(val) != TYPE_PTR) {

                        printf("#(0x%X:malformed array)", addr);

                        return;

                }

                val = memory_get(object_get_datum(val));

                if (object_get_type(val) != TYPE_CHAR) {

                        str = 0;

                        break;

                }

        }

        if (str) {

                printf("\"");

                for (i = 0; i < sz; i++) {

                        val = memory_get(addr+i+1);

                        val = memory_get(object_get_datum(val));

                        printf("%c", object_get_datum(val));

                }

                printf("\"");

        } else {

                printf("#(0x%X:array(%d)", addr, sz);

                for (i = 0; i < sz; i++) {

                        printf(" ");

                        print(object_get_datum(memory_get(addr+i+1)));

                }

                printf(")");

        }

}

void

print_symbol(uint32_t addr)

{

        reg_t val = memory_get(addr);

        uint32_t arr_addr = object_get_datum(val);

        reg_t arr = memory_get(arr_addr);

        int sz = 0, i = 0;

        if (object_get_type(arr) != TYPE_ARRAY)

                goto print_symbol_err;

        sz = object_get_datum(arr);

        for (i = 1; i <= sz; i++) {

                val = memory_get(arr_addr+i);

                if (object_get_type(val) != TYPE_PTR)

                        goto print_symbol_err;

                val = memory_get(object_get_datum(val));

                if (object_get_type(val) != TYPE_CHAR)

                        goto print_symbol_err;

                printf("%c", object_get_datum(val));

        }

        return;

print_symbol_err:

        printf("#(0x%X:malformed symbol [%X,%X])", addr, sz, i);

}

void

print_function(uint32_t addr)

{

        reg_t val = memory_get(addr);

        int32_t datum = object_get_datum(val);

        printf("#(0x%X:func ", addr);

        print(object_get_datum(memory_get(datum)));

        printf(")");

        /*

        printf("#(0x%X:function ", addr);

        print(datum);

        printf(")");

        */

}

void

print_builtin(uint32_t addr)

{

        reg_t val = memory_get(addr);

        int32_t datum = object_get_datum(val);

        printf("#(builtin ");

        print(datum);

        printf(")");

}

void

print(uint32_t addr)

{

        reg_t val = memory_get(addr);

        int32_t datum = object_get_datum(val);

        uint32_t type = object_get_type(val);

        if (currently_printing[addr]) {

                printf("#(R 0x%X:%X:%X)", addr, type, datum);

                return;

        }

        currently_printing[addr] = 1;

        switch (object_get_type(val)) {

        case TYPE_NONE:

                printf("#(0x%X:none)", addr);

                break;

        case TYPE_INT:

                printf("%d", datum);

                break;

        case TYPE_FLOAT:

                printf("%f", (float)datum);

                break;

        case TYPE_CONS:

                print_list(addr, 1);

                break;

        case TYPE_SNOC:

                printf("#(0x%X:snoc ", addr);

                print(datum);

                printf(")");

                break;

        case TYPE_PTR:

                printf("#(0x%X:ptr ", addr);

                print(datum);

                printf(")");

                break;

        case TYPE_ARRAY:

                print_array(addr);

                break;

        case TYPE_NIL:

                printf("nil");

                break;

        case TYPE_T:

                printf("t");

                break;

        case TYPE_CHAR:

                printf("#\\%c", datum);

                break;

        case TYPE_SYMBOL:

                print_symbol(addr);

                break;

        case TYPE_FUNCTION:

                print_function(addr);

                break;

        case TYPE_BUILTIN:

                print_builtin(addr);

                break;

        default:

                printf("#(0x%X:invalid object %X:%X)", addr, type, datum);

                break;

        }

        currently_printing[addr] = 0;

}