nodedb-codec 0.6.2

// SPDX-License-Identifier: Apache-2.0

//! ALP-RD (Real Doubles) codec for true arbitrary f64 values.
//!
//! For full-precision doubles (scientific data, vector embeddings) where
//! ALP can't find a lossless decimal mapping, ALP-RD exploits the structure
//! of IEEE 754: the front bits (sign + exponent + high mantissa) are
//! predictable (few unique patterns), while the tail bits (low mantissa)
//! are noisy.
//!
//! Approach:
//! 1. Right-shift each f64's bits by `cut` positions (typically 44-52 bits),
//!    producing a "front" value with few unique values.
//! 2. Dictionary-encode the front values (usually <256 unique patterns).
//! 3. Store the tail bits raw (the bottom `cut` bits of each value).
//!
//! Compression: ~54 bits/f64 vs 64 raw (~15% reduction). Modest but
//! consistent and lossless.
//!
//! Wire format:
//! ```text
//! [4 bytes] value count (LE u32)
//! [1 byte]  cut position (number of tail bits, 0-63)
//! [2 bytes] dictionary size (LE u16)
//! [dict_size × 8 bytes] dictionary entries (LE u64 front values)
//! [count × 1-2 bytes] dictionary indices (u8 if dict ≤ 256, u16 otherwise)
//! [count × ceil(cut/8) bytes] tail bits (packed, little-endian)
//! ```

use std::mem::size_of;

use crate::bounds::{
    checked_add, checked_capacity, checked_mul, checked_range, decoded_len, encode_input_len,
    u32_to_usize,
};
use crate::error::CodecError;

use crate::CODEC_SAMPLE_SIZE;

// ---------------------------------------------------------------------------
// Public API
// ---------------------------------------------------------------------------

/// Encode f64 values using ALP-RD (front-bit dictionary + raw tail bits).
pub fn encode(values: &[f64]) -> Result<Vec<u8>, CodecError> {
    let decoded_bytes = checked_mul(values.len(), size_of::<f64>(), "ALP-RD input bytes")?;
    decoded_len(decoded_bytes, "ALP-RD input")?;
    let count = encode_input_len(values.len(), "ALP-RD value count")?;

    if values.is_empty() {
        let mut out = Vec::with_capacity(7);
        out.extend_from_slice(&0u32.to_le_bytes());
        out.push(0); // cut
        out.extend_from_slice(&0u16.to_le_bytes());
        return Ok(out);
    }

    // Find optimal cut position.
    let cut = find_best_cut(values);
    let bits: Vec<u64> = values.iter().map(|v| v.to_bits()).collect();

    // Split into front and tail.
    let front_mask: u64 = if cut == 64 { 0 } else { u64::MAX << cut };
    let tail_mask: u64 = if cut == 0 { 0 } else { (1u64 << cut) - 1 };
    let tail_bytes_per_value = (cut as usize).div_ceil(8);

    let fronts: Vec<u64> = bits.iter().map(|&b| (b & front_mask) >> cut).collect();

    // Build dictionary from unique front values.
    let mut dict: Vec<u64> = fronts.clone();
    dict.sort_unstable();
    dict.dedup();
    let dict_size = u16::try_from(dict.len()).map_err(|_| CodecError::ResourceLimit {
        resource: "ALP-RD dictionary entries".into(),
        requested: dict.len(),
        limit: u16::MAX as usize,
    })?;

    // Map front values to dictionary indices.
    // Safety: `dict` is built from `fronts` via sort+dedup, so every front value
    // is guaranteed to exist in the dictionary. binary_search cannot fail here.
    let indices: Vec<u16> = fronts
        .iter()
        .map(|f| {
            dict.binary_search(f)
                .map(|idx| idx as u16)
                .map_err(|_| CodecError::Corrupt {
                    detail: "ALP-RD front value missing from dictionary".into(),
                })
        })
        .collect::<Result<_, _>>()?;

    let use_u8_indices = dict.len() <= 256;

    // Build output.
    let dict_bytes = checked_mul(dict.len(), 8, "ALP-RD dictionary")?;
    let index_bytes = checked_mul(
        values.len(),
        if use_u8_indices { 1 } else { 2 },
        "ALP-RD indices",
    )?;
    let tail_bytes = checked_mul(values.len(), tail_bytes_per_value, "ALP-RD tails")?;
    let capacity = checked_add(
        checked_add(
            checked_add(7, dict_bytes, "ALP-RD output")?,
            index_bytes,
            "ALP-RD output",
        )?,
        tail_bytes,
        "ALP-RD output",
    )?;
    let mut out = Vec::with_capacity(capacity);

    // Header.
    out.extend_from_slice(&count.to_le_bytes());
    out.push(cut);
    out.extend_from_slice(&dict_size.to_le_bytes());

    // Dictionary.
    for &entry in &dict {
        out.extend_from_slice(&entry.to_le_bytes());
    }

    // Indices.
    if use_u8_indices {
        for &idx in &indices {
            out.push(idx as u8);
        }
    } else {
        for &idx in &indices {
            out.extend_from_slice(&idx.to_le_bytes());
        }
    }

    // Tail bits (packed little-endian, tail_bytes_per_value bytes each).
    for &b in &bits {
        let tail = b & tail_mask;
        for byte_idx in 0..tail_bytes_per_value {
            out.push((tail >> (byte_idx * 8)) as u8);
        }
    }

    Ok(out)
}

