use std::{
    collections::{HashMap, HashSet},
    sync::Arc,
};

use anchor_lang::{AnchorDeserialize, Id};
use anchor_spl::{
    token::spl_token::{self, state::AccountState},
    token_2022::Token2022,
};
use anyhow::{Context, Ok};
use async_trait::async_trait;
use invariant_types::{
    math::{calculate_price_sqrt, get_max_tick, get_min_tick}, structs::{
        Pool, Tick, Tickmap, TickmapView, TICK_CROSSES_PER_IX, TICK_LIMIT, TICK_SEARCH_RANGE,
    }, ANCHOR_DISCRIMINATOR_SIZE, MAX_VIRTUAL_CROSS, TICK_SEED
};
use router_feed_lib::router_rpc_client::{RouterRpcClient, RouterRpcClientTrait};
use router_lib::dex::{
    AccountProviderView, DexEdge, DexEdgeIdentifier, DexInterface, DexSubscriptionMode, Quote,
    SwapInstruction,
};
use solana_account_decoder::UiAccountEncoding;
use solana_client::{
    rpc_config::{RpcAccountInfoConfig, RpcProgramAccountsConfig},
    rpc_filter::RpcFilterType,
};
use solana_sdk::{account::ReadableAccount, program_pack::Pack, pubkey::Pubkey};
use tracing::info;

use crate::{
    invariant_edge::{InvariantEdge, InvariantEdgeIdentifier, InvariantSimulationParams},
    invariant_ix_builder::build_swap_ix,
};

pub struct InvariantDex {
    pub edges: HashMap<Pubkey, Vec<Arc<dyn DexEdgeIdentifier>>>,
}
pub const TICK_SUBSCRIPTION_RANGE: i32 = (TICK_CROSSES_PER_IX as i32 + MAX_VIRTUAL_CROSS as i32 + 2) * TICK_SEARCH_RANGE;

#[derive(Debug)]
pub enum PriceDirection {
    UP,
    DOWN,
}

impl InvariantDex {
    pub fn deserialize<T>(data: &[u8]) -> anyhow::Result<T>
    where
        T: AnchorDeserialize,
    {
        T::try_from_slice(Self::extract_from_anchor_account(data))
            .map_err(|e| anyhow::anyhow!("Error deserializing account data: {:?}", e))
    }

    pub fn deserialize_tickmap_view(
        data: &[u8],
        current_tick_index: i32,
        tick_spacing: u16,
        x_to_y: bool,
    ) -> anyhow::Result<TickmapView>
where {
        let tickmap_data = Self::extract_from_anchor_account(&data);
        TickmapView::from_slice(tickmap_data, current_tick_index, tick_spacing, x_to_y)
            .map_err(|e| anyhow::anyhow!("Error deserializing tickmap {:?}", e))
    }

    pub fn extract_from_anchor_account(data: &[u8]) -> &[u8] {
        data.split_at(ANCHOR_DISCRIMINATOR_SIZE).1
    }

    pub fn tick_indexes_to_addresses(pool_address: Pubkey, indexes: &[i32]) -> Vec<Pubkey> {
        let pubkeys: Vec<Pubkey> = indexes
            .iter()
            .map(|i| Self::tick_index_to_address(pool_address, *i))
            .collect();
        pubkeys
    }

    pub fn tick_index_to_address(pool_address: Pubkey, i: i32) -> Pubkey {
        let (pubkey, _) = Pubkey::find_program_address(
            &[
                TICK_SEED.as_bytes(),
                pool_address.as_ref(),
                &i.to_le_bytes(),
            ],
            &crate::ID,
        );
        pubkey
    }

    pub fn get_closest_ticks_addresses(
        pool: &Pool,
        tickmap: &TickmapView,
        pool_address: Pubkey,
        direction: PriceDirection,
    ) -> anyhow::Result<Vec<Pubkey>> {
        let indexes = Self::find_closest_tick_indexes(
            &pool,
            &tickmap.bitmap.data,
            TICK_CROSSES_PER_IX,
            tickmap.bitmap.offset,
            direction,
        )?;

        Ok(Self::tick_indexes_to_addresses(pool_address, &indexes))
    }

