//! ref: composer/src/Composer/Repository/Vcs/VcsDriver.php

use crate::cache::Cache;
use crate::config::Config;
use crate::downloader::TransportException;
use crate::io::IOInterface;
use crate::json::JsonEncodeOptions;
use crate::json::JsonFile;
use crate::repository::vcs::VcsDriverInterface;
use crate::util::HttpDownloader;
use crate::util::ProcessExecutor;
use crate::util::http::Response;
use chrono::{DateTime, FixedOffset};
use indexmap::IndexMap;
use shirabe_external_packages::composer::pcre::Preg;
use shirabe_php_shim::{DATE_RFC3339, PhpMixed, extension_loaded};

#[derive(Debug)]
pub struct VcsDriverBase {
    pub url: String,
    pub origin_url: String,
    pub repo_config: IndexMap<String, PhpMixed>,
    pub io: std::rc::Rc<std::cell::RefCell<dyn IOInterface>>,
    pub config: std::rc::Rc<std::cell::RefCell<Config>>,
    pub process: std::rc::Rc<std::cell::RefCell<ProcessExecutor>>,
    pub http_downloader: std::rc::Rc<std::cell::RefCell<HttpDownloader>>,
    pub info_cache: IndexMap<String, Option<IndexMap<String, PhpMixed>>>,
    pub cache: Option<Cache>,
}

impl VcsDriverBase {
    pub fn new(
        repo_config: IndexMap<String, PhpMixed>,
        io: std::rc::Rc<std::cell::RefCell<dyn IOInterface>>,
        config: std::rc::Rc<std::cell::RefCell<Config>>,
        http_downloader: std::rc::Rc<std::cell::RefCell<HttpDownloader>>,
        process: std::rc::Rc<std::cell::RefCell<ProcessExecutor>>,
    ) -> Self {
        let url = repo_config
            .get("url")
            .and_then(|v| v.as_string())
            .unwrap_or("")
            .to_string();
        let origin_url = url.clone();
        Self {
            url,
            origin_url,
            repo_config,
            io,
            config,
            process,
            http_downloader,
            info_cache: IndexMap::new(),
            cache: None,
        }
    }

    pub fn should_cache(&self, identifier: &str) -> bool {
        self.cache.is_some() && Preg::is_match("{^[a-f0-9]{40}$}iD", identifier)
    }

    pub fn get_scheme(&self) -> &str {
        if extension_loaded("openssl") {
            return "https";
        }
        "http"
    }

    pub fn get_contents(&self, url: &str) -> anyhow::Result<Response, TransportException> {
        let options_mixed = self
            .repo_config
            .get("options")
            .cloned()
            .unwrap_or(PhpMixed::Array(IndexMap::new()));
        let options: IndexMap<String, PhpMixed> = match options_mixed {
            PhpMixed::Array(a) => a,
            _ => IndexMap::new(),
        };
        self.http_downloader
            .borrow_mut()
            .get(url, options)
            .map_err(|e| match e.downcast::<TransportException>() {
                Ok(te) => te,
                Err(other) => TransportException::new(other.to_string(), 0),
            })
    }

