tiger_lib/data/

coa.rs

use std::path::PathBuf;

use crate::block::{BV, Block};
use crate::context::ScopeContext;
use crate::db::{Db, DbKind};
use crate::everything::Everything;
use crate::fileset::{FileEntry, FileHandler};
use crate::game::{Game, GameFlags};
use crate::helpers::{TigerHashMap, dup_error, exact_dup_advice};
use crate::item::{Item, ItemLoader, LoadAsFile, Recursive};
use crate::parse::ParserMemory;
use crate::pdxfile::{PdxEncoding, PdxFile};
use crate::report::{ErrorKey, Severity, untidy, warn};
use crate::scopes::Scopes;
use crate::token::Token;
use crate::tooltipped::Tooltipped;
use crate::trigger::validate_trigger_max_sev;
use crate::validate::{validate_color, validate_possibly_named_color};
use crate::validator::Validator;
use crate::variables::Variables;

#[derive(Clone, Debug, Default)]
pub struct Coas {
    coas: TigerHashMap<&'static str, Coa>,
    templates: TigerHashMap<&'static str, Coa>,
}

impl Coas {
    pub fn load_item(&mut self, key: &Token, bv: &BV) {
        if key.is("template") {
            if let Some(block) = bv.expect_block() {
                for (key, block) in block.iter_definitions_warn() {
                    if let Some(other) = self.templates.get(key.as_str())
                        && other.key.loc.kind >= key.loc.kind
                        && let BV::Block(otherblock) = &other.bv
                    {
                        if otherblock.equivalent(block) {
                            exact_dup_advice(key, &other.key, "coa template");
                        } else {
                            dup_error(key, &other.key, "coa template");
                        }
                    }
                    self.templates.insert(
                        key.as_str(),
                        Coa::new(key.clone(), BV::Block(block.clone().condense_tag("list"))),
                    );
                }
            }
        } else {
            if let Some(other) = self.coas.get(key.as_str())
                && other.key.loc.kind >= key.loc.kind
            {
                if other.bv.equivalent(bv) {
                    exact_dup_advice(key, &other.key, "coat of arms");
                } else {
                    dup_error(key, &other.key, "coat of arms");
                }
            }
            self.coas.insert(key.as_str(), Coa::new(key.clone(), bv.clone()));
        }
    }

    pub fn scan_variables(&self, registry: &mut Variables) {
        for item in self.coas.values() {
            if let Some(block) = &item.bv.get_block() {
                registry.scan(block);
            }
        }
        for item in self.templates.values() {
            if let Some(block) = &item.bv.get_block() {
                registry.scan(block);
            }
        }
    }

    pub fn exists(&self, key: &str) -> bool {
        self.coas.contains_key(key)
    }

    pub fn iter_keys(&self) -> impl Iterator<Item = &Token> {
        self.coas.values().map(|item| &item.key)
    }

    pub fn template_exists(&self, key: &str) -> bool {
        self.templates.contains_key(key)
    }

    pub fn iter_template_keys(&self) -> impl Iterator<Item = &Token> {
        self.templates.values().map(|item| &item.key)
    }

    pub fn validate(&self, data: &Everything) {
        for item in self.coas.values() {
            item.validate(data);
        }
        for item in self.templates.values() {
            item.validate(data);
        }
    }
}

impl FileHandler<Block> for Coas {
    fn subpath(&self) -> PathBuf {
        PathBuf::from("common/coat_of_arms/coat_of_arms/")
    }

    fn load_file(&self, entry: &FileEntry, parser: &ParserMemory) -> Option<Block> {
        if !entry.filename().to_string_lossy().ends_with(".txt") {
            return None;
        }

        PdxFile::read_optional_bom(entry, parser)
    }

    fn handle_file(&mut self, _entry: &FileEntry, block: Block) {
        for (key, bv) in block.iter_assignments_and_definitions_warn() {
            self.load_item(key, bv);
        }
    }
}

#[derive(Clone, Debug)]
pub struct Coa {
    key: Token,
    bv: BV,
}

impl Coa {
    pub fn new(key: Token, bv: BV) -> Self {
        Self { key, bv }
    }

    pub fn validate(&self, data: &Everything) {
        match &self.bv {
            BV::Value(token) => data.verify_exists(Item::Coa, token),
            BV::Block(block) => validate_coa_layout(block, data),
        }
    }
}

