src/interpreter.c
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 |
#ifndef HEX_H
#include "hex.h"
#endif
////////////////////////////////////////
// Hex Interpreter Implementation //
////////////////////////////////////////
hex_context_t *hex_init()
{
hex_context_t *context = malloc(sizeof(hex_context_t));
if (!context)
return NULL;
context->argc = 0;
context->argv = NULL;
context->registry = hex_registry_create();
context->docs = malloc(sizeof(hex_doc_dictionary_t));
if (context->docs)
{
context->docs->entries = malloc(HEX_NATIVE_SYMBOLS * sizeof(hex_doc_entry_t));
context->docs->size = 0;
}
context->stack = malloc(sizeof(hex_stack_t));
if (context->stack)
{
context->stack->entries = malloc(HEX_STACK_SIZE * sizeof(hex_item_t *));
context->stack->top = -1;
context->stack->capacity = HEX_STACK_SIZE;
// Initialize all entries to NULL
for (int i = 0; i < HEX_STACK_SIZE; i++)
{
context->stack->entries[i] = NULL;
}
}
context->stack_trace = malloc(sizeof(hex_stack_trace_t));
if (context->stack_trace)
{
context->stack_trace->entries = malloc(HEX_STACK_TRACE_SIZE * sizeof(hex_token_t *));
context->stack_trace->start = 0;
context->stack_trace->size = 0;
// Initialize all entries to NULL
for (int i = 0; i < HEX_STACK_TRACE_SIZE; i++)
{
context->stack_trace->entries[i] = NULL;
}
}
context->settings = malloc(sizeof(hex_settings_t));
if (context->settings)
{
context->settings->debugging_enabled = 0;
context->settings->errors_enabled = 1;
context->settings->stack_trace_enabled = 1;
}
context->symbol_table = malloc(sizeof(hex_symbol_table_t));
if (context->symbol_table)
{
context->symbol_table->count = 0;
context->symbol_table->symbols = malloc(HEX_MAX_USER_SYMBOLS * sizeof(char *));
// Initialize all symbols to NULL
for (int i = 0; i < HEX_MAX_USER_SYMBOLS; i++)
{
context->symbol_table->symbols[i] = NULL;
}
}
return context;
}
int hex_interpret(hex_context_t *ctx, const char *code, const char *filename, int line, int column)
{
const char *input = code;
hex_file_position_t position = {filename, line, column};
hex_token_t *token = hex_next_token(ctx, &input, &position);
while (token != NULL && token->type != HEX_TOKEN_INVALID)
{
int result = 0;
if (token->type == HEX_TOKEN_INTEGER)
{
result = hex_push_integer(ctx, hex_parse_integer(token->value));
}
else if (token->type == HEX_TOKEN_STRING)
{
result = hex_push_string(ctx, token->value);
}
else if (token->type == HEX_TOKEN_SYMBOL)
{
if (token->position && filename)
{
if (token->position->filename)
{
free((void *)token->position->filename);
}
token->position->filename = strdup(filename);
}
result = hex_push_symbol(ctx, token);
}
else if (token->type == HEX_TOKEN_QUOTATION_END)
{
hex_error(ctx, "(%d,%d) Unexpected end of quotation", position.line, position.column);
result = 1;
}
else if (token->type == HEX_TOKEN_QUOTATION_START)
{
hex_item_t *quotationItem = (hex_item_t *)malloc(sizeof(hex_item_t));
if (!quotationItem)
{
hex_error(ctx, "(%d,%d) Failed to allocate memory for quotation", position.line, position.column);
result = 1;
}
else if (hex_parse_quotation(ctx, &input, quotationItem, &position) != 0)
{
hex_error(ctx, "(%d,%d) Failed to parse quotation", position.line, position.column);
free(quotationItem);
result = 1;
}
else
{
result = hex_push_quotation(ctx, quotationItem->data.quotation_value, quotationItem->quotation_size);
// Don't free quotationItem here as its content is now owned by the stack
free(quotationItem); // Only free the wrapper, not the contents
}
}
if (result != 0)
{
hex_error(ctx, "[interpret] Unable to push: %s", token->value);
hex_free_token(token);
print_stack_trace(ctx);
return result;
}
// Free the token after successful processing (unless it's been stored somewhere)
if (token->type != HEX_TOKEN_SYMBOL && token->type != HEX_TOKEN_QUOTATION_START)
{
hex_free_token(token);
}
token = hex_next_token(ctx, &input, &position);
}
if (token != NULL && token->type == HEX_TOKEN_INVALID)
{
token->position->filename = strdup(filename);
add_to_stack_trace(ctx, token);
print_stack_trace(ctx);
return 1;
}
return 0;
}
|