//! A wrapper around the compiler which allows for caching of compilation artifacts so that they can
//! be reused between runs.

use std::{
    borrow::Cow,
    collections::HashMap,
    path::{Path, PathBuf},
    sync::Arc,
};

use futures::FutureExt;
use revive_dt_common::{iterators::FilesWithExtensionIterator, types::CompilerIdentifier};
use revive_dt_compiler::{Compiler, CompilerOutput, Mode, SolidityCompiler};
use revive_dt_core::Platform;
use revive_dt_format::metadata::{ContractIdent, ContractInstance, Metadata};

use alloy::{hex::ToHexExt, json_abi::JsonAbi, primitives::Address};
use anyhow::{Context as _, Error, Result};
use revive_dt_report::ExecutionSpecificReporter;
use semver::Version;
use serde::{Deserialize, Serialize};
use tokio::sync::{Mutex, RwLock};
use tracing::{Instrument, debug, debug_span, instrument};

pub struct CachedCompiler<'a> {
    /// The cache that stores the compiled contracts.
    artifacts_cache: ArtifactsCache,

    /// This is a mechanism that the cached compiler uses so that if multiple compilation requests
    /// come in for the same contract we never compile all of them and only compile it once and all
    /// other tasks that request this same compilation concurrently get the cached version.
    cache_key_lock: RwLock<HashMap<CacheKey<'a>, Arc<Mutex<()>>>>,
}

impl<'a> CachedCompiler<'a> {
    pub async fn new(path: impl AsRef<Path>, invalidate_cache: bool) -> Result<Self> {
        let mut cache = ArtifactsCache::new(path);
        if invalidate_cache {
            cache = cache
                .with_invalidated_cache()
                .await
                .context("Failed to invalidate compilation cache directory")?;
        }
        Ok(Self {
            artifacts_cache: cache,
            cache_key_lock: Default::default(),
        })
    }

    /// Compiles or gets the compilation artifacts from the cache.
    #[allow(clippy::too_many_arguments)]
    #[instrument(
        level = "debug",
        skip_all,
        fields(
            metadata_file_path = %metadata_file_path.display(),
            %mode,
            platform = %platform.platform_identifier()
        ),
        err
    )]
    pub async fn compile_contracts(
        &self,
        metadata: &'a Metadata,
        metadata_file_path: &'a Path,
        mode: Cow<'a, Mode>,
        deployed_libraries: Option<&HashMap<ContractInstance, (ContractIdent, Address, JsonAbi)>>,
        compiler: &dyn SolidityCompiler,
        platform: &dyn Platform,
        reporter: &ExecutionSpecificReporter,
    ) -> Result<CompilerOutput> {
        let cache_key = CacheKey {
            compiler_identifier: platform.compiler_identifier(),
            compiler_version: compiler.version().clone(),
            metadata_file_path,
            solc_mode: mode.clone(),
        };

        let compilation_callback = || {
            async move {
                compile_contracts(
                    metadata
                        .directory()
                        .context("Failed to get metadata directory while preparing compilation")?,
                    metadata
                        .files_to_compile()
                        .context("Failed to enumerate files to compile from metadata")?,
                    &mode,
                    deployed_libraries,
                    compiler,
                    reporter,
                )
                .map(|compilation_result| compilation_result.map(CacheValue::new))
                .await
            }
            .instrument(debug_span!(
                "Running compilation for the cache key",
                cache_key.compiler_identifier = %cache_key.compiler_identifier,
                cache_key.compiler_version = %cache_key.compiler_version,
                cache_key.metadata_file_path = %cache_key.metadata_file_path.display(),
                cache_key.solc_mode = %cache_key.solc_mode,
            ))
        };

        let compiled_contracts = match deployed_libraries {
            // If deployed libraries have been specified then we will re-compile the contract as it
            // means that linking is required in this case.
            Some(_) => {
                debug!("Deployed libraries defined, recompilation must take place");
                debug!("Cache miss");
                compilation_callback()
                    .await
                    .context("Compilation callback for deployed libraries failed")?
                    .compiler_output
            }
            // If no deployed libraries are specified then we can follow the cached flow and attempt
            // to lookup the compilation artifacts in the cache.
            None => {
                debug!("Deployed libraries undefined, attempting to make use of cache");

                // Lock this specific cache key such that we do not get inconsistent state. We want
                // that when multiple cases come in asking for the compilation artifacts then they
                // don't all trigger a compilation if there's a cache miss. Hence, the lock here.
                let read_guard = self.cache_key_lock.read().await;
                let mutex = match read_guard.get(&cache_key).cloned() {
                    Some(value) => {
                        drop(read_guard);
                        value
                    }
                    None => {
                        drop(read_guard);
                        self.cache_key_lock
                            .write()
                            .await
                            .entry(cache_key.clone())
                            .or_default()
                            .clone()
                    }
                };
                let _guard = mutex.lock().await;

                match self.artifacts_cache.get(&cache_key).await {
                    Some(cache_value) => {
                        if deployed_libraries.is_some() {
                            reporter
                                .report_post_link_contracts_compilation_succeeded_event(
                                    compiler.version().clone(),
                                    compiler.path(),
                                    true,
                                    None,
                                    cache_value.compiler_output.clone(),
                                )
                                .expect("Can't happen");
                        } else {
                            reporter
                                .report_pre_link_contracts_compilation_succeeded_event(
                                    compiler.version().clone(),
                                    compiler.path(),
                                    true,
                                    None,
                                    cache_value.compiler_output.clone(),
                                )
                                .expect("Can't happen");
                        }
                        cache_value.compiler_output
                    }
                    None => {
                        compilation_callback()
                            .await
                            .context("Compilation callback failed (cache miss path)")?
                            .compiler_output
                    }
                }
            }
        };

        Ok(compiled_contracts)
    }
}