    // Helper for concrete drivers: produces the same value as the trait default
    // `get_base_composer_information`, but receives a pre-fetched composer.json
    // body and a lazy change-date callback. Concrete drivers in the Rust port
    // wrap `VcsDriverBase` as `self.inner` instead of inheriting from it, so
    // they cannot dispatch back into a base method that calls `get_file_content`
    // / `get_change_date` hooks; the caller threads those calls in itself.
    pub fn finish_base_composer_information(
        identifier: &str,
        composer_file_content: Option<String>,
        change_date: impl FnOnce() -> anyhow::Result<Option<DateTime<FixedOffset>>>,
    ) -> anyhow::Result<Option<IndexMap<String, PhpMixed>>> {
        let content = match composer_file_content {
            None => return Ok(None),
            Some(c) if c.is_empty() => return Ok(None),
            Some(c) => c,
        };

        let parsed = JsonFile::parse_json(
            Some(&content),
            Some(&format!("{}:composer.json", identifier)),
        )?;

        let array = match parsed {
            PhpMixed::Array(a) if !a.is_empty() => a,
            _ => return Ok(None),
        };

        let mut composer: IndexMap<String, PhpMixed> = array;

        if (!composer.contains_key("time")
            || composer
                .get("time")
                .is_none_or(|v| v.as_string().is_none_or(|s| s.is_empty())))
            && let Some(d) = change_date()?
        {
            composer.insert(
                "time".to_string(),
                PhpMixed::String(d.format(DATE_RFC3339).to_string()),
            );
        }

        Ok(Some(composer))
    }

    // Caching layer of the base `getComposerInformation`. Concrete drivers that
    // inherit the base implementation thread their own `get_file_content` /
    // `get_change_date` fetch between these two calls; splitting read and write
    // keeps each `self.inner` borrow disjoint from the fetch's `self` borrow.
    // Returns `Some(_)` when the value is already known (in-memory or on-disk
    // cache), or `None` when the caller must fetch it.
    pub fn read_cached_composer(
        &mut self,
        identifier: &str,
    ) -> anyhow::Result<Option<Option<IndexMap<String, PhpMixed>>>> {
        if self.info_cache.contains_key(identifier) {
            return Ok(Some(
                self.info_cache.get(identifier).and_then(|v| v.clone()),
            ));
        }
        if self.should_cache(identifier)
            && let Some(res) = self.cache.as_mut().and_then(|c| c.read(identifier))
        {
            let parsed = JsonFile::parse_json(Some(&res), None)?;
            let composer: Option<IndexMap<String, PhpMixed>> = parsed.as_array().cloned();
            self.info_cache
                .insert(identifier.to_string(), composer.clone());
            return Ok(Some(composer));
        }
        Ok(None)
    }

    pub fn write_cached_composer(
        &mut self,
        identifier: &str,
        composer: Option<IndexMap<String, PhpMixed>>,
    ) -> anyhow::Result<Option<IndexMap<String, PhpMixed>>> {
        if self.should_cache(identifier) {
            let encoded = JsonFile::encode_with_options(
                &composer
                    .clone()
                    .map(PhpMixed::from)
                    .unwrap_or(PhpMixed::Null),
                JsonEncodeOptions {
                    pretty_print: false,
                    ..Default::default()
                },
            );
            self.cache.as_mut().map(|c| c.write(identifier, &encoded));
        }
        self.info_cache.insert(identifier.to_string(), composer);
        Ok(self.info_cache.get(identifier).and_then(|v| v.clone()))
    }
}

pub trait VcsDriver: VcsDriverInterface {
    fn url(&self) -> &str;
    fn url_mut(&mut self) -> &mut String;
    fn origin_url(&self) -> &str;
    fn origin_url_mut(&mut self) -> &mut String;
    fn repo_config(&self) -> &IndexMap<String, PhpMixed>;
    fn repo_config_mut(&mut self) -> &mut IndexMap<String, PhpMixed>;
    fn io(&self) -> &dyn IOInterface;
    fn io_mut(&mut self) -> &mut dyn IOInterface;
    fn config(&self) -> &Config;
    fn config_mut(&mut self) -> &mut Config;
    fn process(&self) -> &ProcessExecutor;
    fn process_mut(&mut self) -> &mut ProcessExecutor;
    fn http_downloader(&self) -> &std::rc::Rc<std::cell::RefCell<HttpDownloader>>;
    fn info_cache(&self) -> &IndexMap<String, Option<IndexMap<String, PhpMixed>>>;
    fn info_cache_mut(&mut self) -> &mut IndexMap<String, Option<IndexMap<String, PhpMixed>>>;
    fn cache(&self) -> Option<&Cache>;
    fn cache_mut(&mut self) -> Option<&mut Cache>;

