use halo2_proofs::{arithmetic::Field, dev::MockProver};
use incrementalmerkletree::{bridgetree::BridgeTree, Tree};
use pasta_curves::{
    arithmetic::CurveAffine,
    group::{ff::PrimeField, Curve},
    pallas,
};

use rand::{thread_rng, Rng};

use darkfi::{
    crypto::{
        constants::{MERKLE_DEPTH_ORCHARD, MERKLE_DEPTH},
        leadcoin::LeadCoin,
        merkle_node::MerkleNode,
        util::{mod_r_p, pedersen_commitment_scalar},
    },
    zk::circuit::lead_contract::LeadContract,
};

fn create_coins_sks(len: usize) -> (Vec<MerkleNode>, Vec<[MerkleNode; MERKLE_DEPTH_ORCHARD]>) {
    /*
    at the onset of an epoch, the first slot's coin's secret key
    is sampled at random, and the reset of the secret keys are derived,
    for sk (secret key) at time i+1 is derived from secret key at time i.
     */
    let mut rng = thread_rng();
    let sk: u64 = rng.gen();
    let mut tree = BridgeTree::<MerkleNode, MERKLE_DEPTH>::new(len);
    let mut root_sks: Vec<MerkleNode> = vec![];
    let mut path_sks: Vec<[MerkleNode; MERKLE_DEPTH_ORCHARD]> = vec![];
    for _i in 0..len {
        //TODO (research) why the conversion between point and base is panicing?
        // is the endianess different?
        let base = pedersen_commitment_scalar(pallas::Scalar::one(), pallas::Scalar::from(sk));
        let _coord = base.to_affine().coordinates().unwrap();
        //let sk =  coord.x() * coord.y();
        //let sk =  *coord.y();
        let sk: [u8; 32] = pallas::Base::random(rng.clone()).to_repr();
        let node = MerkleNode::from_bytes(&sk).unwrap();
        //let serialized = serde_json::to_string(&node).unwrap();
        //println!("serialized: {}", serialized);
        tree.append(&node.clone());
        let leaf_position = tree.witness();
        let root = tree.root(0).unwrap();
        //let (leaf_pos, path) = tree.authentication_path(leaf_position.unwrap()).unwrap();
        let path = tree.authentication_path(leaf_position.unwrap(), &root).unwrap();
        //note root sk is at tree.root()
        //root_sks.push(node);
        root_sks.push(root);
        path_sks.push(path.as_slice().try_into().unwrap());
    }
    (root_sks, path_sks)
}

fn create_coins(
    root_sks: Vec<MerkleNode>,
    path_sks: Vec<[MerkleNode; MERKLE_DEPTH_ORCHARD]>,
    values: Vec<u64>,
    cm1_blind: pallas::Base,
    cm2_blind: pallas::Base,
    len: usize,
) -> Vec<LeadCoin> {
    let mut rng = thread_rng();
    let mut seeds: Vec<u64> = vec![];
    for _i in 0..len {
        let rho: u64 = rng.gen();
        seeds.push(rho);
    }

    let mut tree_cm = BridgeTree::<MerkleNode, MERKLE_DEPTH>::new(len);
    let mut coins: Vec<LeadCoin> = vec![];
    for i in 0..len {
        let c_v = pallas::Base::from(values[i]);
        //random sampling of the same size of prf,
        //pseudo random sampling that is the size of pederson commitment

        // coin slot number
        let c_sl = pallas::Base::from(u64::try_from(i).unwrap());

        //
        let c_tau = pallas::Base::from(u64::try_from(i).unwrap()); // let's assume it's sl for simplicity
                                                                   //
        let c_root_sk: MerkleNode = root_sks[i];

        let c_pk = pedersen_commitment_scalar(mod_r_p(c_tau), mod_r_p(c_root_sk.inner()));

        let c_seed = pallas::Base::from(seeds[i]);
        let c_sn = pedersen_commitment_scalar(mod_r_p(c_seed), mod_r_p(c_root_sk.inner()));
        let c_pk_pt = c_pk.to_affine().coordinates().unwrap();
        let c_pk_pt_x: pallas::Base = *c_pk_pt.x();
        let c_pk_pt_y: pallas::Base = *c_pk_pt.y();

        let c_cm_v = c_v * c_seed * c_pk_pt_x * c_pk_pt_y;
        let c_cm1_blind = cm1_blind; //TODO (fix) should be read from DrkValueBlind
        let c_cm2_blind = cm2_blind; //TODO (fix) should be read from DrkValueBlind
        let c_cm: pallas::Point = pedersen_commitment_scalar(mod_r_p(c_cm_v), mod_r_p(c_cm1_blind));

        let c_cm_coordinates = c_cm.to_affine().coordinates().unwrap();
        let c_cm_base: pallas::Base = c_cm_coordinates.x() * c_cm_coordinates.y();
        let c_cm_node = MerkleNode(c_cm_base);
        tree_cm.append(&c_cm_node.clone());
        let leaf_position = tree_cm.witness();
        let c_root_cm = tree_cm.root(0).unwrap();
        let c_cm_path = tree_cm.authentication_path(leaf_position.unwrap(), &c_root_cm).unwrap();
        // lead coin commitment
        let c_seed2 = pedersen_commitment_scalar(mod_r_p(c_seed), mod_r_p(c_root_sk.inner()));
        let c_seed2_pt = c_seed2.to_affine().coordinates().unwrap();
        /*
            let lead_coin_msg = [c_pk_pt_y.clone(),
            c_pk_pt_x.clone(),
            c_v,
             *c_seed2_pt.x(),
             *c_seed2_pt.y()
        ];
            let lead_coin_msg_hash =
            poseidon::Hash::<_, P128Pow5T3, ConstantLength<5>, 3, 2>::init().hash(lead_coin_msg);
             */
        let lead_coin_msg = c_pk_pt_y * c_pk_pt_x * c_v * *c_seed2_pt.x() * *c_seed2_pt.y();
        let c_cm2 = pedersen_commitment_scalar(mod_r_p(lead_coin_msg), mod_r_p(c_cm2_blind));
        let c_root_sk = root_sks[i];

        let c_root_sk_bytes: [u8; 32] = c_root_sk.inner().to_repr();
        let mut c_root_sk_base_bytes: [u8; 32] = [0; 32];
        c_root_sk_base_bytes[..23].copy_from_slice(&c_root_sk_bytes[..23]);
        let _c_root_sk_base = pallas::Base::from_repr(c_root_sk_base_bytes);

        let c_path_sk = path_sks[i];

        let coin = LeadCoin {
            value: Some(c_v),
            cm: Some(c_cm),
            cm2: Some(c_cm2),
            idx: u32::try_from(i).unwrap(),
            sl: Some(c_sl),
            tau: Some(c_tau),
            nonce: Some(c_seed),
            nonce_cm: Some(c_seed2),
            sn: Some(c_sn),
            pk: Some(c_pk),
            pk_x: Some(c_pk_pt_x),
            pk_y: Some(c_pk_pt_y),
            root_cm: Some(mod_r_p(c_root_cm.inner())),
            root_sk: Some(c_root_sk.inner()),
            path: Some(c_cm_path.as_slice().try_into().unwrap()),
            path_sk: Some(c_path_sk),
            opening1: Some(c_cm1_blind),
            opening2: Some(c_cm2_blind),
        };
        coins.push(coin);
    }
    coins
}

