use rmp_serde::{decode, encode};
use std::fmt::Debug;
use std::fs;
use std::marker::PhantomData;
use std::path::{Path, PathBuf};

extern crate serde;

use serde::{de::DeserializeOwned, Serialize};

pub struct Fsdb {
    dir: PathBuf,
}

pub struct Bucket<V> {
    dir: PathBuf,
    max_file_name: Option<usize>,
    _v: PhantomData<V>,
}

#[derive(Debug, thiserror::Error)]
pub enum Error {
    #[error("io error: {0}")]
    Io(#[from] std::io::Error),
    #[error("encode error: {0}")]
    Encode(#[from] rmp_serde::encode::Error),
    #[error("dncode error: {0}")]
    Decode(#[from] rmp_serde::decode::Error),
}

type Result<T> = std::result::Result<T, Error>;

impl Fsdb {
    /// Create a new Fsdb
    pub fn new(dir: &str) -> Result<Self> {
        if !Path::new(dir).exists() {
            fs::create_dir_all(dir)?;
        }
        Ok(Self { dir: dir.into() })
    }

    // Create new bucket
    pub fn bucket<V: Serialize + DeserializeOwned>(&self, p: &str) -> Result<Bucket<V>> {
        let mut dir = self.dir.clone();
        dir.push::<PathBuf>(p.into());
        if !Path::new(&dir).exists() {
            fs::create_dir(dir.clone())?;
        }
        Ok(Bucket {
            dir: dir.into(),
            max_file_name: None,
            _v: PhantomData,
        })
    }
}

// store things at top level of a bucket
impl<V: Serialize + DeserializeOwned> Bucket<V> {
    /// Set a max file name length for this bucket
    pub fn set_max_file_name(&mut self, x: usize) {
        self.max_file_name = Some(x);
    }
    /// Check if a key exists
    pub fn exists(&self, key: &str) -> bool {
        let mut path = self.dir.clone();
        path.push(self.maxify(key));
        path.exists()
    }
    /// Create a key
    pub fn put(&self, key: &str, value: V) -> Result<()> {
        let mut path = self.dir.clone();
        path.push(self.maxify(key));
        self.fs_put(path, value)
    }
    /// Get a key
    pub fn get(&self, key: &str) -> Result<V> {
        let mut path = self.dir.clone();
        path.push(self.maxify(key));
        self.fs_get(path)
    }
    /// Delete a file
    pub fn remove(&self, key: &str) -> Result<()> {
        let mut path = self.dir.clone();
        path.push(self.maxify(key));
        self.fs_remove(path)
    }
    /// List keys in this bucket (or sub-buckets in this bucket)
    pub fn list(&self) -> Result<Vec<String>> {
        let path = self.dir.clone();
        self.fs_list(path)
    }
    /// Clear all keys in this bucket
    pub fn clear(&self) -> Result<()> {
        let path = self.dir.clone();
        self.fs_clear(path)
    }
}

// "within" funcs to store things one level deeper
impl<V: Serialize + DeserializeOwned> Bucket<V> {
    /// Check if a key exists within sub-bucket
    pub fn exists_within(&self, key: &str, sub: &str) -> bool {
        let mut path = self.dir.clone();
        path.push(sub);
        path.push(self.maxify(key));
        path.exists()
    }
    /// Create a key in a sub-bucket
    pub fn put_within(&self, key: &str, value: V, sub: &str) -> Result<()> {
        let mut path = self.dir.clone();
        path.push(sub);
        if !Path::new(&path).exists() {
            fs::create_dir(path.clone())?;
        }
        path.push(self.maxify(key));
        self.fs_put(path, value)
    }
    /// Get a key in a sub-bucket
    pub fn get_within(&self, key: &str, sub: &str) -> Result<V> {
        let mut path = self.dir.clone();
        path.push(sub);
        path.push(self.maxify(key));
        self.fs_get(path)
    }
    /// Delete a file in a sub-bucket
    pub fn remove_within(&self, key: &str, sub: &str) -> Result<()> {
        let mut path = self.dir.clone();
        path.push(sub);
        path.push(self.maxify(key));
        self.fs_remove(path)
    }
    /// List keys in this bucket's sub-bucket
    pub fn list_within(&self, sub: &str) -> Result<Vec<String>> {
        let mut path = self.dir.clone();
        path.push(sub);
        self.fs_list(path)
    }
    /// Clear all keys in this sub-bucket
    pub fn clear_within(&self, sub: &str) -> Result<()> {
        let mut path = self.dir.clone();
        path.push(sub);
        self.fs_clear(path)
    }
}

// internal implementations
impl<V: Serialize + DeserializeOwned> Bucket<V> {
    fn fs_put(&self, path: PathBuf, value: V) -> Result<()> {
        let mut f = fs::File::create(path.clone())?;
        encode::write(&mut f, &value)?;
        Ok(())
    }
    fn fs_get(&self, path: PathBuf) -> Result<V> {
        let f = fs::File::open(path)?;
        Ok(decode::from_read(f)?)
    }
    fn fs_remove(&self, path: PathBuf) -> Result<()> {
        Ok(std::fs::remove_file(path)?)
    }
    fn fs_list(&self, path: PathBuf) -> Result<Vec<String>> {
        let paths = fs::read_dir(path)?;
        let mut r = Vec::new();
        paths.for_each(|name| {
            if let Ok(na) = name {
                if let Ok(n) = na.file_name().into_string() {
                    r.push(n);
                }
            }
        });
        Ok(r)
    }
    fn fs_clear(&self, path: PathBuf) -> Result<()> {
        Ok(fs::remove_dir_all(path)?)
    }
    fn maxify(&self, name: &str) -> String {
        if let Some(max) = self.max_file_name {
            let mut s = name.to_string();
            s.truncate(max);
            s
        } else {
            name.to_owned()
        }
    }
}

#[cfg(test)]
mod tests {
    use crate::Fsdb;
    use serde::{Deserialize, Serialize};

    #[derive(Serialize, Deserialize, Debug, PartialEq, Eq, Clone)]
    struct Thing {
        n: u8,
    }

    #[test]
    fn test_db() {
        let db = Fsdb::new("testdb").expect("fail Fsdb::new");
        let mut b = db.bucket("hi").expect("fail bucket");
        b.set_max_file_name(8);
        let t1 = Thing { n: 1 };
        b.put("keythatisverylong", t1.clone())
            .expect("failed to save");
        let t2: Thing = b.get("keythatisverylong").expect("fail to load");
        println!("t {:?}", t2.clone());
        assert_eq!(t1, t2);
        let list = b.list().expect("fail list");
        assert_eq!(list, vec!["keythati".to_string()]);
    }

    #[test]
    fn test_within() {
        let db = Fsdb::new("testdb2").expect("fail Fsdb::new");
        let b = db.bucket("hi").expect("fail bucket");
        let t1 = Thing { n: 1 };
        b.put_within("key", t1.clone(), "sub1")
            .expect("failed to save");
        let t2: Thing = b.get_within("key", "sub1").expect("fail to load");
        println!("t {:?}", t2.clone());
        assert_eq!(t1, t2);
        let list = b.list_within("sub1").expect("fail list");
        assert_eq!(list, vec!["key".to_string()]);
    }
}