use incrementalmerkletree::{bridgetree::BridgeTree, Frontier, Tree};

use halo2_gadgets::primitives::{
    poseidon,
    poseidon::{ConstantLength, P128Pow5T3},
};

use halo2_proofs::{
    dev::MockProver,
};

use rand::{thread_rng, Rng};

use pasta_curves::{pallas, Fp};

use darkfi::{
    zk:: {
        circuit::lead_contract::{LeadContract},
    },
    crypto::{
        merkle_node::MerkleNode,
        //point_node::PointNode
        keypair::{Keypair, PublicKey, SecretKey},
        types::*,
        constants::{
            NullifierK, OrchardFixedBases, OrchardFixedBasesFull, ValueCommitV, MERKLE_DEPTH_ORCHARD,
        },
        nullifier::Nullifier,
        proof::{Proof, ProvingKey, VerifyingKey},
        util::{mod_r_p, pedersen_commitment_scalar, pedersen_commitment_u64},
    },
};

use pasta_curves::group::Curve;
use pasta_curves::arithmetic::CurveAffine;
//use halo2_proofs::arithmetic::CurveAffine;
use pasta_curves::group::ff::PrimeField;
use pasta_curves::group::GroupEncoding;


#[derive(Debug,Default,Clone,Copy)]
pub struct Coin
{
    value : Option<pallas::Base>, //stake
    cm : Option<pallas::Point>,
    cm2 : Option<pallas::Point>,
    cm_blind : Option<pallas::Base>,
    sl : Option<pallas::Base>, //slot id
    tau : Option<pallas::Base>,
    nonce : Option<pallas::Base>,
    nonce_cm : Option<pallas::Point>,
    sn : Option<pallas::Point>, // coin's serial number
    //sk : Option<SecretKey>,
    pk : Option<pallas::Point>,
    root_cm : Option<pallas::Scalar>,
    root_sk : Option<pallas::Scalar>,
    path: Option<[MerkleNode; MERKLE_DEPTH_ORCHARD]>,
    path_sk: Option<[MerkleNode; MERKLE_DEPTH_ORCHARD]>,
    opening1 : Option<pallas::Base>,
    opening2 : Option<pallas::Base>,
}

