#include "arena.h"
#include <stdbool.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>

ArenaResult arena_init(size_t size) {

    void *buffer = malloc(size);
    if (buffer == NULL) {
        ArenaResult err = {
            .is_valid = false,
            .err = ARENA_BAD_ALLOC,
        };
        return err;
    }

    if (size < 1) {
        ArenaResult err = {
            .is_valid = false,
            .err = ARENA_INVALID_SIZE,
        };
        return err;
    }

    Arena new_arena = {
        .buffer = buffer,
        .size = size,
        .offset = 0,
    };
    ArenaResult val = {
        .is_valid = true,
        .arena = new_arena,
    };

    return val;
}

void arena_destroy(Arena *arena) {
    if (arena == NULL) {
        return;
    }

    arena->offset = 0;
    arena->size = 0;
    free(arena->buffer);
}

ArenaPointer arena_alloc(Arena *arena, size_t size, size_t alignment) {
    if (arena == NULL) {
        ArenaPointer err = {
            .is_valid = false,
            .err = ARENA_NULL_ARG,
        };
        return err;
    }

    SizeResult new_offset = align_arena_offset(arena, alignment);
    if (!new_offset.is_valid) {
        ArenaPointer err = {
            .is_valid = false,
            .err = new_offset.err,
        };
        return err;
    }

    if (new_offset.val + size >= arena->size) {
        ArenaPointer err = {
            .is_valid = false,
            .err = ARENA_OUT_OF_SPACE,
        };
        return err;
    }

    arena->offset = new_offset.val;

    ArenaPointer val = {
        .is_valid = true,
        .address = arena->buffer + arena->offset,
    };
    return val;
}

ArenaErr arena_push(Arena *arena, void *data, size_t size, size_t alignment) {
    if (arena == NULL || data == NULL) {
        return ARENA_NULL_ARG;
    }

    ArenaPointer pointer = arena_alloc(arena, size, alignment);

    if (!pointer.is_valid) {
        SizeResult new_size = arena_compute_necessary_capacity(arena->size, size);
        if (!new_size.is_valid) {
            return new_size.err;
        }

        ArenaErr err = arena_realloc(arena, new_size.val);
        if (err != ARENA_OK) {
            return err;
        }

        pointer = arena_alloc(arena, size, alignment);
    }

    memcpy(
        pointer.address,
        data,
        size);

    return ARENA_OK;
}

ArenaErr arena_realloc(Arena *arena, size_t new_size) {
    if (arena == NULL) {
        return ARENA_NULL_ARG;
    }

    uint8_t *tmp = realloc(arena->buffer, new_size);
    if (tmp == NULL) {
        return ARENA_BAD_ALLOC;
    }

    arena->buffer = tmp;
    arena->size = new_size;
    return ARENA_OK;
}