/*
  spiffs_8266_filesystem.cpp - ESP3D filesystem configuration class

  Copyright (c) 2014 Luc Lebosse. All rights reserved.

  This library is free software; you can redistribute it and/or
  modify it under the terms of the GNU Lesser General Public
  License as published by the Free Software Foundation; either
  version 2.1 of the License, or (at your option) any later version.

  This library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  Lesser General Public License for more details.

  You should have received a copy of the GNU Lesser General Public
  License along with this library; if not, write to the Free Software
  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
*/
#include "../../include/esp3d_config.h"
#if (FILESYSTEM_FEATURE == ESP_SPIFFS_FILESYSTEM) && defined (ARDUINO_ARCH_ESP8266)
#include "esp_filesystem.h"
#include "../../core/genLinkedList.h"
#include <FS.h>
Dir tDir_handle[ESP_MAX_OPENHANDLE];
extern File tFile_handle[ESP_MAX_OPENHANDLE];

bool ESP_FileSystem::begin()
{
    _started = SPIFFS.begin();
    return _started;
}
void ESP_FileSystem::end()
{
    _started = false;
    SPIFFS.end();
}

size_t ESP_FileSystem::totalBytes()
{
    fs::FSInfo info;
    SPIFFS.info (info);
    return info.totalBytes;
}

size_t ESP_FileSystem::usedBytes()
{
    fs::FSInfo info;
    SPIFFS.info (info);
    return info.usedBytes;
}


const char * ESP_FileSystem::FilesystemName()
{
    return "SPIFFS";
}

bool ESP_FileSystem::format()
{
    return SPIFFS.format();
}

ESP_File ESP_FileSystem::open(const char* path, uint8_t mode)
{
    //do some check
    if(((strcmp(path,"/") == 0) && ((mode == ESP_FILE_WRITE) || (mode == ESP_FILE_APPEND))) || (strlen(path) == 0)) {
        return ESP_File();
    }
    // path must start by '/'
    if (path[0] != '/') {
        return ESP_File();
    }
    File ftmp = SPIFFS.open(path, (mode == ESP_FILE_READ)?"r":(mode == ESP_FILE_WRITE)?"w":"a");
    if(ftmp) {
        //log_esp3d("Success openening: %s", path);
        ESP_File esptmp(&ftmp, false,(mode == ESP_FILE_READ)?false:true, path);
        return esptmp;
    }
    (void)mode;
    Dir dtmp = SPIFFS.openDir(path);
    ESP_File esptmp(&dtmp, true, false, path);
    return esptmp;
}

bool ESP_FileSystem::exists(const char* path)
{
    bool res = false;
    //root should always be there if started
    if (strcmp(path, "/") == 0) {
        return _started;
    }
    String spath = path;
    spath.trim();
    if (spath[spath.length()-1] == '/') {
        if (spath!="/") {
            spath.remove(spath.length()-1);
        }
    }
    res = SPIFFS.exists(spath.c_str());
    if (!res) {
        String newpath = spath;
        if (newpath[newpath.length()-1] != '/') {
            newpath+="/";
        }
        newpath+=".";
        //log_esp3d("Check %s", newpath.c_str());
        res = SPIFFS.exists(newpath);
        if (!res) {
            ESP_File f = ESP_FileSystem::open(path, ESP_FILE_READ);
            if (f) {
                //Check directories
                ESP_File sub = f.openNextFile();
                if (sub) {
                    sub.close();
                    res = true;
                }
                f.close();
            }
        }
    }
    return res;
}

bool ESP_FileSystem::remove(const char *path)
{
    return SPIFFS.remove(path);
}

bool ESP_FileSystem::mkdir(const char *path)
{
    //Use file named . to simulate directory
    String p = path;
    if (p[p.length()-1] != '/') {
        p+="/";
    }
    p+=".";
    //log_esp3d("Dir create : %s", p.c_str());
    ESP_File f = open(p.c_str(), ESP_FILE_WRITE);
    if (f) {
        f.close();
        return true;
    } else {
        return false;
    }
}

bool ESP_FileSystem::rmdir(const char *path)
{
    Dir dtmp = SPIFFS.openDir(path);
    while (dtmp.next()) {
        if (!SPIFFS.remove(dtmp.fileName().c_str())) {
            return false;
        }
    }
    return true;
}

void ESP_FileSystem::closeAll()
{
    for (uint8_t i = 0; i < ESP_MAX_OPENHANDLE; i++) {
        tDir_handle[i] = Dir();
        tFile_handle[i].close();
        tFile_handle[i] = File();
    }
}

