reddb_engine/storage/btree/

impl.rs

use super::*;
use crate::storage::overflow::OverflowChain;

impl<P: PageStore> BTree<P> {
    /// If `stored` is a pointer cell (slice E layout), walk the overflow
    /// chain anchored at it and return every page to the free list.
    /// No-op for inline cells (raw or compressed) and for empty cells.
    ///
    /// Used by the B-tree paths that drop or overwrite a pointer cell —
    /// `delete` and the shrinking branches of `upsert` /
    /// `upsert_batch_sorted` (slice F of PRD #662). At the B-tree layer
    /// this is synchronous: a higher transactional layer that needs
    /// MVCC-aware reclamation must defer freeing through its own
    /// snapshot machinery rather than calling these primitives during a
    /// rollback-capable window.
    fn free_chain_if_pointer(&self, stored: &[u8]) -> BTreeResult<()> {
        if let Some(head) = value_layout::pointer_head(stored) {
            OverflowChain::new(self.pager.as_ref())
                .free(head)
                .map_err(value_layout::ValueLayoutError::from)?;
        }
        Ok(())
    }
    /// Create a new B+ tree using the given pager
    pub fn new(pager: Arc<P>) -> Self {
        Self {
            retirement_pin: Arc::new(()),
            pager,
            root_page_id: RwLock::new(0),
            rightmost_leaf: RwLock::new(None),
            writer: parking_lot::ReentrantMutex::new(()),
        }
    }

    /// Create a B+ tree with an existing root
    pub fn with_root(pager: Arc<P>, root_page_id: u32) -> Self {
        Self {
            retirement_pin: Arc::new(()),
            pager,
            root_page_id: RwLock::new(root_page_id),
            rightmost_leaf: RwLock::new(None),
            writer: parking_lot::ReentrantMutex::new(()),
        }
    }

    /// Get the root page ID
    pub fn root_page_id(&self) -> u32 {
        *self
            .root_page_id
            .read()
            .unwrap_or_else(|poisoned| poisoned.into_inner())
    }

    /// Check if tree is empty
    pub fn is_empty(&self) -> bool {
        self.root_page_id() == 0
    }

    /// Get value for a key
    pub fn get(&self, key: &[u8]) -> BTreeResult<Option<Vec<u8>>> {
        self.get_with_budget(key, usize::MAX)
    }

    /// Bound value materialization before allocating overflow or decode buffers.
    pub fn get_with_budget(&self, key: &[u8], limit_bytes: usize) -> BTreeResult<Option<Vec<u8>>> {
        let root_id = self.root_page_id();
        if root_id == 0 {
            return Ok(None);
        }

        // Descend from root to the target leaf
        let (leaf_id, _) = self.find_leaf(root_id, key)?;

        // D3 — Lehman-Yao right-link traversal.
        //
        // A concurrent insert may have split the leaf between our descent
        // and this read. If the key we're searching for is greater than the
        // current page's high_key (max stored key), the key lives on a
        // right-sibling page — follow the right-link instead of re-descending
        // from the root. Cap at MAX_RIGHTLINK_HOPS to guard against corrupt
        // link chains.
        const MAX_RIGHTLINK_HOPS: usize = 32;
        let mut current_id = leaf_id;
        for _ in 0..MAX_RIGHTLINK_HOPS {
            let page = self.pager.read_page(current_id)?;

            match search_leaf(&page, key)? {
                SearchResult::Found(pos) => {
                    let (_, stored) = read_leaf_cell(&page, pos)?;
                    let value = value_layout::decode_with_budget(
                        self.pager.as_ref(),
                        &stored,
                        limit_bytes,
                    )?;
                    return Ok(Some(value));
                }
                SearchResult::NotFound(_) => {
                    // Check if a split pushed our key to the right sibling
                    let right = leaf_right_sibling(&page);
                    if right != 0 {
                        if let Some(high_key) = leaf_high_key(&page)? {
                            if key > high_key.as_slice() {
                                // Key belongs on a right sibling — follow link
                                current_id = right;
                                continue;
                            }
                        }
                    }
                    // Key genuinely not present
                    return Ok(None);
                }
            }
        }

        // Exhausted hop limit — fall back to root descent (corrupt link chain)
        let (leaf_id, _) = self.find_leaf(self.root_page_id(), key)?;
        let page = self.pager.read_page(leaf_id)?;
        match search_leaf(&page, key)? {
            SearchResult::Found(pos) => {
                let (_, stored) = read_leaf_cell(&page, pos)?;
                let value =
                    value_layout::decode_with_budget(self.pager.as_ref(), &stored, limit_bytes)?;
                Ok(Some(value))
            }
            SearchResult::NotFound(_) => Ok(None),
        }
    }

    /// Insert a key-value pair.
    ///
    /// Applies the value-layout spill ladder before touching the tree:
    /// the 256 MB ceiling rejects here without any allocation; values
    /// at or below `COMPRESSION_THRESHOLD` go inline raw; larger values
    /// select raw/compressed bytes and spill beyond `OVERFLOW_THRESHOLD`
    /// into an [`crate::storage::overflow::OverflowChain`].
    /// The encoded bytes are then committed through [`Self::insert_encoded`].
    pub fn insert(&self, key: &[u8], value: &[u8]) -> BTreeResult<()> {
        let _writer = self.writer.lock();
        if key.len() > MAX_KEY_SIZE {
            return Err(BTreeError::KeyTooLarge(key.len()));
        }
        let stored = value_layout::encode(self.pager.as_ref(), value)?;
        self.insert_encoded(key, &stored)
    }

