citadeldb-sync 0.6.0

use crate::hlc::HlcTimestamp;
use crate::node_id::NodeId;

/// Per-entry CRDT metadata for LWW (Last-Writer-Wins) conflict resolution.
///
/// 20 bytes on wire: entry_kind (1B) + padding (3B) + HLC timestamp (12B) + NodeId (8B).
///
/// Conflict resolution: higher timestamp wins, NodeId tiebreaker.
/// This forms a join-semilattice with a total order, guaranteeing:
/// - Commutativity: merge(a, b) == merge(b, a)
/// - Associativity: merge(merge(a, b), c) == merge(a, merge(b, c))
/// - Idempotency: merge(a, a) == a
#[derive(Clone, Copy, PartialEq, Eq, Hash)]
pub struct CrdtMeta {
    pub timestamp: HlcTimestamp,
    pub node_id: NodeId,
}

/// Wire size of CrdtMeta: HLC (12B) + NodeId (8B) = 20 bytes.
pub const CRDT_META_SIZE: usize = 20;

/// Wire size of a full CRDT-encoded value header: kind (1B) + padding (3B) + meta (20B) = 24 bytes.
pub const CRDT_HEADER_SIZE: usize = 24;

/// Type of CRDT entry.
#[derive(Debug, Clone, Copy, PartialEq, Eq, Hash)]
#[repr(u8)]
pub enum EntryKind {
    /// Key-value write (user value follows the header).
    Put = 0,
    /// Logical delete (tombstone). No user value follows.
    Tombstone = 1,
}

impl EntryKind {
    pub fn from_u8(v: u8) -> Option<Self> {
        match v {
            0 => Some(Self::Put),
            1 => Some(Self::Tombstone),
            _ => None,
        }
    }
}

impl CrdtMeta {
    #[inline]
    pub fn new(timestamp: HlcTimestamp, node_id: NodeId) -> Self {
        Self { timestamp, node_id }
    }

    pub fn to_bytes(&self) -> [u8; CRDT_META_SIZE] {
        let mut buf = [0u8; CRDT_META_SIZE];
        let ts_bytes = self.timestamp.to_bytes();
        let nid_bytes = self.node_id.to_bytes();
        buf[0..12].copy_from_slice(&ts_bytes);
        buf[12..20].copy_from_slice(&nid_bytes);
        buf
    }

    pub fn from_bytes(b: &[u8; CRDT_META_SIZE]) -> Self {
        let ts = HlcTimestamp::from_bytes(b[0..12].try_into().unwrap());
        let nid = NodeId::from_bytes(b[12..20].try_into().unwrap());
        Self {
            timestamp: ts,
            node_id: nid,
        }
    }

    /// Higher timestamp wins, NodeId tiebreaker.
    #[inline]
    pub fn lww_cmp(&self, other: &Self) -> std::cmp::Ordering {
        self.timestamp
            .cmp(&other.timestamp)
            .then(self.node_id.cmp(&other.node_id))
    }

    #[inline]
    pub fn wins_over(&self, other: &Self) -> bool {
        self.lww_cmp(other) == std::cmp::Ordering::Greater
    }
}

impl std::fmt::Debug for CrdtMeta {
    fn fmt(&self, f: &mut std::fmt::Formatter<'_>) -> std::fmt::Result {
        write!(f, "CrdtMeta({:?}, {:?})", self.timestamp, self.node_id)
    }
}

/// Encode a user value with CRDT header.
///
/// Format: `[entry_kind: u8][_pad: 3B][HLC: 12B][NodeId: 8B][user_value...]`
///
/// Total header: 24 bytes. User value follows immediately after.
pub fn encode_lww_value(meta: &CrdtMeta, kind: EntryKind, user_value: &[u8]) -> Vec<u8> {
    let user_len = if kind == EntryKind::Tombstone {
        0
    } else {
        user_value.len()
    };
    let mut buf = Vec::with_capacity(CRDT_HEADER_SIZE + user_len);
    buf.push(kind as u8);
    buf.extend_from_slice(&[0u8; 3]); // padding
    buf.extend_from_slice(&meta.to_bytes());
    if kind == EntryKind::Put {
        buf.extend_from_slice(user_value);
    }
    buf
}

#[derive(Debug)]
pub struct DecodedValue<'a> {
    pub meta: CrdtMeta,
    pub kind: EntryKind,
    pub user_value: &'a [u8],
}

