#ifndef RCASE_H
#define RCASE_H
#include "rio.h"
#include "rmalloc.h"
#include "rprint.h"
#include "rstring.h"
#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>

#define RCAMEL_CASE 1
#define RSNAKE_CASE 2
#define RINVALID_CASE 0
#define RCONST_TEST_T 4;

int rdetermine_case(const char *str) {
    int length = strlen(str);

    char p = 0;
    while (*str) {
        if (p == '_' && islower(*str))
            return RSNAKE_CASE;
        if (p != '_' && !isupper(p) && isupper(*str))
            return RCAMEL_CASE;
        p = *str;
        str++;
    }
    return RINVALID_CASE;

    if (length == 0) {
        return RINVALID_CASE;
    }
    if (strchr(str, '_')) {
        if (str[0] == '_' || str[length - 1] == '_' || strstr(str, "__")) {
            return RINVALID_CASE;
        }
        for (int i = 0; i < length; i++) {
            if (!islower(str[i]) && str[i] != '_') {
                return RINVALID_CASE;
            }
        }
        return RSNAKE_CASE;
    } else {

        if (!islower(str[0])) {
            return RINVALID_CASE;
        }
        for (int i = 1; i < length; i++) {
            if (str[i] == '_') {
                return RINVALID_CASE;
            }
            if (isupper(str[i]) && isupper(str[i - 1])) {
                return RINVALID_CASE;
            }
        }
        return RCAMEL_CASE;
    }
}

char *rsnake_to_camel(const char *snake_case) {
    int length = strlen(snake_case);
    char *camel_case = (char *)malloc(length + 1);
    int j = 0;
    int toUpper = 0;

    for (int i = 0; i < length; i++) {
        if (i > 0 && snake_case[i] == '_' && snake_case[i + 1] == 'T') {
            toUpper = 1;
            if (snake_case[i + 1] == 'T' && (snake_case[i + 2] != '\n' || snake_case[i + 2] != '\0' || snake_case[i + 2] != ' ')) {

                toUpper = 0;
            }
        }
        if (snake_case[i] == '_' && snake_case[i + 1] != 't') {
            toUpper = 1;
            if (snake_case[i + 1] == 't' && (snake_case[i + 2] != '\n' || snake_case[i + 2] != '\0' || snake_case[i + 2] != ' ')) {
                toUpper = 0;
            }
        } else if (snake_case[i] == '_' && snake_case[i + 1] == 't' && !isspace(snake_case[i + 2])) {
            toUpper = 1;
        } else if (snake_case[i] == '_' && snake_case[i + 1] == 'T' && !isspace(snake_case[i + 2])) {
            toUpper = 1;
            camel_case[j++] = '_';
            j++;
        } else {
            if (toUpper) {
                camel_case[j++] = toupper(snake_case[i]);
                toUpper = 0;
            } else {
                camel_case[j++] = snake_case[i];
            }
        }
    }

    camel_case[j] = '\0';
    return camel_case;
}
char *rcamel_to_snake(const char *camelCase) {
    int length = strlen(camelCase);
    char *snake_case = (char *)malloc(2 * length + 1);
    int j = 0;

    for (int i = 0; i < length; i++) {
        if (isupper(camelCase[i])) {
            if (i != 0) {
                snake_case[j++] = '_';
            }
            snake_case[j++] = tolower(camelCase[i]);
        } else {
            snake_case[j++] = camelCase[i];
        }
    }

    snake_case[j] = '\0';
    return snake_case;
}

char *rflip_case(char *content) {
    if (rdetermine_case(content) == RSNAKE_CASE) {
        return rcamel_to_snake(content);
    } else if (rdetermine_case(content) == RCAMEL_CASE) {
        return rsnake_to_camel(content);
    } else {
        rprintr("Could not determine case\n");
        return NULL;
    }
}

char *rflip_case_file(char *filepath) {
    size_t file_size = rfile_size(filepath);
    if (file_size == 0) {
        return NULL;
    }
    char *content = (char *)malloc(file_size);
    char *result = NULL;
    if (rfile_readb(filepath, content, file_size)) {
        result = rflip_case(content);
        if (result) {
            free(content);
            return result;
        } else {
            return content;
        }
    }
    return result;
}

int rcase_main(int argc, char *argv[]) {
    if (argc < 2) {
        printf("usage: rcase <file>\n");
        return 1;
    }
    for (int i = 1; i < argc; i++) {
        char *result = rflip_case_file(argv[i]);
        if (result) {
            printf("%s\n", result);
            free(result);
        }
    }
    return 0;
}
#endif