pub fn validate_coa_layout(block: &Block, data: &Everything) {
    let mut vd = Validator::new(block, data);
    vd.set_max_severity(Severity::Warning);

    if let Some(token) = vd.field_value("pattern") {
        if let Some((_, token)) = token.split_once('"') {
            data.verify_exists(Item::CoaPatternList, &token);
        } else {
            let pathname = format!("gfx/coat_of_arms/patterns/{token}");
            data.verify_exists_implied(Item::File, &pathname, token);
        }
    }

    vd.field_validated("color1", |bv, data| {
        validate_coa_color(bv, None, data);
    });
    vd.field_validated("color2", |bv, data| {
        validate_coa_color(bv, None, data);
    });
    vd.field_validated("color3", |bv, data| {
        validate_coa_color(bv, None, data);
    });
    vd.field_validated("color4", |bv, data| {
        validate_coa_color(bv, None, data);
    });
    vd.field_validated("color5", |bv, data| {
        validate_coa_color(bv, None, data);
    });

    vd.multi_field_validated_block("colored_emblem", |subblock, data| {
        let mut vd = Validator::new(subblock, data);
        vd.set_max_severity(Severity::Warning);
        vd.req_field("texture");
        if let Some(token) = vd.field_value("texture") {
            if let Some((_, token)) = token.split_once('"') {
                data.verify_exists(Item::CoaColoredEmblemList, &token);
            } else {
                let pathname = format!("gfx/coat_of_arms/colored_emblems/{token}");
                data.verify_exists_implied(Item::File, &pathname, token);
            }
        }

        for field in &["color1", "color2", "color3", "color4", "color5"] {
            vd.field_validated(field, |bv, data| {
                validate_coa_color(bv, Some(block), data);
            });
        }
        vd.multi_field_validated_block("instance", validate_instance);
        vd.field_validated_block("mask", |block, data| {
            let mut vd = Validator::new(block, data);
            vd.set_max_severity(Severity::Warning);
            for token in vd.values() {
                if let Some(mask) = token.expect_integer()
                    && !(1..=3).contains(&mask)
                {
                    warn(ErrorKey::Range).msg("mask should be from 1 to 3").loc(token).push();
                }
            }
        });
    });
    vd.multi_field_validated_block("textured_emblem", |block, data| {
        let mut vd = Validator::new(block, data);
        vd.set_max_severity(Severity::Warning);
        vd.req_field("texture");
        if let Some(token) = vd.field_value("texture") {
            if let Some((_, token)) = token.split_once('"') {
                data.verify_exists(Item::CoaTexturedEmblemList, &token);
            } else {
                let pathname = format!("gfx/coat_of_arms/textured_emblems/{token}");
                data.verify_exists_implied(Item::File, &pathname, token);
            }
        }
        vd.multi_field_validated_block("instance", validate_instance);
    });

    #[cfg(any(feature = "vic3", feature = "eu5"))]
    if Game::is_vic3() || Game::is_eu5() {
        vd.multi_field_validated_block("sub", |subblock, data| {
            let mut vd = Validator::new(subblock, data);
            vd.set_max_severity(Severity::Warning);
            vd.field_item("parent", Item::Coa);
            vd.multi_field_validated_block("instance", validate_instance_offset);
            for field in &["color1", "color2", "color3", "color4", "color5"] {
                vd.field_validated(field, |bv, data| {
                    validate_coa_color(bv, Some(block), data);
                });
            }
        });
    }
}

fn validate_coa_color(bv: &BV, block: Option<&Block>, data: &Everything) {
    match bv {
        BV::Value(color) => {
            if let Some((_, token)) = color.split_once('"') {
                data.verify_exists(Item::CoaColorList, &token);
            } else if color.is("color1")
                || color.is("color2")
                || color.is("color3")
                || color.is("color4")
                || color.is("color5")
            {
                if let Some(block) = block {
                    if !block.has_key(color.as_str()) {
                        let msg = format!("setting to {color} but {color} is not defined");
                        warn(ErrorKey::Colors).msg(msg).loc(color).push();
                    }
                } else {
                    let msg = format!("setting to {color} only works in an emblem");
                    warn(ErrorKey::Colors).msg(msg).loc(color).push();
                }
            } else {
                data.verify_exists(Item::NamedColor, color);
            }
        }
        BV::Block(block) => validate_color(block, data),
    }
}

#[derive(Clone, Debug)]
pub struct CoaTemplateList {}

inventory::submit! {
    ItemLoader::Full(GameFlags::all(), Item::CoaTemplateList, PdxEncoding::Utf8OptionalBom, ".txt", LoadAsFile::No, Recursive::Maybe, CoaTemplateList::add)
}

