use std::sync::Mutex;

use cell::{Cell, CellRef};
use mlua::prelude::*;
use register::{Register, SheetId};

pub mod cell;
pub mod eval;
pub mod register;

#[derive(Debug, Default)]
pub struct Sheet {
    id: register::SheetId,
    rows: Vec<Vec<Cell>>,
    progress: Mutex<u8>,
}

impl Sheet {
    pub(self) fn new(width: usize, height: usize, id: register::SheetId) -> Self {
        Self {
            id,
            rows: vec![vec![Cell::new_empty(); width]; height],
            progress: Mutex::new(0),
        }
    }

    pub fn set_cell(&mut self, row: usize, column: usize, cell: Cell) {
        if row < self.height() && column < self.width() {
            self.rows[row][column] = cell
        }
    }

    pub fn get_cell(&self, row: usize, column: usize) -> Option<&Cell> {
        if let Some(r) = self.rows.get(row) {
            if r.get(column).is_some() {
                return Some(&self.rows[row][column]);
            }
        }

        None
    }

    pub fn get_ref(&self, row: usize, column: usize) -> Option<CellRef> {
        self.get_cell(row, column).map(|cell| {
            unsafe { CellRef::new(self.id, row, column, cell.clone()) }
        })
    }

    pub fn height(&self) -> usize {
        self.rows.len()
    }

    pub fn set_height(&mut self, mut height: usize) {
        height = height.max(1);
        self.rows
            .resize(height, vec![Cell::new_empty(); self.width()])
    }

    pub fn width(&self) -> usize {
        self.rows.first().map(|r| r.len()).unwrap_or(1)
    }

    pub fn set_width(&mut self, mut width: usize) {
        width = width.max(1);
        for row in self.rows.iter_mut() {
            row.resize(width, Cell::new_empty());
        }
    }

    pub fn id(&self) -> register::SheetId {
        self.id
    }

    pub fn apply(&mut self, other: Sheet) {
        self.rows = other.rows;
    }

    pub fn progress(&self) -> u8 {
        *self.progress.lock().unwrap()
    }
}

impl Clone for Sheet {
    fn clone(&self) -> Self {
        Sheet {
            id: self.id,
            rows: self.rows.clone(),
            progress: Mutex::new(0),
        }
    }
}

pub struct SheetLuaRef {
    id: SheetId,
}

impl SheetLuaRef {
    pub fn new(id: SheetId) -> Self {
        Self { id }
    }

    pub fn id(&self) -> SheetId {
        self.id
    }
}

impl LuaUserData for SheetLuaRef {
    fn add_fields<'lua, F: mlua::UserDataFields<'lua, Self>>(fields: &mut F) {
        fields.add_field_method_get("width", |_, luaref| {
            Ok(Register::get(luaref.id).unwrap().read().unwrap().width())
        });

        fields.add_field_method_get("height", |_, luaref| {
            Ok(Register::get(luaref.id).unwrap().read().unwrap().height())
        });
    }

    fn add_methods<'lua, M: mlua::UserDataMethods<'lua, Self>>(methods: &mut M) {
        methods.add_method_mut("cell", |lua, luaref, (row, column): (usize, usize)| {
            if let Some(rw) = Register::get(luaref.id) {
                let sheet = rw.read().unwrap();
                Ok(sheet.get_ref(row, column).into_lua(lua).unwrap())
            } else {
                Ok(LuaValue::Nil)
            }
        })
    }
}

impl<'lua> FromLua<'lua> for SheetLuaRef {
    fn from_lua(value: LuaValue<'lua>, _: &'lua Lua) -> LuaResult<Self> {
        if let Some(ud) = value.as_userdata() {
            ud.take()
        } else {
            Err(LuaError::runtime("failed to parse sheet"))
        }
    }
}