/* Copyright (C) 2016 Jeremiah Orians
 * This file is part of stage0.
 *
 * stage0 is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * stage0 is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with stage0.  If not, see <http://www.gnu.org/licenses/>.
 */

#include "cc.h"
FILE* input;

char clearWhiteSpace(char c)
{
	if((32 == c) || (10 == c) || (9 == c)) return clearWhiteSpace(fgetc(input));
	return c;
}

int string_index;
char consume_byte(struct token_list* current, char c)
{
	current->s[string_index] = c;
	string_index = string_index + 1;
	return fgetc(input);
}

char consume_word(struct token_list* current, char c, char frequent)
{
	c = consume_byte(current, c);
	while(c != frequent) c = consume_byte(current, c);
	return consume_byte(current, c);
}

int get_token(int c)
{
	bool w = true;

	struct token_list* current = calloc(1, sizeof(struct token_list));
	current->s = calloc(64, sizeof(char));

	while(w)
	{
		w = false;
		string_index = 0;

		c = clearWhiteSpace(c);
		while((('a' <= c) & (c <= 'z')) | (('0' <= c) & (c <= '9')) | (c == '_')) c = consume_byte(current, c);
		if(string_index == 0) while((c == '<') | (c == '=') | (c == '>') | (c == '|') | (c == '&') | (c == '!')) c = consume_byte(current, c);
		if(string_index == 0)
		{
			if(c == 39) c = consume_word(current, c, 39);
			else if(c == '"') c = consume_word(current, c, '"');
			else if(c == '/')
			{
				c = consume_byte(current, c);
				if(c == '*')
				{
					c = fgetc(input);
					while(c != '/')
					{
						while(c != '*') c = fgetc(input);
						c = fgetc(input);
					}
					c = fgetc(input);
					w = true;
				}
			}
			else if(c != EOF) c = consume_byte(current, c);
		}
	}

	current->prev = global_token;
	current->next = global_token;
	global_token = current;
	return c;
}

struct token_list* reverse_list(struct token_list* head)
{
	struct token_list* root = NULL;
	while(NULL != head)
	{
		struct token_list* next = head->next;
		head->next = root;
		root = head;
		head = next;
	}
	return root;
}

void read_all_tokens(char* source_file)
{
	input  = fopen(source_file, "r");
	int ch =fgetc(input);
	while(EOF != ch) ch = get_token(ch);

	global_token = reverse_list(global_token);
}