/// Adapted from https://crates.io/crates/rapidfuzz
// Copyright 2020 maxbachmann
//
// Permission is hereby granted, free of charge, to any
// person obtaining a copy of this software and associated
// documentation files (the "Software"), to deal in the
// Software without restriction, including without
// limitation the rights to use, copy, modify, merge,
// publish, distribute, sublicense, and/or sell copies of
// the Software, and to permit persons to whom the Software
// is furnished to do so, subject to the following
// conditions:
//
// The above copyright notice and this permission notice
// shall be included in all copies or substantial portions
// of the Software.
//
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
// ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
// TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
// PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
// SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
// CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR
// IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
// DEALINGS IN THE SOFTWARE.

#[derive(Debug, PartialEq, Eq, Copy, Clone)]
pub enum LevEditType {
    Keep,
    Replace,
    Insert,
    Delete,
}

#[derive(Debug, PartialEq, Eq)]
pub struct LevEditOp {
    pub op_type: LevEditType, /* editing operation type */
    pub first_start: usize,   /* source block position */
    pub second_start: usize,  /* destination position */
}

#[derive(Debug, PartialEq, Eq)]
pub struct LevMatchingBlock {
    pub first_start: usize,
    pub second_start: usize,
    pub len: usize,
}

pub fn editops_find(query: &[u8], choice: &[u8]) -> Vec<LevEditOp> {
    let string_affix = Affix::find(query, choice);

    let first_string_len = string_affix.first_string_len;
    let second_string_len = string_affix.second_string_len;
    let prefix_len = string_affix.prefix_len;
    let first_string = &query[prefix_len..prefix_len + first_string_len];
    let second_string = &choice[prefix_len..prefix_len + second_string_len];

    let matrix_columns = first_string_len + 1;
    let matrix_rows = second_string_len + 1;

    // TODO maybe use an actual matrix for readability
    let mut cache_matrix: Vec<usize> = vec![0; matrix_rows * matrix_columns];
    for (i, elem) in cache_matrix.iter_mut().enumerate().take(matrix_rows) {
        *elem = i;
    }
    for i in 1..matrix_columns {
        cache_matrix[matrix_rows * i] = i;
    }

    for (i, char1) in first_string.iter().enumerate() {
        let mut prev = i * matrix_rows;
        let current = prev + matrix_rows;
        let mut x = i + 1;
        for (p, char2p) in second_string.iter().enumerate() {
            let mut c3 = cache_matrix[prev] + (char1 != char2p) as usize;
            prev += 1;
            x += 1;
            if x >= c3 {
                x = c3;
            }
            c3 = cache_matrix[prev] + 1;
            if x > c3 {
                x = c3;
            }
            cache_matrix[current + 1 + p] = x;
        }
    }
    editops_from_cost_matrix(
        first_string,
        second_string,
        matrix_columns,
        matrix_rows,
        prefix_len,
        cache_matrix,
    )
}