    fn find_closest_tick_indexes(
        pool: &Pool,
        bitmap: &[u8],
        amount_limit: usize,
        chunk_offset: i32,
        direction: PriceDirection,
    ) -> anyhow::Result<Vec<i32>> {
        let tick_spacing: i32 = pool.tick_spacing.into();
        let current: i32 = pool.current_tick_index / tick_spacing + TICK_LIMIT - chunk_offset * 8;
        let tickmap = bitmap;

        let mut found: Vec<i32> = Vec::new();
        if tickmap.len() != 0 {
            let range = tickmap.len() as i32 * 8 - 1;

            let (mut above, mut below, mut reached_limit) = (0 as i32, range, false);

            let max = below;
            let min = above;

            let tick_offset = chunk_offset * 8;
            while !reached_limit && found.len() < amount_limit {
                match direction {
                    PriceDirection::UP => {
                        let value_above: u8 = tickmap[(above / 8) as usize] & (1 << (above % 8));
                        if value_above != 0 {
                            if above > current {
                                found.push(above + tick_offset);
                            } else if found.len() >= 1 {
                                found[0] = above + tick_offset;
                            } else {
                                found.push(above + tick_offset);
                            }
                        }
                        reached_limit = above >= max || found.len() >= amount_limit;
                        above += 1;
                    }
                    PriceDirection::DOWN => {
                        let value_below: u8 = tickmap[(below / 8) as usize] & (1 << (below % 8));
                        if value_below != 0 {
                            if below <= current {
                                found.push(below + tick_offset);
                            } else if found.len() >= 1 {
                                found[0] = below + tick_offset;
                            } else {
                                found.push(below + tick_offset);
                            }
                        }
                        reached_limit = below <= min || found.len() >= amount_limit;
                        below -= 1;
                    }
                }
            }
        }
        Ok(found
            .iter()
            .map(|i: &i32| (i - TICK_LIMIT) * tick_spacing)
            .collect())
    }

    fn find_all_tick_indexes(tick_spacing: u16, tickmap: &Tickmap) -> anyhow::Result<Vec<i32>> {
        let tick_spacing: i32 = tick_spacing.into();
        let tickmap = tickmap.bitmap;

        let max_tick = get_max_tick(tick_spacing as u16)? / tick_spacing + TICK_LIMIT;
        let min_tick = get_min_tick(tick_spacing as u16)? / tick_spacing + TICK_LIMIT;
        let mut tick = min_tick;
        let mut found = Vec::new();
        while tick <= max_tick {
            let tick_value: u8 = tickmap[(tick / 8) as usize] & (1 << (tick % 8));
            if tick_value != 0 {
                found.push(tick);
            }
            tick += 1;
        }

        Ok(found
            .iter()
            .map(|i: &i32| (i - TICK_LIMIT) * tick_spacing)
            .collect())
    }

    fn load_edge(
        id: &InvariantEdgeIdentifier,
        chain_data: &AccountProviderView,
    ) -> anyhow::Result<InvariantEdge> {
        let pool_account_data = chain_data.account(&id.pool)?;
        let pool = Self::deserialize::<Pool>(pool_account_data.account.data())?;

        let tickmap_account_data = chain_data.account(&pool.tickmap)?;
        let tickmap = Self::deserialize_tickmap_view(
            &tickmap_account_data.account.data(),
            pool.current_tick_index,
            pool.tick_spacing,
            id.x_to_y,
        )?;

        let price_direction = match id.x_to_y {
            true => PriceDirection::DOWN,
            false => PriceDirection::UP,
        };

        let tick_pks =
            &Self::get_closest_ticks_addresses(&pool, &tickmap, id.pool, price_direction)?;
        let mut ticks = Vec::with_capacity(tick_pks.len());

        for tick_pk in tick_pks {
            let tick_data = chain_data.account(&tick_pk)?;
            let tick =
                Self::deserialize::<Tick>(tick_data.account.data()).unwrap_or(Default::default());
            ticks.push(tick)
        }

        Ok(InvariantEdge {
            ticks,
            pool,
            tickmap,
        })
    }
}

