// Copyright 2023 Greptime Team
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

mod aggr_over_time;
mod changes;
mod deriv;
mod double_exponential_smoothing;
mod edge_count;
mod extrapolate_rate;
mod idelta;
mod native_histogram;
mod predict_linear;
mod quantile;
mod quantile_aggr;
mod resets;
mod round;
#[cfg(test)]
mod test_util;

pub use aggr_over_time::{
    AbsentOverTime, AvgOverTime, CountOverTime, LastOverTime, MaxOverTime, MinOverTime,
    PresentOverTime, StddevOverTime, StdvarOverTime, SumOverTime,
};
pub use changes::Changes;
use datafusion::arrow::array::{
    ArrayRef, DictionaryArray, Float64Array, TimestampMillisecondArray,
};
use datafusion::error::DataFusionError;
use datafusion::physical_plan::ColumnarValue;
use datatypes::arrow::array::Array;
use datatypes::arrow::datatypes::{DataType, Int64Type};
pub use deriv::Deriv;
pub use double_exponential_smoothing::DoubleExponentialSmoothing;
pub use extrapolate_rate::{Delta, Increase, Rate};
pub use idelta::IDelta;
pub use native_histogram::{
    NativeHistogramAbsentOverTime, NativeHistogramAdd, NativeHistogramAggAvg,
    NativeHistogramAggSum, NativeHistogramAvg, NativeHistogramAvgOverTime, NativeHistogramChanges,
    NativeHistogramCount, NativeHistogramCountOverTime, NativeHistogramDelta,
    NativeHistogramDivScalar, NativeHistogramDrop, NativeHistogramEq, NativeHistogramFraction,
    NativeHistogramIDelta, NativeHistogramIRate, NativeHistogramIncrease,
    NativeHistogramLastOverTime, NativeHistogramMulScalar, NativeHistogramNeg,
    NativeHistogramNotEq, NativeHistogramPresentOverTime, NativeHistogramQuantile,
    NativeHistogramRate, NativeHistogramResets, NativeHistogramScalarMul, NativeHistogramStddev,
    NativeHistogramStdvar, NativeHistogramSub, NativeHistogramSum, NativeHistogramSumOverTime,
    NativeHistogramToString,
};
pub use predict_linear::PredictLinear;
pub use quantile::QuantileOverTime;
pub use quantile_aggr::{QUANTILE_NAME, quantile_udaf};
pub use resets::Resets;
pub use round::Round;

use crate::range_array::RangeArray;

/// Extracts an array from a `ColumnarValue`.
///
/// If the `ColumnarValue` is a scalar, it converts it to an array of size 1.
pub(crate) fn extract_array(columnar_value: &ColumnarValue) -> Result<ArrayRef, DataFusionError> {
    match columnar_value {
        ColumnarValue::Array(array) => Ok(array.clone()),
        ColumnarValue::Scalar(scalar) => Ok(scalar.to_array_of_size(1)?),
    }
}

/// Extracts and validates a range dictionary with the expected value type.
pub(crate) fn extract_range_dict(
    columnar_value: &ColumnarValue,
    func_name: &str,
    arg_name: &str,
    expected_value_type: &DataType,
) -> Result<DictionaryArray<Int64Type>, DataFusionError> {
    let array = extract_array(columnar_value)?;
    let dict = array
        .as_any()
        .downcast_ref::<DictionaryArray<Int64Type>>()
        .ok_or_else(|| {
            DataFusionError::Execution(format!(
                "{func_name}: expect {arg_name} as DictionaryArray<Int64>, found {}",
                array.data_type()
            ))
        })?
        .clone();

    if &dict.value_type() != expected_value_type {
        return Err(DataFusionError::Execution(format!(
            "{func_name}: expect {arg_name} values of type {expected_value_type}, found {}",
            dict.value_type()
        )));
    }

    RangeArray::try_new(dict.clone()).map_err(DataFusionError::from)?;
    Ok(dict)
}

/// Extracts a validated [RangeArray] from a [ColumnarValue].
pub(crate) fn extract_range_array(
    columnar_value: &ColumnarValue,
) -> Result<RangeArray, DataFusionError> {
    let array = extract_array(columnar_value)?;
    let dict = array
        .as_any()
        .downcast_ref::<DictionaryArray<Int64Type>>()
        .ok_or_else(|| {
            DataFusionError::Execution(format!(
                "expected DictionaryArray<Int64>, found {}",
                array.data_type()
            ))
        })?
        .clone();
    RangeArray::try_new(dict).map_err(DataFusionError::from)
}