pub fn decode_lww_value(data: &[u8]) -> Result<DecodedValue<'_>, DecodeError> {
    if data.len() < CRDT_HEADER_SIZE {
        return Err(DecodeError::TooShort {
            expected: CRDT_HEADER_SIZE,
            actual: data.len(),
        });
    }

    let kind = EntryKind::from_u8(data[0]).ok_or(DecodeError::InvalidEntryKind(data[0]))?;
    // bytes 1..4 are padding (ignored on read)
    let meta_bytes: &[u8; CRDT_META_SIZE] = data[4..24].try_into().unwrap();
    let meta = CrdtMeta::from_bytes(meta_bytes);

    let user_value = if kind == EntryKind::Tombstone {
        &data[CRDT_HEADER_SIZE..CRDT_HEADER_SIZE] // empty slice
    } else {
        &data[CRDT_HEADER_SIZE..]
    };

    Ok(DecodedValue {
        meta,
        kind,
        user_value,
    })
}

#[derive(Debug, thiserror::Error)]
pub enum DecodeError {
    #[error("CRDT value too short: expected at least {expected} bytes, got {actual}")]
    TooShort { expected: usize, actual: usize },

    #[error("invalid CRDT entry kind: {0}")]
    InvalidEntryKind(u8),
}

/// Merge two CRDT entries for the same key.
///
/// Returns which side wins using LWW resolution:
/// higher timestamp wins, NodeId tiebreaker.
/// The entry kind (Put vs Tombstone) does NOT affect the merge -
/// a tombstone with a higher timestamp defeats a put with a lower one.
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
pub enum MergeResult {
    /// Keep the local entry.
    Local,
    /// Take the remote entry.
    Remote,
    /// Both entries are identical.
    Equal,
}

pub fn lww_merge(local: &CrdtMeta, remote: &CrdtMeta) -> MergeResult {
    match local.lww_cmp(remote) {
        std::cmp::Ordering::Greater => MergeResult::Local,
        std::cmp::Ordering::Less => MergeResult::Remote,
        std::cmp::Ordering::Equal => MergeResult::Equal,
    }
}

#[cfg(test)]
mod tests {
    use super::*;
    use crate::hlc::HlcTimestamp;
    use crate::node_id::NodeId;

    const SECOND: i64 = 1_000_000_000;

    fn meta(wall_ns: i64, logical: i32, node: u64) -> CrdtMeta {
        CrdtMeta::new(HlcTimestamp::new(wall_ns, logical), NodeId::from_u64(node))
    }

    // ── CrdtMeta basics ──────────────────────────────────────────────

    #[test]
    fn meta_new_and_accessors() {
        let ts = HlcTimestamp::new(1000 * SECOND, 5);
        let nid = NodeId::from_u64(42);
        let m = CrdtMeta::new(ts, nid);
        assert_eq!(m.timestamp, ts);
        assert_eq!(m.node_id, nid);
    }

    #[test]
    fn meta_bytes_roundtrip() {
        let m = meta(1000 * SECOND, 42, 0xDEADBEEF);
        let bytes = m.to_bytes();
        assert_eq!(bytes.len(), CRDT_META_SIZE);
        let m2 = CrdtMeta::from_bytes(&bytes);
        assert_eq!(m, m2);
    }

    #[test]
    fn meta_bytes_roundtrip_zero() {
        let m = meta(0, 0, 0);
        let bytes = m.to_bytes();
        let m2 = CrdtMeta::from_bytes(&bytes);
        assert_eq!(m, m2);
    }

    #[test]
    fn meta_bytes_roundtrip_max() {
        let m = meta(i64::MAX, i32::MAX, u64::MAX);
        let bytes = m.to_bytes();
        let m2 = CrdtMeta::from_bytes(&bytes);
        assert_eq!(m, m2);
    }

    #[test]
    fn meta_debug_format() {
        let m = meta(1_000_000_000, 5, 255);
        let s = format!("{m:?}");
        assert!(s.contains("CrdtMeta"));
        assert!(s.contains("HLC"));
        assert!(s.contains("NodeId"));
    }

    // ── LWW comparison ───────────────────────────────────────────────

    #[test]
    fn lww_higher_timestamp_wins() {
        let a = meta(1000 * SECOND, 0, 1);
        let b = meta(1001 * SECOND, 0, 1);
        assert!(b.wins_over(&a));
        assert!(!a.wins_over(&b));
    }

    #[test]
    fn lww_higher_logical_wins() {
        let a = meta(1000 * SECOND, 5, 1);
        let b = meta(1000 * SECOND, 6, 1);
        assert!(b.wins_over(&a));
        assert!(!a.wins_over(&b));
    }