/// Decode ALP-RD compressed data back to f64 values.
pub fn decode(data: &[u8]) -> Result<Vec<f64>, CodecError> {
    if data.len() < 7 {
        return Err(CodecError::Truncated {
            expected: 7,
            actual: data.len(),
        });
    }

    let count = u32_to_usize(
        u32::from_le_bytes([data[0], data[1], data[2], data[3]]),
        "ALP-RD value count",
    )?;
    decoded_len(
        checked_mul(count, size_of::<f64>(), "ALP-RD decoded values")?,
        "ALP-RD",
    )?;
    let cut = data[4];
    let dict_size = usize::from(u16::from_le_bytes([data[5], data[6]]));

    if count == 0 {
        if dict_size != 0 || data.len() != 7 {
            return Err(CodecError::Corrupt {
                detail: "non-canonical empty ALP-RD frame".into(),
            });
        }
        return Ok(Vec::new());
    }

    if cut > 63 {
        return Err(CodecError::Corrupt {
            detail: format!("invalid ALP-RD cut position: {cut}"),
        });
    }

    let tail_bytes_per_value = (cut as usize).div_ceil(8);
    let tail_mask: u64 = if cut == 0 { 0 } else { (1u64 << cut) - 1 };
    if dict_size == 0 || dict_size > count {
        return Err(CodecError::Corrupt {
            detail: "ALP-RD dictionary count is invalid".into(),
        });
    }
    let use_u8_indices = dict_size <= 256;

    // Read dictionary.
    let mut pos = 7;
    let dict_bytes = checked_mul(dict_size, 8, "ALP-RD dictionary")?;
    checked_range(data, pos, dict_bytes, "ALP-RD dictionary")?;
    let dict_capacity = checked_capacity(dict_size, size_of::<u64>(), "ALP-RD dictionary")?;
    let mut dict = Vec::with_capacity(dict_capacity);
    let mut previous = None;
    for _ in 0..dict_size {
        let entry = u64::from_le_bytes([
            data[pos],
            data[pos + 1],
            data[pos + 2],
            data[pos + 3],
            data[pos + 4],
            data[pos + 5],
            data[pos + 6],
            data[pos + 7],
        ]);
        if entry > (u64::MAX >> cut) || previous.is_some_and(|value| entry <= value) {
            return Err(CodecError::Corrupt {
                detail: "ALP-RD dictionary is non-canonical".into(),
            });
        }
        previous = Some(entry);
        dict.push(entry);
        pos = checked_add(pos, 8, "ALP-RD dictionary cursor")?;
    }

    // Read indices.
    let index_bytes = checked_mul(count, if use_u8_indices { 1 } else { 2 }, "ALP-RD indices")?;
    checked_range(data, pos, index_bytes, "ALP-RD indices")?;
    let index_capacity = checked_capacity(count, size_of::<usize>(), "ALP-RD indices")?;
    let mut indices = Vec::with_capacity(index_capacity);
    if use_u8_indices {
        for i in 0..count {
            indices.push(data[pos + i] as usize);
        }
        pos = checked_add(pos, count, "ALP-RD index cursor")?;
    } else {
        for i in 0..count {
            let idx_pos = checked_add(
                pos,
                checked_mul(i, 2, "ALP-RD index offset")?,
                "ALP-RD index position",
            )?;
            indices.push(u16::from_le_bytes([data[idx_pos], data[idx_pos + 1]]) as usize);
        }
        pos = checked_add(pos, index_bytes, "ALP-RD index cursor")?;
    }

    // Read tail bits.
    let tail_total = checked_mul(count, tail_bytes_per_value, "ALP-RD tails")?;
    let tails = checked_range(data, pos, tail_total, "ALP-RD tails")?;
    if checked_add(pos, tail_total, "ALP-RD frame end")? != data.len() {
        return Err(CodecError::Corrupt {
            detail: "trailing bytes after ALP-RD frame".into(),
        });
    }

    let value_capacity = checked_capacity(count, size_of::<f64>(), "ALP-RD values")?;
    let mut values = Vec::with_capacity(value_capacity);
    for (i, &idx) in indices.iter().enumerate() {
        if idx >= dict.len() {
            return Err(CodecError::Corrupt {
                detail: format!("ALP-RD dict index {idx} out of range (max {})", dict.len()),
            });
        }

        let front = dict[idx] << cut;
        let mut tail = 0u64;
        let tail_pos = checked_mul(i, tail_bytes_per_value, "ALP-RD tail offset")?;
        for byte_idx in 0..tail_bytes_per_value {
            tail |= (tails[tail_pos + byte_idx] as u64) << (byte_idx * 8);
        }
        let final_bits = usize::from(cut) % 8;
        if final_bits != 0 {
            let last = tails[tail_pos + tail_bytes_per_value - 1];
            let padding_mask = !((1u8 << final_bits) - 1);
            if last & padding_mask != 0 {
                return Err(CodecError::Corrupt {
                    detail: "non-zero ALP-RD tail padding".into(),
                });
            }
        }
        tail &= tail_mask;

        values.push(f64::from_bits(front | tail));
    }

    Ok(values)
}