    /// Insert a key with bytes already produced by [`value_layout::encode`].
    ///
    /// Internal entry point used by `bulk_insert_sorted` so its fast
    /// path can pre-encode the whole batch (eagerly allocating overflow
    /// pages, surfacing oversize rows up front) and still re-use the
    /// generic insert machinery for fallback. Public callers should go
    /// through [`Self::insert`] which encodes for them.
    pub(crate) fn insert_encoded(&self, key: &[u8], value: &[u8]) -> BTreeResult<()> {
        let _writer = self.writer.lock();
        let root_id = self.root_page_id();

        // Empty tree - create root leaf
        if root_id == 0 {
            let mut page = self.pager.allocate_page(PageType::BTreeLeaf)?;
            clear_leaf_cells(&mut page);
            insert_into_leaf(&mut page, key, value)?;
            init_leaf_links(&mut page, 0, 0);
            page.update_checksum();
            let new_root = page.page_id();
            self.pager.write_page(new_root, page)?;
            *self.root_page_id.write().map_err(|e| {
                BTreeError::LockPoisoned(format!("insert: root_page_id write lock: {e}"))
            })? = new_root;
            return Ok(());
        }

        // D2 fastpath: if key > cached rightmost high_key, go directly to
        // the cached leaf without descending from the root. This cuts
        // tree descent entirely for monotonic append workloads (timeseries,
        // auto-increment entity IDs).
        let cached = {
            self.rightmost_leaf
                .read()
                .map_err(|e| BTreeError::LockPoisoned(format!("rightmost_leaf read: {e}")))?
                .clone()
        };
        if let Some((cached_page_id, ref high_key)) = cached {
            if key > high_key.as_slice() {
                let mut page = self.pager.read_page(cached_page_id)?;
                // Confirm this page is still a valid leaf with a right-link
                // of 0 (i.e., it IS the rightmost leaf — not mid-tree after
                // a concurrent split moved the boundary).
                let right_sibling = leaf_right_sibling(&page);
                if right_sibling == 0 {
                    // Still the rightmost leaf. Try fast append.
                    if can_insert_leaf(&page, key, value) {
                        insert_into_leaf(&mut page, key, value)?;
                        // Skip update_checksum here — pager.write_page
                        // below recomputes it. Saves one CRC32 on 16 KiB
                        // per insert on the hot append path.
                        let page_id = page.page_id();
                        // Update cached high_key
                        *self.rightmost_leaf.write().map_err(|e| {
                            BTreeError::LockPoisoned(format!("rightmost_leaf write: {e}"))
                        })? = Some((page_id, key.to_vec()));
                        self.pager.write_page(page_id, page)?;
                        return Ok(());
                    }
                    // Leaf is full — split. After split, invalidate cache
                    // (the new rightmost leaf is the split result).
                    let (new_leaf, separator_key) = self.split_leaf(&mut page, key, value)?;
                    let new_leaf_id = new_leaf.page_id();
                    page.update_checksum();
                    let page_id = page.page_id();
                    self.pager.write_page(page_id, page.clone())?;
                    // Cache the new rightmost leaf after split
                    self.cache_rightmost_leaf(&new_leaf)?;
                    // Get parent path for the split propagation.
                    // The left child is the original cached leaf.
                    let (_, path) = self.find_leaf(root_id, &separator_key)?;
                    self.insert_into_parent(path, cached_page_id, &separator_key, new_leaf_id)?;
                    return Ok(());
                }
                // right_sibling != 0: cached page is no longer rightmost.
                // Fall through to the full find_leaf path below and
                // refresh the cache.
                *self.rightmost_leaf.write().map_err(|e| {
                    BTreeError::LockPoisoned(format!("rightmost_leaf write: {e}"))
                })? = None;
            }
        }

        // Find the leaf and path to it
        let (leaf_id, path) = self.find_leaf(root_id, key)?;
        let mut page = self.pager.read_page(leaf_id)?;

        // Check for duplicate
        if let SearchResult::Found(_) = search_leaf(&page, key)? {
            return Err(BTreeError::DuplicateKey);
        }

        // Try to insert into leaf
        if can_insert_leaf(&page, key, value) {
            insert_into_leaf(&mut page, key, value)?;
            // Skip update_checksum — pager.write_page recomputes it.
            let page_id = page.page_id();
            // If this is the rightmost leaf (right_sibling == 0), cache it.
            if leaf_right_sibling(&page) == 0 {
                self.cache_rightmost_leaf(&page)?;
            }
            self.pager.write_page(page_id, page)?;
            return Ok(());
        }

        // Need to split the leaf
        let (new_leaf, separator_key) = self.split_leaf(&mut page, key, value)?;
        let new_leaf_id = new_leaf.page_id();
        page.update_checksum();
        let page_id = page.page_id();
        self.pager.write_page(page_id, page.clone())?;
        // Cache the new rightmost leaf (split result gets the larger keys)
        self.cache_rightmost_leaf(&new_leaf)?;

        // Propagate split up the tree
        self.insert_into_parent(path, page_id, &separator_key, new_leaf_id)?;

        Ok(())
    }

    /// Insert or update a key. If the key already exists and the new
    /// value has the same length as the old, the value bytes are
    /// overwritten in place — no structural changes, no rebalance,
    /// one leaf page write.
    ///
    /// Falls back to `delete + insert` when the key is missing or the
    /// new value has a different length. Callers like
    /// `persist_entities_to_pager` that re-serialize a mutated entity
    /// with a fixed-width schema almost always hit the fast path,
    /// eliminating the `BTree::delete + rebalance` cost that previously
    /// dominated UPDATE workloads (~50% of `bulk_update` CPU).
    pub fn upsert(&self, key: &[u8], value: &[u8]) -> BTreeResult<()> {
        let _writer = self.writer.lock();
        let root_id = self.root_page_id();
        if root_id == 0 {
            return self.insert(key, value);
        }

        // Encode the new value once. The in-place fast path compares
        // encoded lengths so the leaf cell stays in the on-disk format
        // documented in `value_layout`; without this the in-place write
        // would scribble raw bytes over a flag-prefixed cell.
        let new_stored = value_layout::encode(self.pager.as_ref(), value)?;

        let (leaf_id, _path) = self.find_leaf(root_id, key)?;
        let mut page = self.pager.read_page(leaf_id)?;

        if let SearchResult::Found(pos) = search_leaf(&page, key)? {
            let (_, old_value) = read_leaf_cell(&page, pos)?;
            if new_stored.len() <= old_value.len() {
                // Shrinking (or same-size) overwrite. If the old cell
                // owned an overflow chain, free it before the new bytes
                // overwrite the pointer header — otherwise the chain
                // is unreachable but still allocated (slice F).
                self.free_chain_if_pointer(&old_value)?;
                overwrite_leaf_value(&mut page, pos, &new_stored)?;
                let page_id = page.page_id();
                self.pager.write_page(page_id, page)?;
                return Ok(());
            }
            // Grow case: fall through to delete+insert for a proper
            // reallocation + potential rebalance.
            let _ = self.delete(key);
            return self.insert_encoded(key, &new_stored);
        }

        // Key is new — plain insert path. Reuse the bytes we already
        // encoded above instead of re-running LZ4 / re-allocating.
        self.insert_encoded(key, &new_stored)
    }