    #[test]
    fn lww_node_id_tiebreaker() {
        let a = meta(1000 * SECOND, 5, 100);
        let b = meta(1000 * SECOND, 5, 200);
        assert!(b.wins_over(&a));
        assert!(!a.wins_over(&b));
    }

    #[test]
    fn lww_equal_entries() {
        let a = meta(1000 * SECOND, 5, 100);
        let b = meta(1000 * SECOND, 5, 100);
        assert!(!a.wins_over(&b));
        assert!(!b.wins_over(&a));
        assert_eq!(a.lww_cmp(&b), std::cmp::Ordering::Equal);
    }

    #[test]
    fn lww_timestamp_dominates_node_id() {
        // Even with lower node_id, higher timestamp wins
        let a = meta(1001 * SECOND, 0, 1);
        let b = meta(1000 * SECOND, 0, u64::MAX);
        assert!(a.wins_over(&b));
    }

    // ── LWW merge function ───────────────────────────────────────────

    #[test]
    fn merge_local_wins() {
        let local = meta(1001 * SECOND, 0, 1);
        let remote = meta(1000 * SECOND, 0, 1);
        assert_eq!(lww_merge(&local, &remote), MergeResult::Local);
    }

    #[test]
    fn merge_remote_wins() {
        let local = meta(1000 * SECOND, 0, 1);
        let remote = meta(1001 * SECOND, 0, 1);
        assert_eq!(lww_merge(&local, &remote), MergeResult::Remote);
    }

    #[test]
    fn merge_equal() {
        let local = meta(1000 * SECOND, 5, 100);
        let remote = meta(1000 * SECOND, 5, 100);
        assert_eq!(lww_merge(&local, &remote), MergeResult::Equal);
    }

    // ── CRDT properties ──────────────────────────────────────────────

    #[test]
    fn merge_commutativity() {
        let entries = [
            meta(1000 * SECOND, 0, 1),
            meta(1000 * SECOND, 0, 2),
            meta(1001 * SECOND, 0, 1),
            meta(1000 * SECOND, 1, 1),
        ];

        for a in &entries {
            for b in &entries {
                let ab = lww_merge(a, b);
                let ba = lww_merge(b, a);
                // Commutativity: merge(a,b) mirror equals merge(b,a)
                match (ab, ba) {
                    (MergeResult::Local, MergeResult::Remote) => {}
                    (MergeResult::Remote, MergeResult::Local) => {}
                    (MergeResult::Equal, MergeResult::Equal) => {}
                    _ => panic!("commutativity violated for {a:?} vs {b:?}: {ab:?} vs {ba:?}"),
                }
            }
        }
    }

    #[test]
    fn merge_associativity() {
        // For three entries, the winner should be the same regardless of merge order.
        let a = meta(1000 * SECOND, 0, 1);
        let b = meta(1001 * SECOND, 5, 2);
        let c = meta(1001 * SECOND, 5, 3);

        // Winner is c (same timestamp as b, higher node_id)
        // merge(merge(a, b), c) should pick the same winner as merge(a, merge(b, c))

        fn winner(local: &CrdtMeta, remote: &CrdtMeta) -> CrdtMeta {
            match lww_merge(local, remote) {
                MergeResult::Local | MergeResult::Equal => *local,
                MergeResult::Remote => *remote,
            }
        }

        let ab = winner(&a, &b);
        let ab_c = winner(&ab, &c);

        let bc = winner(&b, &c);
        let a_bc = winner(&a, &bc);

        assert_eq!(ab_c, a_bc, "associativity violated");
    }

    #[test]
    fn merge_idempotency() {
        let a = meta(1000 * SECOND, 5, 42);
        assert_eq!(lww_merge(&a, &a), MergeResult::Equal);
    }

    // ── EntryKind ────────────────────────────────────────────────────

    #[test]
    fn entry_kind_roundtrip() {
        assert_eq!(EntryKind::from_u8(0), Some(EntryKind::Put));
        assert_eq!(EntryKind::from_u8(1), Some(EntryKind::Tombstone));
        assert_eq!(EntryKind::from_u8(2), None);
        assert_eq!(EntryKind::from_u8(255), None);
    }

    // ── Value encoding ───────────────────────────────────────────────

    #[test]
    fn encode_decode_put_roundtrip() {
        let m = meta(1000 * SECOND, 5, 42);
        let user_val = b"hello world";
        let encoded = encode_lww_value(&m, EntryKind::Put, user_val);

        assert_eq!(encoded.len(), CRDT_HEADER_SIZE + user_val.len());

        let decoded = decode_lww_value(&encoded).unwrap();
        assert_eq!(decoded.meta, m);
        assert_eq!(decoded.kind, EntryKind::Put);
        assert_eq!(decoded.user_value, user_val);
    }