ESP_File::ESP_File(void* handle, bool isdir, bool iswritemode, const char * path)
{
    _isdir = isdir;
    _dirlist = "";
    _isfakedir = false;
    _index = -1;
    _filename = "";
    _name = "";
#ifdef FILESYSTEM_TIMESTAMP_FEATURE
    memset (&_lastwrite,0,sizeof(time_t));
#endif //FILESYSTEM_TIMESTAMP_FEATURE 
    _iswritemode = iswritemode;
    _size = 0;
    if (!handle) {
        return ;
    }
    bool set =false;
    if (_isdir) {
        for (uint8_t i=0; (i < ESP_MAX_OPENHANDLE) && !set; i++) {
            if (tDir_handle[i].fileName().length() == 0) {
                tDir_handle[i] = *((Dir *)handle);
                _index = i;
                //Path = filename
                if (path) {
                    _filename = path;
                    if (_filename == "/") {
                        _filename = "/.";
                    }
                    if (_filename[_filename.length()-1] != '.') {
                        if (_filename[_filename.length()-2] != '/') {
                            _filename+="/";
                        }
                        _filename+=".";
                    }
                    //log_esp3d("Filename: %s", _filename.c_str());
                    //Name
                    if (_filename == "/.") {
                        _name = "/";
                    } else {
                        _name = _filename;
                        if (_name.length() >=2) {
                            if ((_name[_name.length() - 1] == '.') && (_name[_name.length() - 2] == '/')) {
                                _name.remove( _name.length() - 2,2);
                            }
                        }
                        _name.remove( 0, _name.lastIndexOf('/')+1);
                    }
                }
                //log_esp3d("Name: %s index: %d", _name.c_str(), _index);
                set = true;
            }
        }
        return;
    }
    for (uint8_t i=0; (i < ESP_MAX_OPENHANDLE) && !set; i++) {
        if (!tFile_handle[i]) {
            tFile_handle[i] = *((File*)handle);
            //filename
            _filename = tFile_handle[i].name();

            //if root
            if (_filename == "/") {
                _filename = "/.";
            }
            if (_isdir) {
                if (_filename[_filename.length()-1] != '.') {
                    if (_filename[_filename.length()-2] != '/') {
                        _filename+="/";
                    }
                    _filename+=".";
                }
            }
            //name
            if (_filename == "/.") {
                _name = "/";
            } else {
                _name = _filename;
                if (_name.endsWith("/.")) {
                    _name.remove( _name.length() - 2,2);
                    _isfakedir = true;
                    _isdir = true;
                }
                if (_name[0] == '/') {
                    _name.remove( 0, 1);
                }
                int pos = _name.lastIndexOf('/');
                if (pos != -1) {
                    _name.remove( 0, pos+1);
                }
            }
            //size
            _size = tFile_handle[i].size();
            //time
#ifdef FILESYSTEM_TIMESTAMP_FEATURE
            _lastwrite =  tFile_handle[i].getLastWrite();
#endif //FILESYSTEM_TIMESTAMP_FEATURE
            _index = i;
            //log_esp3d("Opening File at index %d",_index);
            set = true;
        }
    }
}

void ESP_File::close()
{
    if (_index != -1) {
        if (_isdir && !_isfakedir) {
            //log_esp3d("Closing Dir at index %d", _index);
            tDir_handle[_index] = Dir();
            _index = -1;
            return;
        }
        //log_esp3d("Closing File at index %d", _index);
        tFile_handle[_index].close();
        //reopen if mode = write
        //udate size + date
        if (_iswritemode && !_isdir) {
            File ftmp = SPIFFS.open(_filename.c_str(), "r");
            if (ftmp) {
                _size = ftmp.size();
#ifdef FILESYSTEM_TIMESTAMP_FEATURE
                _lastwrite = ftmp.getLastWrite();
#endif //FILESYSTEM_TIMESTAMP_FEATURE
                ftmp.close();
            }
        }
        //log_esp3d("Closing File at index %d",_index);
        _index = -1;
    }
}

ESP_File  ESP_File::openNextFile()
{
    if ((_index == -1) || !_isdir) {
        log_esp3d("openNextFile failed");
        return ESP_File();
    }
    if(tDir_handle[_index].next()) {
        //log_esp3d("Getting next file from %s", _filename.c_str());
        File tmp = tDir_handle[_index].openFile("r");
        while (tmp) {
            ESP_File esptmp(&tmp);
            esptmp.close();
            String sub = esptmp.filename();
            sub.remove(0,_filename.length()-1);
            int pos = sub.indexOf("/");
            if (pos!=-1) {
                //is subdir
                sub = sub.substring(0,pos);
                //log_esp3d("file name:%s name: %s %s  sub:%s root:%s", esptmp.filename(), esptmp.name(), (esptmp.isDirectory())?"isDir":"isFile", sub.c_str(), _filename.c_str());
                String tag = "*" + sub + "*";
                //test if already in directory list
                if (_dirlist.indexOf(tag) == -1) {//not in list so add it and return the info
                    _dirlist+= tag;
                    String fname = _filename.substring(0,_filename.length()-1) + sub + "/.";
                    //log_esp3d("Found dir  name: %s filename:%s", sub.c_str(), fname.c_str());
                    esptmp = ESP_File(sub.c_str(), fname.c_str());
                    return esptmp;
                } else { //already in list so ignore it
                    //log_esp3d("Dir name: %s already in list", sub.c_str());
                    if(!tDir_handle[_index].next()) {
                        return ESP_File();
                    } else {
                        tmp = tDir_handle[_index].openFile("r");
                    }
                }
            } else { //is file
                //log_esp3d("file name:%s name: %s %s  sub:%s root:%s", esptmp.filename(), esptmp.name(), (esptmp.isDirectory())?"isDir":"isFile", sub.c_str(), _filename.c_str());
                if (sub == ".") {
                    //log_esp3d("Dir tag, ignore it");
                    if(!tDir_handle[_index].next()) {
                        return ESP_File();
                    } else {
                        tmp = tDir_handle[_index].openFile("r");
                    }
                } else {
                    return esptmp;
                }
            }
        }
    }
    return  ESP_File();
}


#endif //ESP_SPIFFS_FILESYSTEM