    /// Upsert inline values without allocating, freeing or changing tree links.
    /// The caller must make every value durable in its WAL before
    /// calling this method. Returns false without writing if any item needs a
    /// structural update or an overflow chain.
    pub fn try_upsert_inline_without_splits(
        &self,
        items: &[(Vec<u8>, Vec<u8>)],
    ) -> BTreeResult<bool> {
        let _writer = self.writer.lock();
        let root_id = self.root_page_id();
        if root_id == 0 && !items.is_empty() {
            return Ok(false);
        }
        let mut pages = std::collections::BTreeMap::<u32, (Page, Vec<(Vec<u8>, Vec<u8>)>)>::new();
        for (key, value) in items {
            if key.len() > MAX_KEY_SIZE {
                return Err(BTreeError::KeyTooLarge(key.len()));
            }
            let Some(new_value) = value_layout::encode_inline_without_pages(value)? else {
                return Ok(false);
            };
            let (leaf_id, _) = self.find_leaf(root_id, key)?;
            if let std::collections::btree_map::Entry::Vacant(entry) = pages.entry(leaf_id) {
                let page = self.pager.read_page(leaf_id)?;
                let entries = read_leaf_entries(&page)?;
                entry.insert((page, entries));
            }
            let (_, entries) = pages.get_mut(&leaf_id).expect("leaf was loaded");
            match entries.binary_search_by(|(existing, _)| existing.as_slice().cmp(key)) {
                Ok(position) => {
                    if value_layout::pointer_head(&entries[position].1).is_some() {
                        return Ok(false);
                    }
                    entries[position].1 = new_value;
                }
                Err(position) => entries.insert(position, (key.clone(), new_value)),
            }
        }
        // Check every leaf before writing any of them. Repacking can use dead
        // cell space, but must never split or alter routing links.
        for (page, entries) in pages.values_mut() {
            if leaf_entries_size(entries) > PAGE_SIZE - LEAF_SLOT_ARRAY_OFFSET {
                return Ok(false);
            }
            write_leaf_entries(page, entries)?;
        }
        for (page_id, (page, _)) in pages {
            self.pager.write_page(page_id, page)?;
        }
        Ok(true)
    }

    /// Batch upsert for sorted keys landing in a small set of leaves.
    ///
    /// Walks to each leaf once, applies every same-or-shrink in-place
    /// overwrite that belongs there, writes the page once, then moves
    /// on. Keys that miss or whose new value grows fall back to the
    /// generic single-key `upsert` path — correctness identical,
    /// structural re-layout handled there.
    ///
    /// Callers pass lex-sorted `(key, value)` pairs. For the entity
    /// UPDATE path, IDs are big-endian so u64 ordering = lex ordering.
    pub fn upsert_batch_sorted(&self, items: &[(Vec<u8>, Vec<u8>)]) -> BTreeResult<()> {
        let _writer = self.writer.lock();
        if items.is_empty() {
            return Ok(());
        }
        let root_id = self.root_page_id();
        if root_id == 0 {
            for (k, v) in items {
                self.upsert(k, v)?;
            }
            return Ok(());
        }

        let mut current_leaf: Option<(u32, Page, bool)> = None; // (leaf_id, page, dirty)
        for (key, value) in items {
            // Locate the leaf for this key. If it matches the leaf we
            // already have in hand, reuse the in-memory page.
            let (leaf_id, _path) = self.find_leaf(root_id, key)?;
            if current_leaf.as_ref().map(|(id, _, _)| *id) != Some(leaf_id) {
                if let Some((id, page, dirty)) = current_leaf.take() {
                    if dirty {
                        self.pager.write_page(id, page)?;
                    }
                }
                let page = self.pager.read_page(leaf_id)?;
                current_leaf = Some((leaf_id, page, false));
            }

            // Encode the new value through the spill ladder so the
            // length comparison is between encoded bytes (matching the
            // on-disk cell format). Compute lazily: only the in-place
            // branch needs it, and an oversize value gets caught by the
            // single-key `upsert` fallback below.
            let applied_in_place = {
                let (_, page, dirty) = current_leaf.as_mut().expect("set above");
                if let SearchResult::Found(pos) = search_leaf(page, key)? {
                    let (_, old_value) = read_leaf_cell(page, pos)?;
                    match value_layout::encode(self.pager.as_ref(), value) {
                        Ok(new_stored) if new_stored.len() <= old_value.len() => {
                            // Shrinking overwrite: free the old chain
                            // before the pointer header is scribbled over
                            // (slice F).
                            self.free_chain_if_pointer(&old_value)?;
                            overwrite_leaf_value(page, pos, &new_stored)?;
                            *dirty = true;
                            true
                        }
                        _ => false,
                    }
                } else {
                    false
                }
            };
            if !applied_in_place {
                if let Some((id, page, dirty)) = current_leaf.take() {
                    if dirty {
                        self.pager.write_page(id, page)?;
                    }
                }
                self.upsert(key, value)?;
            }
        }

        if let Some((id, page, dirty)) = current_leaf.take() {
            if dirty {
                self.pager.write_page(id, page)?;
            }
        }
        Ok(())
    }

