// SPDX-License-Identifier: Apache-2.0
// SPDX-FileCopyrightText: Copyright The Lance Authors

use std::sync::Arc;

use arrow_array::{
    cast::AsArray,
    types::{BinaryType, ByteArrayType, LargeBinaryType, LargeUtf8Type, UInt8Type, Utf8Type},
    Array, ArrayRef, GenericByteArray, GenericListArray, LargeListArray, ListArray, UInt8Array,
};

use arrow_buffer::ScalarBuffer;
use arrow_schema::{DataType, Field};
use futures::future::BoxFuture;
use lance_core::Result;
use log::trace;

use crate::{
    decoder::{
        DecodeArrayTask, DecoderReady, FieldScheduler, LogicalPageDecoder, NextDecodeTask,
        ScheduledScanLine, SchedulerContext, SchedulingJob,
    },
    encoder::{CoreArrayEncodingStrategy, EncodeTask, FieldEncoder},
};

use super::{list::ListFieldEncoder, primitive::PrimitiveFieldEncoder};

/// Wraps a varbin scheduler and uses a BinaryPageDecoder to cast
/// the result to the appropriate type
#[derive(Debug)]
pub struct BinarySchedulingJob<'a> {
    scheduler: &'a BinaryFieldScheduler,
    inner: Box<dyn SchedulingJob + 'a>,
}

impl<'a> SchedulingJob for BinarySchedulingJob<'a> {
    fn schedule_next(
        &mut self,
        context: &mut SchedulerContext,
        top_level_row: u64,
    ) -> Result<ScheduledScanLine> {
        let inner_scan = self.inner.schedule_next(context, top_level_row)?;
        let wrapped_decoders = inner_scan
            .decoders
            .into_iter()
            .map(|decoder| DecoderReady {
                path: decoder.path,
                decoder: Box::new(BinaryPageDecoder {
                    inner: decoder.decoder,
                    data_type: self.scheduler.data_type.clone(),
                }),
            })
            .collect::<Vec<_>>();
        Ok(ScheduledScanLine {
            decoders: wrapped_decoders,
            rows_scheduled: inner_scan.rows_scheduled,
        })
    }
}

/// A logical scheduler for utf8/binary pages which assumes the data are encoded as List<u8>
#[derive(Debug)]
pub struct BinaryFieldScheduler {
    varbin_scheduler: Arc<dyn FieldScheduler>,
    data_type: DataType,
}

impl BinaryFieldScheduler {
    // Create a new ListPageScheduler
    pub fn new(varbin_scheduler: Arc<dyn FieldScheduler>, data_type: DataType) -> Self {
        Self {
            varbin_scheduler,
            data_type,
        }
    }
}

impl FieldScheduler for BinaryFieldScheduler {
    fn schedule_ranges<'a>(
        &'a self,
        ranges: &[std::ops::Range<u64>],
    ) -> Result<Box<dyn SchedulingJob + 'a>> {
        trace!("Scheduling binary for {} ranges", ranges.len());
        let varbin_job = self.varbin_scheduler.schedule_ranges(ranges)?;
        Ok(Box::new(BinarySchedulingJob {
            scheduler: self,
            inner: varbin_job,
        }))
    }

    fn num_rows(&self) -> u64 {
        self.varbin_scheduler.num_rows()
    }
}

#[derive(Debug)]
pub struct BinaryPageDecoder {
    inner: Box<dyn LogicalPageDecoder>,
    data_type: DataType,
}

impl LogicalPageDecoder for BinaryPageDecoder {
    fn wait(&mut self, num_rows: u32) -> BoxFuture<Result<()>> {
        self.inner.wait(num_rows)
    }

    fn drain(&mut self, num_rows: u32) -> Result<NextDecodeTask> {
        let inner_task = self.inner.drain(num_rows)?;
        Ok(NextDecodeTask {
            has_more: inner_task.has_more,
            num_rows: inner_task.num_rows,
            task: Box::new(BinaryArrayDecoder {
                inner: inner_task.task,
                data_type: self.data_type.clone(),
            }),
        })
    }

    fn unawaited(&self) -> u32 {
        self.inner.unawaited()
    }

    fn avail(&self) -> u32 {
        self.inner.avail()
    }

    fn data_type(&self) -> &DataType {
        &self.data_type
    }
}

pub struct BinaryArrayDecoder {
    inner: Box<dyn DecodeArrayTask>,
    data_type: DataType,
}

impl BinaryArrayDecoder {
    fn from_list_array<T: ByteArrayType>(array: &GenericListArray<T::Offset>) -> ArrayRef {
        let values = array
            .values()
            .as_primitive::<UInt8Type>()
            .values()
            .inner()
            .clone();
        let offsets = array.offsets().clone();
        Arc::new(GenericByteArray::<T>::new(
            offsets,
            values,
            array.nulls().cloned(),
        ))
    }
}