#[async_trait]
impl DexInterface for InvariantDex {
    async fn initialize(
        rpc: &mut RouterRpcClient,
        _options: HashMap<String, String>,
    ) -> anyhow::Result<Arc<dyn DexInterface>>
    where
        Self: Sized,
    {
        let mut pools = fetch_invariant_accounts(rpc, crate::id()).await?;

        let reserves = pools
            .iter()
            .flat_map(|x| [x.1.token_x_reserve, x.1.token_y_reserve])
            .collect::<HashSet<_>>();

        let vaults = rpc.get_multiple_accounts(&reserves).await?;
        let banned_reserves = vaults
            .iter()
            .filter(|(_, reserve)| {
                spl_token::state::Account::unpack(reserve.data())
                    .unwrap()
                    .state
                    == AccountState::Frozen
            })
            .map(|(pk, _)| pk)
            .collect::<HashSet<_>>();

        pools.retain(|p| {
            !(banned_reserves.contains(&p.1.token_x_reserve)
                || banned_reserves.contains(&p.1.token_y_reserve))
        });

        info!("Number of Invariant Pools: {:?}", pools.len());

        let edge_pairs: Vec<(Arc<InvariantEdgeIdentifier>, Arc<InvariantEdgeIdentifier>)> = pools
            .iter()
            .map(|(pool_pk, pool)| {
                (
                    Arc::new(InvariantEdgeIdentifier {
                        pool: *pool_pk,
                        token_x: pool.token_x,
                        token_y: pool.token_y,
                        x_to_y: true,
                    }),
                    Arc::new(InvariantEdgeIdentifier {
                        pool: *pool_pk,
                        token_x: pool.token_x,
                        token_y: pool.token_y,
                        x_to_y: false,
                    }),
                )
            })
            .into_iter()
            .collect();
        let tickmaps = pools.iter().map(|p| p.1.tickmap).collect::<Vec<Pubkey>>();

        let edges_per_pk = {
            let mut map = HashMap::new();
            let pools_with_edge_pairs = pools.iter().zip(tickmaps.iter()).zip(edge_pairs.iter());
            for (((pool_pk, pool), tickmap_pk), (edge_x_to_y, edge_y_to_x)) in pools_with_edge_pairs
            {
                let entry: Vec<Arc<dyn DexEdgeIdentifier>> =
                    vec![edge_x_to_y.clone(), edge_y_to_x.clone()];
                map.insert(*pool_pk, entry.clone());
                map.insert(*tickmap_pk, entry.clone());

                let min_tick = get_min_tick(pool.tick_spacing)?;
                let max_tick = get_max_tick(pool.tick_spacing)?;

                let tick_range_max =
                    max_tick.min(pool.current_tick_index + TICK_SUBSCRIPTION_RANGE);

                let tick_range_min =
                    min_tick.max(pool.current_tick_index - TICK_SUBSCRIPTION_RANGE);

                let indexes = tick_range_min..=tick_range_max;

                for tick in indexes {
                    map.insert(Self::tick_index_to_address(*pool_pk, tick), entry.clone());
                }
            }
            map
        };

        Ok(Arc::new(InvariantDex {
            edges: edges_per_pk,
        }))
    }

    fn name(&self) -> String {
        "Invariant".to_string()
    }

    fn subscription_mode(&self) -> DexSubscriptionMode {
        DexSubscriptionMode::Programs(HashSet::from([crate::ID]))
    }

    fn program_ids(&self) -> HashSet<Pubkey> {
        [crate::id()].into_iter().collect()
    }

    fn edges_per_pk(&self) -> HashMap<Pubkey, Vec<Arc<dyn DexEdgeIdentifier>>> {
        self.edges.clone()
    }

    fn load(
        &self,
        id: &Arc<dyn DexEdgeIdentifier>,
        chain_data: &AccountProviderView,
    ) -> anyhow::Result<Arc<dyn DexEdge>> {
        let id = id
            .as_any()
            .downcast_ref::<InvariantEdgeIdentifier>()
            .unwrap();
        let edge = Self::load_edge(id, chain_data)?;

        Ok(Arc::new(edge))
    }