    fn should_cache(&self, identifier: &str) -> bool {
        self.cache().is_some() && Preg::is_match("{^[a-f0-9]{40}$}iD", identifier)
    }

    fn get_composer_information(
        &mut self,
        identifier: &str,
    ) -> anyhow::Result<Option<IndexMap<String, PhpMixed>>> {
        if !self.info_cache().contains_key(identifier) {
            if self.should_cache(identifier)
                && let Some(res) = self.cache_mut().and_then(|c| c.read(identifier))
            {
                let parsed = JsonFile::parse_json(Some(&res), None)?;
                let parsed_map: Option<IndexMap<String, PhpMixed>> = match parsed {
                    PhpMixed::Array(a) => Some(a),
                    _ => None,
                };
                self.info_cache_mut()
                    .insert(identifier.to_string(), parsed_map);
                return Ok(self.info_cache().get(identifier).and_then(|v| v.clone()));
            }

            let composer = self.get_base_composer_information(identifier)?;

            if self.should_cache(identifier)
                && let Some(ref composer_map) = composer
            {
                let composer_mixed = PhpMixed::Array(
                    composer_map
                        .iter()
                        .map(|(k, v)| (k.clone(), v.clone()))
                        .collect(),
                );
                let encoded = JsonFile::encode_with_options(
                    &composer_mixed,
                    JsonEncodeOptions {
                        pretty_print: false,
                        ..Default::default()
                    },
                );
                self.cache_mut().map(|c| c.write(identifier, &encoded));
            }

            self.info_cache_mut()
                .insert(identifier.to_string(), composer);
        }

        Ok(self.info_cache().get(identifier).and_then(|v| v.clone()))
    }

    fn get_base_composer_information(
        &mut self,
        identifier: &str,
    ) -> anyhow::Result<Option<IndexMap<String, PhpMixed>>> {
        let composer_file_content = self.get_file_content("composer.json", identifier)?;

        let composer_file_content = match composer_file_content {
            None => return Ok(None),
            Some(c) if c.is_empty() => return Ok(None),
            Some(c) => c,
        };

        let composer = JsonFile::parse_json(
            Some(&composer_file_content),
            Some(&format!("{}:composer.json", identifier)),
        )?;

        let mut composer: IndexMap<String, PhpMixed> = match composer {
            PhpMixed::Array(a) if !a.is_empty() => a,
            _ => return Ok(None),
        };

        if (!composer.contains_key("time")
            || composer
                .get("time")
                .is_none_or(|v| v.as_string().is_none_or(|s| s.is_empty())))
            && let Some(change_date) = self.get_change_date(identifier)?
        {
            composer.insert(
                "time".to_string(),
                PhpMixed::String(change_date.format(DATE_RFC3339).to_string()),
            );
        }

        Ok(Some(composer))
    }

    fn has_composer_file(&mut self, identifier: &str) -> bool {
        matches!(
            VcsDriver::get_composer_information(self, identifier),
            Ok(Some(_))
        )
    }

    fn get_scheme(&self) -> &str {
        if extension_loaded("openssl") {
            return "https";
        }
        "http"
    }

    fn get_contents(&self, url: &str) -> anyhow::Result<Response, TransportException> {
        let options_mixed = self
            .repo_config()
            .get("options")
            .cloned()
            .unwrap_or(PhpMixed::Array(IndexMap::new()));
        let options: IndexMap<String, PhpMixed> = match options_mixed {
            PhpMixed::Array(a) => a,
            _ => IndexMap::new(),
        };
        self.http_downloader()
            .borrow_mut()
            .get(url, options)
            .map_err(|e| match e.downcast::<TransportException>() {
                Ok(te) => te,
                Err(other) => TransportException::new(other.to_string(), 0),
            })
    }

    fn cleanup(&self) {}
}