output.c

#include "output.h"

extern int instructions_memory;

extern int data_memory;

extern char ** entry_list;

OutputLinePtr outputLineHead = NULL;

ExternalItemList * external_list = NULL;

char outputLineSymbols [5] = {
	'A',
	'B',
	'C',
	'D',
	'E'
};

extern int get_symbol_value_by_name(char * name);

void push_line_to_list(OutputLine line)
{
	OutputLinePtr current = outputLineHead;
	/* if head is empty*/
	if(outputLineHead == NULL) {
		/* push item to head*/
		outputLineHead = (OutputLinePtr) malloc(sizeof(OutputLineItem));
		outputLineHead->line = line;
		outputLineHead->next = NULL;
	} else {
		/* go to last list item*/
		while(current->next != NULL) {
			current = (OutputLinePtr) current->next;
		}
		/* push line to last item */
		current->next = (OutputLinePtr) malloc(sizeof(OutputLineItem));
		current->next->line = line;
		current->next->next = NULL;
	}
}

void print_outputline_list()
{
	OutputLinePtr current = outputLineHead;

	if(outputLineHead == NULL) {
		printf("\n the list is empty\n");
		return;
	}
	printf("--------Outputline List-------\n");
	while(current != NULL) {
		printf("--------------------------\n");
		printf("line number: %d\n",current->line.lineNumber);
		printf("data: %s\n", current->line.bits);
		printf("--------------------------\n");
		current = current->next;
	}
}

 /*function that take a number and make it a bit with the given size */
char * decimal_to_bin(int n,int s) /* number and size? anat */
{
	int c, d, count;
	char *pointer;

	count = 0;
	pointer = (char*)malloc(s+1);

	for (c = s-1; c >= 0; c--) {
		d = n >> c;
		if (d & 1) {
			*(pointer+count) = 1 + '0';
		} else {
			*(pointer+count) = 0 + '0';
		}
		count++;
	}
	*(pointer+count) = '\0';
	return pointer;
}


int bin_to_decimal(char * bits)
{
	int i = 0;
	int dec = 0;

	while (bits[i]) {
		if (bits[i] == '1'){
			dec = dec * 2 + 1;
		} else if (bits[i] == '0') {
			dec *= 2;
		}
		i++;
	}

	return dec;
}

char bin_to_hex(int dec) {

	int rem;
	char hexnum;

	while (dec != 0) {
		rem = dec % 16;
		if (rem < 10) {
			rem = rem + 48;
		} else {
			rem = rem + 55;
			hexnum = rem;
		}
	}
	return hexnum;
}


void reset_output_list()
{
	OutputLinePtr current = outputLineHead;
	while(current) {
		current->line.bits = NULL;
		free(current->line.bits);
		free(current);
		current = current->next;
	}
	outputLineHead = NULL;
}

void add_to_external_list(char * name, int line)
{
	ExternalItem external_item;
	ExternalItemList * current = external_list;
	external_item.line = line;
	external_item.symbol = name;

	if(external_list == NULL) {
		external_list = (ExternalItemList *) malloc(sizeof(ExternalItemList));
		external_list->external = external_item;
		external_list->next = NULL;
	} else {
		while(current->next) {
			current = current->next;
		}
		current->next = (ExternalItemList *) malloc(sizeof(ExternalItemList));
		current->next->external = external_item;
		current->next->next = NULL;
	}

	return;
}

void reset_external_list()
{
	ExternalItemList * current = external_list;
	while(current) {
		current->external.symbol = NULL;
		free(current->external.symbol);
		free(current);
		current = current->next;
	}
	external_list = NULL;
}

char * concat(const char *s1, const char *s2)
{
    char *result = malloc(strlen(s1) + strlen(s2) + 1);

    strcpy(result, s1);
    strcat(result, s2);
    return result;
}

void create_output_files(char * filename)
{
	char * ofilename = concat(filename, ".ob");
	char * extfilename = concat(filename, ".ext");
	char * entfilename = concat(filename, ".ent");

	create_o_file(ofilename);
	create_ext_file(extfilename);
	create_ent_file(entfilename);
}

void create_o_file(char * filename)
{
	FILE *file;
	OutputLinePtr current = outputLineHead;
	file = fopen(filename, "w");

	fprintf(file, "  %d %d\n", instructions_memory, data_memory);
	while(current) {
		fprintf(file, "%d  %s\n", current->line.lineNumber, bits_to_special_base4(current->line.bits));
		current = current->next;
	}
	fclose(file);
}

char * bits_to_special_base4(char * bits)
{
	int i = 19, j, z = 0;
	int index = 0;
	int number;
	char hex;
	char * currentBits = (char *) malloc(4 * sizeof(char)); /*  */
	char * symbolLine = (char *) calloc(14 , sizeof(char)); /* anat 14 bits for the A4-B... */

	/* anat try */
	while(bits[i])
	{
		j = i;
		for (; j >= i-3; j-- )
		{
			currentBits[j] = bits[j];
		}
		symbolLine[z] = outputLineSymbols[index]; /* A */
		printf("\n\n symbolLine[ABCDE]: %c\n",symbolLine[z] ); /* A */

		number = bin_to_decimal(currentBits); /* translating 4 */

		if(number > 9 && number < 16){
			hex = bin_to_hex(number);
			z++;
			symbolLine[z] = hex; /* c */
			printf("\n\n symbolLine[hex]: %c\n",symbolLine[z] ); /* c */
		}
		else if (number <= 9) {
			z++;
			symbolLine[z] = number;
			printf("\n\n symbolLine[number]: %d\n",symbolLine[z] ); /* 4 */
		}


		/*if (number <= 9) {
			symbolLine[z] = number;
		}
		else{
			symbolLine[z] = hex;
		}*/
		z++;
		symbolLine[z] = '-';
		printf("symbolLine[-]: %c\n",symbolLine[z] ); /* - */

		i = i-4;

		index++;

	}

	return symbolLine;
}

void create_ext_file(char * filename)
{
	FILE *file;
	ExternalItemList * current = external_list;

	if (!current) { /* do not create unnecessery file */
		return;
	}

	file = fopen(filename, "w");
	while(current) {
		fprintf(file, "%s %d\n", current->external.symbol, current->external.line);
		current = current->next;
	}
	fclose(file);
}

void create_ent_file(char * filename)
{
	FILE *file;
	int i = 0;

	if (!entry_list) { /* do not create unnecessery file */
		return;
	}

	file = fopen(filename, "w");
	while(entry_list[i]) {
		fprintf(file, "%s %d\n", entry_list[i], get_symbol_value_by_name(entry_list[i]));
		i++;
	}
	fclose(file);
}