pdfrum-doc 0.1.0

//! Mapping between a point, a caret position and a character index.
//!
//! Four pure queries over an already-computed [`Layout`]. Nothing here lays
//! text out or reads a document; they are searches over the positions
//! [`crate::vt::layout`] already assigned, which is what keeps the editor
//! from growing a second layout engine.
//!
//! # What a [`Place`] is
//!
//! A caret sits **after** a character, and `word == -1` names the position
//! before the first character of its line. So a line of *n* characters has
//! *n + 1* caret positions, `-1` through `n - 1`, and the one place that is
//! not "after some character" is the line header. An empty line has only its
//! header.
//!
//! # The two coordinate spaces
//!
//! [`Layout`] positions are y-**down** from the plate's top-left corner.
//! Callers work in PDF user space, y-up, so [`place_at_point`] and
//! [`point_at_place`] take and return PDF points and flip on the way in and
//! out — the same flip [`Layout::to_pdf`] performs, which is why they take
//! the plate rather than assuming one.
//!
//! Between those two spaces sits one further shift, and it is the only thing
//! the editor adds over the layout: a **vertical alignment offset**. A
//! single-line field centres its one line in its plate, so the text is drawn
//! lower than the layout placed it and a click must be lifted by the same
//! amount before it is searched. Every query here therefore takes an
//! `offset`, the same `(dx, dy)` `vt::edit_ap::generate` is given
//! when the appearance is written. Passing `(0.0, 0.0)` is the top-aligned
//! case. Getting this wrong is not a small error: a centred field's text
//! sits *below* its layout box, so an unshifted click misses every line and
//! falls out of the content entirely.
//!
//! # The tie-break, which is the whole point of this module
//!
//! A click lands after a character when it falls **strictly past that
//! character's horizontal midpoint**. Strictly: a click exactly on the
//! midpoint lands *before* the character, so a caret placed by clicking the
//! exact centre of a glyph goes to its left. Two details make this reproduce
//! upstream rather than merely resemble it:
//!
//! - The midpoint is half the character's **advance**, comb tail included —
//!   the same `vt::word_width` the layout used — not half its
//!   inked extent.
//! - The comparison is a plain `>` on raw floats, with **no epsilon**, unlike
//!   the vertical comparisons below, which are epsilon-tolerant. That
//!   asymmetry is upstream's and is deliberate here: it decides which side of
//!   a boundary a click falls on, and softening it moves carets.
//!
//! The vertical searches — which section a point is in, then which line —
//! use `geom::is_float_bigger` and its sibling, so a point within
//! `0.0001` of a section or line edge counts as *inside* it.
//!
//! # A measured line's size is the layout's, not the caller's request
//!
//! [`Config::font_size`] is a **request**, and `0.0` is the request for
//! automatic sizing. [`crate::vt::layout`] resolves it — picking the largest
//! step that fits — and records the answer in [`Layout::font_size`]. That
//! resolved value is what every later measurement reads, so the size that
//! placed the words is the layout's, and the caller's `Config` still holds
//! the zero it asked with.
//!
//! Every query over a line the layout **has** therefore measures with
//! [`Layout::font_size`]. Measuring with the config's instead is not a
//! rounding difference on an auto-sized field, it is **zero**: every advance
//! collapses, so a caret lands on the leading edge of the character it should
//! trail and every midpoint becomes the character's own origin. The visible
//! form on `password` — a field with no `/DA` at all, so the request is zero
//! and the layout resolves 25 — was a caret at device column 189, the fifth
//! asterisk's *left* edge, against the oracle's 199. Fixing it moves that row
//! from 0.991764 to 0.999016 and leaves the other 1703 byte-identical.
//!
//! The one place that keeps the config's size is `line_extent`'s **fallback**,
//! for a place naming a line the layout does not have; its own doc says why,
//! and the answer there was measured rather than reasoned.
//!
//! # Right-to-left runs, where every x reverses
//!
//! A right-to-left run is laid out with **descending** x: its first character
//! in logical order is drawn at the run's right end. Three of this module's
//! answers turn on that, and each of them is the opposite of its
//! left-to-right form:
//!
//! - **The caret after a character** is that character's *left* edge, not its
//!   right — its origin, with no advance added. Adding the advance puts every
//!   caret in the run one character too far right.
//! - **A line's header** — the position before the first character — is the
//!   line's *right* edge when that first character is right-to-left, because
//!   that is where it is drawn.
//! - **A click** is resolved by a bisection over a predicate that is monotone
//!   only left to right, so down a run it answers one of the run's two
//!   logical ends rather than the character nearest the point. A scan would
//!   answer the run's beginning for every click in it, and the caret would
//!   never move.
//!
//! Each is transcribed at its own function below, with the reason it cannot
//! be folded into the left-to-right case.
//!
//! # Out-of-content points never fail
//!
//! A point above every section yields the very first place; one below every
//! section yields the very last. A point beside a line — left of its first
//! character or right of its last — is resolved by the same midpoint rule
//! against that line's own characters, so it clamps to the line's header or
//! its final character rather than escaping to another line. There is no
//! "missed" answer, which is what lets a mouse drag off the widget and keep
//! extending a selection.

// `place` and `plate` are one letter apart and both are the domain's own
// words: a `Place` is a caret position, and the plate is the box the text is
// set into. Renaming either to satisfy the lint would make this module read
// against the spec that names them.
#![allow(clippy::similar_names)]

use kurbo::{Point, Rect};

use crate::geom;
use crate::vt::{Config, Layout, Metrics, Section, word_width};

/// A caret position: after character `word` of line `line` of section
/// `section`.
///
/// `word == None` is the line header — the position before the line's first
/// character. Every other value names the character the caret sits after.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// // The header -- the position before a line's first character --
/// // orders ahead of every character on it.
/// assert!(Place::new(0, 0, None) < Place::new(0, 0, Some(0)));
/// ```
#[derive(Debug, Clone, Copy, PartialEq, Eq, PartialOrd, Ord, Hash)]
pub struct Place {
    /// Which paragraph.
    pub section: u32,
    /// Which line of that paragraph.
    pub line: u32,
    /// The character the caret follows, or `None` for the line header.
    ///
    /// `None` orders before every `Some`, so the header sorts ahead of the
    /// line's characters.
    pub word: Option<u32>,
}

impl Place {
    /// A place, from the three indices.
    ///
    /// ```
    /// use pdfrum_doc::vt::hit::Place;
    ///
    /// let after_first = Place::new(0, 0, Some(0));
    /// assert_eq!(after_first.word, Some(0));
    /// ```
    #[must_use]
    pub fn new(section: u32, line: u32, word: Option<u32>) -> Place {
        Place {
            section,
            line,
            word,
        }
    }

    /// The place every layout begins at: the header of its first line.
    ///
    /// A constant rather than a query, because it does not depend on the
    /// layout — the first caret position is the first line's header whatever
    /// the text is, including no text at all. [`begin_place`] is the same
    /// value, spelled for symmetry with [`end_place`], which does need the
    /// layout.
    ///
    /// The header is `None`, not a sentinel index.
    ///
    /// ```
    /// use pdfrum_doc::vt::hit::Place;
    ///
    /// // The beginning of the text, not `(0, 0, 0)`: a zero `word` is the
    /// // position *after* the first character.
    /// assert_eq!(Place::START, Place::new(0, 0, None));
    /// assert_eq!(Place::default(), Place::START);
    /// ```
    pub const START: Place = Place {
        section: 0,
        line: 0,
        word: None,
    };

    /// [`Place::START`], as a function.
    ///
    /// ```
    /// use pdfrum_doc::vt::hit::Place;
    ///
    /// assert_eq!(Place::start(), Place::START);
    /// ```
    #[must_use]
    pub fn start() -> Place {
        Place::START
    }
}

