107 lines
2.6 KiB
C
107 lines
2.6 KiB
C
|
/* 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);
|
||
|
|
}
|