Rava/runtime/runtime_object.c

#define _POSIX_C_SOURCE 200809L
#include "runtime.h"
#include "../utils/safe_alloc.h"
#include <stdlib.h>
#include <string.h>

static inline uint32_t _rava_field_hash(const char *name) {
    uint32_t hash = 5381;
    while (*name) {
        hash = ((hash << 5) + hash) ^ (uint32_t)*name++;
    }
    return hash;
}

RavaObject_t* rava_object_create(const char *class_name) {
    RavaObject_t *obj = calloc(1, sizeof(RavaObject_t));
    if (!obj) return NULL;
    obj->class_name = strdup(class_name);
    obj->field_capacity = 8;
    obj->field_names = calloc(obj->field_capacity, sizeof(char*));
    obj->field_values = calloc(obj->field_capacity, sizeof(RavaValue_t));
    if (!obj->field_names || !obj->field_values) {
        free(obj->field_names);
        free(obj->field_values);
        free(obj->class_name);
        free(obj);
        return NULL;
    }
    obj->field_count = 0;
    for (int i = 0; i < RAVA_OBJECT_HASH_SIZE; i++) {
        obj->field_hash[i] = -1;
    }
    return obj;
}

void rava_object_destroy(RavaObject_t *obj) {
    if (!obj) return;
    free(obj->class_name);
    for (size_t i = 0; i < obj->field_count; i++) {
        free(obj->field_names[i]);
    }
    free(obj->field_names);
    free(obj->field_values);
    free(obj);
}

void rava_object_set_field(RavaObject_t *obj, const char *name, RavaValue_t value) {
    if (!obj || !name) return;

    uint32_t hash = _rava_field_hash(name);

    for (size_t probe = 0; probe < RAVA_OBJECT_HASH_SIZE; probe++) {
        uint32_t idx = (hash + probe) & (RAVA_OBJECT_HASH_SIZE - 1);
        int field_idx = obj->field_hash[idx];

        if (field_idx == -1) {
            if (obj->field_count >= obj->field_capacity) {
                size_t new_cap = obj->field_capacity * 2;
                char **new_names = rava_safe_realloc(obj->field_names, new_cap * sizeof(char*));
                RavaValue_t *new_values = rava_safe_realloc(obj->field_values, new_cap * sizeof(RavaValue_t));
                if (!new_names || !new_values) return;
                obj->field_names = new_names;
                obj->field_values = new_values;
                obj->field_capacity = new_cap;
            }
            obj->field_names[obj->field_count] = strdup(name);
            obj->field_values[obj->field_count] = value;
            obj->field_hash[idx] = (int)obj->field_count;
            obj->field_count++;
            return;
        }

        if ((size_t)field_idx < obj->field_count &&
            strcmp(obj->field_names[field_idx], name) == 0) {
            obj->field_values[field_idx] = value;
            return;
        }
    }
}

RavaValue_t rava_object_get_field(RavaObject_t *obj, const char *name) {
    if (!obj || !name) return rava_value_null();

    uint32_t hash = _rava_field_hash(name);

    for (size_t probe = 0; probe < RAVA_OBJECT_HASH_SIZE; probe++) {
        uint32_t idx = (hash + probe) & (RAVA_OBJECT_HASH_SIZE - 1);
        int field_idx = obj->field_hash[idx];

        if (field_idx == -1) {
            return rava_value_null();
        }

        if ((size_t)field_idx < obj->field_count &&
            strcmp(obj->field_names[field_idx], name) == 0) {
            return obj->field_values[field_idx];
        }
    }

    return rava_value_null();
}

int rava_object_get_field_index(RavaObject_t *obj, const char *name) {
    if (!obj || !name) return -1;

    uint32_t hash = _rava_field_hash(name);

    for (size_t probe = 0; probe < RAVA_OBJECT_HASH_SIZE; probe++) {
        uint32_t idx = (hash + probe) & (RAVA_OBJECT_HASH_SIZE - 1);
        int field_idx = obj->field_hash[idx];

        if (field_idx == -1) return -1;

        if ((size_t)field_idx < obj->field_count &&
            strcmp(obj->field_names[field_idx], name) == 0) {
            return field_idx;
        }
    }

    return -1;
}

RavaValue_t rava_object_get_field_by_index(RavaObject_t *obj, int index) {
    if (!obj || index < 0 || (size_t)index >= obj->field_count) {
        return rava_value_null();
    }
    return obj->field_values[index];
}

void rava_object_set_field_by_index(RavaObject_t *obj, int index, RavaValue_t value) {
    if (!obj || index < 0 || (size_t)index >= obj->field_count) return;
    obj->field_values[index] = value;
}