impl CoaTemplateList {
    pub fn add(db: &mut Db, key: Token, mut block: Block) {
        if key.is("coat_of_arms_template_lists") {
            for (key, block) in block.drain_definitions_warn() {
                db.add(Item::CoaTemplateList, key, block, Box::new(Self {}));
            }
        } else if key.is("colored_emblem_texture_lists") {
            for (key, block) in block.drain_definitions_warn() {
                db.add(Item::CoaColoredEmblemList, key, block, Box::new(CoaColoredEmblemList {}));
            }
        } else if key.is("color_lists") {
            for (key, block) in block.drain_definitions_warn() {
                db.add(Item::CoaColorList, key, block, Box::new(CoaColorList {}));
            }
        } else if key.is("pattern_texture_lists") {
            for (key, block) in block.drain_definitions_warn() {
                db.add(Item::CoaPatternList, key, block, Box::new(CoaPatternList {}));
            }
        } else if key.is("textured_emblem_texture_lists") {
            for (key, block) in block.drain_definitions_warn() {
                db.add(Item::CoaTexturedEmblemList, key, block, Box::new(CoaTexturedEmblemList {}));
            }
        } else {
            let msg = format!("unknown list type {key}");
            warn(ErrorKey::UnknownField).msg(msg).loc(key).push();
        }
    }
}

impl DbKind for CoaTemplateList {
    fn validate(&self, key: &Token, block: &Block, data: &Everything) {
        validate_coa_list(key, block, data, |bv, data| {
            if let Some(value) = bv.expect_value() {
                data.verify_exists(Item::CoaTemplate, value);
            }
        });
    }
}

#[derive(Clone, Debug)]
pub struct CoaColoredEmblemList {}

impl DbKind for CoaColoredEmblemList {
    fn validate(&self, key: &Token, block: &Block, data: &Everything) {
        validate_coa_list(key, block, data, |bv, data| {
            if let Some(value) = bv.expect_value() {
                let pathname = format!("gfx/coat_of_arms/colored_emblems/{value}");
                data.verify_exists_implied(Item::File, &pathname, value);
            }
        });
    }
}

#[derive(Clone, Debug)]
pub struct CoaTexturedEmblemList {}

impl DbKind for CoaTexturedEmblemList {
    fn validate(&self, key: &Token, block: &Block, data: &Everything) {
        validate_coa_list(key, block, data, |bv, data| {
            if let Some(value) = bv.expect_value() {
                let pathname = format!("gfx/coat_of_arms/textured_emblems/{value}");
                data.verify_exists_implied(Item::File, &pathname, value);
            }
        });
    }
}

#[derive(Clone, Debug)]
pub struct CoaColorList {}

impl DbKind for CoaColorList {
    fn validate(&self, key: &Token, block: &Block, data: &Everything) {
        validate_coa_list(key, block, data, validate_possibly_named_color);
    }
}

#[derive(Clone, Debug)]
pub struct CoaPatternList {}

impl DbKind for CoaPatternList {
    fn validate(&self, key: &Token, block: &Block, data: &Everything) {
        validate_coa_list(key, block, data, |bv, data| {
            if let Some(value) = bv.expect_value() {
                let pathname = format!("gfx/coat_of_arms/patterns/{value}");
                data.verify_exists_implied(Item::File, &pathname, value);
            }
        });
    }
}

