#pragma once
#include <string.h>
#include <stdlib.h>
#include <stdio.h>
#include <strlcat.c>
#include <bvr.h>
#include <tape.c>
#include <bvrvar.c>
#include <inarray.c>
int bvr_commands_check_for_command(char * input_char, char ** value, int *i, FILE * input, int * value_size) {
if((*input_char) == LINE_COMMAND_CHAR) {
FILE * command_return;
size_t buf_size;
char * command_output;
command_return = open_memstream(&command_output, &buf_size);
if(bvr_command_processor(input, command_return) != SUCCESS) {
fprintf(stderr, "[bvrcommands.c] bvr_commands_check_for_command: command, passed as argument, didn't return success. Going on.\n");
}
fflush(command_return);
while((*value_size) < ((*i)+buf_size)) { // make room in chunks for command_output
(*value) = realloc((*value), (*value_size)+BVR_VALUE_CHUNK_SIZE);
if((*value) == NULL) {
fprintf(stderr, "[bvrcommands.c] bvr_commands_check_for_command: CRITICAL OUT-OF-MEMORY.\n");
}
(*value_size) = (*value_size)+BVR_VALUE_CHUNK_SIZE;
}
for(int j = 0; j < buf_size; j++) {
/// fprintf(stderr, "debug: \"%c\", %ld\n", command_output[j], buf_size);
(*value)[(*i)++] = command_output[j];
}
(*input_char) = CLOSING_COMMAND_TAG_CHAR_1; // da zaključimo loop (drugače ostane notri ?)
//\\ zelo slabo. znak, ki ga najde izveden ukaz, se izgubi. rešitev bi bila dobiti zadnji input char, ki triggera break
// prejšnjega ukaza, kar pa je nemogoče.
fflush(command_return);
fclose(command_return);
free(command_output);
command_output == NULL; // the address/pointer, lost for ever!
return BVR_CONTINUE;
}
return BVR_KEEPGOING;
}
char bvr_commands_skip_separator_chars(FILE * input) {
char input_char = fgetc(input);
while(input_char == ' ' || input_char == CLOSING_COMMAND_TAG_CHAR_1 || input_char == ',' || input_char == ';' || input_char == EOF ||
input_char == '\0' || input_char == '\n') {
input_char = fgetc(input);
}
return input_char;
}
char * bvr_commands_get_value(FILE * input, char * yeetus_chars) {
int value_size = BVR_VALUE_CHUNK_SIZE;
char * value = (char*) malloc(value_size);
char input_char = bvr_commands_skip_separator_chars(input);
int i = 0;
while(1) {
// i == napisali smo že toliko znakov
if(i >= value_size) { // <-- todo: uncomment after done debugging
value = realloc(value, (value_size) * BVR_VALUE_CHUNK_SIZE);
if(value == NULL) {
fprintf(stderr, "[bvrcommands.c] bvr_commands_get_value: CRITICAL OUT-OF-MEMORY, FUCK!\n");
}
value_size = value_size + BVR_VALUE_CHUNK_SIZE;
}
if(char_in_array(input_char, yeetus_chars)) {
value[i++] = '\0';
return value; // or yeet!
}
if(bvr_commands_check_for_command(&(input_char), &(value), &(i), input, &(value_size)) == BVR_CONTINUE) {
continue;
}
(value)[(i)++] = input_char;
input_char = fgetc(input);
}
// we should not get here!
}
char * bvr_commands_get_string(FILE * input) {
int value_size = BVR_VALUE_CHUNK_SIZE;
char * value = (char*) malloc(value_size);
char input_char = fgetc(input);
char previous_char = 'a'; // please don't make a an escape char
int i = 0;
while(1) {
// i == napisali smo že toliko znakov
if(i >= value_size) { // <-- todo: uncomment after done debugging
value = realloc(value, (value_size) * BVR_VALUE_CHUNK_SIZE);
if(value == NULL) {
fprintf(stderr, "[bvrcommands.c] bvr_commands_get_value: CRITICAL OUT-OF-MEMORY, FUCK!\n");
}
value_size = value_size + BVR_VALUE_CHUNK_SIZE;
}
if(input_char == BVR_BREAK_STRING_CHAR) {
if(previous_char != BVR_ESCAPE_CHAR) {
value[i++] = '\0';
return value;
} else {
i--; // da zamenjamo prejšnji ESCAPE_CHAR z BREAK_STRING charom
(value)[(i)++] = BVR_BREAK_STRING_CHAR;
}
} else {
(value)[(i)++] = input_char;
}
previous_char = input_char;
input_char = fgetc(input);
}
// we should not get here!
}
int bvr_handle_substring(FILE * input, FILE * output) { // acts like https://www.php.net/manual/en/function.substr.php
char chars_to_break_value[69] = ",; ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * offset = bvr_commands_get_value(input, chars_to_break_value);
char * length = bvr_commands_get_value(input, chars_to_break_value);
char * string = bvr_commands_get_value(input, BVR_CHARS_TO_BREAK_VALUE);
int return_status = SUCCESS;
int real_offset = atoi(offset);
if(real_offset < 0) {
real_offset = strlen(string)-abs(real_offset);
}
if(strlen(string) < real_offset) { // catch errors
fprintf(stderr, "[bvrcommands.c] bvr_handle_substring: string lenght (%ld) is less than offset (%d). fuck you.\n",
strlen(string), real_offset);
fprintf(output, "\nbVerbose substring: string length of %ld is less than offset of %d.\n", strlen(string), real_offset);
return_status = FAILURE;
goto cleanup_and_return;
}
if(real_offset < 0) { // catch errors
fprintf(stderr, "[bvrcommands.c] bvr_handle_substring: supplied negative offset after calculation (%d) is negative. failing...\n",
real_offset);
fprintf(output, "\nbVerbose substring: supplied negative offset after calculation (%d) is negative.\n", real_offset);
return_status = FAILURE;
goto cleanup_and_return;
}
if(atoi(length) < 0) {
string[strlen(string)-abs(atoi(length))] = '\0';
fprintf(output, "%s", string+real_offset);
} else {
fprintf(output, "%.*s", atoi(length), string+real_offset);
}
cleanup_and_return:
fflush(output);
free(offset);
free(length);
free(string);
offset = NULL;
length = NULL;
string = NULL;
return return_status;
}
int bvr_handle_get(FILE * input, FILE * output) {
char chars_to_break_value[69] = ",; ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
fprintf(output, "%s", bvr_var_get(item));
fflush(output);
free(item);
item = NULL;
return SUCCESS;
}
int bvr_handle_set(FILE * input, FILE * output) {
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
char * value = bvr_commands_get_value(input, BVR_CHARS_TO_BREAK_VALUE);
int return_value = bvr_var_set(item, value);
fflush(output);
free(item);
free(value);
item = NULL;
value = NULL;
return return_value;
}
int bvr_handle_include(FILE * input, FILE * output) {
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
FILE * stream;
char * cp;
int return_status = SUCCESS;
// fprintf(stderr, "debug: %s\n", item);
if (strncmp(item, "bvr://", strlen("bvr://")) == 0) {
switch (item[6]) {
case 'v': /* ar */
cp = strchr(item+6, '/');
if (cp == NULL)
goto sike_this_actually_is_a_file;
cp = bvr_var_get(cp+1);
if (cp == NULL || 0 == strncmp(cp, "BVR_UNDEFINED", strlen("BVR_UNDEFINED")))
goto sike_this_actually_is_a_file;
stream = fmemopen(cp, strlen(cp), "r");
if (stream == NULL)
goto sike_this_actually_is_a_file;
break;
default:
goto sike_this_actually_is_a_file;
break; /* unreachable "code" */
}
} else {
sike_this_actually_is_a_file:
stream = fopen(item, "r");
char notgoodatnamingvariables[PATH_MAX];
char * path = bvr_var_get(BVR_INCLUDE_PATH_VAR_NAME);
if(stream == NULL) {
strcpy(notgoodatnamingvariables, item);
strcat(notgoodatnamingvariables, BVR_COMMAND_FILE_EXT);
stream = fopen(notgoodatnamingvariables, "r");
if(strcmp(path, BVR_UNDEFINED) == 0 && stream == NULL) {
fprintf(output, "\nbVerbose include error. File \"%s\" not found. Path is undefined.\n", item);
fprintf(stderr, "[bvrcommands.c] bvr_handle_include: File \"%s\" not found. Path is undefined.\n", item);
return_status = FAILURE;
goto returncleanly;
}
}
char * singlepath;
while(stream == NULL) {
singlepath = strrchr(path, BVR_PATH_SEPARATOR);
if(singlepath == NULL) {
strcpy(notgoodatnamingvariables, path);
strcat(notgoodatnamingvariables, item);
stream = fopen(notgoodatnamingvariables, "r"); // ob1 fuckery
if(stream == NULL) {
strcpy(notgoodatnamingvariables, path);
strcat(notgoodatnamingvariables, item);
strcat(notgoodatnamingvariables, BVR_COMMAND_FILE_EXT);
stream = fopen(notgoodatnamingvariables, "r"); // ob1 fuckery
if(stream == NULL) {
fprintf(output, "\nbVerbose include error. File \"%s\" not found.\n", item);
fprintf(stderr, "[bvrcommands.c] bvr_handle_include: File \"%s\" not found.\n", item);
return_status = FAILURE;
goto returncleanly;
}
break;
}
break;
}
strcpy(notgoodatnamingvariables, singlepath);
strcat(notgoodatnamingvariables, item);
stream = fopen(notgoodatnamingvariables+1, "r"); // ob1 fuckery
if(stream == NULL) {
strcat(notgoodatnamingvariables, BVR_COMMAND_FILE_EXT);
stream = fopen(notgoodatnamingvariables+1, "r"); // ob1 fuckery
if(stream != NULL) {
break;
}
}
*singlepath = '\0';
}
}
return_status = bvr_compose_stream(stream, output);
fclose(stream);
returncleanly:
fflush(output);
free(item);
item = NULL;
return return_status;
fflush(output); // kja?
}
int bvr_handle_move(FILE * input, FILE * output) {
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
char * value = bvr_commands_get_value(input, chars_to_break_value);
int return_value = bvr_var_mv(item, value);
free(item);
free(value);
value = NULL;
item = NULL;
fflush(output);
return return_value;
}
int bvr_handle_string(FILE * input, FILE * output) {
char * item = bvr_commands_get_string(input);
char * uuid = randstring(37);
strcpy(uuid, "BVR_STRING");
uuid[10] = '_';
int return_value = bvr_var_set(uuid, item);
free(item);
item = NULL;
fprintf(output, "%s", uuid);
free(uuid);
uuid = NULL;
fflush(output);
return return_value;
}
int bvr_handle_equals(FILE * input, FILE * output) {
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
char * value = bvr_commands_get_value(input, chars_to_break_value);
int return_value = 0;
char * string1 = bvr_var_get(item);
char * string2 = bvr_var_get(value);
char out;
if(strcmp(string1, string2) == 0) {
out = '1';
} else {
out = '0';
}
fprintf(output, "?\"%c\"", out);
free(item);
free(value);
item = NULL;
value = NULL;
fflush(output);
return return_value;
}
int bvr_handle_if(FILE * input, FILE * output) { // ?f 1 <@this is all executed@>
// first argument must *POINT* to a string which evaluates to 1, the second argument is the value of the endif string, spaces
// are argument delimeters. endif is only used for skipping forward if if should not execute.
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
int return_value = 0;
if(strcmp(bvr_var_get(item), "1") == 0) {
char chars_to_break_value[3] = {OPENING_COMMAND_TAG_CHAR_2, EOF, '\0'};
char * temp = bvr_commands_get_value(input, chars_to_break_value);
free(temp);
temp = NULL;
char copy_buffer[BVR_COPY_BUFFER_SIZE];
init_tape_copy_buffer(copy_buffer, COPY_BUFFER_SIZE);
return_value = bvr_inline_command_processor(input, output, copy_buffer);
} else {
char input_char = fgetc(input);
char previous_char = 'a';
int depth = -1; // to increase to 0 after first <@
int we_re_in_a_comment = 0;
while(1) {
if((input_char == BVR_CLOSING_COMMAND_TAG_CHAR_2 && previous_char == BVR_CLOSING_COMMAND_TAG_CHAR_1 && depth == 0 &&
we_re_in_a_comment == 0)) {
break;
}
if(previous_char == BVR_OPENING_COMMAND_TAG_CHAR_1 && input_char == BVR_OPENING_COMMAND_TAG_CHAR_2) {
depth++;
} // this šubidubi doesn't account for <@ and @> in strings.
if(previous_char == BVR_CLOSING_COMMAND_TAG_CHAR_1 && input_char== BVR_CLOSING_COMMAND_TAG_CHAR_2) {
depth--;
}
if(previous_char == LINE_COMMAND_CHAR && input_char == BVR_BREAK_STRING_CHAR) {
char * temp = bvr_commands_get_string(input);
free(temp);
temp = NULL;
}
if(previous_char == BVR_NEWLINE_CHAR && input_char == LINE_COMMENT_CHAR) {
we_re_in_a_comment = 1;
}
if(we_re_in_a_comment && input_char == BVR_NEWLINE_CHAR) {
we_re_in_a_comment = 0;
}
previous_char = input_char;
input_char = fgetc(input);
}
}
free(item);
item = NULL;
if(return_value != 0) {
fprintf(stderr, "bvrcommands.c: bvr_handle_if: bvr_compose_stream returned an error status!\n");
}
return return_value;
}
int bvr_handle_while(FILE * input, FILE * output) {
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
int return_value = 0;
char input_char = fgetc(input);
char previous_char = 'a';
char * string1 = bvr_var_get(item);
FILE * codestream;
int depth = -1; // to increase to 0 after first <@
int we_re_in_a_comment = 0;
char * code = malloc(sizeof(char)*2);
size_t code_index = 0;
size_t read_index = 0;
int in_string = 0;
while(1) {
if((input_char == BVR_CLOSING_COMMAND_TAG_CHAR_2 && previous_char == BVR_CLOSING_COMMAND_TAG_CHAR_1 && depth == 0 &&
we_re_in_a_comment == 0 && in_string == 0)) {
break;
}
if(previous_char == BVR_OPENING_COMMAND_TAG_CHAR_1 && input_char == BVR_OPENING_COMMAND_TAG_CHAR_2) {
depth++;
} // this šubidubi doesn't account for <@ and @> in strings.
if(previous_char == BVR_CLOSING_COMMAND_TAG_CHAR_1 && input_char== BVR_CLOSING_COMMAND_TAG_CHAR_2) {
depth--;
}
if(previous_char == LINE_COMMAND_CHAR && input_char == BVR_BREAK_STRING_CHAR) {
in_string = 1;
}
if (previous_char != BVR_ESCAPE_CHAR && input_char == BVR_BREAK_STRING_CHAR && in_string == 1) {
in_string = 0;
}
if(previous_char == BVR_NEWLINE_CHAR && input_char == LINE_COMMENT_CHAR) {
we_re_in_a_comment = 1;
}
if(we_re_in_a_comment && input_char == BVR_NEWLINE_CHAR) {
we_re_in_a_comment = 0;
}
previous_char = input_char;
input_char = fgetc(input);
read_index++;
if (read_index >= 2) {
code[code_index++] = input_char;
code[code_index] = '\0';
}
code = realloc(code, sizeof(char)*(2+code_index));
if (code == NULL) {
fprintf(stderr, "segmentation fault caught (?) in bvr_handle_while, expect killing of the process soon. there was also a memory leak of around %lu bytes.\n", code_index+2);
return_value = FAILURE;
goto criticalfuckery;
}
}
code[strlen(code)-2] = '\0';
code_index -= 2;
codestream = fmemopen(code, code_index, "r");
while (atoi(string1) > 0) { /* basically the whole logic */
rewind(codestream);
// fprintf(stderr, "debug: %s\n", code);
return_value = return_value != SUCCESS ? return_value : bvr_compose_stream(codestream, output);
string1 = bvr_var_get(item);
}
fclose(codestream);
criticalfuckery:
free(item);
item = NULL;
fflush(output);
return return_value;
}
int bvr_handle_join(FILE * input, FILE * output) {
char operation = fgetc(input);
int return_value = SUCCESS;
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
char * value = bvr_commands_get_value(input, chars_to_break_value);
char * stvar1 = bvr_var_get(item);
char * stvar2 = bvr_var_get(value);
char * temp = malloc(sizeof(char)*(strlen(stvar1)+strlen(stvar2)+1));
sprintf(temp, "%s%s", stvar1, stvar2);
return_value = bvr_var_set(item, temp);
free(item);
free(value);
free(temp);
temp = NULL;
item = NULL;
value = NULL;
return return_value;
}
int bvr_handle_math(FILE * input, FILE * output) {
char operation = fgetc(input);
int return_value = SUCCESS;
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
char * value = bvr_commands_get_value(input, chars_to_break_value);
long long int stvar1 = strtoll(bvr_var_get(item), NULL, 10);
long long int stvar2 = strtoll(bvr_var_get(value), NULL, 10);
char numberplaceholder[69];
switch (operation) {
case '+':
stvar1 += stvar2;
break;
case '-':
stvar1 -= stvar2;
break;
case '*':
stvar1 *= stvar2;
break;
case '/':
if (stvar2 == 0) {
return_value = FAILURE;
fprintf(stderr, "division with zero is illegal, prevented, but raised an error. setting to highest value possible.\n");
stvar1 = LLONG_MAX;
} else {
stvar1 /= stvar2;
}
break;
default:
return_value = FAILURE;
break;
}
snprintf(numberplaceholder, 69-1, "%lld", stvar1);
return_value = bvr_var_set(item, numberplaceholder);
free(item);
free(value);
item = NULL;
value = NULL;
return return_value;
}
int bvr_handle_explode(FILE * input, FILE * output) {
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
char * value = bvr_commands_get_value(input, chars_to_break_value);
int return_value = SUCCESS;
char * string1 = bvr_var_get(item);
char * string2 = bvr_var_get(value);
char * token;
char * rest = malloc(sizeof(char)*(strlen(string1)+1));
strcpy(rest, string1);
char * charpointer;
int index = strlen(item);
size_t len = 0;
char lenst[69];
item[index++] = '[';
item[index] = '\0';
index = 0;
while ((token = strsep(&rest, string2))) { // strsep handles empty strings as well
charpointer = strrchr(item, BVR_ARRAY_INDEX_CHAR);
sprintf(charpointer+1, "%d" BVR_ARRAY_AFTER_INDEX, index++); /* keys must always have 128 bytes more space allocated */
return_value = return_value != SUCCESS ? return_value : bvr_var_set(item, token); // če je bila prej napaka pač ne poskušamo več!
len++;
}
charpointer = strrchr(item, BVR_ARRAY_INDEX_CHAR);
sprintf(charpointer+1, "#" BVR_ARRAY_AFTER_INDEX, index++);
snprintf(lenst, 69-1, "%lu", len);
return_value = return_value != SUCCESS ? return_value : bvr_var_set(item, lenst);
free(item);
free(value);
item = NULL;
value = NULL;
fflush(output);
return return_value;
}
int bvr_handle_info(FILE * input, FILE * output) {
// fprintf(stderr, "[bvrcommands.c] bvr_handle_info: bvr bVerbose HTPCMS %d.%d.%d\n", BVR_VER_MAJOR, BVR_VER_MINOR, BVR_VER_PATCH);
char chars_to_break_value[69] = " ";
strlcat(chars_to_break_value, BVR_CHARS_TO_BREAK_VALUE, sizeof(chars_to_break_value));
char * item = bvr_commands_get_value(input, chars_to_break_value);
switch(item[0]) {
case 'c':
fprintf(output, "%lu", bvr_variables_count);
break;
default:
fprintf(output, "\nbvr bVerbose HTPCMS %d.%d.%d\n", BVR_VER_MAJOR, BVR_VER_MINOR, BVR_VER_PATCH);
break;
}
free(item);
item = NULL;
return SUCCESS;
}
