fix: file structure, building to build/

2024-01-18 16:05:56 +01:00
parent a97fde9f86
commit 2ca86229d5
10 changed files with 10 additions and 10 deletions
--- a/src/pasm.c
+++ b/src/pasm.c
@@ -0,0 +1,114 @@
+#include <stdio.h>
+#include <string.h>
+
+#include "file_utils.h"
+#include "interpreter_states.h"
+#include "instructions.h"
+
+FILE *fstream = NULL;
+void show_error(size_t line, char *line_) {
+    int wrote = fprintf(fstream, "%ld| ", line + 1);
+    fprintf(fstream, "%s\n", line_);
+    fprintf(fstream, "%*s\n", wrote + 1, "^");
+    fprintf(fstream, "%*s\n", wrote + 1, "|");
+    for (int i = 0; i < wrote; i++)
+	fprintf(fstream, " ");
+}
+
+void show_states() {
+    printf("\n\n--------PASM STATE--------\n");
+    printf("a1: %-3d | ", state->registers->a1);
+    printf("a2: %-3d | ", state->registers->a2);
+    printf("a3: %-3d\n", state->registers->a3);
+    printf("a4: %-3d | ", state->registers->a4);
+    printf("a5: %-3d | ", state->registers->a5);
+    printf("a6: %-3d\n", state->registers->a6);
+    printf("a7: %-3d | ", state->registers->a7);
+    printf("a8: %-3d | ", state->registers->a8);
+    printf("a9: %-3d\n", state->registers->a9);
+    printf("eax: %-3d\n", state->registers->eax);
+}
+
+int check_errors(char *line) {
+    if (state->last_check_args_code != OK) {
+	show_error(state->curr_line, line);
+
+	switch ((int)state->last_check_args_code) {
+	    case WRONG_NUMBER :
+		fprintf(fstream, "wrong number of arguments on line %d\n", state->curr_line + 1);
+		break;
+	    case ARG1_WRONG :
+		fprintf(fstream, "arg1 is invalid on line %d\n", state->curr_line + 1);
+		break;
+	    case ARG2_WRONG :
+		fprintf(fstream, "arg2 is invalid on line %d\n", state->curr_line + 1);
+		break;
+	}
+	return 1;
+    }
+
+    if (state->last_jmp_code) {
+	show_error(state->curr_line, line);
+	fprintf(fstream, "%s is not a valid label/api", state->args->arg1);
+	return 1;
+    }
+
+    if (state->last_stack_code != STACK_OK) {
+	show_error(state->curr_line, line);
+	fprintf(fstream, "stack %s on line %d",
+		state->last_stack_code == OVERFLOW ? "overflow" : "underflow", state->curr_line + 1);
+	return 1;
+    }
+    return 0;
+}
+
+int pasm_run_script(const char *filename, char **file, size_t lines, FILE *_fstream) {
+    fstream = _fstream;
+
+    if (filename && read_script(filename, &file, &lines) == 1)
+	return 1;
+    if (init_state() == 1) {
+	fprintf(fstream, "Failed to initialize the interpreter.\n");
+	free_script(file);
+	return 1;
+    }
+
+    int found_main = 0;
+    for (state->curr_line = 0; state->curr_line < (int)lines && get_exit_state() == 0 ; ++state->curr_line) {
+	char *line = strdup(file[state->curr_line]);
+	if (line[0] == ';' || line[0] == '\0') {
+	    free(line);
+	    continue;
+	}
+	const command_t *com = find_command(command_map, strtok(line, " "));
+	if (com == NULL || com->fptr == NULL) {
+	    if (file[state->curr_line][strlen(line) - 1] != ':') {
+		show_error(state->curr_line, file[state->curr_line]);
+		fprintf(fstream, "%s \"%s\"\n", "unknown expression", strtok(file[state->curr_line], " "));
+		set_exit_state(-1);
+		free(line);
+		break;
+	    }
+	    add_label(line, state->curr_line);
+	    if (!found_main && strcmp(line, "main:") == 0)
+		found_main = 1;
+	    free(line);
+	    continue;
+	}
+	parse_arguments(file[state->curr_line]);
+	if (found_main)
+	    com->fptr();
+	if (check_errors(file[state->curr_line])) {
+	    set_exit_state(-1);
+	    break;
+	}
+	free(line);
+    }
+
+    int ret_code = get_exit_state();
+#ifdef DEBUG
+    show_states();
+#endif
+    free_script(file);
+    return ret_code;
+}