    /// Bulk insert for sorted key-value pairs.
    ///
    /// Optimized for monotonically increasing keys (e.g. entity IDs):
    /// - Walks to the target leaf ONCE, then appends many entries
    ///   before re-walking.
    /// - Writes each leaf only once per batch (amortized over many inserts).
    ///
    /// Falls back to per-entity `insert` on splits.
    pub fn bulk_insert_sorted(&self, items: &[(Vec<u8>, Vec<u8>)]) -> BTreeResult<()> {
        let _writer = self.writer.lock();
        if items.is_empty() {
            return Ok(());
        }
        // Key check is a hard fail (oversized keys would corrupt the
        // ordering invariant). Value oversize, by contrast, is skipped
        // per-row so a single huge row in the middle of a batch cannot
        // poison the rest — the caller still gets a signal because we
        // return the first ValueTooLarge after the rest have landed.
        for (key, _) in items {
            if key.len() > MAX_KEY_SIZE {
                return Err(BTreeError::KeyTooLarge(key.len()));
            }
        }

        // Pre-encode every value through the spill ladder. Oversized
        // rows are dropped from the encoded batch but remembered so we
        // can surface the first violation at the end of the call.
        // Encoding here also allocates overflow pages eagerly, which
        // mirrors single-key `insert` behaviour and keeps the bulk fast
        // path below opaque to value shape.
        let mut encoded: Vec<(&[u8], Vec<u8>)> = Vec::with_capacity(items.len());
        let mut first_oversize: Option<usize> = None;
        for (key, value) in items {
            match value_layout::encode(self.pager.as_ref(), value) {
                Ok(stored) => encoded.push((key.as_slice(), stored)),
                Err(value_layout::ValueLayoutError::ValueTooLarge(n)) => {
                    if first_oversize.is_none() {
                        first_oversize = Some(n);
                    }
                }
                Err(other) => return Err(other.into()),
            }
        }

        let items: Vec<(&[u8], &[u8])> = encoded.iter().map(|(k, v)| (*k, v.as_slice())).collect();

        // After a filled leaf is written to disk, the next ascending
        // key almost certainly belongs on the right-sibling leaf
        // (leaves are linked via `leaf_right_sibling`). Cache the
        // just-written leaf id so the next outer iteration can hop
        // the sibling pointer in one page read instead of a full
        // root-to-leaf walk. Any fallback to `self.insert` (which
        // may split the tree) invalidates the hint.
        let mut last_filled_leaf: Option<u32> = None;
        let mut i = 0;
        while i < items.len() {
            let root_id = self.root_page_id();
            if root_id == 0 {
                // Empty tree — use single insert to create root.
                // Bytes are already encoded, so go through the internal
                // entry point that skips the spill ladder.
                let (k, v) = items[i];
                self.insert_encoded(k, v)?;
                i += 1;
                last_filled_leaf = None;
                continue;
            }

            // Try the right-sibling hop first. Valid when: (a) we have
            // a cached last-filled leaf, (b) it points to a non-zero
            // sibling, (c) the current key > sibling's last key (or
            // the sibling is empty). Any mismatch → fall back to
            // `find_leaf`.
            let hint_leaf_id: Option<u32> = if let Some(prev) = last_filled_leaf {
                let prev_page = self.pager.read_page(prev)?;
                let sibling = leaf_right_sibling(&prev_page);
                if sibling != 0 {
                    let sib_page = self.pager.read_page(sibling)?;
                    match leaf_high_key(&sib_page)? {
                        None => Some(sibling), // empty sibling — free real estate
                        Some(hk)
                            if leaf_right_sibling(&sib_page) == 0 && items[i].0 > hk.as_slice() =>
                        {
                            Some(sibling)
                        }
                        Some(_) => None,
                    }
                } else {
                    None
                }
            } else {
                None
            };

            let (leaf_id, _path) = match hint_leaf_id {
                Some(id) => (id, Vec::new()),
                None => self.find_leaf(root_id, items[i].0)?,
            };
            let mut page = self.pager.read_page(leaf_id)?;

            // Snapshot the leaf's last key (via the O(1) slot lookup)
            // and current free bytes. Both drive the append fast path
            // below. The old O(M) forward-walk that this block used to
            // do was made redundant by the slotted layout.
            let mut last_key_in_leaf: Option<Vec<u8>> = {
                let cell_count = page.cell_count() as usize;
                if cell_count == 0 {
                    None
                } else {
                    Some(read_leaf_cell(&page, cell_count - 1)?.0)
                }
            };

            // Fast path for monotonically-ascending keys: append new
            // cells at the tail of the cell-data area and push new
            // slot pointers onto the slot array. Every key must be
            // strictly greater than `last_key_in_leaf` and must still
            // fit in the leaf's free bytes.
            let mut inserted = 0usize;
            while i + inserted < items.len() {
                let (key, value) = items[i + inserted];

                // Strictly-ascending check, doubles as duplicate
                // detection without a leaf binary search.
                if let Some(lk) = &last_key_in_leaf {
                    match key.cmp(lk.as_slice()) {
                        Ordering::Greater => {}
                        Ordering::Equal => return Err(BTreeError::DuplicateKey),
                        Ordering::Less => break,
                    }
                }

                // Free-space check: account for every slot appended in this
                // batch even though `page.cell_count()` is only updated once
                // at the end. Otherwise we can overrun the slot array into the
                // cell area near the end of the page and persist bad offsets.
                let cell_size = 4 + key.len() + value.len();
                let slot_end_after =
                    LEAF_SLOT_ARRAY_OFFSET + (page.cell_count() as usize + inserted + 1) * 2;
                let cells_start = leaf_cells_start(&page);
                if slot_end_after + cell_size > cells_start {
                    break;
                }

                // Append the cell at the tail of the cell-data area
                // and push a new slot pointer. `page.cell_count()`
                // still reflects the state before this inserted batch,
                // so the new slot index is `cell_count + inserted`.
                let cell_offset = cells_start - cell_size;
                {
                    let data = page.as_bytes_mut();
                    data[cell_offset..cell_offset + 2]
                        .copy_from_slice(&(key.len() as u16).to_le_bytes());
                    data[cell_offset + 2..cell_offset + 4]
                        .copy_from_slice(&(value.len() as u16).to_le_bytes());
                    data[cell_offset + 4..cell_offset + 4 + key.len()].copy_from_slice(key);
                    data[cell_offset + 4 + key.len()..cell_offset + cell_size]
                        .copy_from_slice(value);
                }
                page.set_free_end(cell_offset as u16);

                let new_slot_index = page.cell_count() as usize + inserted;
                let slot_pos = leaf_slot_offset_for(new_slot_index);
                {
                    let data = page.as_bytes_mut();
                    data[slot_pos..slot_pos + 2]
                        .copy_from_slice(&(cell_offset as u16).to_le_bytes());
                }

                last_key_in_leaf = Some(key.to_vec());
                inserted += 1;
            }

            if inserted > 0 {
                let new_count = page.cell_count() as usize + inserted;
                page.set_cell_count(new_count as u16);
                page.set_free_start((LEAF_SLOT_ARRAY_OFFSET + new_count * 2) as u16);
                page.update_checksum();
                self.cache_rightmost_leaf(&page)?;
                self.pager.write_page(leaf_id, page)?;
                i += inserted;
                // Remember this leaf; the next outer iteration will
                // try its right sibling before re-walking from root.
                last_filled_leaf = Some(leaf_id);
            } else {
                // Couldn't fit even one entry via the fast path —
                // either the leaf is full, or the next key belongs
                // in the middle of the leaf. Delegate to the generic
                // insert path which handles both splitting and
                // mid-leaf positioning. Splits can invalidate the
                // leaf-chain topology so drop the hint.
                let (k, v) = items[i];
                self.insert_encoded(k, v)?;
                i += 1;
                last_filled_leaf = None;
            }
        }

        // Valid rows have all landed by this point; surface the first
        // oversize so callers still see a `ValueTooLarge` signal
        // without losing the rest of the batch (AC #5 — one oversized
        // row in the middle is rejected but the rest land).
        if let Some(n) = first_oversize {
            return Err(BTreeError::ValueTooLarge(n));
        }

        Ok(())
    }