// ---------------------------------------------------------------------------
// Cut position selection
// ---------------------------------------------------------------------------

/// Find the optimal cut position that minimizes the dictionary size.
///
/// Tries cut positions from 44 to 56 bits (typical for f64) and picks
/// the one that produces the fewest unique front values.
fn find_best_cut(values: &[f64]) -> u8 {
    let sample_end = values.len().min(CODEC_SAMPLE_SIZE);
    let sample = &values[..sample_end];
    let bits: Vec<u64> = sample.iter().map(|v| v.to_bits()).collect();

    let mut best_cut = 48u8;
    let mut best_unique = usize::MAX;

    // Try cut positions from 40 to 56 (covering typical f64 patterns).
    for cut in 40..=56 {
        let mut fronts: Vec<u64> = bits.iter().map(|&b| b >> cut).collect();
        fronts.sort_unstable();
        fronts.dedup();

        if fronts.len() < best_unique {
            best_unique = fronts.len();
            best_cut = cut;
        }
    }

    best_cut
}

#[cfg(test)]
mod tests {
    use super::*;

    #[test]
    fn empty_roundtrip() {
        let encoded = encode(&[]).unwrap();
        let decoded = decode(&encoded).unwrap();
        assert!(decoded.is_empty());
    }

    #[test]
    fn pi_multiples() {
        let values: Vec<f64> = (1..1000).map(|i| std::f64::consts::PI * i as f64).collect();
        let encoded = encode(&values).unwrap();
        let decoded = decode(&encoded).unwrap();
        for (i, (a, b)) in values.iter().zip(decoded.iter()).enumerate() {
            assert_eq!(a.to_bits(), b.to_bits(), "mismatch at {i}");
        }
    }

