/*
 * Copyright (c) 2026, Chloe M.
 * Provided under the BSD-3 clause
 */

#include <stdint.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include "cescal/symbol.h"

/*
 * Push a symbol into a symbol table
 *
 * @symtab:     Symbol table to push to
 * @symbol:     Symbol to push
 *
 * Returns zero on success
 */
static int
symbol_table_push(struct symbol_table *symtab, struct symbol *symbol)
{
    if (symtab == NULL || symbol == NULL) {
        errno = EINVAL;
        return -1;
    }

    symbol->next = NULL;
    if (symtab->head == NULL || symtab->tail == NULL) {
        symtab->head = symbol;
        symtab->tail = symbol;
    } else {
        symtab->head->next = symbol;
        symtab->head = symbol;
    }

    return 0;
}

int
symbol_table_init(struct symbol_table *symtab)
{
    if (symtab == NULL) {
        errno = EINVAL;
        return -1;
    }

    symtab->head = NULL;
    symtab->tail = NULL;
    return 0;
}

int
symbol_allocate(struct symbol_table *symtab, const char *name,
    symtype_t type, struct symbol **res)
{
    struct symbol *symbol;

    if (symtab == NULL || name == NULL) {
        errno = EINVAL;
        return -1;
    }

    if (res == NULL) {
        errno = EINVAL;
        return -1;
    }

    symbol = malloc(sizeof(*symbol));
    if (symbol == NULL) {
        errno = -ENOMEM;
        return -1;
    }

    symbol->name = strdup(name);
    symbol->type = type;
    if (symbol_table_push(symtab, symbol) < 0) {
        free(symbol);
        return -1;
    }

    *res = symbol;
    return 0;
}

void
symbol_table_destroy(struct symbol_table *symtab)
{
    struct symbol *symbol, *tmp;

    if (symtab == NULL) {
        return;
    }

    symbol = symtab->tail;
    while (symbol != NULL) {
        tmp = symbol;
        if (tmp->name != NULL)
            free(tmp->name);
        free(tmp);
        symbol = symbol->next;
    }
}

struct symbol *
symbol_byname(struct symbol_table *symtab, const char *name)
{
    struct symbol *symbol;

    if (symtab == NULL || name == NULL) {
        return NULL;
    }

    symbol = symtab->head;
    while (symbol != NULL) {
        if (*symbol->name != *name) {
            symbol = symbol->next;
            continue;
        }

        if (strcmp(symbol->name, name) == 0) {
            return symbol;
        }

        symbol = symbol->next;
    }

    return NULL;
}