|
|
@@ -9,15 +9,16 @@ enum { |
|
|
|
coin_range, coin_enrange, coin_derange, coin_machine |
|
|
|
}; |
|
|
|
|
|
|
|
static int coin_code = 0; |
|
|
|
static int coin_code = 0;/* |
|
|
|
static int type_code = 0; |
|
|
|
static int function_code = 0; |
|
|
|
static int variable_code = 0; |
|
|
|
static int constant_code = 0; |
|
|
|
|
|
|
|
static int coin_type [240] = { 0 }; |
|
|
|
static int coin_data [240] = { 0 }; |
|
|
|
static int constant_code = 0;*/ |
|
|
|
|
|
|
|
static int coin_enum [240] = { 0 }; |
|
|
|
static int coin_data [240] = { 0 }; |
|
|
|
static char coin_text [240] [40] = { "" }; |
|
|
|
/* |
|
|
|
static char type_name [27] [40] = { "" }; |
|
|
|
static int type_size [27] = { 0 }; |
|
|
|
|
|
|
@@ -33,19 +34,22 @@ static int variable_data [27] = { 0 }; |
|
|
|
static char constant_name [30] [40] = { "" }; |
|
|
|
static int constant_type [30] = { 0 }; |
|
|
|
static int constant_data [30] = { 0 }; |
|
|
|
|
|
|
|
*/ |
|
|
|
#include <stdio.h> |
|
|
|
|
|
|
|
#define STRING_LIMIT (40) |
|
|
|
|
|
|
|
static char * word_list [] = { |
|
|
|
"type", "loop", "if", "else", "case", "return", "import", "system" |
|
|
|
}; |
|
|
|
|
|
|
|
static void add_coin (int type, int data) { |
|
|
|
coin_type [coin_code] = type; |
|
|
|
static void add_coin (int type, int data, char * text) { |
|
|
|
coin_enum [coin_code] = type; |
|
|
|
coin_data [coin_code] = data; |
|
|
|
string_copy (coin_text [coin_code], text); |
|
|
|
++coin_code; |
|
|
|
} |
|
|
|
|
|
|
|
/* |
|
|
|
static void add_type (char * name, int size) { |
|
|
|
string_copy (type_name [type_code], name); |
|
|
|
type_size [type_code] = size; |
|
|
@@ -57,69 +61,59 @@ static void add_function (char * name, int type, char * * agrument_name, int * a |
|
|
|
type_size [type_code] = size; |
|
|
|
++type_code; |
|
|
|
} |
|
|
|
|
|
|
|
static void kill (char * data) { |
|
|
|
echo (data); |
|
|
|
exit (log_failure); |
|
|
|
} |
|
|
|
|
|
|
|
*/ |
|
|
|
int main (void) { |
|
|
|
char * buffer = null; |
|
|
|
int offset = 0; |
|
|
|
int length = 0; |
|
|
|
|
|
|
|
buffer = file_import ("./test.x"); |
|
|
|
buffer = file_import ("./test_x.x"); |
|
|
|
|
|
|
|
for (offset = 0; buffer [offset] != '\0'; ++offset) { |
|
|
|
int size = 0; |
|
|
|
char data [STRING_LIMIT] = ""; |
|
|
|
if (buffer [offset] == '"') { |
|
|
|
int size = 0; |
|
|
|
char data [STRING_LIMIT] = ""; |
|
|
|
for (++offset; (buffer [offset] != '"') && (buffer [offset] != '\0'); ++offset) { |
|
|
|
data [size++] = buffer [offset]; |
|
|
|
} |
|
|
|
data [size] = '\0'; |
|
|
|
add_coin (core_string, string_code); |
|
|
|
add_string (data, size); |
|
|
|
add_coin (coin_string, 0, data); |
|
|
|
} else if (character_is_digit (buffer [offset]) == true) { |
|
|
|
int data = buffer [offset] - '0'; |
|
|
|
data [0] = buffer [offset]; |
|
|
|
for (++offset; (character_is_digit (buffer [offset]) == true) && (buffer [offset] != '\0'); ++offset) { |
|
|
|
data *= 10; |
|
|
|
data += (buffer [offset] - '0'); |
|
|
|
data [size++] = buffer [offset]; |
|
|
|
} |
|
|
|
add_coin (core_number, number_code); |
|
|
|
add_number (data); |
|
|
|
add_coin (coin_number, 0, data); |
|
|
|
data [size] = '\0'; |
|
|
|
--offset; |
|
|
|
} else if (character_is_alpha (buffer [offset]) == true) { |
|
|
|
int size = 0; |
|
|
|
char name [NAME_LIMIT] = ""; |
|
|
|
for (; ((character_is_alpha (buffer [offset]) == true) || |
|
|
|
(character_is_digit (buffer [offset]) == true) || |
|
|
|
(character_is_underscore (buffer [offset]) == true)) && (buffer [offset] != '\0'); ++offset) { |
|
|
|
name [size++] = buffer [offset]; |
|
|
|
data [size++] = buffer [offset]; |
|
|
|
} |
|
|
|
name [size] = '\0'; |
|
|
|
data [size] = '\0'; |
|
|
|
for (length = 0; length < (int) (sizeof (word_list) / sizeof (word_list [0])); ++length) { |
|
|
|
if (string_compare_limit (name, word_list [length], string_length (word_list [length]) + 1) == true) { |
|
|
|
add_coin (core_word, length); |
|
|
|
if (string_compare_limit (data, word_list [length], string_length (word_list [length]) + 1) == true) { |
|
|
|
add_coin (length, 0, data); |
|
|
|
goto here; |
|
|
|
} |
|
|
|
} |
|
|
|
add_coin (core_marker, marker_code); |
|
|
|
add_marker (name, token_type [token_count - 1]); |
|
|
|
if ((token_type [token_count - 2] == core_word) && (token_data [token_count - 2] == word_type)) { |
|
|
|
token_type [token_count - 1] = core_type; |
|
|
|
add_type (name); |
|
|
|
add_coin (coin_marker, 0, data); |
|
|
|
/*if ((coin_enum [coin_count - 2] == coin_word) && (coin_data [coin_count - 2] == word_type)) { |
|
|
|
coin_enum [coin_count - 1] = coin_type; |
|
|
|
} |
|
|
|
for (length = 0; length < type_code; ++length) { |
|
|
|
if (string_compare_limit (name, type_name [length], string_length (type_name [length]) + 1) == true) { |
|
|
|
token_type [token_count - 1] = core_type; |
|
|
|
if (string_compare_limit (data, type_name [length], string_length (type_name [length]) + 1) == true) { |
|
|
|
coin_enum [coin_count - 1] = coin_type; |
|
|
|
} |
|
|
|
} |
|
|
|
}*/ |
|
|
|
here: |
|
|
|
--offset; |
|
|
|
} else if (character_compare_array (buffer [offset], ",.;:=<>&|!+-*/%()[]") == true) { |
|
|
|
add_coin (core_symbol, symbol_code); |
|
|
|
add_symbol (buffer [offset]); |
|
|
|
} else if (character_compare_array (buffer [offset], ",.;:=<>#&|!+*-/%()[]") == true) { |
|
|
|
char s [2] = ""; |
|
|
|
s [0] = buffer [offset]; |
|
|
|
add_coin (coin_none, 0, s); |
|
|
|
} else { |
|
|
|
if (character_is_blank (buffer [offset]) == false) { |
|
|
|
echo ("\033[1;31mCharacter set exception point: Segmentation\033[0m\n"); |
|
|
@@ -129,61 +123,66 @@ int main (void) { |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
end: |
|
|
|
|
|
|
|
for (length = 0; length < token_count; ++length) { |
|
|
|
switch (token_type [length]) { |
|
|
|
case core_symbol: printf ("\033[1;34m%c\033[0m ", symbol_data [token_data [length]]); break; |
|
|
|
case core_string: printf ("\033[1;31m%s\033[0m ", string_data [token_data [length]]); break; |
|
|
|
case core_number: printf ("\033[1;32m%i\033[0m ", number_data [token_data [length]]); break; |
|
|
|
case core_type: printf ("\033[1;36m%s\033[0m ", marker_name [token_data [length]]); break; |
|
|
|
case core_marker: printf ("\033[1;33m%s\033[0m ", marker_name [token_data [length]]); break; |
|
|
|
case core_word: printf ("\033[1;35m%s\033[0m ", word_list [token_data [length]]); break; |
|
|
|
default: break; |
|
|
|
for (length = 0; length < coin_code; ++length) { |
|
|
|
switch (coin_enum [length]) { |
|
|
|
case coin_string: printf ("\033[1;36m%s\033[0m ", coin_text [length]); break; |
|
|
|
case coin_number: printf ("\033[1;34m%s\033[0m ", coin_text [length]); break; |
|
|
|
/*case coin_type: printf ("\033[1;36m%s\033[0m ", coin_text [length]); break;*/ |
|
|
|
case coin_marker: printf ("\033[1;37m%s\033[0m ", coin_text [length]); break; |
|
|
|
case coin_type: |
|
|
|
case coin_if: |
|
|
|
case coin_else: |
|
|
|
case coin_case: |
|
|
|
case coin_loop: |
|
|
|
case coin_import: |
|
|
|
case coin_system: |
|
|
|
case coin_return: |
|
|
|
printf ("\033[1;33m%s\033[0m ", coin_text [length]); break; |
|
|
|
default: printf ("\033[1;31m%s\033[0m ", coin_text [length]); break; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
printf ("\n"); |
|
|
|
|
|
|
|
for (length = 0; length < token_count; ++length) { |
|
|
|
if ((token_type [length] == core_word) && (token_data [length] == word_return)) { |
|
|
|
/* |
|
|
|
for (length = 0; length < coin_count; ++length) { |
|
|
|
if ((coin_enum [length] == coin_word) && (coin_data [length] == word_return)) { |
|
|
|
++length; |
|
|
|
if ((token_type [length] == core_symbol) && (symbol_data [token_data [length]] == '(')) { |
|
|
|
if ((coin_enum [length] == coin_symbol) && (symbol_data [coin_data [length]] == '(')) { |
|
|
|
echo ("return (\n"); |
|
|
|
++length; |
|
|
|
} else if ((token_type [length] == core_symbol) && (symbol_data [token_data [length]] == ';')) { |
|
|
|
} else if ((coin_enum [length] == coin_symbol) && (symbol_data [coin_data [length]] == ';')) { |
|
|
|
echo ("; return;\nxor rax, rax\nret\n"); |
|
|
|
++length; |
|
|
|
} else if (token_type [length] == core_number && (token_type [length + 1] == core_symbol) && (symbol_data [token_data [length + 1]] == ';')) { |
|
|
|
printf ("; return {number};\nmov rax, %i\nret\n", number_data [token_data [length]]); |
|
|
|
} else if (coin_enum [length] == coin_number && (coin_enum [length + 1] == coin_symbol) && (symbol_data [coin_data [length + 1]] == ';')) { |
|
|
|
printf ("; return {number};\nmov rax, %i\nret\n", number_data [coin_data [length]]); |
|
|
|
++length; |
|
|
|
} else { |
|
|
|
kill ("return ?\n"); |
|
|
|
} |
|
|
|
} else if ((token_type [length] == core_word) && (token_data [length] == word_if)) { |
|
|
|
} else if ((coin_enum [length] == coin_word) && (coin_data [length] == word_if)) { |
|
|
|
++length; |
|
|
|
if ((token_type [length] == core_symbol) && (symbol_data [token_data [length]] == '(')) { |
|
|
|
if ((coin_enum [length] == coin_symbol) && (symbol_data [coin_data [length]] == '(')) { |
|
|
|
echo ("if (\n"); |
|
|
|
++length; |
|
|
|
} else { |
|
|
|
kill ("if ?\n"); |
|
|
|
} |
|
|
|
} else if ((token_type [length] == core_word) && (token_data [length] == word_else)) { |
|
|
|
} else if ((coin_enum [length] == coin_word) && (coin_data [length] == word_else)) { |
|
|
|
++length; |
|
|
|
if ((token_type [length] == core_symbol) && (symbol_data [token_data [length]] == ':')) { |
|
|
|
if ((coin_enum [length] == coin_symbol) && (symbol_data [coin_data [length]] == ':')) { |
|
|
|
echo ("else :\n"); |
|
|
|
++length; |
|
|
|
} else if ((token_type [length] == core_word) && (token_data [length] == word_if)) { |
|
|
|
} else if ((coin_enum [length] == coin_word) && (coin_data [length] == word_if)) { |
|
|
|
echo ("else if\n"); |
|
|
|
++length; |
|
|
|
} else { |
|
|
|
echo ("else expression\n"); |
|
|
|
} |
|
|
|
} else if ((token_type [length] == core_word) && (token_data [length] == word_type)) { |
|
|
|
} else if ((coin_enum [length] == coin_word) && (coin_data [length] == word_type)) { |
|
|
|
++length; |
|
|
|
if (token_type [length] == core_type) { |
|
|
|
if (coin_enum [length] == coin_type) { |
|
|
|
echo ("type <name> -- "); |
|
|
|
echo (marker_name [token_data [length]]); |
|
|
|
echo (marker_name [coin_data [length]]); |
|
|
|
echo ("\n"); |
|
|
|
++length; |
|
|
|
} else { |
|
|
@@ -191,21 +190,7 @@ int main (void) { |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
for (length = 0; length < string_code; ++length) { string_data [length] = deallocate (string_data [length]); } |
|
|
|
for (length = 0; length < marker_code; ++length) { marker_name [length] = deallocate (marker_name [length]); } |
|
|
|
for (length = 0; length < type_code; ++length) { type_name [length] = deallocate (type_name [length]); } |
|
|
|
|
|
|
|
string_data = deallocate (string_data); |
|
|
|
string_size = deallocate (string_size); |
|
|
|
marker_name = deallocate (marker_name); |
|
|
|
marker_type = deallocate (marker_type); |
|
|
|
type_name = deallocate (type_name); |
|
|
|
symbol_data = deallocate (symbol_data); |
|
|
|
number_data = deallocate (number_data); |
|
|
|
token_data = deallocate (token_data); |
|
|
|
token_type = deallocate (token_type); |
|
|
|
|
|
|
|
*/ |
|
|
|
buffer = deallocate (buffer); |
|
|
|
|
|
|
|
return (log_success); |
|
|
|