136 lines
3.4 KiB
C
136 lines
3.4 KiB
C
/* Copyright (C) 2023 Aryadev Chavali
|
|
|
|
* You may distribute and modify this code under the terms of the
|
|
* GPLv2 license. You should have received a copy of the GPLv2
|
|
* license with this file. If not, please write to:
|
|
* aryadev@aryadevchavali.com.
|
|
|
|
* Created: 2023-10-15
|
|
* Author: Aryadev Chavali
|
|
* Description: Entrypoint to program
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <vm/runtime.h>
|
|
#include <vm/struct.h>
|
|
|
|
void usage(const char *program_name, FILE *out)
|
|
{
|
|
fprintf(out,
|
|
"Usage: %s [OPTIONS] FILE\n"
|
|
"\t FILE: Bytecode file to execute\n"
|
|
"\tOptions:\n"
|
|
"\t\t To be developed...\n",
|
|
program_name);
|
|
}
|
|
|
|
int main(int argc, char *argv[])
|
|
{
|
|
if (argc == 1)
|
|
{
|
|
usage(argv[0], stderr);
|
|
return 1;
|
|
}
|
|
const char *filename = argv[1];
|
|
|
|
#if VERBOSE >= 1
|
|
printf("[" TERM_YELLOW "INTERPRETER" TERM_RESET "]: `%s`\n", filename);
|
|
#endif
|
|
|
|
FILE *fp = fopen(filename, "rb");
|
|
darr_t fp_bytes = darr_read_file(fp);
|
|
fclose(fp);
|
|
|
|
prog_t program = {0};
|
|
size_t header_read =
|
|
prog_read_header(&program, fp_bytes.data, fp_bytes.available);
|
|
|
|
if (!header_read)
|
|
{
|
|
fprintf(stderr, "[ERROR]: Could not deserialise program header in `%s`\n",
|
|
filename);
|
|
return 1;
|
|
}
|
|
// Ensure that we MUST have something to read
|
|
else if (program.count == 0)
|
|
return 0;
|
|
|
|
// After reading header, we can allocate the buffer of instrutions
|
|
// exactly
|
|
program.instructions = calloc(program.count, sizeof(*program.instructions));
|
|
size_t bytes_read = 0;
|
|
read_err_prog_t read_err =
|
|
prog_read_instructions(&program, &bytes_read, fp_bytes.data + header_read,
|
|
fp_bytes.available - header_read);
|
|
|
|
if (bytes_read == 0)
|
|
{
|
|
fprintf(stderr, "[ERROR]:%s [%lu]:", filename, read_err.index);
|
|
switch (read_err.type)
|
|
{
|
|
case READ_ERR_INVALID_OPCODE:
|
|
fprintf(stderr, "INVALID_OPCODE");
|
|
break;
|
|
case READ_ERR_OPERAND_NO_FIT:
|
|
fprintf(stderr, "OPERAND_NO_FIT");
|
|
break;
|
|
case READ_ERR_EXPECTED_MORE:
|
|
fprintf(stderr, "EXPECTED_MORE");
|
|
break;
|
|
case READ_ERR_END:
|
|
default:
|
|
fprintf(stderr, "UNKNOWN");
|
|
break;
|
|
}
|
|
fprintf(stderr, "\n");
|
|
return 1;
|
|
}
|
|
|
|
#if VERBOSE >= 1
|
|
printf("\t[" TERM_GREEN "SETUP" TERM_RESET "]: Read %lu instructions\n",
|
|
program.count);
|
|
#endif
|
|
|
|
size_t stack_size = 256;
|
|
byte_t *stack = calloc(stack_size, 1);
|
|
registers_t registers = {0};
|
|
darr_init(®isters, 8 * WORD_SIZE);
|
|
heap_t heap = {0};
|
|
heap_create(&heap);
|
|
size_t call_stack_size = 256;
|
|
word_t *call_stack = calloc(call_stack_size, sizeof(call_stack));
|
|
|
|
vm_t vm = {0};
|
|
vm_load_stack(&vm, stack, stack_size);
|
|
vm_load_program(&vm, program);
|
|
vm_load_registers(&vm, registers);
|
|
vm_load_heap(&vm, heap);
|
|
vm_load_call_stack(&vm, call_stack, call_stack_size);
|
|
|
|
#if VERBOSE >= 1
|
|
printf("\t[" TERM_GREEN "SETUP" TERM_RESET
|
|
"]: Loaded stack and program into VM\n");
|
|
#endif
|
|
#if VERBOSE >= 1
|
|
printf("[" TERM_YELLOW "INTERPRETER" TERM_RESET "]: Beginning execution\n");
|
|
#endif
|
|
err_t err = vm_execute_all(&vm);
|
|
|
|
int ret = 0;
|
|
if (err)
|
|
{
|
|
const char *error_str = err_as_cstr(err);
|
|
fprintf(stderr, "[ERROR]: %s\n", error_str);
|
|
vm_print_all(&vm, stderr);
|
|
ret = 255 - err;
|
|
}
|
|
|
|
vm_stop(&vm);
|
|
|
|
#if VERBOSE >= 1
|
|
printf("[%sINTERPRETER%s]: Finished execution\n", TERM_GREEN, TERM_RESET);
|
|
#endif
|
|
return ret;
|
|
}
|