fn main() {
    let k: u32 = 13;
    //let lead_pk = ProvingKey::build(k, &LeadContract::default());
    //let lead_vk = VerifyingKey::build(k, &LeadContract::default());
    //
    const LEN: usize = 10;
    let mut rng = thread_rng();
    let mut _root_sks: Vec<MerkleNode> = vec![];
    let mut _path_sks: Vec<[MerkleNode; MERKLE_DEPTH_ORCHARD]> = vec![];
    let mut values: Vec<u64> = vec![];
    for i in 0..LEN {
        values.push(u64::try_from(i * 2).unwrap());
    }
    let cm1_val: u64 = rng.gen();
    let cm1_blind: pallas::Base = pallas::Base::from(cm1_val);
    let cm2_val: u64 = rng.gen();
    let cm2_blind: pallas::Base = pallas::Base::from(cm2_val);
    (_root_sks, _path_sks) = create_coins_sks(LEN);
    let coins: Vec<LeadCoin> =
        create_coins(_root_sks, _path_sks, values, cm1_blind, cm2_blind, LEN);
    let coin_idx = 0;
    let coin = coins[coin_idx];

    let yu64: u64 = rng.gen();
    let rhou64: u64 = rng.gen();
    let mau_y: pallas::Base = pallas::Base::from(yu64);
    let mau_rho: pallas::Base = pallas::Base::from(rhou64);

    let contract = LeadContract {
        path: coin.path,
        coin_pk_x: coin.pk_x,
        coin_pk_y: coin.pk_y,
        root_sk: coin.root_sk,
        sf_root_sk: Some(mod_r_p(coin.root_sk.unwrap())),
        path_sk: coin.path_sk,
        coin_timestamp: coin.tau, //
        coin_nonce: coin.nonce,
        coin_opening_1: Some(mod_r_p(coin.opening1.unwrap())),
        value: coin.value,
        coin_opening_2: Some(mod_r_p(coin.opening2.unwrap())),
        cm_pos: Some(coin.idx),
        //sn_c1: Some(coin.sn.unwrap()),
        slot: Some(coin.sl.unwrap()),
        mau_rho: Some(mod_r_p(mau_rho)),
        mau_y: Some(mod_r_p(mau_y)),
        root_cm: Some(coin.root_cm.unwrap()),
    };

    //let proof = create_lead_proof(lead_pk.clone(), coin.clone()).unwrap();
    //verify_lead_proof(&lead_vk, &proof, coin);

    // calculate public inputs
    let public_inputs = coin.public_inputs();

    let prover = MockProver::run(k, &contract, vec![public_inputs]).unwrap();
    //
    assert_eq!(prover.verify(), Ok(()));
    //
}