/*
 * 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: Main.c
 * Description:
 *  Executes all tests.
 * 
 * Author: Mineplay
 * -----------------------------------------------------------------------------
 */
#include <stdio.h>
#include <Hallocy/Core/Allocator.h>
#include <Fledasty/Core/Queue.h>
#include <Fledasty/Core/Stack.h>
#include <Fledasty/Core/DynamicArray.h>
#include <Fledasty/Core/LinkedList.h>
#include <Fledasty/Core/DoublyLinkedList.h>
#include <Fledasty/Core/HashTable.h>
#include <Fledasty/Strings/UTF8String.h>
#include <Fledasty/Algorithms/Hashing.h>

static inline bool compare_integers(const int first_value, const int second_value) { return first_value == second_value; }
static inline size_t integer_hash_function(const void *key) { return *(int*)key; }

FLEDASTY_STACK_DEFINE(int, int)
FLEDASTY_STACK_IMPLEMENT(int, int)

FLEDASTY_QUEUE_DEFINE(int, int)
FLEDASTY_QUEUE_IMPLEMENT(int, int)

FLEDASTY_DYNAMIC_ARRAY_DEFINE(int, int)
FLEDASTY_DYNAMIC_ARRAY_IMPLEMENT(int, int, compare_integers)

int main() {
    FledastyQueue_int test_queue = { 0, 0, 0, 0, NULL };
    for (int i = 0; i < 10; i += 1) {
        fledasty_queue_int_push(&test_queue, i);
    }

    fledasty_queue_int_shrink_to_fit(&test_queue);
    printf("Queue schrinked to fit %s\n", (test_queue.capacity == test_queue.size) ? "succeeded" : "failed");
    fledasty_queue_int_push(&test_queue, 10);
    printf("Queue peeked: %d\n", fledasty_queue_int_peek(&test_queue));

    for (int i = test_queue.size; i > 0; i -= 1) {
        printf("Queue popped: %d\n", fledasty_queue_int_pop(&test_queue));
    }

    fledasty_queue_int_clear(&test_queue);
    if (fledasty_queue_int_is_empty(&test_queue)) {
        printf("Queue is empty\n");
    }

    fledasty_queue_int_free(&test_queue);

    FledastyStack_int test_stack = { 0, 0, NULL };
    for (int i = 0; i < 10; i += 1) {
        fledasty_stack_int_push(&test_stack, i);
    }

    fledasty_stack_int_shrink_to_fit(&test_stack);
    printf("Stack schrinked to fit %s\n", (test_stack.capacity == test_stack.size) ? "succeeded" : "failed");
    printf("Stack peeked: %d\n", fledasty_stack_int_peek(&test_stack));

    for (int i = test_stack.size; i > 0; i -= 1) {
        printf("Stack popped: %d\n", fledasty_stack_int_pop(&test_stack));
    }

    fledasty_stack_int_clear(&test_stack);
    if (fledasty_stack_int_is_empty(&test_stack)) {
        printf("Stack is empty\n");
    }

    fledasty_stack_int_free(&test_stack);

    FledastyDynamicArray_int test_dynamic_array = { 0, 0, NULL };
    for (int i = 0; i < 10; i += 1) {
        fledasty_dynamic_array_int_append(&test_dynamic_array, i);
    }

    fledasty_dynamic_array_int_shrink_to_fit(&test_dynamic_array);
    printf("Dynamic array schrinked to fit %s\n", (test_dynamic_array.capacity == test_dynamic_array.size) ? "succeeded" : "failed");

    fledasty_dynamic_array_int_insert_at_index(&test_dynamic_array, 1, 18);
    fledasty_dynamic_array_int_insert_before_value(&test_dynamic_array, 1, 35);
    fledasty_dynamic_array_int_insert_after_value(&test_dynamic_array, 35, 90);

    fledasty_dynamic_array_int_remove_value(&test_dynamic_array, 35);
    fledasty_dynamic_array_int_remove_at_index(&test_dynamic_array, test_dynamic_array.size - 2);

    for (int i = 0; i < test_dynamic_array.size; i += 1) {
        printf("Dynamic array get: %d\n", test_dynamic_array.buffer[i]);
    }

    if (fledasty_dynamic_array_int_has_value(&test_dynamic_array, 90)) {
        printf("Dynamic array contains 90\n");
    }

    fledasty_dynamic_array_int_clear(&test_dynamic_array);
    if (fledasty_dynamic_array_int_is_empty(&test_dynamic_array)) {
        printf("Dynamic array is empty\n");
    }

    fledasty_dynamic_array_int_free(&test_dynamic_array);

    FledastyLinkedList test_linked_list;
    fledasty_linked_list_initialize(&test_linked_list, (int[]){11, 12, 13, 14, 15}, 5, sizeof(int));

    for (int i = 0; i < 10; i += 1) {
        fledasty_linked_list_append(&test_linked_list, &i);
    }

    int insert_value = 35;
    fledasty_linked_list_insert_at_index(&test_linked_list, 1, &insert_value);
    insert_value = 28;
    int insert_at_value = 35;
    fledasty_linked_list_insert_before_value(&test_linked_list, &insert_at_value, &insert_value);
    insert_value = 90;
    fledasty_linked_list_insert_after_value(&test_linked_list, &insert_at_value, &insert_value);

    fledasty_linked_list_remove_at_index(&test_linked_list, 2);
    int remove_value = 0;
    fledasty_linked_list_remove_value(&test_linked_list, &remove_value);

    FledastyLinkedListNode *test_linked_list_node = test_linked_list.start;
    for (int i = 0; i < test_linked_list.size; i += 1) {
        printf("Linked list get: %d\n", *(int*)test_linked_list_node->value);
        test_linked_list_node = test_linked_list_node->next;
    }

    if (fledasty_linked_list_has_value(&test_linked_list, &insert_value)) {
        printf("Linked list contains %d\n", insert_value);
    }

    fledasty_linked_list_clear(&test_linked_list);
    if (fledasty_linked_list_is_empty(&test_linked_list)) {
        printf("Linked list is empty\n");
    }

    fledasty_linked_list_destroy(&test_linked_list);
    
    FledastyDoublyLinkedList test_doubly_linked_list;
    fledasty_doubly_linked_list_initialize(&test_doubly_linked_list, (int[]){11, 12, 13, 14, 15}, 5, sizeof(int));
    for (int i = 0; i < 10; i += 1) {
        fledasty_doubly_linked_list_append(&test_doubly_linked_list, &i);
    }

    insert_value = 35;
    fledasty_doubly_linked_list_insert_at_index(&test_doubly_linked_list, test_doubly_linked_list.size - 1, &insert_value);
    insert_value = 28;
    insert_at_value = 35;
    fledasty_doubly_linked_list_insert_before_value(&test_doubly_linked_list, &insert_at_value, &insert_value);
    insert_value = 90;
    fledasty_doubly_linked_list_insert_after_value(&test_doubly_linked_list, &insert_at_value, &insert_value);

    fledasty_doubly_linked_list_remove_at_index(&test_doubly_linked_list, 2);
    remove_value = 0;
    fledasty_doubly_linked_list_remove_value(&test_doubly_linked_list, &remove_value);

    FledastyDoublyLinkedListNode *test_doubly_linked_list_node = test_doubly_linked_list.start;
    for (int i = 0; i < test_doubly_linked_list.size; i += 1) {
        printf("Doubly linked list get: %d\n", *(int*)test_doubly_linked_list_node->value);
        test_doubly_linked_list_node = test_doubly_linked_list_node->next;
    }

    test_doubly_linked_list_node = test_doubly_linked_list.end;
    for (int i = 0; i < test_doubly_linked_list.size; i += 1) {
        printf("Doubly linked list get backwards: %d\n", *(int*)test_doubly_linked_list_node->value);
        test_doubly_linked_list_node = test_doubly_linked_list_node->previous;
    }

    if (fledasty_doubly_linked_list_has_value(&test_doubly_linked_list, &insert_value)) {
        printf("Doubly linked list contains %d\n", insert_value);
    }

    fledasty_doubly_linked_list_clear(&test_doubly_linked_list);
    if (fledasty_doubly_linked_list_is_empty(&test_doubly_linked_list)) {
        printf("Doubly linked list is empty\n");
    }

    fledasty_doubly_list_destroy(&test_doubly_linked_list);
    
    FledastyHashTable test_hash_table;
    fledasty_hash_table_initialize(&test_hash_table, sizeof(int), sizeof(int), integer_hash_function);

    for (int i = 0; i < 10; i += 1) {
        int pow_value = i * i;
        fledasty_hash_table_insert(&test_hash_table, &pow_value, &i);
    }

    fledasty_hash_table_shrink_to_fit(&test_hash_table);

    int hash_table_value = 5;
    int hash_table_remove = 2;
    fledasty_hash_table_insert(&test_hash_table, &hash_table_remove, &hash_table_value);
    fledasty_hash_table_remove(&test_hash_table, &hash_table_remove);

    if (fledasty_hash_table_get(&test_hash_table, &hash_table_remove) != NULL) {
        printf("Value not removed from hash table\n");
    }

    for (int i = 0; i < 10; i += 1) {
        int pow_value = i * i;
        int *hash_table_value = (int*)fledasty_hash_table_get(&test_hash_table, &pow_value);
        printf("Hash table get: %d\n", *hash_table_value);
    }

    hash_table_value = 4;
    if (fledasty_hash_table_has_key(&test_hash_table, &hash_table_value)) {
        printf("Hash table contains key %d\n", hash_table_value);
    }

    fledasty_hash_table_clear(&test_hash_table);
    if (fledasty_hash_table_is_empty(&test_hash_table)) {
        printf("Hash table is empty\n");
    }

    fledasty_hash_table_destroy(&test_hash_table);
    FledastyUtf8String test_utf8_string;
    unsigned char *test_string = (unsigned char*)"😀€Testing";
    fledasty_utf8_string_initialize(&test_utf8_string, test_string, 14);
    printf("%s\n", test_string);
    printf("%s\n", test_utf8_string.character_string);

    fledasty_utf8_string_append(&test_utf8_string, (unsigned char*)"😀", 4);
    printf("Append: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_insert_before_string(&test_utf8_string, (unsigned char*)"😀", 4, (unsigned char*)"Hello", 5);
    printf("Insert Before: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_insert_after_string(&test_utf8_string, (unsigned char*)"😀", 4, (unsigned char*)"Bye", 3);
    printf("Insert After: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_insert_at_index(&test_utf8_string, test_utf8_string.size, (unsigned char*)"index", 5);
    printf("Insert at Index: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_replace_string(&test_utf8_string, (unsigned char*)"😀", 4, (unsigned char*)"𓃶 ", 5);
    printf("Replace: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_pop(&test_utf8_string);
    printf("Pop: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_remove(&test_utf8_string, (unsigned char*)"𓃶 ", 5);
    printf("Remove: %s\n", test_utf8_string.character_string);
    fledasty_utf8_string_remove_range(&test_utf8_string, 0, 6);
    printf("Remove range: %s\n", test_utf8_string.character_string);

    fledasty_utf8_string_shrink_to_fit(&test_utf8_string);
    if (fledasty_utf8_string_has_string(&test_utf8_string, (unsigned char*)"😀", 4)) {
        printf("String contains 😀!\n");
    }

    uint32_t hash_x32 = fledasty_mur_mur_3_hash_x32(test_utf8_string.character_string, test_utf8_string.size, 0);
    printf("UTF-8 String hash using murmur 32 is: %u\n", hash_x32);

    FledastyHash128 hash_x64 = fledasty_mur_mur_3_hash_x64_128(test_utf8_string.character_string, test_utf8_string.size, 0);
    printf("UTF-8 String hash using murmur 64 is: low = %lu, high = %lu\n", hash_x64.low, hash_x64.high);

    size_t unicode_length = 0;
    uint32_t *unicode = fledasty_utf8_string_decode(&test_utf8_string, &unicode_length);
    FledastyUtf8String encoded_string = fledasty_utf8_string_encode(unicode, unicode_length);

    printf("%s\n", encoded_string.character_string);
    
    if (fledasty_utf8_string_validate(test_utf8_string.character_string, encoded_string.size)) {
        printf("UTF-8 test string is valid!\n");
    }

    if (fledasty_utf8_string_validate(encoded_string.character_string, encoded_string.size)) {
        printf("UTF-8 encoded string is valid!\n");
    }

    unsigned char *invalid_utf8 = (unsigned char*)hallocy_malloc(2 * sizeof(unsigned char));
    invalid_utf8[0] = 0xDF;
    invalid_utf8[1] = 0xFF;
    if (!fledasty_utf8_string_validate(invalid_utf8, 2)) {
        printf("UTF-8 invalid string is invalid!\n");
    }
    
    fledasty_utf8_string_clear(&test_utf8_string);
    if (fledasty_utf8_string_is_empty(&test_utf8_string)) {
        printf("UTF-8 string is empty!\n");
    }

    hallocy_free(invalid_utf8);
    hallocy_free(unicode);
    fledasty_utf8_string_destroy(&encoded_string);

    fledasty_utf8_string_destroy(&test_utf8_string);
    printf("Done\n");
    return 0;
}