cirilisp/print.c

#include <stdio.h>

#include "util.h"

char *errors[] =
{
	"Конс објекат мора бити правилна листа да би могао бити евалуиран",
	"Неправилан тип аргумента прослеђен функцији",
	"Непознати симбол",
	"Објекат није примењив",
	"Дељење нулом",
	"Функцији није прослеђен правилан број аргумената",
	"Синтаксна грешка"
};

void printValue(object input);

void print(object input)
{
	if (TYPE(input) == errorObject)
	{
		fprintf(stderr, "\nГРЕШКА: %s\n\n", errors[ERR(input)]);
	}
	else
	{
		printf("\n");
		printValue(input);
		printf("\n\n");
	}
}

void printValue(object input)
{
	if (TYPE(input) == nilObject)
	{
		printf("()");
	}
	else if (TYPE(input) == numberObject)
	{
		if (NUM_TYPE(input) == fractionNum)
		{
			printf("%lld", NUM_NUMER(input));
			if (NUM_DENOM(input) != 1)
			{
				printf("/%lld", NUM_DENOM(input));
			}
		}
		else
		{
			printf("%LF", NUM_REAL(input));
		}
	}
	else if (TYPE(input) == procedureObject)
	{
		printf("<процедура:%s>", PROC_TYPE(input) == builtinProc ?
				"уграђена" : "сложена");
		if (PROC_TYPE(input) == compoundProc)
		{
			printValue(PROC_COMP_ARGS(input));
			printValue(PROC_COMP_BODY(input));
		}
	}
	else if (TYPE(input) == symbolObject)
	{
		printf("%s", SYM(input));
	}
	else if (TYPE(input) == consObject)
	{
		printf("(");
		object *currentCell = &input;
		while (TYPE(*currentCell) == consObject)
		{
			printValue(CAR(*currentCell));
			if (TYPE(CDR(*currentCell)) == consObject)
			{
				printf(" ");
			}
			currentCell = &CDR(*currentCell);
		}
		if (TYPE(*currentCell) != nilObject)
		{
			printf(" . ");
			printValue(*currentCell);
		}
		printf(")");
	}
}