    /// Delete a key
    pub fn delete(&self, key: &[u8]) -> BTreeResult<bool> {
        let _writer = self.writer.lock();
        let root_id = self.root_page_id();
        if root_id == 0 {
            return Ok(false);
        }

        // D3 — Lehman-Yao right-link traversal for delete.
        // A split may have moved the key to a right sibling between our
        // descent and the actual page read. Follow right-links before giving up.
        let (leaf_id, path) = self.find_leaf(root_id, key)?;
        let mut current_id = leaf_id;
        const MAX_RIGHTLINK_HOPS: usize = 32;
        for _ in 0..MAX_RIGHTLINK_HOPS {
            let mut page = self.pager.read_page(current_id)?;
            match search_leaf(&page, key)? {
                SearchResult::Found(pos) => {
                    // Found — delete from this page (may differ from leaf_id).
                    // If the cell carries a spill pointer, return every
                    // overflow page to the free list before the leaf cell
                    // goes away; otherwise the chain leaks (slice F).
                    let (_, stored) = read_leaf_cell(&page, pos)?;
                    self.free_chain_if_pointer(&stored)?;
                    delete_from_leaf(&mut page, pos)?;
                    page.update_checksum();
                    let page_id = page.page_id();
                    self.pager.write_page(page_id, page.clone())?;

                    *self
                        .rightmost_leaf
                        .write()
                        .unwrap_or_else(|e| e.into_inner()) = None;

                    if page.cell_count() == 0 && page_id == root_id {
                        self.pager.free_page(root_id)?;
                        *self.root_page_id.write().map_err(|e| {
                            BTreeError::LockPoisoned(format!(
                                "delete: root_page_id write lock: {e}"
                            ))
                        })? = 0;
                    } else {
                        self.rebalance_leaf(current_id, path)?;
                    }
                    return Ok(true);
                }
                SearchResult::NotFound(_) => {
                    let right = leaf_right_sibling(&page);
                    if right != 0 {
                        if let Some(high_key) = leaf_high_key(&page)? {
                            if key > high_key.as_slice() {
                                current_id = right;
                                continue;
                            }
                        }
                    }
                    return Ok(false);
                }
            }
        }
        Ok(false)
    }

    /// Create a cursor starting at the first entry
    pub fn cursor_first(&self) -> BTreeResult<BTreeCursor<P>> {
        let root_id = self.root_page_id();
        if root_id == 0 {
            return Ok(BTreeCursor {
                _retirement_pin: Arc::clone(&self.retirement_pin),
                leaf_page_id: 0,
                position: 0,
                pager: self.pager.clone(),
                prefetched_next: false,
                immutable: false,
                immutable_leaf: None,
            });
        }

        // Find leftmost leaf
        let first_leaf = self.find_first_leaf(root_id)?;

        Ok(BTreeCursor {
            _retirement_pin: Arc::clone(&self.retirement_pin),
            leaf_page_id: first_leaf,
            position: 0,
            pager: self.pager.clone(),
            prefetched_next: false,
            immutable: false,
            immutable_leaf: None,
        })
    }

    /// Create a cursor starting at or after the given key
    pub fn cursor_seek(&self, key: &[u8]) -> BTreeResult<BTreeCursor<P>> {
        let root_id = self.root_page_id();
        if root_id == 0 {
            return Ok(BTreeCursor {
                _retirement_pin: Arc::clone(&self.retirement_pin),
                leaf_page_id: 0,
                position: 0,
                pager: self.pager.clone(),
                prefetched_next: false,
                immutable: false,
                immutable_leaf: None,
            });
        }

        let (leaf_id, _) = self.find_leaf(root_id, key)?;
        let page = self.pager.read_page(leaf_id)?;

        let position = match search_leaf(&page, key)? {
            SearchResult::Found(pos) => pos,
            SearchResult::NotFound(pos) => pos,
        };

        Ok(BTreeCursor {
            _retirement_pin: Arc::clone(&self.retirement_pin),
            leaf_page_id: leaf_id,
            position,
            pager: self.pager.clone(),
            prefetched_next: false,
            immutable: false,
            immutable_leaf: None,
        })
    }

    /// Range scan from start_key to end_key (inclusive)
    pub fn range(&self, start_key: &[u8], end_key: &[u8]) -> BTreeResult<Vec<(Vec<u8>, Vec<u8>)>> {
        let mut results = Vec::new();
        let mut cursor = self.cursor_seek(start_key)?;

        while let Some((key, value)) = cursor.next()? {
            if key.as_slice() > end_key {
                break;
            }
            results.push((key, value));
        }

        Ok(results)
    }

    /// Count entries in the tree
    pub fn count(&self) -> BTreeResult<usize> {
        let root_id = self.root_page_id();
        if root_id == 0 {
            return Ok(0);
        }

        let mut count = 0;
        let mut cursor = self.cursor_first()?;
        while cursor.next()?.is_some() {
            count += 1;
        }

        Ok(count)
    }

    // ==================== Internal Methods ====================

    fn cache_rightmost_leaf(&self, page: &Page) -> BTreeResult<()> {
        // A split's incoming key may land in its left half. Caching that
        // key as the right half's maximum sends later inserts to the wrong
        // leaf, even with a single writer (#2376).
        let cached = if leaf_right_sibling(page) == 0 {
            leaf_high_key(page)?.map(|high| (page.page_id(), high))
        } else {
            None
        };
        *self.rightmost_leaf.write().map_err(|error| {
            BTreeError::LockPoisoned(format!("rightmost_leaf write: {error}"))
        })? = cached;
        Ok(())
    }

