helpers.c

#include <stdio.h>
#include "helpers.h"
#include "execute.h"
#include "error.h"

static int odsazeni = 0;
static int resolve  = 1;


static void odsadit()
{
	for (int i=0; i<odsazeni; i++)
		printf("  ");
}


int print_Symbol(t_point s)
{
	if (resolve) s = resolve_Thunk(s);

	switch (get_type(s)) {
		case FUNCTION:
			if (s == BOOL_TRUE)
				printf("TRUE\n");
			else
#ifndef DEBUG
				printf("Function (%lX): %sbuilt in, %d%s parameters\n",
						s,
						(get_Func(s))->built_in ? "" : "not ",
						(get_Func(s))->params_count,
						(get_Func(s))->more_params ? "+" : "");
#else
				return print_Function(get_Func(s));
#endif
			break;
		case THUNK:
			if (is_NIL(get_Thunk(s)->function))
				printf("%li. Parameter\n", get_Num((t_point) get_Thunk(s)->params));
			else
#ifndef DEBUG
				printf("Thunk (%lX)\n", s);
#else
				return print_Thunk(get_Thunk(s));
#endif
			break;
		case CONS:
			if (s == NIL)
				printf("NIL/FALSE\n");
			else
				return print_List(get_Cons(s));
			break;
		case NUMBER: printf("Number: %li\n", get_Num(s)); break;
		default:     printf("Wrong type (%lx)\n", (t_number) s); return 1;
	}

	return 0;
}


int print_List(Cons *l)
{
	if (l == NULL) printf("NIL\n");
	int first = 1;

	while (l != NULL) {
		if (resolve) l->b = resolve_Thunk(l->b);
		if (!type_match(l->b, CONS)) {
			if (!first) odsadit();
			return print_Cons(l);
		}
		if (first) {
			odsazeni++;
			printf("List:\n");
			first = 0;
		}
		odsadit();
		print_Symbol(l->a);
		l = next(l);
	}

	odsazeni--;
	return 0;
}


int print_Cons(Cons *c)
{
	if (c == NULL) { printf("NIL\n"); return 1; }
	if (type_match((t_point) c, NUMBER)) {
		// printovan parametr jako Thunk
		return (int) ERROR_RET(INNER_ERROR);
	}

	odsazeni++;
	printf("[Cons \n");
	odsadit(); print_Symbol(c->a);
	odsadit(); print_Symbol(c->b);
	odsazeni--;
	odsadit(); printf("]\n");

	return 0;
}


int print_Function(Function *f)
{
	printf("Function:\n");
	if (f == NULL) return 1;
	int tmp = resolve;
	resolve = 0;
	odsazeni++;

	odsadit(); printf("Number of parameters: %d%s\n", f->params_count, f->more_params ? "+" : "");

	if (f->built_in) {
		odsadit(); printf("Built in\n");
	} else {
#ifndef DEBUG
		odsadit(); printf("Not built in\n");
#else
		odsadit(); printf("Function body - "); print_Symbol(f->body.structure);
#endif
	}

	odsazeni--;
	resolve = tmp;
	return 0;
}


int print_Thunk(Thunk *t)
{
	printf("Thunk:\n");
	if (t == NULL) return 1;
	int tmp = resolve;
	resolve = 0;
	odsazeni++;

	odsadit(); printf("To call - "); print_Symbol(t->function);
	odsadit(); printf("Parameters - "); print_List(t->params);

	odsazeni--;
	resolve = tmp;
	return 0;
}