fn main()
{
    let k = 13;
    //
    const LEN : usize = 10;
    let mut rng = thread_rng();
    let mut sks : Vec<u64> = vec![];
    let mut root_sks : Vec<MerkleNode> = vec![];
    let mut path_sks : Vec<[MerkleNode;MERKLE_DEPTH_ORCHARD]> = vec![];
    let mut tree  =  BridgeTree::<MerkleNode, 32>::new(LEN);
    for i in 0..LEN {
        let tmp : u64 = rng.gen();
        let mut sk : u64 = tmp;
        sks.push(sk.clone());
        let node = MerkleNode(pallas::Base::from(sk));
        tree.append(&node.clone());
        tree.witness();
        let (leaf_pos, path) = tree.authentication_path(&node).unwrap();
        root_sks.push(tree.root().clone());
        path_sks.push(path.as_slice().try_into().unwrap());
    }
    let mut seeds : Vec<u64> = vec![];
    for i in 0..LEN {
        let rho : u64 = rng.gen();
        seeds.push(rho.clone());
    }
    //
    let yu64 : u64 = rng.gen();
    let rhou64 : u64 = rng.gen();
    let mau_y : pallas::Scalar = pallas::Scalar::from(yu64);
    let mau_rho : pallas::Scalar = pallas::Scalar::from(rhou64);

    //
    let mut coins : Vec<Coin> = vec![];

    //
    let mut tree_cm = BridgeTree::<MerkleNode, 32>::new(LEN);
    let zerou64 : u64 = 0;

    for i in 0..LEN {
        let c_v = pallas::Base::from(u64::try_from(i*2).unwrap());
        //random sampling of the same size of prf,
        //pseudo random sampling that is the size of pederson commitment
        let c_sk : u64 = sks[i];
        let iu64 : u64 = u64::try_from(i).unwrap();
        let c_sl  = pallas::Base::from(iu64);

        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_cm_message = [*c_pk_pt.x(), *c_pk_pt.y(), c_v.clone(), c_seed.clone()];
        let c_cm_v = poseidon::Hash::<_,P128Pow5T3, ConstantLength<4>, 3, 2>::init().hash(c_cm_message);
        let c_cm1_blind = pallas::Base::from(0); //tmp val
        let c_cm2_blind = pallas::Base::from(0); //tmp val
        let c_cm : pallas::Point  = pedersen_commitment_scalar(mod_r_p(c_cm_v), mod_r_p(c_cm1_blind));
        //TODO this return run time error! assertion error, it's out of range most likely
        //let c_cm_base_bytes : [u8; 32] = c_cm.to_bytes();
        /*
        let c_cm_base_bytes : [u8; 32] = c_cm.to_affine()
            .coordinates()
            .unwrap()
            .x().to_repr();
        let c_cm_base : pallas::Base = pallas::Base::from_repr(c_cm_base_bytes).unwrap();
        */
        let c_cm_node = MerkleNode(pallas::Base::from(1)); // this is temporary, shouldn't pass of course
        tree_cm.append(&c_cm_node.clone());
        tree_cm.witness();
        let (leaf_pos, c_cm_path) = tree_cm.authentication_path(&c_cm_node).unwrap();
        let c_root_cm = tree_cm.root();
        // 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.x(), *c_pk_pt.y(), 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 c_cm2 = pedersen_commitment_scalar(mod_r_p(lead_coin_msg_hash), mod_r_p(c_cm2_blind));
        let c_root_sk = root_sks[i];
        let c_path_sk = path_sks[i];
        let coin  = Coin {
            value: Some(c_v),
            cm: Some(c_cm),
            cm2: Some(c_cm2),
            cm_blind: Some(c_cm1_blind),
            sl: Some(c_sl),
            tau: Some(c_tau),
            nonce: Some(c_seed),
            nonce_cm: Some(c_seed2),
            sn:  Some(c_sn),
            //sk: Some(c_sk),
            pk: Some(c_pk),
            root_cm: Some(mod_r_p(c_root_cm.inner())),
            root_sk: Some(mod_r_p(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);
    }

    // ================
    // public inputs
    // ================
    let coin_idx  = 0;
    let coin = coins[coin_idx];


    let po_nonce = coin.nonce_cm
        .unwrap()
        .to_affine()
        .coordinates()
        .unwrap();

    let po_nonce = coin.nonce_cm.unwrap()
        .to_affine()
        .coordinates()
        .unwrap();

    let po_tau = pedersen_commitment_scalar(mod_r_p(coin.tau.unwrap()), coin.root_cm.unwrap())
        .to_affine()
        .coordinates()
        .unwrap();

    let po_cm = coin.cm.unwrap().to_affine().coordinates().unwrap();
    let po_cm2 = coin.cm2.unwrap().to_affine().coordinates().unwrap();

    let po_pk = coin.pk.unwrap().to_affine().coordinates().unwrap();
    let po_sn = coin.sn.unwrap().to_affine().coordinates().unwrap();


    let po_path = coin.path.unwrap();

    let po_cmp = pallas::Base::from(0);
    // ===============
    let path_sk = path_sks[coin_idx];

   let contract = LeadContract {
       path: coin.path,
       root_sk: coin.root_sk,
       path_sk: Some(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_c1_x: Some(*po_cm.x()),
       cm_c1_y: Some(*po_cm.y()),
       cm_c2_x: Some(*po_cm2.x()),
       cm_c2_y: Some(*po_cm2.y()),
       cm_pos : Some(u32::try_from(coin_idx).unwrap()),
       //sn_c1: Some(coin.sn.unwrap()),
       slot: Some(coin.sl.unwrap()),
       mau_rho: Some(mau_rho.clone()),
       mau_y: Some(mau_y.clone()),
       root_cm: Some(coin.root_cm.unwrap()),
   };

    let mut public_inputs : Vec<pallas::Base> = vec![
        *po_nonce.x(), *po_nonce.y(),
        *po_pk.x(), *po_pk.y(),
        *po_sn.x(), *po_sn.y(),
        *po_cm.x(), *po_cm.y(),
        *po_cm2.x(), *po_cm2.y(),
        po_path[31].inner(), //TODO (res) how the path is structured assumed root is last node in the path.
        po_cmp,
    ];

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