async fn compile_contracts(
    metadata_directory: impl AsRef<Path>,
    mut files_to_compile: impl Iterator<Item = PathBuf>,
    mode: &Mode,
    deployed_libraries: Option<&HashMap<ContractInstance, (ContractIdent, Address, JsonAbi)>>,
    compiler: &dyn SolidityCompiler,
    reporter: &ExecutionSpecificReporter,
) -> Result<CompilerOutput> {
    let all_sources_in_dir = FilesWithExtensionIterator::new(metadata_directory.as_ref())
        .with_allowed_extension("sol")
        .with_use_cached_fs(true)
        .collect::<Vec<_>>();

    let compilation = Compiler::new()
        .with_allow_path(metadata_directory)
        // Handling the modes
        .with_optimization(mode.optimize_setting)
        .with_pipeline(mode.pipeline)
        // Adding the contract sources to the compiler.
        .try_then(|compiler| {
            files_to_compile.try_fold(compiler, |compiler, path| compiler.with_source(path))
        })?
        // Adding the deployed libraries to the compiler.
        .then(|compiler| {
            deployed_libraries
                .iter()
                .flat_map(|value| value.iter())
                .map(|(instance, (ident, address, abi))| (instance, ident, address, abi))
                .flat_map(|(_, ident, address, _)| {
                    all_sources_in_dir
                        .iter()
                        .map(move |path| (ident, address, path))
                })
                .fold(compiler, |compiler, (ident, address, path)| {
                    compiler.with_library(path, ident.as_str(), *address)
                })
        });

    let input = compilation.input().clone();
    let output = compilation.try_build(compiler).await;

    match (output.as_ref(), deployed_libraries.is_some()) {
        (Ok(output), true) => {
            reporter
                .report_post_link_contracts_compilation_succeeded_event(
                    compiler.version().clone(),
                    compiler.path(),
                    false,
                    input,
                    output.clone(),
                )
                .expect("Can't happen");
        }
        (Ok(output), false) => {
            reporter
                .report_pre_link_contracts_compilation_succeeded_event(
                    compiler.version().clone(),
                    compiler.path(),
                    false,
                    input,
                    output.clone(),
                )
                .expect("Can't happen");
        }
        (Err(err), true) => {
            reporter
                .report_post_link_contracts_compilation_failed_event(
                    compiler.version().clone(),
                    compiler.path().to_path_buf(),
                    input,
                    format!("{err:#}"),
                )
                .expect("Can't happen");
        }
        (Err(err), false) => {
            reporter
                .report_pre_link_contracts_compilation_failed_event(
                    compiler.version().clone(),
                    compiler.path().to_path_buf(),
                    input,
                    format!("{err:#}"),
                )
                .expect("Can't happen");
        }
    }

    output
}

struct ArtifactsCache {
    path: PathBuf,
}

impl ArtifactsCache {
    pub fn new(path: impl AsRef<Path>) -> Self {
        Self {
            path: path.as_ref().to_path_buf(),
        }
    }

    #[instrument(level = "debug", skip_all, err)]
    pub async fn with_invalidated_cache(self) -> Result<Self> {
        cacache::clear(self.path.as_path())
            .await
            .map_err(Into::<Error>::into)
            .with_context(|| format!("Failed to clear cache at {}", self.path.display()))?;
        Ok(self)
    }

    #[instrument(level = "debug", skip_all, err)]
    pub async fn insert(&self, key: &CacheKey<'_>, value: &CacheValue) -> Result<()> {
        let key = bson::to_vec(key).context("Failed to serialize cache key (bson)")?;
        let value = bson::to_vec(value).context("Failed to serialize cache value (bson)")?;
        cacache::write(self.path.as_path(), key.encode_hex(), value)
            .await
            .with_context(|| {
                format!("Failed to write cache entry under {}", self.path.display())
            })?;
        Ok(())
    }

    pub async fn get(&self, key: &CacheKey<'_>) -> Option<CacheValue> {
        let key = bson::to_vec(key).ok()?;
        let value = cacache::read(self.path.as_path(), key.encode_hex())
            .await
            .ok()?;
        let value = bson::from_slice::<CacheValue>(&value).ok()?;
        Some(value)
    }

    #[instrument(level = "debug", skip_all, err)]
    pub async fn get_or_insert_with(
        &self,
        key: &CacheKey<'_>,
        callback: impl AsyncFnOnce() -> Result<CacheValue>,
    ) -> Result<CacheValue> {
        match self.get(key).await {
            Some(value) => {
                debug!("Cache hit");
                Ok(value)
            }
            None => {
                debug!("Cache miss");
                let value = callback().await?;
                self.insert(key, &value).await?;
                Ok(value)
            }
        }
    }
}

#[derive(Clone, Debug, PartialEq, Eq, Hash, Serialize)]
struct CacheKey<'a> {
    /// The identifier of the used compiler.
    compiler_identifier: CompilerIdentifier,

    /// The version of the compiler that was used to compile the artifacts.
    compiler_version: Version,

    /// The path of the metadata file that the compilation artifacts are for.
    metadata_file_path: &'a Path,

    /// The mode that the compilation artifacts where compiled with.
    solc_mode: Cow<'a, Mode>,
}

#[derive(Clone, Debug, Serialize, Deserialize)]
struct CacheValue {
    /// The compiler output from the compilation run.
    compiler_output: CompilerOutput,
}

impl CacheValue {
    pub fn new(compiler_output: CompilerOutput) -> Self {
        Self { compiler_output }
    }
}