/// compensation(Kahan) summation algorithm - a technique for reducing the numerical error
/// in floating-point arithmetic. The algorithm also includes the modification ("Neumaier improvement")
/// that reduces the numerical error further in cases
/// where the numbers being summed have a large difference in magnitude
/// Prometheus's implementation:
/// <https://github.com/prometheus/prometheus/blob/f55ab2217984770aa1eecd0f2d5f54580029b1c0/promql/functions.go#L782>
pub(crate) fn compensated_sum_inc(inc: f64, sum: f64, mut compensation: f64) -> (f64, f64) {
    let new_sum = sum + inc;
    if sum.abs() >= inc.abs() {
        compensation += (sum - new_sum) + inc;
    } else {
        compensation += (inc - new_sum) + sum;
    }
    (new_sum, compensation)
}

/// linear_regression performs a least-square linear regression analysis on the
/// times and values. It return the slope and intercept based on times and values.
/// Prometheus's implementation: <https://github.com/prometheus/prometheus/blob/90b2f7a540b8a70d8d81372e6692dcbb67ccbaaa/promql/functions.go#L793-L837>
pub(crate) fn linear_regression(
    times: &TimestampMillisecondArray,
    values: &Float64Array,
    intercept_time: i64,
) -> (Option<f64>, Option<f64>) {
    linear_regression_slice(times.values(), values, 0, values.len(), intercept_time)
}

pub(crate) fn linear_regression_slice(
    times: &[i64],
    values: &Float64Array,
    offset: usize,
    len: usize,
    intercept_time: i64,
) -> (Option<f64>, Option<f64>) {
    linear_regression_slices(times, offset, values, offset, len, intercept_time)
}

pub(crate) fn linear_regression_slices(
    times: &[i64],
    time_offset: usize,
    values: &Float64Array,
    value_offset: usize,
    len: usize,
    intercept_time: i64,
) -> (Option<f64>, Option<f64>) {
    let raw_values = values.values();
    let has_nulls = values.null_count() > 0;
    let mut count: f64 = 0.0;
    let mut sum_x: f64 = 0.0;
    let mut sum_y: f64 = 0.0;
    let mut sum_xy: f64 = 0.0;
    let mut sum_x2: f64 = 0.0;
    let mut comp_x: f64 = 0.0;
    let mut comp_y: f64 = 0.0;
    let mut comp_xy: f64 = 0.0;
    let mut comp_x2: f64 = 0.0;

    let mut const_y = true;
    let mut init_y = None;

    for i in 0..len {
        let time_idx = time_offset + i;
        let value_idx = value_offset + i;
        if has_nulls && values.is_null(value_idx) {
            continue;
        }
        let value = raw_values[value_idx];
        let time = times[time_idx] as f64;
        let initial = init_y.get_or_insert(value);
        if const_y && count > 0.0 && value != *initial {
            const_y = false;
        }
        count += 1.0;
        let x = (time - intercept_time as f64) / 1e3f64;
        (sum_x, comp_x) = compensated_sum_inc(x, sum_x, comp_x);
        (sum_y, comp_y) = compensated_sum_inc(value, sum_y, comp_y);
        (sum_xy, comp_xy) = compensated_sum_inc(x * value, sum_xy, comp_xy);
        (sum_x2, comp_x2) = compensated_sum_inc(x * x, sum_x2, comp_x2);
    }

    if count < 2.0 {
        return (None, None);
    }

    if const_y {
        let init_y = init_y.unwrap();
        if !init_y.is_finite() {
            return (None, None);
        }
        return (Some(0.0), Some(init_y));
    }

    sum_x += comp_x;
    sum_y += comp_y;
    sum_xy += comp_xy;
    sum_x2 += comp_x2;

    let cov_xy = sum_xy - sum_x * sum_y / count;
    let var_x = sum_x2 - sum_x * sum_x / count;

    let slope = cov_xy / var_x;
    let intercept = sum_y / count - slope * sum_x / count;

    (Some(slope), Some(intercept))
}

#[cfg(test)]
mod test {
    use std::sync::Arc;

    use datafusion::physical_plan::ColumnarValue;
    use datatypes::arrow::array::Int64Array;
    use datatypes::arrow::datatypes::Int64Type;

    use super::*;
    use crate::range_array::RangeArray;

    #[test]
    fn calculate_linear_regression_none() {
        let ts_array = TimestampMillisecondArray::from_iter(
            [
                0i64, 300, 600, 900, 1200, 1500, 1800, 2100, 2400, 2700, 3000,
            ]
            .into_iter()
            .map(Some),
        );
        let values_array = Float64Array::from_iter([
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
            1.0 / 0.0,
        ]);
        let (slope, intercept) = linear_regression(&ts_array, &values_array, ts_array.value(0));
        assert_eq!(slope, None);
        assert_eq!(intercept, None);
    }

