#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include "chelper.h"
#include "tree.h"

#if 1
#define DDCHELP
#endif

#define REGLEN 9
static char *regs64[] = {"rax", "r10", "r11", "r9", "r8", "rcx", "rdx", "rsi", "rdi"};
static char *regs8l[] = {"al", "r10b", "r11b", "r9b", "r8b", "cl", "dl", "sil", "dil"};

void func_header(char *s)
{
	printf("\t.globl %1$s\n\t.type %1$s, @function\n%1$s:\n", s);
}

void func_footer(void)
{
	printf("\tret\n");
}

void move(char *src, char *dst)
{
	if(src == NULL) {
		printf("//wtf, src ist null\n");
	}
	if(dst == NULL) {
		printf("//wtf, dst ist null\n");
	}
	if(strcmp(src,dst) != 0) {
		printf("\tmovq %%%s, %%%s\n", src, dst);
	}
}

void moveimm(long imm, char *dst)
{
	char buf[100];
	sprintf(buf, "$%d", imm);
	printf("\tmovq %s, %%%s\n", buf, dst);
}

void ret(void)
{
	printf("\tret\n");
}

char *next_reg(char *s, short skip, int params)
{
	int i = 0;
	if (s != (char*) NULL) {
		while(i < REGLEN) {
			if(!strcmp(s, regs64[i++])) {
				break;
			}
		}
	}
	if(skip) {
		i++;
	}
#ifdef DDCHELP
	fprintf(stderr, "next_reg(): %s (bei %i parameter)\n", regs64[i], params);
#endif
	/* TODO: <= passt? */
	if(REGLEN - params <= i) {
		fprintf(stderr, "next_reg(): register \"%s\" in dem sich ein parameter befindet wird als temporaeres register verwendet(params: %i, i: %i)\n", regs64[i], params, i);
		/* TODO: exit hier? */
#if 0
		exit(4);
#endif
	}
	return regs64[i];
}

char *reg_64to8l(char *s)
{
	int i = 0;
	if (s != (char*) NULL) {
		while(i < REGLEN) {
			if(!strcmp(s, regs64[i])) {
				return regs8l[i];
			} else {
				i++;
			}
		}
	}
	fprintf(stderr, "reg_64to8l(): sollte nicht passieren\n");
	exit(4);
}


char *param_reg(int num)
{
	char *regs[] = {"rdi", "rsi", "rdx", "rcx", "r8", "r9"};
	return regs[num];
}