    /// Find the leaf page containing the key
    fn find_leaf(&self, page_id: u32, key: &[u8]) -> BTreeResult<(u32, Vec<u32>)> {
        let mut current_id = page_id;
        let mut path = Vec::new();

        // A u32 page address space cannot contain a valid B-tree this deep.
        // Bound corrupt child cycles before they grow the descent path.
        for _ in 0..64 {
            let page = self.pager.read_page(current_id)?;

            match page.page_type()? {
                PageType::BTreeLeaf => {
                    return Ok((current_id, path));
                }
                PageType::BTreeInterior => {
                    path.push(current_id);
                    current_id = find_child(&page, key)?;
                }
                other => {
                    return Err(BTreeError::Corrupted(format!(
                        "Unexpected page type in B-tree: {:?}",
                        other
                    )));
                }
            }
        }
        Err(BTreeError::Corrupted(
            "B-tree descent exceeds maximum depth".into(),
        ))
    }

    /// Find the leftmost leaf page
    pub(crate) fn find_first_leaf(&self, page_id: u32) -> BTreeResult<u32> {
        let mut current_id = page_id;

        for _ in 0..64 {
            let page = self.pager.read_page(current_id)?;

            match page.page_type()? {
                PageType::BTreeLeaf => return Ok(current_id),
                PageType::BTreeInterior => {
                    // Go to leftmost child
                    current_id = find_first_child(&page)?;
                }
                _ => {
                    return Err(BTreeError::Corrupted("Invalid page type".into()));
                }
            }
        }
        Err(BTreeError::Corrupted(
            "leftmost-leaf descent exceeds maximum depth".into(),
        ))
    }

    /// Split a leaf page
    fn split_leaf(
        &self,
        page: &mut Page,
        new_key: &[u8],
        new_value: &[u8],
    ) -> BTreeResult<(Page, Vec<u8>)> {
        // Collect all entries including the new one
        let mut entries: Vec<(Vec<u8>, Vec<u8>)> = Vec::new();
        let cell_count = page.cell_count() as usize;

        for i in 0..cell_count {
            entries.push(read_leaf_cell(page, i)?);
        }

        // Insert new entry in sorted position
        let insert_pos = entries.partition_point(|(k, _)| k.as_slice() < new_key);
        entries.insert(insert_pos, (new_key.to_vec(), new_value.to_vec()));

        // Balance occupied bytes, including slots. A count midpoint can put
        // almost every wide cell on one side of a mixed-width leaf.
        let capacity = PAGE_SIZE - LEAF_SLOT_ARRAY_OFFSET;
        let total = leaf_entries_size(&entries);
        let mut left_bytes = 0;
        let mut split = None;
        let mut best_balance = usize::MAX;
        for index in 1..entries.len() {
            left_bytes += leaf_entry_size(&entries[index - 1]);
            let right_bytes = total - left_bytes;
            if left_bytes <= capacity && right_bytes <= capacity {
                let balance = left_bytes.abs_diff(right_bytes);
                if balance < best_balance {
                    split = Some(index);
                    best_balance = balance;
                }
            }
        }
        let mid = split
            .ok_or_else(|| BTreeError::Corrupted("leaf entries cannot fit in two pages".into()))?;

        // Create new leaf
        let mut new_page = self.pager.allocate_page(PageType::BTreeLeaf)?;

        // Update leaf links
        let old_next = read_next_leaf(page);
        init_leaf_links(&mut new_page, page.page_id(), old_next);
        set_next_leaf(page, new_page.page_id());

        // Rebuild both halves through the slotted layout so their
        // cell_count, free_start and free_end headers are consistent.
        write_leaf_entries(page, &entries[..mid])?;
        write_leaf_entries(&mut new_page, &entries[mid..])?;

        // Separator is first key of new leaf
        let separator = entries[mid].0.clone();

        new_page.update_checksum();
        let new_page_id = new_page.page_id();
        self.pager.write_page(new_page_id, new_page.clone())?;
        if old_next != 0 {
            // Splitting a non-rightmost leaf inserts a new predecessor for the
            // old successor. Keep its backlink coherent with the forward chain.
            let mut successor = self.pager.read_page(old_next)?;
            if successor.page_type()? != PageType::BTreeLeaf {
                return Err(BTreeError::Corrupted("invalid split successor type".into()));
            }
            set_prev_leaf(&mut successor, new_page_id);
            successor.update_checksum();
            self.pager.write_page(old_next, successor)?;
        }

        Ok((new_page, separator))
    }

    /// Insert into parent after split
    fn insert_into_parent(
        &self,
        mut path: Vec<u32>,
        left_child: u32,
        key: &[u8],
        right_child: u32,
    ) -> BTreeResult<()> {
        // If path is empty, need new root
        if path.is_empty() {
            let mut new_root = self.pager.allocate_page(PageType::BTreeInterior)?;
            // Single separator with two children — seed the page via the
            // canonical slotted builder so the header is consistent.
            write_interior_entries(&mut new_root, &[key.to_vec()], &[left_child, right_child])?;

            new_root.update_checksum();
            let new_root_id = new_root.page_id();
            self.pager.write_page(new_root_id, new_root)?;
            *self.root_page_id.write().map_err(|e| {
                BTreeError::LockPoisoned(format!(
                    "insert_into_parent: root_page_id write lock: {e}"
                ))
            })? = new_root_id;
            return Ok(());
        }

        // Insert into parent — path is non-empty (checked above)
        let parent_id = path.pop().ok_or_else(|| {
            BTreeError::Corrupted("insert_into_parent: path unexpectedly empty".into())
        })?;
        let mut parent = self.pager.read_page(parent_id)?;

        // Can we fit?
        if can_insert_interior(&parent, key) {
            insert_into_interior(&mut parent, key, left_child, right_child)?;
            parent.update_checksum();
            self.pager.write_page(parent_id, parent)?;
            return Ok(());
        }

        // Need to split interior node
        let (new_interior, separator) =
            self.split_interior(&mut parent, key, left_child, right_child)?;
        parent.update_checksum();
        self.pager.write_page(parent_id, parent.clone())?;

        // Propagate up
        self.insert_into_parent(path, parent.page_id(), &separator, new_interior.page_id())
    }