    #[test]
    fn calculate_linear_regression_value_is_const() {
        let ts_array = TimestampMillisecondArray::from_iter(
            [
                0i64, 300, 600, 900, 1200, 1500, 1800, 2100, 2400, 2700, 3000,
            ]
            .into_iter()
            .map(Some),
        );
        let values_array =
            Float64Array::from_iter([10.0, 10.0, 10.0, 10.0, 10.0, 10.0, 10.0, 10.0, 10.0, 10.0]);
        let (slope, intercept) = linear_regression(&ts_array, &values_array, ts_array.value(0));
        assert_eq!(slope, Some(0.0));
        assert_eq!(intercept, Some(10.0));
    }

    #[test]
    fn calculate_linear_regression() {
        let ts_array = TimestampMillisecondArray::from_iter(
            [
                0i64, 300, 600, 900, 1200, 1500, 1800, 2100, 2400, 2700, 3000,
            ]
            .into_iter()
            .map(Some),
        );
        let values_array = Float64Array::from_iter([
            0.0, 10.0, 20.0, 30.0, 40.0, 0.0, 10.0, 20.0, 30.0, 40.0, 50.0,
        ]);
        let (slope, intercept) = linear_regression(&ts_array, &values_array, ts_array.value(0));
        assert_eq!(slope, Some(10.606060606060607));
        assert_eq!(intercept, Some(6.818181818181815));

        let (slope, intercept) = linear_regression(&ts_array, &values_array, 3000);
        assert_eq!(slope, Some(10.606060606060607));
        assert_eq!(intercept, Some(38.63636363636364));
    }

    #[test]
    fn calculate_linear_regression_value_have_none() {
        let ts_array = TimestampMillisecondArray::from_iter(
            [
                0i64, 300, 600, 900, 1200, 1350, 1500, 1800, 2100, 2400, 2550, 2700, 3000,
            ]
            .into_iter()
            .map(Some),
        );
        let values_array: Float64Array = [
            Some(0.0),
            Some(10.0),
            Some(20.0),
            Some(30.0),
            Some(40.0),
            None,
            Some(0.0),
            Some(10.0),
            Some(20.0),
            Some(30.0),
            None,
            Some(40.0),
            Some(50.0),
        ]
        .into_iter()
        .collect();
        let (slope, intercept) = linear_regression(&ts_array, &values_array, ts_array.value(0));
        assert_eq!(slope, Some(10.606060606060607));
        assert_eq!(intercept, Some(6.818181818181815));
    }

    #[test]
    fn calculate_linear_regression_value_all_none() {
        let ts_array = TimestampMillisecondArray::from_iter([0i64, 300, 600].into_iter().map(Some));
        let values_array: Float64Array = [None, None, None].into_iter().collect();
        let (slope, intercept) = linear_regression(&ts_array, &values_array, ts_array.value(0));
        assert_eq!(slope, None);
        assert_eq!(intercept, None);
    }

    // From prometheus `promql/functions_test.go` case `TestKahanSum`
    #[test]
    fn test_kahan_sum() {
        let inputs = vec![1.0, 10.0f64.powf(100.0), 1.0, -10.0f64.powf(100.0)];

        let mut sum = 0.0;
        let mut c = 0f64;

        for v in inputs {
            (sum, c) = compensated_sum_inc(v, sum, c);
        }
        assert_eq!(sum + c, 2.0)
    }

    #[test]
    fn extract_range_array_rejects_external_dictionary_with_null_keys() {
        let keys = Int64Array::from_iter([Some(0), None]);
        let values = Arc::new(Float64Array::from_iter([1.0, 2.0]));
        let dict = DictionaryArray::<Int64Type>::try_new(keys, values).unwrap();

        let err = extract_range_array(&ColumnarValue::Array(Arc::new(dict))).unwrap_err();
        assert!(err.to_string().contains("Empty range is not expected"));
    }

    #[test]
    fn extract_range_array_accepts_internal_packed_ranges() {
        let values = Arc::new(Float64Array::from_iter([1.0, 2.0, 3.0]));
        let range_array = RangeArray::from_ranges(values, [(0, 2), (1, 2)]).unwrap();

        let extracted =
            extract_range_array(&ColumnarValue::Array(Arc::new(range_array.into_dict()))).unwrap();

        assert_eq!(extracted.get_offset_length(0), Some((0, 2)));
        assert_eq!(extracted.get_offset_length(1), Some((1, 2)));
    }
}