    #[test]
    fn encode_decode_tombstone_roundtrip() {
        let m = meta(1000 * SECOND, 5, 42);
        let encoded = encode_lww_value(&m, EntryKind::Tombstone, b"");

        assert_eq!(encoded.len(), CRDT_HEADER_SIZE);

        let decoded = decode_lww_value(&encoded).unwrap();
        assert_eq!(decoded.meta, m);
        assert_eq!(decoded.kind, EntryKind::Tombstone);
        assert_eq!(decoded.user_value.len(), 0);
    }

    #[test]
    fn encode_tombstone_ignores_user_value() {
        let m = meta(1000 * SECOND, 5, 42);
        // Even if user_value is non-empty, tombstone encoding ignores it
        let encoded = encode_lww_value(&m, EntryKind::Tombstone, b"should be ignored");
        assert_eq!(encoded.len(), CRDT_HEADER_SIZE);
    }

    #[test]
    fn encode_decode_empty_value() {
        let m = meta(1000 * SECOND, 0, 1);
        let encoded = encode_lww_value(&m, EntryKind::Put, b"");

        assert_eq!(encoded.len(), CRDT_HEADER_SIZE);

        let decoded = decode_lww_value(&encoded).unwrap();
        assert_eq!(decoded.kind, EntryKind::Put);
        assert_eq!(decoded.user_value.len(), 0);
    }

    #[test]
    fn encode_decode_large_value() {
        let m = meta(1000 * SECOND, 0, 1);
        let user_val = vec![0xAB; 4096];
        let encoded = encode_lww_value(&m, EntryKind::Put, &user_val);

        assert_eq!(encoded.len(), CRDT_HEADER_SIZE + 4096);

        let decoded = decode_lww_value(&encoded).unwrap();
        assert_eq!(decoded.user_value, &user_val[..]);
    }

    #[test]
    fn decode_too_short() {
        let err = decode_lww_value(&[0u8; 10]).unwrap_err();
        assert!(matches!(err, DecodeError::TooShort { .. }));
    }

    #[test]
    fn decode_invalid_entry_kind() {
        let mut data = [0u8; CRDT_HEADER_SIZE];
        data[0] = 255; // invalid
        let err = decode_lww_value(&data).unwrap_err();
        assert!(matches!(err, DecodeError::InvalidEntryKind(255)));
    }

    #[test]
    fn header_size_constant() {
        assert_eq!(CRDT_HEADER_SIZE, 24);
        assert_eq!(CRDT_META_SIZE, 20);
        // 1 (kind) + 3 (pad) + 12 (HLC) + 8 (NodeId) = 24
        assert_eq!(1 + 3 + 12 + 8, CRDT_HEADER_SIZE);
    }

    // ── Encoding preserves metadata across merge ─────────────────────

    #[test]
    fn merge_encoded_values() {
        let local_meta = meta(1000 * SECOND, 0, 1);
        let remote_meta = meta(1001 * SECOND, 0, 2);

        let local_encoded = encode_lww_value(&local_meta, EntryKind::Put, b"local");
        let remote_encoded = encode_lww_value(&remote_meta, EntryKind::Put, b"remote");

        let local_decoded = decode_lww_value(&local_encoded).unwrap();
        let remote_decoded = decode_lww_value(&remote_encoded).unwrap();

        let result = lww_merge(&local_decoded.meta, &remote_decoded.meta);
        assert_eq!(result, MergeResult::Remote);
    }

    #[test]
    fn tombstone_wins_over_put_with_lower_timestamp() {
        let put_meta = meta(1000 * SECOND, 0, 1);
        let del_meta = meta(1001 * SECOND, 0, 1);

        let put_encoded = encode_lww_value(&put_meta, EntryKind::Put, b"value");
        let del_encoded = encode_lww_value(&del_meta, EntryKind::Tombstone, b"");

        let put_decoded = decode_lww_value(&put_encoded).unwrap();
        let del_decoded = decode_lww_value(&del_encoded).unwrap();

        // Tombstone has higher timestamp - it wins
        let result = lww_merge(&put_decoded.meta, &del_decoded.meta);
        assert_eq!(result, MergeResult::Remote);
        assert_eq!(del_decoded.kind, EntryKind::Tombstone);
    }