    fn quote(
        &self,
        id: &Arc<dyn DexEdgeIdentifier>,
        edge: &Arc<dyn DexEdge>,
        _chain_data: &AccountProviderView,
        in_amount: u64,
    ) -> anyhow::Result<Quote> {
        let edge = edge.as_any().downcast_ref::<InvariantEdge>().unwrap();
        let id = id
            .as_any()
            .downcast_ref::<InvariantEdgeIdentifier>()
            .unwrap();

        let x_to_y = id.x_to_y;
        let sqrt_price_limit = if x_to_y {
            calculate_price_sqrt(get_min_tick(edge.pool.tick_spacing)?)
        } else {
            calculate_price_sqrt(get_max_tick(edge.pool.tick_spacing)?)
        };

        let simulation = edge
            .simulate_invariant_swap(&InvariantSimulationParams {
                x_to_y,
                in_amount,
                sqrt_price_limit,
                by_amount_in: true,
            })
            .map_err(|e| anyhow::format_err!(e))
            .with_context(|| format!("pool {} x_to_y {}", id.pool, id.x_to_y))?;

        let fee_mint = if x_to_y { id.token_x } else { id.token_y };

        Ok(Quote {
            in_amount: simulation.in_amount,
            out_amount: simulation.out_amount,
            fee_amount: simulation.fee_amount,
            fee_mint: fee_mint,
        })
    }

    fn build_swap_ix(
        &self,
        id: &Arc<dyn DexEdgeIdentifier>,
        chain_data: &AccountProviderView,
        wallet_pk: &Pubkey,
        in_amount: u64,
        out_amount: u64,
        max_slippage_bps: i32,
    ) -> anyhow::Result<SwapInstruction> {
        let id = {
            id.as_any()
                .downcast_ref::<InvariantEdgeIdentifier>()
                .unwrap()
        };

        let edge = Self::load_edge(id, chain_data)?;

        let swap_ix = build_swap_ix(
            id,
            &edge,
            chain_data,
            wallet_pk,
            in_amount,
            out_amount,
            max_slippage_bps,
        )?;

        Ok(swap_ix)
    }

    fn supports_exact_out(&self, _id: &Arc<dyn DexEdgeIdentifier>) -> bool {
        false
    }

    fn quote_exact_out(
        &self,
        id: &Arc<dyn DexEdgeIdentifier>,
        edge: &Arc<dyn DexEdge>,
        _chain_data: &AccountProviderView,
        out_amount: u64,
    ) -> anyhow::Result<Quote> {
        anyhow::bail!("Not supported");

        let edge = edge.as_any().downcast_ref::<InvariantEdge>().unwrap();
        let id = id
            .as_any()
            .downcast_ref::<InvariantEdgeIdentifier>()
            .unwrap();

        let x_to_y = id.x_to_y;
        let sqrt_price_limit = if x_to_y {
            calculate_price_sqrt(get_min_tick(edge.pool.tick_spacing)?)
        } else {
            calculate_price_sqrt(get_max_tick(edge.pool.tick_spacing)?)
        };

        let simulation = edge
            .simulate_invariant_swap(&InvariantSimulationParams {
                x_to_y,
                in_amount: out_amount,
                sqrt_price_limit,
                by_amount_in: true,
            })
            .map_err(|e| anyhow::format_err!(e))
            .with_context(|| format!("pool {} x_to_y {}", id.pool, id.x_to_y))?;

        let fee_mint = if x_to_y { id.token_x } else { id.token_y };

        Ok(Quote {
            in_amount: simulation.in_amount,
            out_amount: simulation.out_amount,
            fee_amount: simulation.fee_amount,
            fee_mint: fee_mint,
        })
    }
}

async fn fetch_invariant_accounts(
    rpc: &mut RouterRpcClient,
    program_id: Pubkey,
) -> anyhow::Result<Vec<(Pubkey, Pool)>> {
    let config = RpcProgramAccountsConfig {
        filters: Some(vec![RpcFilterType::DataSize(Pool::LEN as u64)]),
        account_config: RpcAccountInfoConfig {
            encoding: Some(UiAccountEncoding::Base64),
            ..Default::default()
        },
        ..Default::default()
    };

    let snapshot = rpc
        .get_program_accounts_with_config(&program_id, config)
        .await?;

    let result = snapshot
        .iter()
        .filter_map(|account| {
            let pool = InvariantDex::deserialize::<Pool>(account.data.as_slice());
            pool.ok().map(|x| (account.pubkey, x))
        })
        .collect();

    Ok(result)
}