2020-01-31 21:12:34 +00:00
|
|
|
/* Copyright (C) 2016 Jeremiah Orians
|
|
|
|
* This file is part of M2-Planet.
|
|
|
|
*
|
|
|
|
* M2-Planet 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.
|
|
|
|
*
|
|
|
|
* M2-Planet 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 M2-Planet. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
*/
|
|
|
|
#include<stdlib.h>
|
|
|
|
#include<stdio.h>
|
|
|
|
#include<string.h>
|
|
|
|
#include"cc.h"
|
|
|
|
|
|
|
|
/* The core functions */
|
|
|
|
void initialize_types();
|
|
|
|
struct token_list* read_all_tokens(FILE* a, struct token_list* current, char* filename);
|
|
|
|
struct token_list* reverse_list(struct token_list* head);
|
|
|
|
struct token_list* program();
|
|
|
|
void recursive_output(struct token_list* i, FILE* out);
|
|
|
|
int match(char* a, char* b);
|
|
|
|
void file_print(char* s, FILE* f);
|
|
|
|
char* parse_string(char* string);
|
|
|
|
|
|
|
|
int main()
|
|
|
|
{
|
2020-12-19 14:46:22 +00:00
|
|
|
MAX_STRING = 4096;
|
2020-01-31 21:12:34 +00:00
|
|
|
hold_string = calloc(MAX_STRING, sizeof(char));
|
|
|
|
FILE* in = fopen("tape_01", "r");
|
|
|
|
FILE* destination_file = fopen("tape_02", "w");
|
|
|
|
Architecture = KNIGHT_NATIVE;
|
|
|
|
|
|
|
|
global_token = read_all_tokens(in, global_token, "tape_01");
|
|
|
|
|
2020-12-21 15:57:17 +00:00
|
|
|
fclose(in);
|
|
|
|
|
2020-01-31 21:12:34 +00:00
|
|
|
if(NULL == global_token)
|
|
|
|
{
|
|
|
|
file_print("Either no input files were given or they were empty\n", stderr);
|
|
|
|
exit(EXIT_FAILURE);
|
|
|
|
}
|
|
|
|
global_token = reverse_list(global_token);
|
|
|
|
|
|
|
|
initialize_types();
|
|
|
|
reset_hold_string();
|
|
|
|
output_list = NULL;
|
|
|
|
program();
|
|
|
|
|
|
|
|
/* Output the program we have compiled */
|
|
|
|
file_print("\n# Core program\n", destination_file);
|
|
|
|
recursive_output(output_list, destination_file);
|
|
|
|
file_print("\n\n# Program global variables\n", destination_file);
|
|
|
|
recursive_output(globals_list, destination_file);
|
|
|
|
file_print("\n# Program strings\n", destination_file);
|
|
|
|
recursive_output(strings_list, destination_file);
|
|
|
|
file_print("\n:STACK\n", destination_file);
|
2020-12-21 15:57:17 +00:00
|
|
|
|
|
|
|
fclose(destination_file)
|
2020-01-31 21:12:34 +00:00
|
|
|
return EXIT_SUCCESS;
|
|
|
|
}
|