#include <stdarg.h>
#include <stdlib.h>
#include <stdio.h>
#include <strings.h>
#include <fs/CFile.hpp>

CFile::CFile() {
    iFd = -1;
    mem_file = NULL;
    filesize = 0;
    pos = 0;
}

CFile::CFile(const std::string & filepath, eOpenTypes mode) {
    iFd = -1;
    this->open(filepath, mode);
}

CFile::CFile(const uint8_t * mem, int32_t size) {
    iFd = -1;
    this->open(mem, size);
}

CFile::~CFile() {
    this->close();
}

int32_t CFile::open(const std::string & filepath, eOpenTypes mode) {
    this->close();
    int32_t openMode = 0;

    // This depend on the devoptab implementation.
    // see https://github.com/devkitPro/wut/blob/master/libraries/wutdevoptab/devoptab_fs_open.c#L21 fpr reference

    switch(mode) {
    default:
    case ReadOnly:   // file must exist
        openMode = O_RDONLY;
        break;
    case WriteOnly: // file will be created / zerod
        openMode = O_TRUNC | O_CREAT | O_WRONLY;
        break;
    case ReadWrite: // file must exist
        openMode = O_RDWR;
        break;
    case Append: // append to file, file will be created if missing. write only
        openMode = O_CREAT | O_APPEND | O_WRONLY;
        break;
    }

    //! Using fopen works only on the first launch as expected
    //! on the second launch it causes issues because we don't overwrite
    //! the .data sections which is needed for a normal application to re-init
    //! this will be added with launching as RPX
    iFd = ::open(filepath.c_str(), openMode);
    if(iFd < 0)
        return iFd;


    filesize = ::lseek(iFd, 0, SEEK_END);
    ::lseek(iFd, 0, SEEK_SET);

    return 0;
}

int32_t CFile::open(const uint8_t * mem, int32_t size) {
    this->close();

    mem_file = mem;
    filesize = size;

    return 0;
}

void CFile::close() {
    if(iFd >= 0)
        ::close(iFd);

    iFd = -1;
    mem_file = NULL;
    filesize = 0;
    pos = 0;
}

int32_t CFile::read(uint8_t * ptr, size_t size) {
    if(iFd >= 0) {
        int32_t ret = ::read(iFd, ptr,size);
        if(ret > 0)
            pos += ret;
        return ret;
    }

    int32_t readsize = size;

    if(readsize > (int64_t) (filesize-pos))
        readsize = filesize-pos;

    if(readsize <= 0)
        return readsize;

    if(mem_file != NULL) {
        memcpy(ptr, mem_file+pos, readsize);
        pos += readsize;
        return readsize;
    }

    return -1;
}

int32_t CFile::write(const uint8_t * ptr, size_t size) {
    if(iFd >= 0) {
        size_t done = 0;
        while(done < size) {
            int32_t ret = ::write(iFd, ptr, size - done);
            if(ret <= 0)
                return ret;

            ptr += ret;
            done += ret;
            pos += ret;
        }
        return done;
    }

    return -1;
}

int32_t CFile::seek(long int offset, int32_t origin) {
    int32_t ret = 0;
    int64_t newPos = pos;

    if(origin == SEEK_SET) {
        newPos = offset;
    } else if(origin == SEEK_CUR) {
        newPos += offset;
    } else if(origin == SEEK_END) {
        newPos = filesize+offset;
    }

    if(newPos < 0) {
        pos = 0;
    } else {
        pos = newPos;
    }

    if(iFd >= 0)
        ret = ::lseek(iFd, pos, SEEK_SET);

    if(mem_file != NULL) {
        if(pos > filesize) {
            pos = filesize;
        }
    }

    return ret;
}

int32_t CFile::fwrite(const char *format, ...) {
    char tmp[512];
    tmp[0] = 0;
    int32_t result = -1;

    va_list va;
    va_start(va, format);
    if((vsprintf(tmp, format, va) >= 0)) {
        result = this->write((uint8_t *)tmp, strlen(tmp));
    }
    va_end(va);


    return result;
}