use std::collections::HashMap;
use std::env;
use std::fs::File;
use std::io::Write;
use std::path::Path;

use fastrie::{FastrieBuild, FastrieBuilderNode};
use serde::{Deserialize, Serialize};

fn create_byte_string_literal(bytes: &[u8]) -> String {
    format!("b\"{}\"", bytes
        .iter()
        .map(|&b| if b >= b' ' && b <= b'~' && b != b'\\' && b != b'"' {
            (b as char).to_string()
        } else {
            format!("\\x{:02x}", b)
        })
        .collect::<String>())
}

fn read_json<T>(name: &str) -> T where for<'de> T: Deserialize<'de> {
    let patterns_path = Path::new("gen").join(format!("{}.json", name));
    let patterns_file = File::open(patterns_path).unwrap();
    serde_json::from_reader(patterns_file).unwrap()
}

fn write_rs(name: &str, code: String) -> () {
    let out_dir = env::var("OUT_DIR").unwrap();
    let dest_path = Path::new(&out_dir).join(format!("gen_{}.rs", name));
    let mut dest_file = File::create(&dest_path).unwrap();
    dest_file.write_all(code.as_bytes()).unwrap();
}

fn name_words(n: &str) -> Vec<String> {
    n.split(' ').map(|w| w.to_string()).collect::<Vec<String>>()
}

fn snake_case(n: &Vec<String>) -> String {
    n.iter().map(|w| w.to_uppercase()).collect::<Vec<String>>().join("_")
}

fn camel_case(n: &Vec<String>) -> String {
    n.iter().map(|w| format!(
        "{}{}",
        w.as_bytes()[0].to_ascii_uppercase() as char,
        std::str::from_utf8(&w.as_bytes()[1..]).unwrap(),
    )).collect::<Vec<String>>().join("")
}

fn build_pattern(pattern: String) -> String {
    assert!(pattern.is_ascii());
    let seq = pattern.as_bytes();
    let mut max_prefix_len = 0usize;
    let mut table = vec![0usize; seq.len()];

    let mut i = 1;
    while i < seq.len() {
        if seq[i] == seq[max_prefix_len] {
            max_prefix_len += 1;
            table[i] = max_prefix_len;
            i += 1;
        } else {
            if max_prefix_len != 0 {
                max_prefix_len = table[max_prefix_len - 1];
            } else {
                table[i] = 0;
                i += 1;
            };
        };
    };

    format!("crate::pattern::SinglePattern {{ seq: {}, table: &[{}] }}",
        create_byte_string_literal(pattern.as_bytes()),
        table.iter().map(|v| v.to_string()).collect::<Vec<String>>().join(", "))
}

fn generate_fastrie_code(var_name: &str, value_type: &str, built: &FastrieBuild<String>) -> String {
    format!(r"
        pub static {var_name}: &fastrie::Fastrie<{value_type}> = &fastrie::Fastrie::<{value_type}>::from_prebuilt(
            &[{values}],
            &[{data}],
        );
    ",
        var_name = var_name,
        value_type = value_type,
        values = built.values.join(", "),
        data = built.data.iter().map(|v| v.to_string()).collect::<Vec<String>>().join(", "),
    )
}

#[derive(Serialize, Deserialize)]
struct TagAttr {
    boolean: bool,
    redundant_if_empty: bool,
    collapse_and_trim: bool,
    default_value: Option<String>,
}

impl TagAttr {
    fn code(&self) -> String {
        format!(r"
            AttributeMinification {{
                boolean: {boolean},
                redundant_if_empty: {redundant_if_empty},
                collapse_and_trim: {collapse_and_trim},
                default_value: {default_value},
            }}
        ",
            boolean = self.boolean,
            redundant_if_empty = self.redundant_if_empty,
            collapse_and_trim = self.collapse_and_trim,
            default_value = match &self.default_value {
                Some(val) => format!("Some({})", create_byte_string_literal(val.as_bytes())),
                None => "None".to_string(),
            },
        )
    }
}

fn generate_attr_map() {
    let attrs: HashMap<String, HashMap<String, TagAttr>> = read_json("attrs");
    let mut code = String::new();
    for (attr_name, tags_map) in attrs.iter() {
        if let Some(global_attr) = tags_map.get("") {
            code.push_str(format!(
                "static {}_ATTR: &AttrMapEntry = &AttrMapEntry::AllHtmlElements({});\n\n",
                attr_name.to_uppercase(),
                global_attr.code(),
            ).as_str());
        } else {
            code.push_str(format!(
                "static {}_ATTR: &AttrMapEntry = &AttrMapEntry::DistinctHtmlElements(phf::phf_map! {{\n{}\n}});\n\n",
                attr_name.to_uppercase(),
                tags_map
                    .iter()
                    .map(|(tag_name, tag_attr)| format!(
                        "b\"{}\" => {}",
                        tag_name,
                        tag_attr.code(),
                    ))
                    .collect::<Vec<String>>()
                    .join(",\n"),
            ).as_str());
        };
    };
    code.push_str("pub static ATTRS: AttrMap = AttrMap::new(phf::phf_map! {\n");
    for attr_name in attrs.keys() {
        code.push_str(format!("\tb\"{}\" => {}_ATTR,\n", attr_name, attr_name.to_uppercase()).as_str());
    };
    code.push_str("});\n\n");
    write_rs("attrs", code);
}

#[derive(Serialize, Deserialize)]
struct Entity {
    codepoints: Vec<u32>,
    characters: String,
}

fn generate_entities() {
    // Read named entities map from JSON file.
    let entities: HashMap<String, Entity> = read_json("entities");

    // Add entities to trie builder.
    let mut trie_builder: FastrieBuilderNode<String> = FastrieBuilderNode::new();
    for (rep, entity) in entities {
        let val = if rep.as_bytes().len() < entity.characters.as_bytes().len() {
            // Since we're minifying in place, we need to guarantee we'll never write something longer than source.
            println!("Entity {} is shorter than decoded UTF-8 bytes...", rep);
            // Include '&' in value.
            create_byte_string_literal(rep.as_bytes())
        } else {
            create_byte_string_literal(entity.characters.as_bytes())
        };
        trie_builder.add(&(rep.as_bytes())[1..], val);
    };
    // Write trie code to output Rust file.
    write_rs("entities", generate_fastrie_code(
        "ENTITY_REFERENCES",
        "&'static [u8]",
        &trie_builder.prebuild(),
    ));
}

fn generate_patterns() {
    let patterns: HashMap<String, String> = read_json("patterns");

    for (name, pattern) in patterns {
        let mut code = String::new();
        code.push_str(format!("static {}: &crate::pattern::SinglePattern = &{};", name, build_pattern(pattern)).as_str());
        write_rs(format!("pattern_{}", name).as_str(), code);
    };
}

#[derive(Serialize, Deserialize)]
struct Trie {
    value_type: String,
    values: HashMap<String, String>,
}

fn generate_tries() {
    let tries: HashMap<String, Trie> = read_json("value_tries");

    for (name, trie) in tries {
        let mut trie_builder = FastrieBuilderNode::new();
        for (seq, value_code) in trie.values {
            trie_builder.add(seq.as_bytes(), value_code);
        };
        let var_name = snake_case(&name_words(name.as_str()));
        let trie_code = generate_fastrie_code(
            var_name.as_str(),
            trie.value_type.as_str(),
            &trie_builder.prebuild(),
        );
        write_rs(format!("trie_{}", var_name).as_str(), trie_code);
    };
}

fn main() {
    generate_attr_map();
    generate_entities();
    generate_patterns();
    generate_tries();
}