    #[test]
    fn put_wins_over_tombstone_with_lower_timestamp() {
        let del_meta = meta(1000 * SECOND, 0, 1);
        let put_meta = meta(1001 * SECOND, 0, 1);

        let del_encoded = encode_lww_value(&del_meta, EntryKind::Tombstone, b"");
        let put_encoded = encode_lww_value(&put_meta, EntryKind::Put, b"value");

        let del_decoded = decode_lww_value(&del_encoded).unwrap();
        let put_decoded = decode_lww_value(&put_encoded).unwrap();

        // Put has higher timestamp - it wins over the tombstone
        let result = lww_merge(&del_decoded.meta, &put_decoded.meta);
        assert_eq!(result, MergeResult::Remote);
        assert_eq!(put_decoded.kind, EntryKind::Put);
    }

    // ── Binary format verification ───────────────────────────────────

    #[test]
    fn encoded_format_put() {
        let m = CrdtMeta::new(
            HlcTimestamp::new(0x0102_0304_0506_0708, 0x090A0B0C),
            NodeId::from_u64(0x1112_1314_1516_1718),
        );
        let encoded = encode_lww_value(&m, EntryKind::Put, b"\xAA\xBB");

        // kind=0, pad=[0,0,0], HLC=8B+4B, NodeId=8B, value=2B
        assert_eq!(encoded[0], 0x00); // Put
        assert_eq!(&encoded[1..4], &[0, 0, 0]); // padding
                                                // HLC wall_time big-endian
        assert_eq!(
            &encoded[4..12],
            &[0x01, 0x02, 0x03, 0x04, 0x05, 0x06, 0x07, 0x08]
        );
        // HLC logical big-endian
        assert_eq!(&encoded[12..16], &[0x09, 0x0A, 0x0B, 0x0C]);
        // NodeId big-endian
        assert_eq!(
            &encoded[16..24],
            &[0x11, 0x12, 0x13, 0x14, 0x15, 0x16, 0x17, 0x18]
        );
        // User value
        assert_eq!(&encoded[24..26], &[0xAA, 0xBB]);
    }

    #[test]
    fn encoded_format_tombstone() {
        let m = meta(1000 * SECOND, 0, 1);
        let encoded = encode_lww_value(&m, EntryKind::Tombstone, b"");
        assert_eq!(encoded[0], 0x01); // Tombstone
        assert_eq!(encoded.len(), CRDT_HEADER_SIZE);
    }

    // ── Stress: many merges ──────────────────────────────────────────

    #[test]
    fn merge_many_entries_finds_latest() {
        let entries: Vec<CrdtMeta> = (0..100)
            .map(|i| meta(1000 * SECOND + i as i64, 0, i as u64))
            .collect();

        let mut winner = entries[0];
        for e in &entries[1..] {
            if lww_merge(&winner, e) == MergeResult::Remote {
                winner = *e;
            }
        }

        // Last entry should win (highest timestamp and node_id)
        assert_eq!(winner.timestamp.wall_time(), 1000 * SECOND + 99);
        assert_eq!(winner.node_id.as_u64(), 99);
    }

    #[test]
    fn merge_reverse_order_same_result() {
        let entries: Vec<CrdtMeta> = (0..100)
            .map(|i| meta(1000 * SECOND + i as i64, 0, i as u64))
            .collect();

        // Forward merge
        let mut fwd_winner = entries[0];
        for e in &entries[1..] {
            if lww_merge(&fwd_winner, e) == MergeResult::Remote {
                fwd_winner = *e;
            }
        }

        // Reverse merge
        let mut rev_winner = entries[99];
        for e in entries[..99].iter().rev() {
            if lww_merge(&rev_winner, e) == MergeResult::Remote {
                rev_winner = *e;
            }
        }

        assert_eq!(fwd_winner, rev_winner);
    }

    #[test]
    fn merge_shuffled_order_same_result() {
        use std::collections::BTreeSet;

        // Create entries with different timestamps
        let entries: Vec<CrdtMeta> = (0..50)
            .map(|i| meta(1000 * SECOND + (i * 7 % 50) as i64, 0, i as u64))
            .collect();

        // Find absolute winner (max by lww_cmp)
        let expected = entries.iter().max_by(|a, b| a.lww_cmp(b)).unwrap();

        // Merge in original order
        let mut winner = entries[0];
        for e in &entries[1..] {
            if lww_merge(&winner, e) == MergeResult::Remote {
                winner = *e;
            }
        }

        assert_eq!(winner, *expected);

        // Merge in BTreeSet-sorted order (different from insertion order)
        let sorted: BTreeSet<u64> = entries
            .iter()
            .map(|e| e.timestamp.wall_time() as u64)
            .collect();
        assert!(sorted.len() <= entries.len()); // some might collide, that's fine
    }
}