// Copyright 2019-2023 Parity Technologies (UK) Ltd.
// This file is dual-licensed as Apache-2.0 or GPL-3.0.
// see LICENSE for license details.

use codec::Decode;
use criterion::*;
use frame_metadata::{v15::RuntimeMetadataV15, RuntimeMetadata, RuntimeMetadataPrefixed};
use scale_info::{form::PortableForm, TypeDef, TypeDefVariant};
use std::{fs, path::Path};
use subxt_metadata::{
    get_call_hash, get_constant_hash, get_pallet_hash, get_storage_hash, metadata_v14_to_latest,
    MetadataHasher,
};

fn load_metadata() -> RuntimeMetadataV15 {
    let bytes = fs::read(Path::new("../artifacts/polkadot_metadata_full.scale"))
        .expect("Cannot read metadata blob");
    let meta: RuntimeMetadataPrefixed =
        Decode::decode(&mut &*bytes).expect("Cannot decode scale metadata");

    match meta.1 {
        RuntimeMetadata::V14(v14) => metadata_v14_to_latest(v14),
        RuntimeMetadata::V15(v15) => v15,
        _ => panic!("Unsupported metadata version {:?}", meta.1),
    }
}

fn expect_variant(def: &TypeDef<PortableForm>) -> &TypeDefVariant<PortableForm> {
    match def {
        TypeDef::Variant(variant) => variant,
        _ => panic!("Expected a variant type, got {def:?}"),
    }
}

fn bench_get_metadata_hash(c: &mut Criterion) {
    let metadata = load_metadata();

    c.bench_function("get_metadata_hash", |b| {
        b.iter(|| MetadataHasher::new().hash(&metadata))
    });
}

fn bench_get_pallet_hash(c: &mut Criterion) {
    let metadata = load_metadata();
    let mut group = c.benchmark_group("get_pallet_hash");

    for pallet in metadata.pallets.iter() {
        let pallet_name = &pallet.name;
        group.bench_function(pallet_name, |b| {
            b.iter(|| get_pallet_hash(&metadata.types, pallet))
        });
    }
}

fn bench_get_call_hash(c: &mut Criterion) {
    let metadata = load_metadata();
    let mut group = c.benchmark_group("get_call_hash");

    for pallet in metadata.pallets.iter() {
        let pallet_name = &pallet.name;
        let call_type_id = match &pallet.calls {
            Some(calls) => calls.ty.id,
            None => continue,
        };
        let call_type = metadata.types.resolve(call_type_id).unwrap();
        let variants = expect_variant(&call_type.type_def);

        for variant in &variants.variants {
            let call_name = &variant.name;
            let bench_name = format!("{pallet_name}/{call_name}");
            group.bench_function(&bench_name, |b| {
                b.iter(|| get_call_hash(&metadata, &pallet.name, call_name))
            });
        }
    }
}

fn bench_get_constant_hash(c: &mut Criterion) {
    let metadata = load_metadata();
    let mut group = c.benchmark_group("get_constant_hash");

    for pallet in metadata.pallets.iter() {
        let pallet_name = &pallet.name;
        for constant in &pallet.constants {
            let constant_name = &constant.name;
            let bench_name = format!("{pallet_name}/{constant_name}");
            group.bench_function(&bench_name, |b| {
                b.iter(|| get_constant_hash(&metadata, &pallet.name, constant_name))
            });
        }
    }
}

fn bench_get_storage_hash(c: &mut Criterion) {
    let metadata = load_metadata();
    let mut group = c.benchmark_group("get_storage_hash");

    for pallet in metadata.pallets.iter() {
        let pallet_name = &pallet.name;
        let storage_entries = match &pallet.storage {
            Some(storage) => &storage.entries,
            None => continue,
        };

        for storage in storage_entries {
            let storage_name = &storage.name;
            let bench_name = format!("{pallet_name}/{storage_name}");
            group.bench_function(&bench_name, |b| {
                b.iter(|| get_storage_hash(&metadata, &pallet.name, storage_name))
            });
        }
    }
}

criterion_group!(
    name = benches;
    config = Criterion::default();
    targets =
        bench_get_metadata_hash,
        bench_get_pallet_hash,
        bench_get_call_hash,
        bench_get_constant_hash,
        bench_get_storage_hash,
);
criterion_main!(benches);