/*
 * SPDX-FileCopyrightText: 2020 Stalwart Labs LLC <hello@stalw.art>
 *
 * SPDX-License-Identifier: AGPL-3.0-only OR LicenseRef-SEL
 */

use crate::Core;
use ahash::AHashSet;
use lz4_flex::frame::FrameEncoder;
use std::{
    io::{BufWriter, Write},
    path::{Path, PathBuf},
    sync::mpsc::{self, SyncSender},
};
use store::{
    write::{AnyClass, AnyKey, ValueClass},
    *,
};
use types::blob_hash::{BLOB_HASH_LEN, BlobHash};
use utils::{UnwrapFailure, codec::leb128::Leb128_};

pub(super) const MAGIC_MARKER: u8 = 123;

#[derive(Debug, Clone, Copy, Hash, PartialEq, Eq)]
pub(super) enum Family {
    Data = 0,
    Blob = 2,
    Registry = 3,
    Changelog = 4,
    Queue = 5,
    Report = 6,
    Telemetry = 7,
    Tasks = 8,
}

type TaskHandle = (tokio::task::JoinHandle<()>, std::thread::JoinHandle<()>);

#[derive(Debug, Default, PartialEq, Eq)]
pub struct BackupParams {
    dest: PathBuf,
    families: AHashSet<Family>,
}

impl Core {
    pub async fn backup(&self, mut params: BackupParams) {
        if !params.dest.exists() {
            std::fs::create_dir_all(&params.dest).failed("Failed to create backup directory");
        } else if !params.dest.is_dir() {
            eprintln!("Backup destination {:?} is not a directory.", params.dest);
            std::process::exit(1);
        }

        let mut sync_handles = Vec::new();
        let schema_version = self
            .storage
            .data
            .get_value::<u32>(AnyKey {
                subspace: SUBSPACE_PROPERTY,
                key: vec![0u8],
            })
            .await
            .failed("Could not retrieve database schema version.")
            .failed("Could not retrieve database schema version.");

        if params.families.is_empty() {
            params.families = [
                Family::Data,
                Family::Registry,
                Family::Blob,
                Family::Changelog,
                Family::Queue,
                Family::Report,
                Family::Telemetry,
                Family::Tasks,
            ]
            .into_iter()
            .collect();
        }

        for subspace in params
            .families
            .into_iter()
            .flat_map(|f| f.subspaces())
            .copied()
        {
            let (async_handle, sync_handle) = if subspace == SUBSPACE_BLOBS {
                self.backup_blobs(&params.dest, subspace, schema_version)
            } else {
                self.backup_subspace(&params.dest, subspace, schema_version)
            };
            async_handle.await.failed("Task failed");
            sync_handles.push(sync_handle);
        }

        for handle in sync_handles {
            handle.join().expect("Failed to join thread");
        }
    }

    fn backup_blobs(&self, dest: &Path, subspace: u8, schema_version: u32) -> TaskHandle {
        let store = self.storage.data.clone();
        let blob_store = self.storage.blob.clone();
        let (handle, writer) = spawn_writer(
            dest.join(format!("subspace_{}", char::from(subspace))),
            subspace,
            schema_version,
        );
        (
            tokio::spawn(async move {
                let mut blobs = Vec::new();
                let mut last_hash = BlobHash::default();
                store
                    .iterate(
                        IterateParams::new(
                            AnyKey {
                                subspace: SUBSPACE_BLOB_LINK,
                                key: vec![0u8],
                            },
                            AnyKey {
                                subspace: SUBSPACE_BLOB_LINK,
                                key: vec![u8::MAX; 32],
                            },
                        )
                        .no_values(),
                        |key, _| {
                            let hash = BlobHash::try_from_hash_slice(
                                key.get(0..BLOB_HASH_LEN).ok_or_else(|| {
                                    trc::Error::corrupted_key(key, None, trc::location!())
                                })?,
                            )
                            .unwrap();

                            if last_hash != hash {
                                blobs.push(hash.clone());
                                last_hash = hash;
                            }

                            Ok(true)
                        },
                    )
                    .await
                    .failed("Failed to iterate over data store");

                for hash in blobs {
                    if let Some(blob) = blob_store
                        .get_blob(hash.as_slice(), 0..usize::MAX)
                        .await
                        .failed("Failed to get blob")
                    {
                        writer
                            .send((hash.as_slice().to_vec(), blob))
                            .failed("Failed to send key");
                    }
                }
            }),
            handle,
        )
    }