    #[test]
    fn scientific_data() {
        let values: Vec<f64> = (0..1000).map(|i| (i as f64 * 0.001).exp()).collect();
        let encoded = encode(&values).unwrap();
        let decoded = decode(&encoded).unwrap();
        for (i, (a, b)) in values.iter().zip(decoded.iter()).enumerate() {
            assert_eq!(a.to_bits(), b.to_bits(), "mismatch at {i}");
        }
    }

    #[test]
    fn compression_ratio() {
        let values: Vec<f64> = (1..10_000)
            .map(|i| std::f64::consts::E * i as f64 + (i as f64).sqrt())
            .collect();
        let encoded = encode(&values).unwrap();
        let raw_size = values.len() * 8;
        let ratio = raw_size as f64 / encoded.len() as f64;
        // ALP-RD saves depend on front-bit dictionary size.
        // For data with many unique exponents, savings may be minimal.
        // The key test is lossless roundtrip, not compression ratio.
        assert!(
            ratio >= 0.95,
            "ALP-RD should not expand >5%, got {ratio:.2}x"
        );

        let decoded = decode(&encoded).unwrap();
        for (a, b) in values.iter().zip(decoded.iter()) {
            assert_eq!(a.to_bits(), b.to_bits());
        }
    }

    #[test]
    fn special_values() {
        let values = vec![
            0.0,
            -0.0,
            f64::INFINITY,
            f64::NEG_INFINITY,
            f64::NAN,
            f64::MIN,
            f64::MAX,
            f64::MIN_POSITIVE,
        ];
        let encoded = encode(&values).unwrap();
        let decoded = decode(&encoded).unwrap();
        for (i, (a, b)) in values.iter().zip(decoded.iter()).enumerate() {
            assert_eq!(a.to_bits(), b.to_bits(), "mismatch at {i}");
        }
    }

    #[test]
    fn identical_values() {
        let values = vec![42.0f64; 1000];
        let encoded = encode(&values).unwrap();
        let decoded = decode(&encoded).unwrap();
        for (a, b) in values.iter().zip(decoded.iter()) {
            assert_eq!(a.to_bits(), b.to_bits());
        }
        // Dictionary has 1 entry — should be smaller than raw.
        assert!(encoded.len() < values.len() * 8);
    }

    #[test]
    fn rejects_invalid_layout_and_trailing_bytes() {
        assert!(decode(&[]).is_err());
        assert!(decode(&[1, 0, 0, 0, 48, 0]).is_err());
        let mut encoded = encode(&[1.25]).unwrap();
        encoded.push(0);
        assert!(matches!(decode(&encoded), Err(CodecError::Corrupt { .. })));
        let mut invalid_index = encode(&[1.25]).unwrap();
        let dict_size = usize::from(u16::from_le_bytes([invalid_index[5], invalid_index[6]]));
        let index_start = 7 + dict_size * 8;
        invalid_index[index_start] = u8::MAX;
        assert!(matches!(
            decode(&invalid_index),
            Err(CodecError::Corrupt { .. })
        ));

        let mut padded_tail = Vec::new();
        padded_tail.extend_from_slice(&1u32.to_le_bytes());
        padded_tail.push(1);
        padded_tail.extend_from_slice(&1u16.to_le_bytes());
        padded_tail.extend_from_slice(&0u64.to_le_bytes());
        padded_tail.push(0);
        padded_tail.push(0x80);
        assert!(matches!(
            decode(&padded_tail),
            Err(CodecError::Corrupt { .. })
        ));

        let mut wide_front = padded_tail;
        wide_front[7..15].copy_from_slice(&u64::MAX.to_le_bytes());
        wide_front[16] = 0;
        assert!(matches!(
            decode(&wide_front),
            Err(CodecError::Corrupt { .. })
        ));
    }
}