2017-11-05 14:23:17 +00:00
|
|
|
/* 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;
|
2017-11-08 23:05:54 +00:00
|
|
|
struct token_list* token;
|
2018-05-26 21:33:00 +01:00
|
|
|
int line;
|
|
|
|
char* file;
|
2017-11-05 14:23:17 +00:00
|
|
|
|
|
|
|
char clearWhiteSpace(char c)
|
|
|
|
{
|
2018-05-26 21:33:00 +01:00
|
|
|
if((32 == c) || (9 == c)) return clearWhiteSpace(fgetc(input));
|
|
|
|
else if (10 == c)
|
|
|
|
{
|
|
|
|
line = line + 1;
|
|
|
|
return clearWhiteSpace(fgetc(input));
|
|
|
|
}
|
2017-11-05 14:23:17 +00:00
|
|
|
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);
|
2017-12-14 22:01:30 +00:00
|
|
|
return fgetc(input);
|
2017-11-05 14:23:17 +00:00
|
|
|
}
|
|
|
|
|
2018-01-25 01:00:22 +00:00
|
|
|
|
|
|
|
void fixup_label(struct token_list* current)
|
|
|
|
{
|
|
|
|
int hold = ':';
|
|
|
|
int prev;
|
|
|
|
int i = 0;
|
|
|
|
do
|
|
|
|
{
|
|
|
|
prev = hold;
|
|
|
|
hold = current->s[i];
|
|
|
|
current->s[i] = prev;
|
|
|
|
i = i + 1;
|
|
|
|
} while(0 != hold);
|
|
|
|
}
|
|
|
|
|
2017-12-19 20:44:27 +00:00
|
|
|
char preserve_keyword(struct token_list* current, char c)
|
|
|
|
{
|
|
|
|
while((('a' <= c) & (c <= 'z')) | (('A' <= c) & (c <= 'Z')) | (('0' <= c) & (c <= '9')) | (c == '_'))
|
|
|
|
{
|
|
|
|
c = consume_byte(current, c);
|
|
|
|
}
|
2018-01-25 01:00:22 +00:00
|
|
|
if(':' == c)
|
|
|
|
{
|
|
|
|
fixup_label(current);
|
|
|
|
return 32;
|
|
|
|
}
|
2017-12-19 20:44:27 +00:00
|
|
|
return c;
|
|
|
|
}
|
|
|
|
|
|
|
|
char preserve_symbol(struct token_list* current, char c)
|
|
|
|
{
|
2018-01-12 02:46:20 +00:00
|
|
|
while((c == '<') | (c == '=') | (c == '>') | (c == '|') | (c == '&') | (c == '!') | (c == '-'))
|
2017-12-19 20:44:27 +00:00
|
|
|
{
|
|
|
|
c = consume_byte(current, c);
|
|
|
|
}
|
|
|
|
return c;
|
|
|
|
}
|
|
|
|
|
2017-11-08 23:05:54 +00:00
|
|
|
char purge_macro(int ch)
|
|
|
|
{
|
|
|
|
while(10 != ch) ch = fgetc(input);
|
|
|
|
return ch;
|
|
|
|
}
|
|
|
|
|
2017-11-05 14:23:17 +00:00
|
|
|
int get_token(int c)
|
|
|
|
{
|
|
|
|
struct token_list* current = calloc(1, sizeof(struct token_list));
|
2017-12-15 23:17:29 +00:00
|
|
|
current->s = calloc(MAX_STRING, sizeof(char));
|
2017-11-05 14:23:17 +00:00
|
|
|
|
2017-12-19 20:44:27 +00:00
|
|
|
reset:
|
|
|
|
string_index = 0;
|
2017-11-05 14:23:17 +00:00
|
|
|
|
2017-12-19 20:44:27 +00:00
|
|
|
c = clearWhiteSpace(c);
|
|
|
|
if('#' == c)
|
|
|
|
{
|
|
|
|
c = purge_macro(c);
|
|
|
|
goto reset;
|
|
|
|
}
|
|
|
|
else if((('a' <= c) & (c <= 'z')) | (('A' <= c) & (c <= 'Z')) | (('0' <= c) & (c <= '9')) | (c == '_'))
|
|
|
|
{
|
|
|
|
c = preserve_keyword(current, c);
|
|
|
|
}
|
2018-01-12 02:46:20 +00:00
|
|
|
else if((c == '<') | (c == '=') | (c == '>') | (c == '|') | (c == '&') | (c == '!') | ( c == '-'))
|
2017-12-19 20:44:27 +00:00
|
|
|
{
|
|
|
|
c = preserve_symbol(current, c);
|
|
|
|
}
|
2018-01-25 01:00:22 +00:00
|
|
|
else if(c == 39)
|
|
|
|
{ /* 39 == ' */
|
|
|
|
c = consume_word(current, c, 39);
|
2017-12-19 20:44:27 +00:00
|
|
|
}
|
|
|
|
else if(c == '"')
|
|
|
|
{
|
|
|
|
c = consume_word(current, c, '"');
|
|
|
|
}
|
|
|
|
else if(c == '/')
|
|
|
|
{
|
|
|
|
c = consume_byte(current, c);
|
|
|
|
if(c == '*')
|
2017-11-05 14:23:17 +00:00
|
|
|
{
|
2017-12-19 20:44:27 +00:00
|
|
|
c = fgetc(input);
|
|
|
|
while(c != '/')
|
2017-11-05 14:23:17 +00:00
|
|
|
{
|
2018-05-26 21:33:00 +01:00
|
|
|
while(c != '*')
|
|
|
|
{
|
|
|
|
c = fgetc(input);
|
|
|
|
if(10 == c) line = line + 1;
|
|
|
|
}
|
2017-12-19 20:44:27 +00:00
|
|
|
c = fgetc(input);
|
2018-05-26 21:33:00 +01:00
|
|
|
if(10 == c) line = line + 1;
|
2017-11-05 14:23:17 +00:00
|
|
|
}
|
2017-12-19 20:44:27 +00:00
|
|
|
c = fgetc(input);
|
|
|
|
goto reset;
|
|
|
|
}
|
|
|
|
else if(c == '/')
|
|
|
|
{
|
|
|
|
c = fgetc(input);
|
|
|
|
goto reset;
|
2017-11-05 14:23:17 +00:00
|
|
|
}
|
|
|
|
}
|
2018-01-25 01:00:22 +00:00
|
|
|
else if(c < 0)
|
2018-01-21 03:56:50 +00:00
|
|
|
{
|
|
|
|
free(current);
|
|
|
|
return c;
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
c = consume_byte(current, c);
|
|
|
|
}
|
2017-11-05 14:23:17 +00:00
|
|
|
|
2017-11-08 23:05:54 +00:00
|
|
|
current->prev = token;
|
|
|
|
current->next = token;
|
2018-05-26 21:33:00 +01:00
|
|
|
current->linenumber = line;
|
|
|
|
current->filename = file;
|
2017-11-08 23:05:54 +00:00
|
|
|
token = current;
|
2017-11-05 14:23:17 +00:00
|
|
|
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;
|
|
|
|
}
|
|
|
|
|
2018-05-26 21:33:00 +01:00
|
|
|
struct token_list* read_all_tokens(FILE* a, struct token_list* current, char* filename)
|
2017-11-05 14:23:17 +00:00
|
|
|
{
|
2018-01-21 03:56:50 +00:00
|
|
|
input = a;
|
2018-05-26 21:33:00 +01:00
|
|
|
line = 1;
|
|
|
|
file = filename;
|
2018-01-21 03:56:50 +00:00
|
|
|
token = current;
|
2017-11-05 14:23:17 +00:00
|
|
|
int ch =fgetc(input);
|
2018-05-26 21:33:00 +01:00
|
|
|
while(EOF != ch) ch = get_token(ch);
|
2017-11-05 14:23:17 +00:00
|
|
|
|
2018-01-21 03:56:50 +00:00
|
|
|
return token;
|
2017-11-05 14:23:17 +00:00
|
|
|
}
|