/// The beginning of the text, not `(0, 0, 0)`.
///
/// `#[derive(Default)]` would zero all three fields, and a zero `word` is the
/// position *after* the first character — a different, valid-looking caret
/// that no layout ever means by "the default". The beginning of the text is
/// section 0, line 0, and **no** word, which is what a caller reaching for a
/// default wants.
impl Default for Place {
    fn default() -> Place {
        Place::START
    }
}

/// The first place in a layout: the header of its first line.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// assert_eq!(hit::begin_place(&laid_out), Place::START);
/// ```
#[must_use]
pub fn begin_place(layout: &Layout) -> Place {
    let _ = layout;
    Place::start()
}

/// The last place in a layout: after the last character of its last line.
///
/// An empty layout, and one whose last section has no lines, both answer the
/// header of section zero — there is nowhere else for a caret to be.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// // After the last character of the last line.
/// assert_eq!(hit::end_place(&laid_out), Place::new(0, 0, Some(1)));
/// // An empty layout answers the header of section zero.
/// assert_eq!(hit::end_place(&Default::default()), Place::new(0, 0, None));
/// ```
#[must_use]
pub fn end_place(layout: &Layout) -> Place {
    let Some(section) = layout.sections.len().checked_sub(1) else {
        return Place::new(0, 0, None);
    };
    let Some(last) = layout.sections.get(section) else {
        return Place::new(0, 0, None);
    };
    end_of_section(last, section)
}

/// The last place of one section.
fn end_of_section(section: &Section, index: usize) -> Place {
    let Some(line_index) = section.lines.len().checked_sub(1) else {
        return Place::new(clamp_index(index), 0, None);
    };
    let word = section
        .lines
        .get(line_index)
        .and_then(crate::vt::Line::last_word);
    Place::new(clamp_index(index), clamp_index(line_index), word)
}

/// A `usize` index as the `u32` a [`Place`] holds, saturating rather than
/// wrapping on a layout too large to index — such a layout cannot be produced
/// by this crate, and saturating keeps the query total.
fn clamp_index(index: usize) -> u32 {
    u32::try_from(index).unwrap_or(u32::MAX)
}

/// The caret position a click at `point` selects.
///
/// `point` is in PDF user space (y-up); `plate` is the box the layout was set
/// into, the same one [`Config::plate`] carried. The result is always a valid
/// place — see the module docs on out-of-content points.
///
/// # The rule
///
/// Within a line, the caret lands after the last character whose horizontal
/// midpoint the point is **strictly** past. A point exactly on a midpoint is
/// therefore *before* that character, not after it.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
///
/// // A point left of the first character lands on the line header.
/// let point = kurbo::Point::new(-10.0, 35.0);
/// let place = hit::place_at_point(
///     &laid_out, config.plate, &config, &metrics, (0.0, 0.0), point);
/// assert_eq!(place.word, None);
/// ```
#[must_use]
pub fn place_at_point(
    layout: &Layout,
    plate: Rect,
    config: &Config,
    metrics: &Metrics<'_>,
    offset: (f32, f32),
    point: Point,
) -> Place {
    // Into layout space: undo the alignment offset the text was drawn with,
    // then x from the plate's left edge and y downward from its top. The
    // same transform `point_at_place` inverts.
    #[allow(clippy::cast_possible_truncation)]
    let x = point.x as f32 - offset.0 - geom::left(plate);
    #[allow(clippy::cast_possible_truncation)]
    let y = geom::top(plate) - (point.y as f32 - offset.1);

    match find_section(layout, y) {
        Found::Inside(index, section) => {
            let mut place = place_in_section(section, config, metrics, layout.font_size, x, y);
            place.section = clamp_index(index);
            place
        }
        Found::Above => begin_place(layout),
        Found::Below => end_place(layout),
    }
}

/// Which section a y falls in, or which way it fell off.
enum Found<'a> {
    /// Inside this section, at this index.
    Inside(usize, &'a Section),
    /// Above every section.
    Above,
    /// Below every section, or there are none.
    Below,
}

/// Locates the section a layout-space y sits in.
///
/// Sections are laid out top to bottom and never overlap, so this is a scan
/// for the first whose box contains the point, with the two off-the-end
/// answers distinguished. A point in the seam between two sections — which
/// the epsilon makes possible — belongs to the first, because the scan stops
/// at the first match.
fn find_section(layout: &Layout, y: f32) -> Found<'_> {
    let mut any_above = false;
    for (index, section) in layout.sections.iter().enumerate() {
        let (top, bottom) = (geom::bottom(section.rect), geom::top(section.rect));
        if geom::is_float_smaller(y, top) {
            // Above this section. Since sections only descend from here, the
            // point is above everything unless an earlier one already claimed
            // to be above the point.
            return if any_above {
                Found::Below
            } else {
                Found::Above
            };
        }
        if geom::is_float_bigger(y, bottom) {
            any_above = true;
            continue;
        }
        return Found::Inside(index, section);
    }
    Found::Below
}

/// The place a point selects within one section, in layout space.
///
/// `font_size` is the **layout's** resolved size, not the config's request —
/// see the module docs.
fn place_in_section(
    section: &Section,
    config: &Config,
    metrics: &Metrics<'_>,
    font_size: f32,
    x: f32,
    y: f32,
) -> Place {
    let Some((index, line)) = find_line(section, y) else {
        // Above or below every line of a section the point is nonetheless
        // inside. Falling to the section's own ends keeps the answer a valid
        // place; an empty section has only its header.
        return if section.lines.is_empty() {
            Place::new(0, 0, None)
        } else {
            end_of_section(section, 0)
        };
    };
    Place::new(
        0,
        clamp_index(index),
        word_at_x(section, line_range(line), config, metrics, font_size, x),
    )
}

/// Locates the line a section-space y sits in.
///
/// A y above the first line answers the first line, and one below the last
/// answers the last — clicking in a field's top or bottom margin puts the
/// caret on the nearest line rather than nowhere.
fn find_line(section: &Section, y: f32) -> Option<(usize, &crate::vt::Line)> {
    let mut last: Option<(usize, &crate::vt::Line)> = None;
    for (index, line) in section.lines.iter().enumerate() {
        // A line's box runs from its baseline less its ascent to its baseline
        // less its descent — descent being negative, so the bottom is below.
        let top = line.y - line.ascent;
        let bottom = line.y - line.descent;
        if geom::is_float_smaller(y, top) {
            // Above this line. The first line claims a point above the whole
            // section; otherwise the point sits in the gap above this one and
            // the line before it is the nearer.
            return Some(last.unwrap_or((index, line)));
        }
        if geom::is_float_bigger(y, bottom) {
            last = Some((index, line));
            continue;
        }
        return Some((index, line));
    }
    last
}

/// The half-open range of word indices one line covers.
///
/// A line whose `words` is `None` is the single line of an empty section and
/// covers nothing.
fn line_range(line: &crate::vt::Line) -> std::ops::Range<usize> {
    let Some(words) = line.words.clone() else {
        return 0..0;
    };
    let begin = usize::try_from(words.start).unwrap_or(usize::MAX);
    let end = usize::try_from(words.end).unwrap_or(usize::MAX);
    begin..end.max(begin)
}