    /// Split an interior node
    fn split_interior(
        &self,
        page: &mut Page,
        new_key: &[u8],
        left_child: u32,
        right_child: u32,
    ) -> BTreeResult<(Page, Vec<u8>)> {
        let (mut keys, mut children) = read_interior_keys_children(page)?;
        let key_insert_pos = keys.partition_point(|key| key.as_slice() < new_key);
        let child_insert_pos = children
            .iter()
            .position(|child| *child == left_child)
            .unwrap_or(key_insert_pos);

        keys.insert(key_insert_pos, new_key.to_vec());
        children.insert(child_insert_pos + 1, right_child);

        // The promoted separator does not stay in either side; each
        // resulting page is rebuilt through the shared slotted writer.
        let mid = keys.len() / 2;
        let separator = keys[mid].clone();

        // Create new interior node
        let mut new_page = self.pager.allocate_page(PageType::BTreeInterior)?;

        write_interior_entries(page, &keys[..mid], &children[..mid + 1])?;
        write_interior_entries(&mut new_page, &keys[mid + 1..], &children[mid + 1..])?;

        new_page.update_checksum();
        let new_page_id = new_page.page_id();
        self.pager.write_page(new_page_id, new_page.clone())?;

        Ok((new_page, separator))
    }

    fn rebalance_leaf(&self, leaf_id: u32, mut path: Vec<u32>) -> BTreeResult<()> {
        // Finish the leaf step before ascending so its page buffers do not
        // accumulate with interior buffers on ordinary worker stacks.
        if let Some(parent_id) = self.rebalance_leaf_step(leaf_id, &path)? {
            path.pop();
            self.rebalance_interior(parent_id, path)?;
        }
        Ok(())
    }

    fn rebalance_leaf_step(&self, leaf_id: u32, path: &[u32]) -> BTreeResult<Option<u32>> {
        if path.is_empty() {
            return Ok(None);
        }

        let root_id = self.root_page_id();
        if leaf_id == root_id {
            return Ok(None);
        }

        let mut leaf = self.pager.read_page(leaf_id)?;
        let mut leaf_entries = read_leaf_entries(&leaf)?;
        let min_bytes = leaf_min_bytes();

        let parent_id = *path.last().ok_or_else(|| {
            BTreeError::Corrupted("rebalance_leaf: path unexpectedly empty".into())
        })?;
        let mut parent = self.pager.read_page(parent_id)?;
        let (mut parent_keys, mut parent_children) = read_interior_keys_children(&parent)?;

        let child_index = parent_children
            .iter()
            .position(|&id| id == leaf_id)
            .ok_or_else(|| BTreeError::Corrupted("Leaf missing from parent".into()))?;

        if child_index > 0 {
            if let Some((first_key, _)) = leaf_entries.first() {
                if parent_keys.get(child_index - 1).map(|k| k.as_slice())
                    != Some(first_key.as_slice())
                {
                    parent_keys[child_index - 1] = first_key.clone();
                    write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
                    parent.update_checksum();
                    self.pager.write_page(parent_id, parent.clone())?;
                }
            }
        }

        if leaf_entries_size(&leaf_entries) >= min_bytes {
            return Ok(None);
        }

        if child_index > 0 {
            let left_id = parent_children[child_index - 1];
            let mut left = self.pager.read_page(left_id)?;
            let mut left_entries = read_leaf_entries(&left)?;
            let mut borrowed = false;

            while leaf_entries_size(&leaf_entries) < min_bytes {
                let Some(entry) = left_entries.pop() else {
                    break;
                };
                if leaf_entries_size(&left_entries) < min_bytes {
                    left_entries.push(entry);
                    break;
                }
                leaf_entries.insert(0, entry);
                borrowed = true;
            }

            if borrowed {
                write_leaf_entries(&mut left, &left_entries)?;
                left.update_checksum();
                self.pager.write_page(left_id, left)?;

                write_leaf_entries(&mut leaf, &leaf_entries)?;
                leaf.update_checksum();
                self.pager.write_page(leaf_id, leaf)?;

                if let Some((first_key, _)) = leaf_entries.first() {
                    parent_keys[child_index - 1] = first_key.clone();
                    write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
                    parent.update_checksum();
                    self.pager.write_page(parent_id, parent)?;
                }

                return Ok(None);
            }
        }

        if child_index + 1 < parent_children.len() {
            let right_id = parent_children[child_index + 1];
            let mut right = self.pager.read_page(right_id)?;
            let mut right_entries = read_leaf_entries(&right)?;
            let mut borrowed = false;

            while leaf_entries_size(&leaf_entries) < min_bytes {
                if right_entries.is_empty() {
                    break;
                }
                let entry = right_entries.remove(0);
                if leaf_entries_size(&right_entries) < min_bytes {
                    right_entries.insert(0, entry);
                    break;
                }
                leaf_entries.push(entry);
                borrowed = true;
            }

            if borrowed {
                write_leaf_entries(&mut right, &right_entries)?;
                right.update_checksum();
                self.pager.write_page(right_id, right)?;

                write_leaf_entries(&mut leaf, &leaf_entries)?;
                leaf.update_checksum();
                self.pager.write_page(leaf_id, leaf)?;

                if let Some((first_key, _)) = right_entries.first() {
                    parent_keys[child_index] = first_key.clone();
                    write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
                    parent.update_checksum();
                    self.pager.write_page(parent_id, parent)?;
                }

                return Ok(None);
            }
        }

        if child_index > 0 {
            let left_id = parent_children[child_index - 1];
            let mut left = self.pager.read_page(left_id)?;
            let mut left_entries = read_leaf_entries(&left)?;

            left_entries.extend(leaf_entries);
            write_leaf_entries(&mut left, &left_entries)?;

            let next_leaf = read_next_leaf(&leaf);
            set_next_leaf(&mut left, next_leaf);
            if next_leaf != 0 {
                let mut next = self.pager.read_page(next_leaf)?;
                set_prev_leaf(&mut next, left_id);
                next.update_checksum();
                self.pager.write_page(next_leaf, next)?;
            }

            left.update_checksum();
            self.pager.write_page(left_id, left)?;
            self.pager.free_page(leaf_id)?;

            parent_keys.remove(child_index - 1);
            parent_children.remove(child_index);
            write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
            parent.update_checksum();
            self.pager.write_page(parent_id, parent)?;

            return Ok(Some(parent_id));
        }

        if child_index + 1 < parent_children.len() {
            let right_id = parent_children[child_index + 1];
            let right = self.pager.read_page(right_id)?;
            let right_entries = read_leaf_entries(&right)?;

            leaf_entries.extend(right_entries);
            write_leaf_entries(&mut leaf, &leaf_entries)?;

            let next_leaf = read_next_leaf(&right);
            set_next_leaf(&mut leaf, next_leaf);
            if next_leaf != 0 {
                let mut next = self.pager.read_page(next_leaf)?;
                set_prev_leaf(&mut next, leaf_id);
                next.update_checksum();
                self.pager.write_page(next_leaf, next)?;
            }

            leaf.update_checksum();
            self.pager.write_page(leaf_id, leaf)?;
            self.pager.free_page(right_id)?;

            parent_keys.remove(child_index);
            parent_children.remove(child_index + 1);
            write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
            parent.update_checksum();
            self.pager.write_page(parent_id, parent)?;

            return Ok(Some(parent_id));
        }

        Ok(None)
    }

