xolatile/xiranda
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor update, generating soon enough...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-03 07:39:59 -04:00
parent 8ff08ce5cf
commit ef3a428bc9
1 changed files with 22 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
xiranda.c
View File

@ -1,7 +1,6 @@
#include <xolatile/xtandard.c> #include <xolatile/xtandard.c>
enum { enum {
coin_none,
coin_type, coin_loop, coin_if, coin_else, coin_case, coin_return, coin_import, coin_system, coin_type, coin_loop, coin_if, coin_else, coin_case, coin_return, coin_import, coin_system,
coin_function, coin_variable, coin_constant, coin_data_type, coin_string, coin_number, coin_marker, coin_label, coin_function, coin_variable, coin_constant, coin_data_type, coin_string, coin_number, coin_marker, coin_label,
coin_add, coin_subtract, coin_multiply, coin_divide, coin_modulus, coin_equal, coin_above, coin_below, coin_add, coin_subtract, coin_multiply, coin_divide, coin_modulus, coin_equal, coin_above, coin_below,
@ -9,8 +8,8 @@ enum {
coin_range, coin_enrange, coin_derange, coin_machine 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 type_code = 0;/*
static int function_code = 0; static int function_code = 0;
static int variable_code = 0; static int variable_code = 0;
static int constant_code = 0;*/ static int constant_code = 0;*/
@ -18,10 +17,10 @@ static int constant_code = 0;*/
static int coin_enum [240] = { 0 }; static int coin_enum [240] = { 0 };
static int coin_data [240] = { 0 }; static int coin_data [240] = { 0 };
static char coin_text [240] [40] = { "" }; static char coin_text [240] [40] = { "" };
/*
static char type_name [27] [40] = { "" }; static char type_name [27] [40] = { "" };
static int type_size [27] = { 0 }; static int type_size [27] = { 0 };
/*
static char function_name [9] [40] = { "" }; static char function_name [9] [40] = { "" };
static int function_type [9] = { 0 }; static int function_type [9] = { 0 };
static char function_argument_name [9] [6] [40] = { { "" } }; static char function_argument_name [9] [6] [40] = { { "" } };
@ -49,19 +48,7 @@ static void add_coin (int type, int data, char * text) {
string_copy (coin_text [coin_code], text); string_copy (coin_text [coin_code], text);
++coin_code; ++coin_code;
} }
/*
static void add_type (char * name, int size) {
string_copy (type_name [type_code], name);
type_size [type_code] = size;
++type_code;
}
static void add_function (char * name, int type, char * * agrument_name, int * argument_type) {
string_copy (type_name [type_code], name);
type_size [type_code] = size;
++type_code;
}
*/
int main (void) { int main (void) {
char * buffer = null; char * buffer = null;
int offset = 0; int offset = 0;
@ -79,8 +66,7 @@ int main (void) {
data [size] = '\0'; data [size] = '\0';
add_coin (coin_string, 0, data); add_coin (coin_string, 0, data);
} else if (character_is_digit (buffer [offset]) == true) { } else if (character_is_digit (buffer [offset]) == true) {
data [0] = buffer [offset]; for (; (character_is_digit (buffer [offset]) == true) && (buffer [offset] != '\0'); ++offset) {
for (++offset; (character_is_digit (buffer [offset]) == true) && (buffer [offset] != '\0'); ++offset) {
data [size++] = buffer [offset]; data [size++] = buffer [offset];
} }
add_coin (coin_number, 0, data); add_coin (coin_number, 0, data);
@ -100,20 +86,23 @@ int main (void) {
} }
} }
add_coin (coin_marker, 0, data); add_coin (coin_marker, 0, data);
/*if ((coin_enum [coin_count - 2] == coin_word) && (coin_data [coin_count - 2] == word_type)) { if (coin_enum [coin_code - 2] == coin_type) {
coin_enum [coin_count - 1] = coin_type; coin_enum [coin_code - 1] = coin_data_type;
string_copy (type_name [type_code], coin_text [coin_code - 1]);
type_size [type_code] = 8;
++type_code;
} }
for (length = 0; length < type_code; ++length) { for (length = 0; length < type_code; ++length) {
if (string_compare_limit (data, type_name [length], string_length (type_name [length]) + 1) == true) { if (string_compare_limit (data, type_name [length], string_length (type_name [length]) + 1) == true) {
coin_enum [coin_count - 1] = coin_type; coin_enum [coin_code - 1] = coin_data_type;
} }
}*/ }
here: here:
--offset; --offset;
} else if (character_compare_array (buffer [offset], ",.;:=<>#&|!+*-/%()[]") == true) { } else if (character_compare_array (buffer [offset], ",.;:=<>#&|!+*-/%()[]") == true) {
char s [2] = ""; char s [2] = "";
s [0] = buffer [offset]; s [0] = buffer [offset];
add_coin (coin_none, 0, s); add_coin (coin_range, 0, s);
} else { } else {
if (character_is_blank (buffer [offset]) == false) { if (character_is_blank (buffer [offset]) == false) {
echo ("\033[1;31mCharacter set exception point: Segmentation\033[0m\n"); echo ("\033[1;31mCharacter set exception point: Segmentation\033[0m\n");
@ -125,10 +114,10 @@ int main (void) {
for (length = 0; length < coin_code; ++length) { for (length = 0; length < coin_code; ++length) {
switch (coin_enum [length]) { switch (coin_enum [length]) {
case coin_string: printf ("\033[1;36m%s\033[0m ", coin_text [length]); break; case coin_string: printf ("\033[1;32m%s\033[0m ", coin_text [length]); break;
case coin_number: printf ("\033[1;34m%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_data_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_marker: printf ("\033[1;37m%s\033[0m ", coin_text [length]); break;
case coin_type: case coin_type:
case coin_if: case coin_if:
case coin_else: case coin_else:
@ -144,7 +133,11 @@ int main (void) {
printf ("\n"); printf ("\n");
/* /*
for (length = 0; length < coin_count; ++length) { for (length = 0; length < coin_code; ++length) {
}
for (length = 0; length < coin_code; ++length) {
if ((coin_enum [length] == coin_word) && (coin_data [length] == word_return)) { if ((coin_enum [length] == coin_word) && (coin_data [length] == word_return)) {
++length; ++length;
if ((coin_enum [length] == coin_symbol) && (symbol_data [coin_data [length]] == '(')) { if ((coin_enum [length] == coin_symbol) && (symbol_data [coin_data [length]] == '(')) {