fn editops_from_cost_matrix(
    string1: &[u8],
    string2: &[u8],
    len1: usize,
    len2: usize,
    prefix_len: usize,
    cache_matrix: Vec<usize>,
) -> Vec<LevEditOp> {
    let mut dir = 0;

    let mut ops: Vec<LevEditOp> = vec![];
    ops.reserve(cache_matrix[len1 * len2 - 1]);

    let mut i = len1 - 1;
    let mut j = len2 - 1;
    let mut p = len1 * len2 - 1;

    // let string1_chars: Vec<char> = string1.chars().collect();
    // let string2_chars: Vec<char> = string2.chars().collect();

    //TODO this is still pretty ugly
    while i > 0 || j > 0 {
        let current_value = cache_matrix[p];

        let op_type;

        if dir == -1 && j > 0 && current_value == cache_matrix[p - 1] + 1 {
            op_type = LevEditType::Insert;
        } else if dir == 1 && i > 0 && current_value == cache_matrix[p - len2] + 1 {
            op_type = LevEditType::Delete;
        } else if i > 0
            && j > 0
            && current_value == cache_matrix[p - len2 - 1]
            && string1[i - 1] == string2[j - 1]
        {
            op_type = LevEditType::Keep;
        } else if i > 0 && j > 0 && current_value == cache_matrix[p - len2 - 1] + 1 {
            op_type = LevEditType::Replace;
        }
        /* we can't turn directly from -1 to 1, in this case it would be better
         * to go diagonally, but check it (dir == 0) */
        else if dir == 0 && j > 0 && current_value == cache_matrix[p - 1] + 1 {
            op_type = LevEditType::Insert;
        } else if dir == 0 && i > 0 && current_value == cache_matrix[p - len2] + 1 {
            op_type = LevEditType::Delete;
        } else {
            panic!("something went terribly wrong");
        }

        match op_type {
            LevEditType::Insert => {
                j -= 1;
                p -= 1;
                dir = -1;
            }
            LevEditType::Delete => {
                i -= 1;
                p -= len2;
                dir = 1;
            }
            LevEditType::Replace => {
                i -= 1;
                j -= 1;
                p -= len2 + 1;
                dir = 0;
            }
            LevEditType::Keep => {
                i -= 1;
                j -= 1;
                p -= len2 + 1;
                dir = 0;
                /* LevEditKeep does not has to be stored */
                continue;
            }
        };

        let edit_op =
            LevEditOp { op_type, first_start: i + prefix_len, second_start: j + prefix_len };
        ops.insert(0, edit_op);
    }

    ops
}

pub struct Affix {
    pub prefix_len: usize,
    pub first_string_len: usize,
    pub second_string_len: usize,
}

impl Affix {
    pub fn find(first_string: &[u8], second_string: &[u8]) -> Affix {
        // remove common prefix and suffix (linear vs square runtime for levensthein)
        let mut first_iter = first_string.iter();
        let mut second_iter = second_string.iter();

        let mut limit_start = 0;

        let mut first_iter_char = first_iter.next();
        let mut second_iter_char = second_iter.next();
        while first_iter_char.is_some() && first_iter_char == second_iter_char {
            first_iter_char = first_iter.next();
            second_iter_char = second_iter.next();
            limit_start += 1;
        }

        // save char since the iterator was already consumed
        let first_iter_cache = first_iter_char;
        let second_iter_cache = second_iter_char;

        if second_iter_char.is_some() && first_iter_char.is_some() {
            first_iter_char = first_iter.next_back();
            second_iter_char = second_iter.next_back();
            while first_iter_char.is_some() && first_iter_char == second_iter_char {
                first_iter_char = first_iter.next_back();
                second_iter_char = second_iter.next_back();
            }
        }

        match (first_iter_char, second_iter_char) {
            (None, None) => {
                // characters might not match even though they were consumed
                let remaining_char = (first_iter_cache != second_iter_cache) as usize;
                Affix {
                    prefix_len: limit_start,
                    first_string_len: remaining_char,
                    second_string_len: remaining_char,
                }
            }
            (None, _) => {
                let remaining_char =
                    (first_iter_cache.is_some() && first_iter_cache != second_iter_char) as usize;
                Affix {
                    prefix_len: limit_start,
                    first_string_len: remaining_char,
                    second_string_len: second_iter.count() + 1 + remaining_char,
                }
            }
            (_, None) => {
                let remaining_char =
                    (second_iter_cache.is_some() && second_iter_cache != first_iter_char) as usize;
                Affix {
                    prefix_len: limit_start,
                    first_string_len: first_iter.count() + 1 + remaining_char,
                    second_string_len: remaining_char,
                }
            }
            _ => Affix {
                prefix_len: limit_start,
                first_string_len: first_iter.count() + 2,
                second_string_len: second_iter.count() + 2,
            },
        }
    }
}