    fn backup_subspace(&self, dest: &Path, subspace: u8, schema_version: u32) -> TaskHandle {
        let store = self.storage.data.clone();
        let (handle, writer) = spawn_writer(
            dest.join(format!("subspace_{}", char::from(subspace))),
            subspace,
            schema_version,
        );
        (
            tokio::spawn(async move {
                if !store.is_sql() || (subspace != SUBSPACE_COUNTER && subspace != SUBSPACE_QUOTA) {
                    store
                        .iterate(
                            IterateParams::new(
                                AnyKey {
                                    subspace,
                                    key: vec![0u8],
                                },
                                AnyKey {
                                    subspace,
                                    key: vec![u8::MAX; 32],
                                },
                            )
                            .set_values(
                                ![SUBSPACE_INDEXES, SUBSPACE_REGISTRY_IDX].contains(&subspace),
                            ),
                            |key, value| {
                                writer
                                    .send((key.to_vec(), value.to_vec()))
                                    .failed("Failed to send key");

                                Ok(true)
                            },
                        )
                        .await
                        .failed("Failed to iterate over data store");
                } else {
                    let mut keys = Vec::with_capacity(128);
                    store
                        .iterate(
                            IterateParams::new(
                                AnyKey {
                                    subspace,
                                    key: vec![0u8],
                                },
                                AnyKey {
                                    subspace,
                                    key: vec![u8::MAX; 32],
                                },
                            )
                            .no_values(),
                            |key, _| {
                                keys.push(key.to_vec());

                                Ok(true)
                            },
                        )
                        .await
                        .failed("Failed to iterate over data store");

                    for key in keys {
                        let counter = store
                            .get_counter(ValueClass::Any(AnyClass {
                                subspace,
                                key: key.clone(),
                            }))
                            .await
                            .failed("Failed to get counter");
                        writer
                            .send((key.to_vec(), (counter as u64).to_le_bytes().to_vec()))
                            .failed("Failed to send key");
                    }
                }
            }),
            handle,
        )
    }
}

#[allow(clippy::type_complexity)]
fn spawn_writer(
    path: PathBuf,
    subspace: u8,
    version: u32,
) -> (std::thread::JoinHandle<()>, SyncSender<(Vec<u8>, Vec<u8>)>) {
    let (tx, rx) = mpsc::sync_channel::<(Vec<u8>, Vec<u8>)>(10);

    let handle = std::thread::spawn(move || {
        println!("Exporting database to {}.", path.to_str().unwrap());

        let mut file = FrameEncoder::new(BufWriter::new(
            std::fs::File::create(path).failed("Failed to create backup file"),
        ));
        file.write_all(&[MAGIC_MARKER, subspace])
            .failed("Failed to write version");
        file.write_all(&version.to_le_bytes())
            .failed("Failed to write version");

        while let Ok((key, value)) = rx.recv() {
            key.len()
                .to_leb128_writer(&mut file)
                .failed("Failed to write key value");
            file.write_all(&key).failed("Failed to write key");
            value
                .len()
                .to_leb128_writer(&mut file)
                .failed("Failed to write key value");
            if !value.is_empty() {
                file.write_all(&value).failed("Failed to write key value");
            }
        }

        file.flush().failed("Failed to flush backup file");
    });

    (handle, tx)
}

impl BackupParams {
    pub fn new(dest: PathBuf) -> Self {
        let mut params = Self {
            dest,
            families: AHashSet::new(),
        };

        if let Ok(families) = std::env::var("EXPORT_TYPES") {
            params.parse_families(&families);
        }

        params
    }

    fn parse_families(&mut self, families: &str) {
        for family in families.split(',') {
            let family = family.trim();
            match Family::parse(family) {
                Ok(family) => {
                    self.families.insert(family);
                }
                Err(err) => {
                    eprintln!("Backup failed: {err}.");
                    std::process::exit(1);
                }
            }
        }
    }
}

impl Family {
    pub fn subspaces(&self) -> &'static [u8] {
        match self {
            Family::Data => &[
                SUBSPACE_ACL,
                SUBSPACE_INDEXES,
                SUBSPACE_QUOTA,
                SUBSPACE_COUNTER,
                SUBSPACE_PROPERTY,
            ],
            Family::Blob => &[SUBSPACE_BLOBS, SUBSPACE_BLOB_LINK],
            Family::Registry => &[
                SUBSPACE_REGISTRY,
                SUBSPACE_REGISTRY_IDX,
                SUBSPACE_REGISTRY_PK,
                SUBSPACE_DIRECTORY,
            ],
            Family::Changelog => &[SUBSPACE_LOGS],
            Family::Queue => &[SUBSPACE_QUEUE_MESSAGE, SUBSPACE_QUEUE_EVENT],
            Family::Report => &[SUBSPACE_REPORT_OUT, SUBSPACE_REPORT_IN],
            Family::Telemetry => &[SUBSPACE_TELEMETRY_SPAN, SUBSPACE_TELEMETRY_METRIC],
            Family::Tasks => &[SUBSPACE_TASK_QUEUE],
        }
    }

    pub fn parse(family: &str) -> Result<Self, String> {
        match family {
            "data" => Ok(Family::Data),
            "registry" => Ok(Family::Registry),
            "blob" => Ok(Family::Blob),
            "changelog" => Ok(Family::Changelog),
            "queue" => Ok(Family::Queue),
            "report" => Ok(Family::Report),
            "telemetry" => Ok(Family::Telemetry),
            "tasks" => Ok(Family::Tasks),
            _ => Err(format!("Unknown family {}", family)),
        }
    }
}