/// Which character of a line's range a layout-space x lands after.
///
/// Returns `None` for the line header. This is the tie-break the module docs
/// describe: strictly past a character's midpoint puts the caret after it.
///
/// # Why this bisects rather than scans
///
/// The predicate — past the midpoint — is monotone along a left-to-right
/// line, and a scan and a bisection agree on every monotone input. A
/// right-to-left run is **not** monotone: the layout gives its characters
/// descending x, so the first character's midpoint is the rightmost one on
/// the line and a scan stops at it, answering the header for every click left
/// of it. Upstream bisects anyway and takes whatever the narrowing lands on,
/// which for a descending run resolves toward the run's *last* logical
/// character — the one drawn at the line's left edge — and so puts the caret
/// at the end of the run rather than at its beginning.
///
/// That is not an incidental difference. A click in the left half of a Hebrew
/// word is the common case, and the two answers name opposite ends of it. So
/// the bisection is transcribed rather than simplified, including the three
/// details that decide where it lands: `nMid` is recomputed from the halved
/// interval each step, the two `nMid == nLeft` / `nMid == nRight` guards are
/// what terminate it, and **the answer is the post-loop test at `nMid`
/// alone** — not the running maximum a scan would keep.
fn word_at_x(
    section: &Section,
    range: std::ops::Range<usize>,
    config: &Config,
    metrics: &Metrics<'_>,
    font_size: f32,
    x: f32,
) -> Option<u32> {
    // Raw `>`, no epsilon: the boundary belongs to the character's left half,
    // so a click exactly on a midpoint lands before that character.
    //
    // `font_size` is the layout's, so an auto-sized field's midpoints are the
    // real ones. Measured with the config's request instead, every advance is
    // zero and every midpoint collapses onto the character's own origin —
    // which makes the bisection answer by position alone and puts the caret
    // one character early everywhere in the line.
    let past_midpoint = |index: usize| {
        section
            .words
            .get(index)
            .is_some_and(|word| x > word.x + word_width(word, config, metrics, font_size) * 0.5)
    };

    if range.is_empty() {
        return None;
    }
    let (mut left, mut right) = (range.start, range.end);
    let mut mid = left.saturating_add(right) / 2;
    while left < right {
        if mid == left {
            break;
        }
        if mid == right {
            mid = mid.saturating_sub(1);
            break;
        }
        if section.words.get(mid).is_none() {
            break;
        }
        if past_midpoint(mid) {
            left = mid;
        } else {
            right = mid;
        }
        mid = left.saturating_add(right) / 2;
    }
    if past_midpoint(mid) {
        // A `mid` too large to be a `u32` cannot be produced by this crate,
        // and saturating keeps the query total. `Option` keeps an
        // unrepresentable index apart from "before the first character".
        return Some(u32::try_from(mid).unwrap_or(u32::MAX));
    }
    None
}

/// Where a caret at `place` is drawn, in PDF user space.
///
/// The returned point is the caret's **top**: `x` is the trailing edge of the
/// character the place names (its leading edge, for a line header), and `y`
/// is the line's ascent line. [`caret_rect`] turns that into the rectangle
/// [`crate::ap::field_body::Highlight`] wants.
///
/// A place naming a section, line or character the layout does not have
/// answers that container's own start rather than failing — the layout can
/// shrink under an edit while a caret still points into it, and a caret
/// outside the text is not an error.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// // The inverse of `place_at_point`, in PDF user space.
/// let point = hit::point_at_place(
///     &laid_out, config.plate, &config, &metrics, (0.0, 0.0), Place::START);
/// assert_eq!(point.x, f64::from(geom::left(config.plate)));
/// ```
#[must_use]
pub fn point_at_place(
    layout: &Layout,
    plate: Rect,
    config: &Config,
    metrics: &Metrics<'_>,
    offset: (f32, f32),
    place: Place,
) -> Point {
    let (x, y) = caret_position(layout, config, metrics, place);
    let (x, y) = Layout::to_pdf(plate, x, y);
    Point::new(f64::from(x + offset.0), f64::from(y + offset.1))
}

/// The caret's rectangle: a hairline from the line's ascent to its descent.
///
/// `width` is the caret's thickness — [`crate::ap::field_body::CARET_WIDTH`]
/// for a drawn caret. The rectangle is in PDF user space, ready to hand to
/// [`crate::ap::field_body::Highlight`].
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// let rect = hit::caret_rect(
///     &laid_out, config.plate, &config, &metrics, (0.0, 0.0), Place::START, 1.0);
/// // A hairline from the line's ascent down to its descent.
/// assert_eq!(geom::width(rect), 1.0);
/// assert!(geom::height(rect) > 0.0);
/// ```
#[must_use]
pub fn caret_rect(
    layout: &Layout,
    plate: Rect,
    config: &Config,
    metrics: &Metrics<'_>,
    offset: (f32, f32),
    place: Place,
    width: f32,
) -> Rect {
    let (x, top) = caret_position(layout, config, metrics, place);
    let height = line_extent(layout, config, metrics, place);
    let (left, top) = Layout::to_pdf(plate, x, top);
    let (left, top) = (left + offset.0, top + offset.1);
    geom::rect(left, top - height, left + width, top)
}

/// The caret's x and its line's ascent line, both in layout space.
fn caret_position(
    layout: &Layout,
    config: &Config,
    metrics: &Metrics<'_>,
    place: Place,
) -> (f32, f32) {
    let Some(section) = layout.sections.get(place.section as usize) else {
        return (0.0, 0.0);
    };
    let Some(line) = section.lines.get(place.line as usize) else {
        return (0.0, 0.0);
    };
    let top = line.y - line.ascent;
    let Some(word_index) = place.word else {
        return (line_caret_x(section, line), top);
    };
    let index = usize::try_from(word_index).unwrap_or(usize::MAX);
    let Some(word) = section.words.get(index) else {
        return (line_caret_x(section, line), top);
    };
    (caret_x(word, config, metrics, layout.font_size), top)
}

/// The x a caret sitting **after** one character is drawn at.
///
/// A left-to-right character's trailing edge is its right one, so the caret is
/// the character's origin plus its advance. A right-to-left character advances
/// the other way — its origin is already the *right* end of the cell the layout
/// gave it, and the caret after it belongs on its **left**, which is the
/// origin itself. Adding the advance to both is the same one-advance error
/// everywhere it happens: every caret in a Hebrew or Arabic run lands one
/// character to the right of the gap it names.
///
/// The advance is measured at the **layout's** resolved `font_size`. At the
/// config's request it would be zero on an auto-sized field, which collapses
/// the left-to-right branch onto the right-to-left one: every caret would sit
/// on its character's leading edge, one advance short of the gap it names.
fn caret_x(word: &crate::vt::Word, config: &Config, metrics: &Metrics<'_>, font_size: f32) -> f32 {
    if word.is_rtl {
        word.x
    } else {
        word.x + word_width(word, config, metrics, font_size)
    }
}

/// The x a caret sitting at a line's **header** — before its first character —
/// is drawn at.
///
/// The header is the position before the first character *in logical order*,
/// and in a right-to-left line that character is drawn at the line's right
/// end. So the answer is the line's trailing edge, not its leading one: a
/// left-to-right line answers its left edge and a right-to-left line answers
/// `x + width`. An empty line has no first character and keeps the left edge,
/// which is what puts an empty right-aligned field's caret where its
/// alignment already put the line.
///
/// The direction comes from the **first word alone**, not from the line's
/// dominant direction: a line whose first run is right-to-left and whose
/// second is not still answers its right edge.
fn line_caret_x(section: &Section, line: &crate::vt::Line) -> f32 {
    let Some(words) = line.words.clone() else {
        return line.x;
    };
    // Only a word this line actually owns decides: a `start` past the
    // section's words is a layout that shrank under an edit, and it answers
    // the left edge rather than reading a neighbour's direction. An empty
    // range owns nothing.
    let first = (words.start < words.end)
        .then(|| usize::try_from(words.start).ok())
        .flatten()
        .and_then(|index| section.words.get(index));
    if first.is_some_and(|word| word.is_rtl) {
        line.x + line.width
    } else {
        line.x
    }
}