impl DecodeArrayTask for BinaryArrayDecoder {
    fn decode(self: Box<Self>) -> Result<ArrayRef> {
        let data_type = self.data_type;
        let arr = self.inner.decode()?;
        match data_type {
            DataType::Binary => Ok(Self::from_list_array::<BinaryType>(arr.as_list::<i32>())),
            DataType::LargeBinary => Ok(Self::from_list_array::<LargeBinaryType>(
                arr.as_list::<i64>(),
            )),
            DataType::Utf8 => Ok(Self::from_list_array::<Utf8Type>(arr.as_list::<i32>())),
            DataType::LargeUtf8 => Ok(Self::from_list_array::<LargeUtf8Type>(arr.as_list::<i64>())),
            _ => panic!("Binary decoder does not support this data type"),
        }
    }
}

/// An encoder which encodes string arrays as List<u8>
pub struct BinaryFieldEncoder {
    varbin_encoder: Box<dyn FieldEncoder>,
}

impl BinaryFieldEncoder {
    pub fn new(cache_bytes_per_column: u64, keep_original_array: bool, column_index: u32) -> Self {
        let items_encoder = Box::new(
            PrimitiveFieldEncoder::try_new(
                cache_bytes_per_column,
                keep_original_array,
                Arc::new(CoreArrayEncodingStrategy),
                column_index + 1,
            )
            .unwrap(),
        );
        Self {
            varbin_encoder: Box::new(ListFieldEncoder::new(
                items_encoder,
                cache_bytes_per_column,
                keep_original_array,
                column_index,
            )),
        }
    }

    fn byte_to_list_array<T: ByteArrayType<Offset = i32>>(
        array: &GenericByteArray<T>,
    ) -> ListArray {
        let values = UInt8Array::new(
            ScalarBuffer::<u8>::new(array.values().clone(), 0, array.values().len()),
            None,
        );
        let list_field = Field::new("item", DataType::UInt8, true);
        ListArray::new(
            Arc::new(list_field),
            array.offsets().clone(),
            Arc::new(values),
            array.nulls().cloned(),
        )
    }

    fn byte_to_large_list_array<T: ByteArrayType<Offset = i64>>(
        array: &GenericByteArray<T>,
    ) -> LargeListArray {
        let values = UInt8Array::new(
            ScalarBuffer::<u8>::new(array.values().clone(), 0, array.values().len()),
            None,
        );
        let list_field = Field::new("item", DataType::UInt8, true);
        LargeListArray::new(
            Arc::new(list_field),
            array.offsets().clone(),
            Arc::new(values),
            array.nulls().cloned(),
        )
    }

    fn to_list_array(array: ArrayRef) -> ArrayRef {
        match array.data_type() {
            DataType::Utf8 => Arc::new(Self::byte_to_list_array(array.as_string::<i32>())),
            DataType::LargeUtf8 => {
                Arc::new(Self::byte_to_large_list_array(array.as_string::<i64>()))
            }
            DataType::Binary => Arc::new(Self::byte_to_list_array(array.as_binary::<i32>())),
            DataType::LargeBinary => {
                Arc::new(Self::byte_to_large_list_array(array.as_binary::<i64>()))
            }
            _ => panic!("Binary encoder does not support {}", array.data_type()),
        }
    }
}

impl FieldEncoder for BinaryFieldEncoder {
    fn maybe_encode(&mut self, array: ArrayRef) -> Result<Vec<EncodeTask>> {
        let list_array = Self::to_list_array(array);
        self.varbin_encoder.maybe_encode(Arc::new(list_array))
    }

    fn flush(&mut self) -> Result<Vec<EncodeTask>> {
        self.varbin_encoder.flush()
    }

    fn num_columns(&self) -> u32 {
        2
    }
}

#[cfg(test)]
mod tests {
    use arrow_schema::{DataType, Field};

    use crate::testing::check_round_trip_encoding_random;

    #[test_log::test(tokio::test)]
    async fn test_utf8() {
        let field = Field::new("", DataType::Utf8, false);
        check_round_trip_encoding_random(field).await;
    }

    #[test_log::test(tokio::test)]
    async fn test_binary() {
        let field = Field::new("", DataType::Binary, false);
        check_round_trip_encoding_random(field).await;
    }

    #[test_log::test(tokio::test)]
    async fn test_large_binary() {
        let field = Field::new("", DataType::LargeBinary, true);
        check_round_trip_encoding_random(field).await;
    }

    #[test_log::test(tokio::test)]
    async fn test_large_utf8() {
        let field = Field::new("", DataType::LargeUtf8, true);
        check_round_trip_encoding_random(field).await;
    }
}