Fledasty/Src/Core/DoublyLinkedList.c

/*
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 * 
 * -----------------------------------------------------------------------------
 * File: DoublyLinkedList.c
 * Description:
 *  This file contains the functions for modifying the Doubly Linked List. It 
 *  includes functions to append, Insert before, Insert after, Insert at index, 
 *  Get, Remove element, Remove at index, Check if has element and Check if is empty.
 * 
 * Author: Mineplay
 * -----------------------------------------------------------------------------
 */
#include "../../Include/Fledasty/Core/DoublyLinkedList.h"

#include <Hallocy/Core/Allocator.h>
#include <Hallocy/Core/Memory.h>
#include <Hallocy/Utils/Error.h>

FledastyError fledasty_doubly_linked_list_initialize(FledastyDoublyLinkedList *new_doubly_linked_list, void *values, const size_t values_size, const size_t element_byte_size) {
    if (new_doubly_linked_list == NULL) {
        return FLEDASTY_ERROR_FAILED_ALLOCATION;
    }

    new_doubly_linked_list->element_byte_size = element_byte_size;
    if (values == NULL || values_size == 0) {
        new_doubly_linked_list->size = 0;
        new_doubly_linked_list->start = NULL;
        new_doubly_linked_list->end = NULL;
    } else {
        new_doubly_linked_list->size = values_size;

        new_doubly_linked_list->start = (FledastyDoublyLinkedListNode*)hallocy_malloc(sizeof(FledastyDoublyLinkedListNode));
        new_doubly_linked_list->start->value = hallocy_malloc(new_doubly_linked_list->element_byte_size);
        hallocy_copy_memory(new_doubly_linked_list->start->value, values, new_doubly_linked_list->element_byte_size);

        new_doubly_linked_list->start->previous = NULL;
        new_doubly_linked_list->start->next = NULL;

        FledastyDoublyLinkedListNode *last_node = new_doubly_linked_list->start;
        for (size_t index = new_doubly_linked_list->element_byte_size; index < new_doubly_linked_list->size * new_doubly_linked_list->element_byte_size; index += new_doubly_linked_list->element_byte_size) {
            FledastyDoublyLinkedListNode *new_node = (FledastyDoublyLinkedListNode*)hallocy_malloc(sizeof(FledastyDoublyLinkedListNode));
            new_node->value = hallocy_malloc(new_doubly_linked_list->element_byte_size);
            hallocy_copy_memory(new_node->value, (unsigned char*)values + index, new_doubly_linked_list->element_byte_size);
            
            new_node->previous = last_node;
            new_node->next = NULL;

            last_node->next = new_node;
            last_node = new_node;
        }
        
        new_doubly_linked_list->end = last_node;
    }

    return FLEDASTY_ERROR_NONE;
}

FledastyError fledasty_doubly_list_destroy(FledastyDoublyLinkedList *current_doubly_linked_list) {
    if (current_doubly_linked_list == NULL) {
        return FLEDASTY_ERROR_INVALID_POINTER;
    }

    FledastyDoublyLinkedListNode *current_node = current_doubly_linked_list->start;
    while (current_node->next != NULL) {
        current_node = current_node->next;

        HallocyError result = hallocy_free(current_node->previous->value);
        if (result == HALLOCY_ERROR_NONE) {
            return FLEDASTY_ERROR_FAILED_ALLOCATION;
        }

        result = hallocy_free(current_node->previous);
        if (result == HALLOCY_ERROR_NONE) {
            return FLEDASTY_ERROR_FAILED_ALLOCATION;
        }
    }

    if (current_node != NULL) {
        hallocy_free(current_node->value);
        hallocy_free(current_node);
    }

    return FLEDASTY_ERROR_NONE;
}

FledastyError fledasty_doubly_linked_list_append(FledastyDoublyLinkedList *current_doubly_linked_list, void *value) {
    if (current_doubly_linked_list == NULL || value == NULL) {
        return FLEDASTY_ERROR_INVALID_POINTER;
    }

    FledastyDoublyLinkedListNode *new_node = (FledastyDoublyLinkedListNode*)hallocy_malloc(sizeof(FledastyDoublyLinkedListNode));
    
    new_node->value = hallocy_malloc(current_doubly_linked_list->element_byte_size);
    hallocy_copy_memory(new_node->value, value, current_doubly_linked_list->element_byte_size);
    
    new_node->previous = current_doubly_linked_list->end;
    new_node->next = NULL;
    
    current_doubly_linked_list->end->next = new_node;
    current_doubly_linked_list->end = new_node;
    current_doubly_linked_list->size += 1;

    return FLEDASTY_ERROR_NONE;
}

FledastyError fledasty_doubly_linked_list_insert_at_index(FledastyDoublyLinkedList *current_doubly_linked_list, const size_t index, void *value) {
    if (current_doubly_linked_list == NULL || value == NULL) {
        return FLEDASTY_ERROR_INVALID_POINTER;
    }

    if (index > current_doubly_linked_list->size) {
        return FLEDASTY_ERROR_INDEX_OUT_OF_RANGE;
    }

    FledastyDoublyLinkedListNode *new_node = (FledastyDoublyLinkedListNode*)hallocy_malloc(sizeof(FledastyDoublyLinkedListNode));
    
    new_node->value = hallocy_malloc(current_doubly_linked_list->element_byte_size);
    hallocy_copy_memory(new_node->value, value, current_doubly_linked_list->element_byte_size);

    if (index == 0) {
        new_node->previous = NULL;
        new_node->next = current_doubly_linked_list->start;

        current_doubly_linked_list->start->previous = new_node;
        current_doubly_linked_list->start = new_node;
    } else if (index == current_doubly_linked_list->size) {
        new_node->previous = current_doubly_linked_list->end;
        new_node->next = NULL;
        
        current_doubly_linked_list->end->next = new_node;
        current_doubly_linked_list->end = new_node;
    } else {
        FledastyDoublyLinkedListNode *current_node = NULL;
        if (index < current_doubly_linked_list->size / 2) {
            current_node = current_doubly_linked_list->start;
            for (size_t node = 0; node < index - 1; node += 1) {
                current_node = current_node->next;
            }
        } else {
            current_node = current_doubly_linked_list->end;
            for (size_t node = current_doubly_linked_list->size - 1; node > index - 1; node -= 1) {
                current_node = current_node->previous;
            }
        }
    
        new_node->previous = current_node;
        new_node->next = current_node->next;

        current_node->next->previous = new_node;
        current_node->next = new_node;
    }

    current_doubly_linked_list->size += 1;
    return FLEDASTY_ERROR_NONE;
}