/// The height of the line a place sits on.
///
/// # The fallback deliberately keeps the **config's** size
///
/// It is reached only for a place naming a line the layout does not have, and
/// the two sizes then say different things. `Layout::font_size` is what the
/// resolved layout used, and on an auto-sized field it answers a height for a
/// line that does not exist; the config's is what the *caller* asked for, and
/// a caller that asked for automatic sizing gets nothing. That second answer
/// is upstream's: `CPWL_EditImpl::GetCaretRect` reads a word range that is
/// empty for a missing place, so the caret it hands back has no height.
///
/// This was measured, not reasoned. Substituting the layout's size here moves
/// **170 rows, 37 of them downward** — every widget whose caret rect is asked
/// for a line it does not have gains a height it did not have before, and the
/// checkbox and radio families lose by it. The upward move on `password` is
/// +0.000006 of the +0.007252 this module's other two size fixes are worth.
/// So this one stays as it is; the two that matter are `caret_x` and
/// `word_at_x`, and both take the layout's size for a line that does exist.
fn line_extent(layout: &Layout, config: &Config, metrics: &Metrics<'_>, place: Place) -> f32 {
    let fallback = || {
        crate::vt::font_ascent(metrics, config.font_size)
            - crate::vt::font_descent(metrics, config.font_size)
    };
    layout
        .sections
        .get(place.section as usize)
        .and_then(|section| section.lines.get(place.line as usize))
        .map_or_else(fallback, |line| line.ascent - line.descent)
}

/// How many characters precede `place` in the layout's text.
///
/// Counting the way the text itself does: every character of every earlier
/// section, **plus one for each section break**, plus the characters of this
/// place's own line up to and including the one it names. So the index of the
/// caret before the first character is zero, and the index after the last is
/// the text's length.
///
/// # A wrapped line's header is not a position of its own
///
/// `place_at_point` names the *line header* — a place with no word — for a
/// click left of every midpoint on a line, and on a wrapped line that header
/// is the same caret position as the end of the line above it. The two are
/// folded together before anything is counted: a header on any line but the
/// first becomes the place of the character preceding it. So the header of
/// line 1 of a section whose first line holds characters `0..=4` counts as
/// **5**, not 0. Skipping the fold is not a rounding difference: it sends a
/// caret clicked at the start of a wrapped line to the start of the whole
/// field, and the next keystroke lands there.
///
/// # A place past the layout
///
/// Clamped to the end, and the clamp counts **no trailing section break**, so
/// an out-of-range section index yields the last section's end rather than
/// one past it.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// assert_eq!(hit::word_index_of_place(&laid_out, Place::START), 0);
/// assert_eq!(hit::word_index_of_place(&laid_out, Place::new(0, 0, Some(1))), 2);
/// ```
#[must_use]
pub fn word_index_of_place(layout: &Layout, place: Place) -> usize {
    // The fold, before anything is counted. A header on the first line has no
    // line above it and stays where it is.
    if place.word.is_none() && place.line > 0 {
        // The character before this line's first is the last of the line
        // above -- which is where a header on any line but the first folds to.
        let previous = layout
            .sections
            .get(place.section as usize)
            .and_then(|section| section.lines.get(place.line as usize))
            .map(|line| {
                let before = line
                    .words
                    .as_ref()
                    .and_then(|words| words.start.checked_sub(1));
                Place::new(place.section, place.line - 1, before)
            });
        if let Some(previous) = previous {
            return word_index_of_place(layout, previous);
        }
    }

    let target = place.section as usize;
    let last = layout.sections.len().saturating_sub(1);
    let mut index: usize = 0;
    for (position, section) in layout.sections.iter().enumerate() {
        if position >= target {
            break;
        }
        index = index.saturating_add(section.words.len());
        // The break between this section and the next counts as one
        // character, exactly as the tokenizer counted it on the way in — and
        // there is no break after the last section to count.
        if position != last {
            index = index.saturating_add(SECTION_BREAK_LENGTH);
        }
    }
    let Some(section) = layout.sections.get(target) else {
        return index;
    };
    // The header is "before character 0", so it consumes none of this
    // section; character `w` consumes `w + 1`.
    let after = place.word.map_or(0, |word| {
        usize::try_from(word)
            .unwrap_or(usize::MAX)
            .saturating_add(1)
    });
    index.saturating_add(after.min(section.words.len()))
}

/// A section break counts as one character in the flat index, the way the
/// line break it came from did.
const SECTION_BREAK_LENGTH: usize = 1;

/// Which caret position sits after `index` characters of the layout's text.
///
/// The inverse of [`word_index_of_place`]: for every place a layout can
/// produce, `place_of_word_index(layout, word_index_of_place(layout, p)) ==
/// p`. An index past the end answers the last place.
///
/// An index landing exactly *on* a section break — the position between a
/// paragraph's last character and the next paragraph's first — answers the
/// **end of the earlier** section, which is where a caret typed to that point
/// actually sits.
///
/// ```
/// use pdfrum_doc::geom;
/// use pdfrum_doc::vt::{Config, Metrics, layout};
///
/// // Every character ten thousandths wide: the stub the layout assertions
/// // in this crate are written against.
/// let width = |_code: u32| 10;
/// let metrics = Metrics { width: &width, ascent: 1000, descent: -200 };
///
/// let config = Config {
///     plate: geom::rect(0.0, 0.0, 100.0, 40.0),
///     font_size: 10.0,
///     multi_line: true,
///     ..Config::default()
/// };
/// let laid_out = layout("Hi", &config, &metrics);
/// use pdfrum_doc::vt::hit;
/// use pdfrum_doc::vt::hit::Place;
///
/// // The inverse of `word_index_of_place`.
/// assert_eq!(hit::place_of_word_index(&laid_out, 0), Place::START);
/// assert_eq!(hit::place_of_word_index(&laid_out, 2), Place::new(0, 0, Some(1)));
/// ```
#[must_use]
pub fn place_of_word_index(layout: &Layout, index: usize) -> Place {
    let mut consumed: usize = 0;
    for (position, section) in layout.sections.iter().enumerate() {
        let end = consumed.saturating_add(section.words.len());
        if index <= end {
            let within = index.saturating_sub(consumed);
            // Index 0 within a section is its header; index `n` is character
            // `n - 1`.
            let word = within
                .checked_sub(1)
                .map(|w| u32::try_from(w).unwrap_or(u32::MAX));
            return place_of_word(section, position, word);
        }
        consumed = end.saturating_add(SECTION_BREAK_LENGTH);
    }
    end_place(layout)
}

/// The place naming character `word` of a section, with the line it falls on
/// resolved.
fn place_of_word(section: &Section, index: usize, word: Option<u32>) -> Place {
    let line = line_of_word(section, word);
    Place::new(clamp_index(index), line, word)
}

/// Which line of a section a character index falls on.
///
/// A `None` word is the first line's header. A character past the section's
/// last line answers that last line, which keeps the place valid.
fn line_of_word(section: &Section, word: Option<u32>) -> u32 {
    let Some(word) = word else {
        return 0;
    };
    for (index, line) in section.lines.iter().enumerate() {
        if line
            .words
            .as_ref()
            .is_some_and(|words| words.contains(&word))
        {
            return clamp_index(index);
        }
    }
    clamp_index(section.lines.len().saturating_sub(1))
}

#[cfg(test)]
mod tests {
    use super::{
        Place, begin_place, caret_rect, end_place, place_at_point, place_of_word_index,
        point_at_place, word_index_of_place,
    };

    /// The caret positions of a line holding `n` characters: the header
    /// first, then each character.
    fn carets(n: u32) -> impl Iterator<Item = Option<u32>> {
        std::iter::once(None).chain((0..n).map(Some))
    }
    use crate::geom;
    use crate::vt::{self, Config, Metrics};
    use kurbo::Point;

    /// A single-line plate a hundred wide and thirty tall, the shape
    /// `text_form.pdf`'s field has.
    fn config() -> Config {
        Config {
            plate: geom::rect(101.0, 101.0, 199.0, 129.0),
            font_size: 12.0,
            ..Config::default()
        }
    }

    /// Helvetica's advance widths, per mille, for the characters the tests
    /// use. Hand-transcribed so the arithmetic below can be checked by hand
    /// rather than against whatever the font loader answers.
    fn helvetica(ch: u32) -> i32 {
        match char::from_u32(ch) {
            Some('A' | 'B' | 'E') => 667,
            Some('C' | 'D' | 'H') => 722,
            Some('F') => 611,
            Some('G') => 778,
            Some(' ') => 278,
            _ => 556,
        }
    }