    fn rebalance_interior(&self, mut node_id: u32, mut path: Vec<u32>) -> BTreeResult<()> {
        // Each completed step releases its page buffers before the next level.
        while let Some(parent_id) = self.rebalance_interior_step(node_id, &mut path)? {
            node_id = parent_id;
        }
        Ok(())
    }

    fn rebalance_interior_step(
        &self,
        node_id: u32,
        path: &mut Vec<u32>,
    ) -> BTreeResult<Option<u32>> {
        let root_id = self.root_page_id();
        let mut node = self.pager.read_page(node_id)?;
        let (mut node_keys, mut node_children) = read_interior_keys_children(&node)?;
        let min_bytes = interior_min_bytes();

        if node_id == root_id {
            if node_keys.is_empty() {
                let next_root = node_children.first().copied().unwrap_or(0);
                self.pager.free_page(node_id)?;
                *self.root_page_id.write().map_err(|e| {
                    BTreeError::LockPoisoned(format!(
                        "rebalance_interior: root_page_id write lock: {e}"
                    ))
                })? = next_root;
            }
            return Ok(None);
        }

        if interior_entries_size(&node_keys) >= min_bytes {
            return Ok(None);
        }

        let parent_id = match path.pop() {
            Some(id) => id,
            None => return Ok(None),
        };
        let mut parent = self.pager.read_page(parent_id)?;
        let (mut parent_keys, mut parent_children) = read_interior_keys_children(&parent)?;

        let child_index = parent_children
            .iter()
            .position(|&id| id == node_id)
            .ok_or_else(|| BTreeError::Corrupted("Interior missing from parent".into()))?;

        if child_index > 0 {
            let left_id = parent_children[child_index - 1];
            let mut left = self.pager.read_page(left_id)?;
            let (mut left_keys, mut left_children) = read_interior_keys_children(&left)?;

            if let Some(borrow_key) = left_keys.last().cloned() {
                let borrow_size = interior_key_size(&borrow_key);
                if interior_entries_size(&left_keys).saturating_sub(borrow_size) >= min_bytes {
                    let parent_key = parent_keys[child_index - 1].clone();
                    let borrowed_key = left_keys.pop().ok_or_else(|| {
                        BTreeError::Corrupted(
                            "rebalance_interior: left_keys empty after check".into(),
                        )
                    })?;
                    let borrowed_child = left_children.pop().ok_or_else(|| {
                        BTreeError::Corrupted("rebalance_interior: left_children empty".into())
                    })?;

                    node_keys.insert(0, parent_key);
                    node_children.insert(0, borrowed_child);
                    parent_keys[child_index - 1] = borrowed_key;

                    write_interior_entries(&mut left, &left_keys, &left_children)?;
                    left.update_checksum();
                    self.pager.write_page(left_id, left)?;

                    write_interior_entries(&mut node, &node_keys, &node_children)?;
                    node.update_checksum();
                    self.pager.write_page(node_id, node)?;

                    write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
                    parent.update_checksum();
                    self.pager.write_page(parent_id, parent)?;

                    return Ok(None);
                }
            }
        }

        if child_index + 1 < parent_children.len() {
            let right_id = parent_children[child_index + 1];
            let mut right = self.pager.read_page(right_id)?;
            let (mut right_keys, mut right_children) = read_interior_keys_children(&right)?;

            if let Some(borrow_key) = right_keys.first().cloned() {
                let borrow_size = interior_key_size(&borrow_key);
                if interior_entries_size(&right_keys).saturating_sub(borrow_size) >= min_bytes {
                    let parent_key = parent_keys[child_index].clone();
                    let new_parent_key = right_keys.remove(0);
                    let borrowed_child = right_children.remove(0);

                    node_keys.push(parent_key);
                    node_children.push(borrowed_child);
                    parent_keys[child_index] = new_parent_key;

                    write_interior_entries(&mut right, &right_keys, &right_children)?;
                    right.update_checksum();
                    self.pager.write_page(right_id, right)?;

                    write_interior_entries(&mut node, &node_keys, &node_children)?;
                    node.update_checksum();
                    self.pager.write_page(node_id, node)?;

                    write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
                    parent.update_checksum();
                    self.pager.write_page(parent_id, parent)?;

                    return Ok(None);
                }
            }
        }

        if child_index > 0 {
            let left_id = parent_children[child_index - 1];
            let mut left = self.pager.read_page(left_id)?;
            let (mut left_keys, mut left_children) = read_interior_keys_children(&left)?;
            let parent_key = parent_keys.remove(child_index - 1);
            parent_children.remove(child_index);

            left_keys.push(parent_key);
            left_keys.extend(node_keys);
            left_children.extend(node_children);

            write_interior_entries(&mut left, &left_keys, &left_children)?;
            left.update_checksum();
            self.pager.write_page(left_id, left)?;
            self.pager.free_page(node_id)?;

            write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
            parent.update_checksum();
            self.pager.write_page(parent_id, parent)?;

            return Ok(Some(parent_id));
        }

        if child_index + 1 < parent_children.len() {
            let right_id = parent_children[child_index + 1];
            let right = self.pager.read_page(right_id)?;
            let (right_keys, right_children) = read_interior_keys_children(&right)?;
            let parent_key = parent_keys.remove(child_index);
            parent_children.remove(child_index + 1);

            node_keys.push(parent_key);
            node_keys.extend(right_keys);
            node_children.extend(right_children);

            write_interior_entries(&mut node, &node_keys, &node_children)?;
            node.update_checksum();
            self.pager.write_page(node_id, node)?;
            self.pager.free_page(right_id)?;

            write_interior_entries(&mut parent, &parent_keys, &parent_children)?;
            parent.update_checksum();
            self.pager.write_page(parent_id, parent)?;

            return Ok(Some(parent_id));
        }

        Ok(None)
    }
}