fn validate_coa_list<F>(_key: &Token, block: &Block, data: &Everything, f: F)
where
    F: Fn(&BV, &Everything),
{
    let mut vd = Validator::new(block, data);
    vd.set_max_severity(Severity::Warning);

    // TODO: warn about duplicate values in the lists?

    vd.integer_keys(|_, bv| f(bv, data));

    vd.multi_field_validated_key_block("special_selection", |key, block, data| {
        let mut vd = Validator::new(block, data);
        vd.set_max_severity(Severity::Warning);
        let mut sc;
        match Game::game() {
            #[cfg(feature = "ck3")]
            Game::Ck3 => {
                sc = ScopeContext::new(Scopes::Character, key); // TODO: may be unset
                sc.define_name("faith", Scopes::Faith, key);
                sc.define_name("culture", Scopes::Culture, key);
                sc.define_name("title", Scopes::LandedTitle, key); // TODO: may be unset
            }
            #[cfg(feature = "vic3")]
            Game::Vic3 => {
                // TODO: Exact scope depends on the context of use of this coa list.
                // Should check again with exact scope at point of use.
                sc = ScopeContext::new(
                    Scopes::Country | Scopes::CountryDefinition | Scopes::PowerBloc,
                    key,
                );
                sc.define_name(
                    "target",
                    Scopes::Country | Scopes::CountryDefinition | Scopes::PowerBloc,
                    key,
                );
            }
            #[cfg(feature = "imperator")]
            Game::Imperator => {
                // TODO: what is the correct scope here?
                sc = ScopeContext::new(Scopes::Country, key);
            }
            #[cfg(feature = "eu5")]
            Game::Eu5 => {
                // TODO: what is the correct scope here?
                sc = ScopeContext::new(Scopes::Country, key);
            }
            #[cfg(feature = "hoi4")]
            Game::Hoi4 => unimplemented!(),
        }
        vd.multi_field_validated_block("trigger", |block, data| {
            validate_trigger_max_sev(block, data, &mut sc, Tooltipped::No, Severity::Warning);
        });
        vd.integer_keys(|_, bv| f(bv, data));
        // special_selection can be nested. TODO: how far?
        vd.multi_field_validated_block("special_selection", |block, data| {
            let mut vd = Validator::new(block, data);
            vd.set_max_severity(Severity::Warning);
            vd.multi_field_validated_block("trigger", |block, data| {
                validate_trigger_max_sev(block, data, &mut sc, Tooltipped::No, Severity::Warning);
            });
            vd.integer_keys(|_, bv| f(bv, data));
        });
    });
}

#[cfg(feature = "ck3")]
#[derive(Clone, Debug)]
pub struct CoaDynamicDefinition {}

#[cfg(feature = "ck3")]
inventory::submit! {
    ItemLoader::Normal(GameFlags::Ck3, Item::CoaDynamicDefinition, CoaDynamicDefinition::add)
}

#[cfg(feature = "ck3")]
impl CoaDynamicDefinition {
    pub fn add(db: &mut Db, key: Token, block: Block) {
        db.add(Item::CoaDynamicDefinition, key, block, Box::new(Self {}));
    }
}

#[cfg(feature = "ck3")]
impl DbKind for CoaDynamicDefinition {
    fn validate(&self, key: &Token, block: &Block, data: &Everything) {
        let mut vd = Validator::new(block, data);
        vd.set_max_severity(Severity::Warning);
        let mut sc = ScopeContext::new(Scopes::LandedTitle, key);

        vd.multi_field_validated_block("item", |block, data| {
            let mut vd = Validator::new(block, data);
            vd.set_max_severity(Severity::Warning);
            vd.field_validated_block("trigger", |block, data| {
                validate_trigger_max_sev(block, data, &mut sc, Tooltipped::No, Severity::Warning);
            });
            vd.field_item("coat_of_arms", Item::Coa);
        });
    }
}

fn validate_instance(block: &Block, data: &Everything) {
    let mut vd = Validator::new(block, data);
    vd.set_max_severity(Severity::Warning);
    vd.field_list_precise_numeric_exactly("position", 2);
    vd.field_validated_block("scale", validate_scale);
    vd.field_precise_numeric("rotation");
    vd.field_precise_numeric("depth");
    vd.ban_field("offset", || "sub blocks");
}

/// Just like [`validate_instance`], but takes offset instead of position
#[cfg(any(feature = "vic3", feature = "eu5"))]
fn validate_instance_offset(block: &Block, data: &Everything) {
    let mut vd = Validator::new(block, data);
    vd.set_max_severity(Severity::Warning);
    vd.field_list_precise_numeric_exactly("offset", 2);
    vd.field_validated_block("scale", validate_scale);
    vd.field_precise_numeric("rotation");
    vd.field_precise_numeric("depth");
    vd.ban_field("position", || "colored and textured emblems");
}

fn validate_scale(block: &Block, data: &Everything) {
    let mut vd = Validator::new(block, data);
    vd.set_max_severity(Severity::Warning);
    let mut count = 0;
    for token in vd.values() {
        count += 1;
        token.expect_precise_number();
    }
    if count == 0 || count > 2 {
        let msg = "expected 2 numbers";
        warn(ErrorKey::Validation).msg(msg).loc(block).push();
    } else if count == 1 {
        let msg = "found only x scale";
        let info = "adding the y scale is clearer";
        untidy(ErrorKey::Validation).msg(msg).info(info).loc(block).push();
    }
}