    fn metrics() -> Metrics<'static> {
        Metrics {
            width: &helvetica,
            ascent: 723,
            descent: -207,
        }
    }

    /// Every character ten wide, which makes midpoints land on fives.
    fn ten(_: u32) -> i32 {
        10
    }

    fn tens() -> Metrics<'static> {
        Metrics {
            width: &ten,
            ascent: 1000,
            descent: -200,
        }
    }

    /// The offset a single-line field is drawn with: its one line centred in
    /// its plate. The same expression `ap::field_body::vertical_offset`
    /// computes, restated here so the tests do not depend on that module.
    fn centred(layout: &vt::Layout, config: &Config) -> (f32, f32) {
        let content = layout.content_rect_pdf(config.plate);
        (
            0.0,
            (geom::height(content) - geom::height(config.plate)) * 0.5,
        )
    }

    fn at(config: &Config, metrics: &Metrics<'_>, text: &str, x: f32, y: f32) -> Place {
        let layout = vt::layout(text, config, metrics);
        let offset = centred(&layout, config);
        place_at_point(
            &layout,
            config.plate,
            config,
            metrics,
            offset,
            Point::new(f64::from(x), f64::from(y)),
        )
    }

    /// The acceptance geometry: `text_form.pdf`'s field, Helvetica 12, the
    /// eight characters the embeddertest types, and the click it makes.
    ///
    /// The field's `/Rect` is `[100 100 200 130]` and its default border is
    /// one unit, so the plate starts at x = 101. Helvetica 12 sets
    /// `ABCDEFGH` at these advances:
    ///
    /// ```text
    ///   A 101.000 .. 109.004   midpoint 105.002
    ///   B 109.004 .. 117.008   midpoint 113.006
    ///   C 117.008 .. 125.672   midpoint 121.340
    ///   D 125.672 .. 134.336   midpoint 130.004
    ///   E 134.336 .. 142.340   midpoint 138.338
    /// ```
    ///
    /// A click at x = 134 is past D's midpoint and short of E's, so the caret
    /// lands after D — after exactly four characters, which is what
    /// `InsertTextInPopulatedTextFieldMiddle` observes when it inserts
    /// `Hello` and reads back `ABCDHelloEFGH`.
    #[test]
    fn the_embeddertests_middle_click_lands_after_four_characters() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABCDEFGH", &config, &metrics);
        let place = place_at_point(
            &layout,
            config.plate,
            &config,
            &metrics,
            centred(&layout, &config),
            Point::new(134.0, 115.0),
        );
        assert_eq!(place.word, Some(3), "the caret sits after D");
        assert_eq!(
            word_index_of_place(&layout, place),
            4,
            "four characters precede the caret"
        );
    }

    /// The two neighbouring embeddertests, which calibrate the same rule at
    /// the ends: a click at the field's left edge inserts in front of
    /// everything, and one at x = 166 inserts behind it.
    #[test]
    fn the_same_field_clicked_at_either_end_gives_the_two_extremes() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABCDEFGH", &config, &metrics);
        let offset = centred(&layout, &config);
        let begin = place_at_point(
            &layout,
            config.plate,
            &config,
            &metrics,
            offset,
            Point::new(102.0, 115.0),
        );
        assert_eq!(begin.word, None, "before the first character");
        assert_eq!(word_index_of_place(&layout, begin), 0);

        let end = place_at_point(
            &layout,
            config.plate,
            &config,
            &metrics,
            offset,
            Point::new(166.0, 115.0),
        );
        assert_eq!(end.word, Some(7), "after the last character");
        assert_eq!(word_index_of_place(&layout, end), 8);
    }

    /// The tie-break itself, on a plate where the midpoints are round
    /// numbers. Every character is ten wide, so the first sits at 101..111
    /// with its midpoint at 106.
    #[test]
    fn a_click_exactly_on_a_midpoint_lands_before_that_character() {
        let config = config();
        let metrics = tens();
        // Ten wide at size twelve is 10 * 12 * 0.001 = 0.12 per character,
        // so use a size that makes the arithmetic whole.
        let config = Config {
            font_size: 1000.0,
            ..config
        };
        // Each character is now ten units wide: 101..111, 111..121, ...
        assert_eq!(at(&config, &metrics, "abc", 106.0, 115.0).word, None);
        // A hair past it, and the caret moves after the character.
        assert_eq!(at(&config, &metrics, "abc", 106.001, 115.0).word, Some(0));
        // A hair before, and it does not.
        assert_eq!(at(&config, &metrics, "abc", 105.999, 115.0).word, None);
        // The second character's midpoint, 116, behaves the same way.
        assert_eq!(at(&config, &metrics, "abc", 116.0, 115.0).word, Some(0));
        assert_eq!(at(&config, &metrics, "abc", 116.001, 115.0).word, Some(1));
    }

    /// Left of, right of, above and below the text. None of these fail, and
    /// each clamps to the nearest place rather than to nothing.
    #[test]
    fn points_outside_the_content_clamp_to_its_ends() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABCDEFGH", &config, &metrics);
        let offset = centred(&layout, &config);
        let ask = |x: f32, y: f32| {
            place_at_point(
                &layout,
                config.plate,
                &config,
                &metrics,
                offset,
                Point::new(f64::from(x), f64::from(y)),
            )
        };
        // Far left of the first character, on the line.
        assert_eq!(ask(-1000.0, 115.0).word, None);
        // Far right of the last, on the line.
        assert_eq!(ask(1000.0, 115.0).word, Some(7));
        // Above everything: the layout's first place.
        assert_eq!(ask(134.0, 10_000.0), begin_place(&layout));
        // Below everything: its last.
        assert_eq!(ask(134.0, -10_000.0), end_place(&layout));
    }

    /// An empty field has exactly one place, and every click finds it.
    #[test]
    fn an_empty_field_answers_its_only_place_from_anywhere() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("", &config, &metrics);
        for (x, y) in [
            (102.0, 115.0),
            (198.0, 115.0),
            (134.0, 10_000.0),
            (134.0, -10_000.0),
            (-500.0, 115.0),
        ] {
            let place = place_at_point(
                &layout,
                config.plate,
                &config,
                &metrics,
                centred(&layout, &config),
                Point::new(x, y),
            );
            assert_eq!(place.word, None, "at ({x}, {y})");
            assert_eq!(word_index_of_place(&layout, place), 0);
        }
    }

    /// A multi-line field: which line a y picks, and that an empty paragraph
    /// between two full ones is reachable.
    #[test]
    fn a_blank_line_between_paragraphs_is_its_own_place() {
        let config = Config {
            plate: geom::rect(0.0, 0.0, 200.0, 200.0),
            font_size: 10.0,
            multi_line: true,
            ..Config::default()
        };
        let metrics = tens();
        let layout = vt::layout("ab\n\ncd", &config, &metrics);
        assert_eq!(layout.sections.len(), 3, "three paragraphs");
        assert!(
            layout.sections.get(1).is_some_and(|s| s.words.is_empty()),
            "the middle one is empty"
        );
        // The empty paragraph's only place, reached through the index pair.
        let blank = place_of_word_index(&layout, 3);
        assert_eq!(blank, Place::new(1, 0, None));
        assert_eq!(word_index_of_place(&layout, blank), 3);
    }

    /// A defaulted `Place` is the beginning of the text, not the position
    /// after the first character.
    #[test]
    fn a_default_place_is_the_start_and_not_a_zero_word() {
        assert_eq!(Place::default(), Place::START);
        assert_eq!(Place::default(), Place::start());
        assert_eq!(Place::START.word, None, "a zero word is after character 0");
    }

    /// A wrapped line's header is the previous line's end, and it is a
    /// *caret position*, not zero.
    ///
    /// A header on any line but the first folds onto the place before it
    /// before the count begins. Without the fold a click at the start of the
    /// second visual line reports index 0 — the start of the whole field —
    /// and the next keystroke is inserted there.
    #[test]
    fn a_wrapped_lines_header_indexes_to_the_end_of_the_line_above() {
        // `tens()` is ten thousandths of an em, so at 10pt each character
        // advances 0.1 units: a 0.45-unit plate holds four per line and
        // "abcdefgh" wraps after "abcd".
        let config = Config {
            plate: geom::rect(0.0, 0.0, 0.45, 200.0),
            font_size: 10.0,
            multi_line: true,
            auto_return: true,
            ..Config::default()
        };
        let layout = vt::layout("abcdefgh", &config, &tens());
        let section = layout.sections.first().expect("one section");
        assert!(section.lines.len() >= 2, "the text must wrap: {section:?}");
        let first_line_end = section.lines.first().expect("a first line").last_word();

        // The second line's header, which is what a click left of its first
        // midpoint produces.
        let header = Place::new(0, 1, None);
        assert_eq!(
            word_index_of_place(&layout, header),
            word_index_of_place(&layout, Place::new(0, 0, first_line_end)),
            "the header must be the line above's end, not the field's start"
        );
        assert_ne!(word_index_of_place(&layout, header), 0);
    }

    /// A place naming a section the layout does not have is the end, and the
    /// end is not one past it.
    ///
    /// The section-break character is counted between sections and not after
    /// the last one, so the clamp adds no trailing break.
    #[test]
    fn a_place_past_the_last_section_indexes_to_the_very_end() {
        let config = Config {
            plate: geom::rect(0.0, 0.0, 200.0, 200.0),
            font_size: 10.0,
            multi_line: true,
            ..Config::default()
        };
        for text in ["abc", "ab\ncd", "a\nb\nc"] {
            let layout = vt::layout(text, &config, &tens());
            assert_eq!(
                word_index_of_place(&layout, Place::new(9, 0, Some(0))),
                word_index_of_place(&layout, end_place(&layout)),
                "{text:?}"
            );
        }
    }

    /// Every place a layout can name survives being turned into an index and
    /// back.
    #[test]
    fn every_place_survives_the_index_round_trip() {
        let config = Config {
            plate: geom::rect(0.0, 0.0, 200.0, 200.0),
            font_size: 10.0,
            multi_line: true,
            ..Config::default()
        };
        let metrics = tens();
        for text in ["", "a", "abc", "ab\ncd", "ab\n\ncd", "a\nb\nc\nd"] {
            let layout = vt::layout(text, &config, &metrics);
            for (s, section) in layout.sections.iter().enumerate() {
                for (l, line) in section.lines.iter().enumerate() {
                    // The header, then every character the line covers.
                    let words = std::iter::once(None)
                        .chain(line.words.clone().into_iter().flatten().map(Some));
                    for word in words {
                        let place = Place::new(
                            u32::try_from(s).unwrap_or(0),
                            u32::try_from(l).unwrap_or(0),
                            word,
                        );
                        let index = word_index_of_place(&layout, place);
                        // A later line's header is not a caret position of
                        // its own: it collapses to the end of the line above,
                        // which is where the round trip lands. Asserting the
                        // collapse *target* is the point — skipping the case
                        // is what let it collapse to zero unnoticed.
                        let expected = if word.is_none() && l > 0 {
                            let previous = section.lines.get(l - 1).expect("a line above");
                            place_of_word_index(
                                &layout,
                                word_index_of_place(
                                    &layout,
                                    Place::new(
                                        u32::try_from(s).unwrap_or(0),
                                        u32::try_from(l - 1).unwrap_or(0),
                                        previous.last_word(),
                                    ),
                                ),
                            )
                        } else {
                            place
                        };
                        assert_eq!(
                            place_of_word_index(&layout, index),
                            expected,
                            "{text:?} at {place:?} (index {index})"
                        );
                    }
                }
            }
        }
    }

    /// An index past the text's end is the last place, not a panic.
    #[test]
    fn an_index_past_the_end_answers_the_last_place() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABC", &config, &metrics);
        assert_eq!(place_of_word_index(&layout, 3), end_place(&layout));
        assert_eq!(place_of_word_index(&layout, 9999), end_place(&layout));
    }

    /// Clicking where a caret is drawn puts the caret back where it was:
    /// `place_at_point` and `point_at_place` agree at every position.
    #[test]
    fn a_caret_clicked_at_its_own_position_does_not_move() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABCDEFGH", &config, &metrics);
        let offset = centred(&layout, &config);
        for word in carets(8) {
            let place = Place::new(0, 0, word);
            let point = point_at_place(&layout, config.plate, &config, &metrics, offset, place);
            // A click *at* the caret is exactly on a character boundary,
            // which is a half-width past the previous character's midpoint —
            // strictly past it, so the caret stays put.
            let back = place_at_point(
                &layout,
                config.plate,
                &config,
                &metrics,
                offset,
                Point::new(point.x, point.y - 1.0),
            );
            assert_eq!(back, place, "caret at {word:?} moved");
        }
    }

    /// The caret rectangle a focused field draws: as wide as asked, as tall
    /// as its line, and starting where the character it follows ends.
    #[test]
    fn the_caret_rectangle_spans_its_line() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABCDEFGH", &config, &metrics);
        let rect = caret_rect(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Place::new(0, 0, Some(3)),
            0.4,
        );
        // After D, whose advance ends at 134.336.
        assert!(
            (geom::left(rect) - 134.336).abs() < 0.01,
            "{:?}",
            geom::left(rect)
        );
        assert!((geom::width(rect) - 0.4).abs() < 1e-5);
        // As tall as Helvetica 12's ascent plus descent.
        let expected = (723.0 + 207.0) * 12.0 * 0.001;
        assert!(
            (geom::height(rect) - expected).abs() < 0.01,
            "{:?} vs {expected}",
            geom::height(rect)
        );
    }

    /// A place naming something the layout does not have answers a valid
    /// point rather than panicking — the caret can outlive an edit that
    /// shortened the text.
    #[test]
    fn a_place_past_the_layout_still_answers_a_point() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("AB", &config, &metrics);
        for place in [
            Place::new(9, 0, Some(0)),
            Place::new(0, 9, Some(0)),
            Place::new(0, 0, Some(99)),
            Place::new(u32::MAX, u32::MAX, Some(u32::MAX)),
        ] {
            let point = point_at_place(&layout, config.plate, &config, &metrics, (0.0, 0.0), place);
            assert!(point.x.is_finite() && point.y.is_finite(), "{place:?}");
            // The index of an out-of-range place is whatever the walk
            // accumulated before it ran out — a number, never a panic — and
            // feeding it back always lands on a place the layout does hold.
            let index = word_index_of_place(&layout, place);
            let back = place_of_word_index(&layout, index);
            assert!(
                (back.section as usize) < layout.sections.len(),
                "{place:?} came back as {back:?}"
            );
        }
    }

    /// A comb field's cells: the tail each character carries widens its
    /// advance, so the midpoints are the cells' midpoints and not the
    /// glyphs'.
    #[test]
    fn comb_cells_hit_test_on_the_cell_rather_than_the_glyph() {
        let config = Config {
            plate: geom::rect(0.0, 0.0, 100.0, 20.0),
            font_size: 10.0,
            char_array: 4,
            ..Config::default()
        };
        let metrics = tens();
        let layout = vt::layout("ab", &config, &metrics);
        // Four cells across a hundred units: 25 each. The first character's
        // advance therefore runs a full cell, so its midpoint is far right of
        // the glyph's own centre.
        let first = layout
            .sections
            .first()
            .and_then(|s| s.words.first())
            .copied()
            .expect("a first character");
        let width = vt::word_width(&first, &config, &metrics, config.font_size);
        assert!(width > 20.0, "the cell tail widened the advance: {width}");
        let mid = first.x + width * 0.5;
        let before = place_at_point(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Point::new(f64::from(mid) - 0.01, 10.0),
        );
        let after = place_at_point(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Point::new(f64::from(mid) + 0.01, 10.0),
        );
        assert_eq!(before.word, None);
        assert_eq!(after.word, Some(0));
    }

    /// Every character five hundred per mille, so a twelve-point run steps in
    /// whole sixes and the caret positions below are exact.
    fn half_em(_: u32) -> i32 {
        500
    }

    fn halves() -> Metrics<'static> {
        Metrics {
            width: &half_em,
            ascent: 1000,
            descent: -200,
        }
    }

    /// A three-character Hebrew word in a plate whose left edge is one, laid
    /// out at twelve points with six-unit advances.
    ///
    /// The run is right-to-left, so it is drawn right to left across
    /// `1 ..= 19`: the first character in logical order occupies `13 ..= 19`,
    /// the second `7 ..= 13`, the third `1 ..= 7`.
    fn rtl_run() -> (Config, Metrics<'static>, vt::Layout) {
        let config = Config {
            plate: geom::rect(1.0, 1.0, 99.0, 29.0),
            font_size: 12.0,
            ..Config::default()
        };
        let metrics = halves();
        let layout = vt::layout("\u{5D1}\u{5D7}\u{5E8}", &config, &metrics);
        (config, metrics, layout)
    }

    /// The four caret positions of a right-to-left word, in place order.
    ///
    /// A character's caret sits at its own left edge when the run is
    /// right-to-left rather than at its trailing edge, and the line header
    /// sits at the line's *right* end. Together those walk the caret
    /// **leftward** as the place advances: the header at the run's right end,
    /// each further character one advance left of the last.
    ///
    /// Adding the advance in both directions instead — which is what a
    /// left-to-right-only port does — gives `1, 19, 13, 7`: the header at the
    /// wrong end, and every other caret one full advance right of the gap it
    /// names.
    #[test]
    fn a_right_to_left_words_carets_walk_leftward_from_its_right_edge() {
        let (config, metrics, layout) = rtl_run();
        let got: Vec<f64> = carets(3)
            .map(|word| {
                point_at_place(
                    &layout,
                    config.plate,
                    &config,
                    &metrics,
                    (0.0, 0.0),
                    Place::new(0, 0, word),
                )
                .x
            })
            .collect();
        let want = [19.0, 13.0, 7.0, 1.0];
        for (place, (&got, &want)) in got.iter().zip(want.iter()).enumerate() {
            assert!(
                (got - want).abs() < 1e-4,
                "place {} caret is {got}, want {want}: {got:?}",
                i32::try_from(place).unwrap_or(0) - 1
            );
        }
    }

    /// The same four positions through [`caret_rect`], which is what the
    /// focused field actually draws, so the rectangle's left edge is the
    /// caret's x rather than that x plus a width.
    #[test]
    fn the_drawn_caret_rectangle_follows_the_same_right_to_left_walk() {
        let (config, metrics, layout) = rtl_run();
        for (word, want) in carets(3).zip([19.0_f64, 13.0, 7.0, 1.0]) {
            let rect = caret_rect(
                &layout,
                config.plate,
                &config,
                &metrics,
                (0.0, 0.0),
                Place::new(0, 0, word),
                0.4,
            );
            assert!(
                (rect.x0 - want).abs() < 1e-4,
                "caret after {word:?} starts at {}, want {want}",
                rect.x0
            );
            assert!((rect.x1 - rect.x0 - 0.4).abs() < 1e-4, "{rect:?}");
        }
    }

    /// A left-to-right line is untouched: its header is the left edge and
    /// every caret is a character's right edge, which is what every existing
    /// assertion in this module already depends on.
    #[test]
    fn a_left_to_right_run_still_walks_rightward_from_its_left_edge() {
        let config = Config {
            plate: geom::rect(1.0, 1.0, 99.0, 29.0),
            font_size: 12.0,
            ..Config::default()
        };
        let metrics = halves();
        let layout = vt::layout("abc", &config, &metrics);
        let got: Vec<f64> = carets(3)
            .map(|word| {
                point_at_place(
                    &layout,
                    config.plate,
                    &config,
                    &metrics,
                    (0.0, 0.0),
                    Place::new(0, 0, word),
                )
                .x
            })
            .collect();
        for (place, (&got, &want)) in got.iter().zip([1.0, 7.0, 13.0, 19.0].iter()).enumerate() {
            assert!(
                (got - want).abs() < 1e-4,
                "place {} caret is {got}, want {want}",
                i32::try_from(place).unwrap_or(0) - 1
            );
        }
    }

    /// A click in a right-to-left run answers one of the run's two ends, and
    /// the **middle** character's midpoint is what divides them.
    ///
    /// The word search is a **bisection**, and the midpoint predicate it
    /// bisects on is monotone only along a left-to-right line. Down a
    /// descending run the first probe is the middle character and the answer
    /// follows that one probe alone: a click **left** of its midpoint narrows
    /// to index 0, whose own midpoint is the run's *rightmost*, so the
    /// post-loop test there fails and the answer is the header; a click right
    /// of it narrows to the last index, whose midpoint is the run's
    /// *leftmost*, which the click is past.
    ///
    /// The two places are the run's two logical ends — its beginning and its
    /// end — and in a right-to-left run those are drawn at the right and left
    /// edges respectively. So the caret crosses the whole run at the middle
    /// character's midpoint rather than stepping character by character. The
    /// assertion here is that transcription, not a claim that it is the
    /// nicest answer. What a scan-based search does instead is worse and not
    /// merely different — it answers the header for **every** click in the
    /// run, so the caret never moves at all.
    #[test]
    fn a_click_in_a_right_to_left_run_answers_the_end_the_bisection_narrows_to() {
        let (config, metrics, layout) = rtl_run();
        let at = |x: f64| {
            place_at_point(
                &layout,
                config.plate,
                &config,
                &metrics,
                (0.0, 0.0),
                Point::new(x, 15.0),
            )
            .word
        };
        let caret = |x: f64| {
            point_at_place(
                &layout,
                config.plate,
                &config,
                &metrics,
                (0.0, 0.0),
                Place::new(0, 0, at(x)),
            )
            .x
        };
        // The run occupies PDF x 1..19. The middle character is drawn over
        // 7..13, so its midpoint is at 10 — the one probe that decides.
        assert_eq!(at(2.0), None, "left of the middle midpoint: the header");
        assert_eq!(at(9.9), None);
        assert_eq!(at(10.0), None, "exactly on the midpoint is not past it");
        assert_eq!(at(10.1), Some(2), "past it: the run's last character");
        assert_eq!(at(18.0), Some(2));

        // The two places are the run's logical ends, drawn at its right and
        // left edges: the caret crosses the run rather than stepping across
        // it.
        assert!((caret(2.0) - 19.0).abs() < 1e-4, "{}", caret(2.0));
        assert!((caret(18.0) - 1.0).abs() < 1e-4, "{}", caret(18.0));
    }

    /// A line whose first character is right-to-left answers its right edge
    /// for the header even when a left-to-right run follows it, because
    /// `GetLineCaretX` reads the **first word alone**.
    #[test]
    fn a_mixed_line_takes_its_header_from_its_first_word_only() {
        let config = Config {
            plate: geom::rect(1.0, 1.0, 99.0, 29.0),
            font_size: 12.0,
            ..Config::default()
        };
        let metrics = halves();
        let rtl_first = vt::layout("\u{5D1}\u{5D7}ab", &config, &metrics);
        let header = point_at_place(
            &rtl_first,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Place::START,
        )
        .x;
        let line_width = rtl_first
            .sections
            .first()
            .and_then(|section| section.lines.first())
            .map_or(0.0, |line| line.width);
        assert!(
            (header - f64::from(1.0 + line_width)).abs() < 1e-4,
            "header is the line's right edge: {header} against width {line_width}"
        );

        // And the mirror: a left-to-right first word keeps the left edge even
        // with a right-to-left run behind it.
        let ltr_first = vt::layout("ab\u{5D1}\u{5D7}", &config, &metrics);
        let header = point_at_place(
            &ltr_first,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Place::START,
        )
        .x;
        assert!((header - 1.0).abs() < 1e-4, "{header}");
    }

    /// An empty line has no first character to take a direction from, so its
    /// header stays at the line's own left edge.
    #[test]
    fn an_empty_line_keeps_its_left_edge_for_a_header() {
        let config = Config {
            plate: geom::rect(1.0, 1.0, 99.0, 29.0),
            font_size: 12.0,
            ..Config::default()
        };
        let metrics = halves();
        let layout = vt::layout("", &config, &metrics);
        let header = point_at_place(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Place::START,
        )
        .x;
        assert!((header - 1.0).abs() < 1e-4, "{header}");
    }

    /// The `password` fixture's own geometry, laid out with the size it asks
    /// for — **zero**, meaning automatic.
    ///
    /// `testing/resources/pixel/password.in`'s second widget is
    /// `/Rect [100 160 200 190]` with `/MaxLen 5`, `/Q 2` and the password
    /// flag, and the file carries no `/DA` and no `/DR` at all — so the size
    /// requested is zero and the fallback Helvetica substitutes to Arimo
    /// (ascent 905, descent −211, `'*'` 389/1000). The evt types `tiger` and
    /// four more characters the limit drops.
    fn password_field() -> (Config, Metrics<'static>, vt::Layout) {
        fn arimo(ch: u32) -> i32 {
            match char::from_u32(ch) {
                Some('*') => 389,
                Some('t') => 278,
                Some('i') => 222,
                Some('r') => 333,
                _ => 556,
            }
        }
        let config = Config {
            // `/Rect` deflated by the default one-unit border.
            plate: geom::rect(101.0, 161.0, 199.0, 189.0),
            alignment: vt::Alignment::Right,
            font_size: 0.0,
            sub_word: Some('*'),
            limit_char: 5,
            ..Config::default()
        };
        let metrics = Metrics {
            width: &arimo,
            ascent: 905,
            descent: -211,
        };
        let layout = vt::layout("tigerssss", &config, &metrics);
        (config, metrics, layout)
    }

    /// An auto-sized field's carets are measured at the size the layout
    /// resolved, not at the zero its config still holds.
    ///
    /// This is `password`'s defect, in one assertion. `vt::layout` resolves
    /// the zero to 25 and writes it to [`vt::Layout::font_size`] — which is
    /// what `CPVT_VariableText::Rearrange` does with
    /// `SetFontSize(GetAutoFontSize())` — and `edit_ap` already draws with
    /// that. Reading `config.font_size` here instead made every advance zero,
    /// so the caret after the last of five asterisks sat on that asterisk's
    /// **left** edge: 189.275 rather than 199.0, which is the ten device
    /// columns the golden showed.
    ///
    /// The five carets are one advance apart and the last is the plate's own
    /// right edge, because the field is right-aligned and full.
    #[test]
    fn an_auto_sized_fields_carets_are_measured_at_the_size_the_layout_resolved() {
        let (config, metrics, layout) = password_field();
        assert!(
            (layout.font_size - 25.0).abs() < 1e-4,
            "auto size resolved to {}",
            layout.font_size
        );
        assert!(
            config.font_size == 0.0,
            "the config still holds the request, which is the whole point"
        );
        // The limit keeps five characters of the nine typed.
        assert_eq!(end_place(&layout), Place::new(0, 0, Some(4)));

        let advance = 389.0 * 25.0 / 1000.0;
        let first = 150.375_f32;
        for word in carets(5) {
            let got = point_at_place(
                &layout,
                config.plate,
                &config,
                &metrics,
                (0.0, 0.0),
                Place::new(0, 0, word),
            )
            .x;
            // The header sits at the line's left edge; character `w` sits
            // one advance further along than character `w - 1`.
            let steps = u16::try_from(word.map_or(0, |w| w.saturating_add(1)))
                .map_or(f32::from(u16::MAX), f32::from);
            let want = f64::from(first + advance * steps);
            assert!(
                (got - want).abs() < 1e-3,
                "caret after {word:?} is {got}, want {want}"
            );
        }
    }

    /// The same size, through [`caret_rect`], which is what the focused field
    /// draws — the rectangle's x **and** its height.
    ///
    /// The height is the second half of the same defect: `line_extent`'s
    /// fallback read the config too, so a place naming a line the layout does
    /// not have would have answered a caret of no height at all.
    #[test]
    fn the_drawn_caret_of_an_auto_sized_field_has_the_resolved_sizes_height() {
        let (config, metrics, layout) = password_field();
        let rect = caret_rect(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            end_place(&layout),
            0.4,
        );
        // Flush with the plate's right edge: right-aligned and full.
        assert!((rect.x0 - 199.0).abs() < 1e-3, "{rect:?}");
        assert!((rect.x1 - rect.x0 - 0.4).abs() < 1e-4, "{rect:?}");
        // (905 + 211) * 25 / 1000, the line's own ascent and descent.
        assert!((rect.y1 - rect.y0 - 27.9).abs() < 1e-3, "{rect:?}");

        // A place naming a line the layout does **not** have keeps the
        // config's size, which for an auto-sized field is a caret of no
        // height. That is deliberate and measured — see `line_extent` — and
        // it is asserted here so substituting the layout's size turns this
        // red rather than moving 170 conformance rows silently.
        let missing = caret_rect(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Place::new(0, 7, Some(0)),
            0.4,
        );
        assert!((missing.y1 - missing.y0).abs() < 1e-6, "{missing:?}");
    }

    /// A click into an auto-sized field lands by the midpoint rule at the
    /// resolved size, not by position alone.
    ///
    /// The third face of the same defect. At a zero size every advance is
    /// zero, so every midpoint collapses onto the character's own origin and
    /// the bisection answers whichever end its first probe falls on — the
    /// caret would jump to a line end instead of stepping.
    #[test]
    fn a_click_in_an_auto_sized_field_uses_the_resolved_midpoints() {
        let (config, metrics, layout) = password_field();
        let advance = 389.0 * 25.0 / 1000.0;
        let first = f64::from(150.375_f32);
        for index in 0..5 {
            // A hair past the midpoint of character `index` lands after it.
            let x = first + advance * (f64::from(index) + 0.5) + 0.01;
            let place = place_at_point(
                &layout,
                config.plate,
                &config,
                &metrics,
                (0.0, 0.0),
                Point::new(x, 175.0),
            );
            assert_eq!(place.word, Some(index), "click at {x} landed at {place:?}");
        }
        // Left of the first character's midpoint is the line header.
        let header = place_at_point(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Point::new(first + advance * 0.5 - 0.01, 175.0),
        );
        assert_eq!(header.word, None, "{header:?}");
    }

    /// A field that asks for an explicit size is untouched, which is why
    /// every other assertion in this module still reads the same.
    ///
    /// The two sizes are the same number there, so the fix can only move an
    /// auto-sized field — and an auto-sized field is exactly the one no
    /// assertion covered.
    #[test]
    fn an_explicitly_sized_field_answers_the_same_as_it_always_did() {
        let config = config();
        let metrics = metrics();
        let layout = vt::layout("ABC", &config, &metrics);
        assert!((layout.font_size - config.font_size).abs() < f32::EPSILON);
        let caret = point_at_place(
            &layout,
            config.plate,
            &config,
            &metrics,
            (0.0, 0.0),
            Place::new(0, 0, Some(0)),
        )
        .x;
        // 'A' is 667/1000 at twelve points, from the plate's left edge.
        assert!(
            (caret - (101.0 + 667.0 * 12.0 / 1000.0)).abs() < 1e-3,
            "{caret}"
        );
    }
}