rustyfi-pdf 0.1.4

//! PDF output backend (handlePdf.ml, on top of `pdf-writer`): base-14 Type1
//! fonts, uncompressed content streams, ttf-parser-backed metrics with
//! CID-keyed TrueType embedding, raster Image XObjects.

pub mod base14;
pub mod cid;
pub mod fonts;
pub mod ttf;

pub use base14::Base14Metrics;
pub use cid::{render_pdf_ttf, render_pdf_ttf_with};
pub use fonts::{FontConfigError, FontFlags, FontRegistry, FontSource};
pub use ttf::{FontError, TtfFontStore};

use std::collections::{BTreeMap, BTreeSet};

use pdf_writer::types::{ActionType, AnnotationType};
use pdf_writer::{Content, Filter, Finish, Name, Pdf, Rect, Ref, Str, TextStr};
use rustyfi_backend::{
    place_block_at, Annot, AnnotAction, Closing, Color, DocExtras, DocInfo, GraphicsElem,
    ImageResource, Length, MathGlyph, NamedDest, ObjRepr, OutlineEntry, Page, PageGeometry, Path,
    PathSeg, PureHorzBox, VertBox,
};

#[derive(Debug, thiserror::Error)]
pub enum PdfError {
    #[error("text {0:?} is not encodable in WinAnsi (milestone-1 base fonts)")]
    Unencodable(String),
    #[error("no glyph for {0:?} in the embedded font")]
    NoGlyph(char),
    #[error(transparent)]
    Io(#[from] std::io::Error),
}

/// Resource names for the three base fonts, indexed by `FontKey`.
const FONT_RES_NAMES: [&str; 3] = ["F0", "F1", "F2"];

// Shared Image XObject support. `render_pdf` (base-14, below) and
// `render_pdf_ttf` (CID-keyed TrueType, `cid.rs`) are otherwise separate
// writers, but an `Image` box is rendered *identically* by both, so that path
// lives here once and `cid.rs` imports it.

/// Every `ImageId` (raw `usize` index into a `DocumentValue::images`-shaped
/// table) that appears in at least one placed line across `pages`, OR in a
/// page's `overlays` deco-graphics underlay (`fire_hooks`'
/// `page_graphics`) — only an image actually placed on a page gets an
/// XObject, not one merely decoded.
///
/// Scanning the overlay is essential for images drawn *inside a decoration*
/// (`figbox`'s `+fig-on-right` draws its figure with `draw-text` from the
/// frame's `deco`, so the box only ever lives in `page_graphics`): each
/// `include-image` call mints its own `ImageId`, so even when the same file
/// is also placed normally, the deco's id is distinct and its `/ImN Do`
/// would dangle.
///
/// An `Image` can hide arbitrarily deep: inside a `Tabular` cell, an
/// `EmbeddedBlock`'s stacked lines, a `Frame`'s contents, a discretionary's
/// `no_break` slot, or a `draw-text` run nested in a `unite-graphics` group.
/// This used to be a pair of hand-written mutually recursive scans, and they
/// had drifted: the box scan's `Graphics` arm inlined its own copy of the
/// `GraphicsElem::Text` case rather than calling the graphics scan beside it,
/// so a `draw-text` under a `Group`/`Clip` declared no XObject while
/// `place_graphics` still emitted its `/ImN Do`. A dangling reference like
/// that is structurally valid PDF, renders blank, and nothing reports it — so
/// the enumeration is now `rustyfi_backend::visit`'s generated traversal, and
/// the single `Image` arm below is the whole of what this function knows
/// about the shape of the box tree.
fn used_images(pages: &[Page], overlays: &[Vec<GraphicsElem>]) -> BTreeSet<usize> {
    let mut used = BTreeSet::new();
    {
        let mut note = |bx: &PureHorzBox| {
            if let PureHorzBox::Image { image, .. } = bx {
                used.insert(image.0);
            }
        };
        for page in pages {
            page.visit(&mut note);
        }
        for overlay in overlays {
            for elem in overlay {
                elem.visit(&mut note);
            }
        }
    }
    used
}

/// The PDF resource name for image `id` (e.g. `Im3`) — used verbatim by both
/// the page's `/Resources /XObject` entry and the content stream's `Do`
/// operand, which must agree.
fn image_res_name(id: usize) -> String {
    format!("Im{id}")
}

/// Write one Image XObject per id in `used`, returning each id's freshly
/// allocated indirect reference for the caller's `/XObject` resource
/// dictionaries.
///
/// **JPEG DCTDecode passthrough.** When `im.jpeg_dct` is `Some` (a
/// baseline/extended-sequential 8-bit JPEG, per
/// `ImageResource::sniff_baseline_jpeg_dct`), the ORIGINAL, still-DCT-encoded
/// file bytes are embedded verbatim with `/Filter /DCTDecode` and a
/// `/ColorSpace` from the JPEG's own component count (`/DeviceGray` for 1,
/// `/DeviceRGB` for 3), matching upstream's own JPEG special-case. Every
/// other image is flat, uncompressed 8-bit `DeviceRGB` samples with no
/// `/Filter` at all.
fn write_image_xobjects(
    pdf: &mut Pdf,
    mut next_ref: impl FnMut() -> Ref,
    images: &[ImageResource],
    used: &BTreeSet<usize>,
) -> BTreeMap<usize, Ref> {
    let mut refs = BTreeMap::new();
    for &id in used {
        let Some(im) = images.get(id) else {
            // An id past the end of the image table should not happen, but a
            // page silently missing one image beats a panic.
            continue;
        };
        if im.pdf.is_some() {
            // An imported PDF page (`load-pdf-image`) is NOT a raster image —
            // `write_form_xobjects` (below) handles it as a Form XObject.
            continue;
        }
        let r = next_ref();
        refs.insert(id, r);
        if let Some(dct) = &im.jpeg_dct {
            let mut xo = pdf.image_xobject(r, &dct.bytes);
            xo.filter(Filter::DctDecode);
            xo.width(im.px_w as i32);
            xo.height(im.px_h as i32);
            if dct.components == 1 {
                xo.color_space().device_gray();
            } else {
                xo.color_space().device_rgb();
            }
            xo.bits_per_component(8);
            xo.finish();
        } else {
            let mut xo = pdf.image_xobject(r, &im.samples);
            xo.width(im.px_w as i32);
            xo.height(im.px_h as i32);
            xo.color_space().device_rgb();
            xo.bits_per_component(8);
            xo.finish();
        }
    }
    refs
}

// Imported PDF pages as Form XObjects (`load-pdf-image`), shared by both
// writers like the raster support above.

/// The PDF resource name for form-embedded PDF-page id `id` (e.g. `Fm3`) —
/// disjoint from `image_res_name`'s `ImN` so Image and Form XObjects never
/// collide in the shared `/XObject` dictionary, which does not itself
/// distinguish the two (the `/Subtype` lives inside each stream).
fn form_res_name(id: usize) -> String {
    format!("Fm{id}")
}

/// Re-emit one neutral `ObjRepr` value into a fresh `Obj` writer, remapping
/// any `Ref(local_id)` through `remap`; an unresolved local id degrades to
/// `Null` rather than panicking. A `Stream` payload cannot legally appear
/// here (streams must be indirect objects in PDF; the importer only produces
/// one at the top level of an indirect entry, reached via `write_pdf_obj`) —
/// written as `Null` if it somehow does.
fn write_pdf_obj_value(obj: pdf_writer::Obj<'_>, repr: &ObjRepr, remap: &BTreeMap<u32, Ref>) {
    match repr {
        ObjRepr::Null => obj.primitive(pdf_writer::Null),
        ObjRepr::Bool(b) => obj.primitive(*b),
        // `pdf-writer` only implements `Primitive` for `i32`; integers in a
        // resource subtree fit comfortably.
        ObjRepr::Int(n) => obj.primitive(*n as i32),
        ObjRepr::Real(r) => obj.primitive(*r as f32),
        ObjRepr::Name(n) => obj.primitive(Name(n)),
        ObjRepr::String(s) => obj.primitive(Str(s)),
        ObjRepr::Ref(local_id) => match remap.get(local_id) {
            Some(r) => obj.primitive(*r),
            None => obj.primitive(pdf_writer::Null),
        },
        ObjRepr::Array(items) => {
            let mut arr = obj.array();
            for item in items {
                write_pdf_obj_value(arr.push(), item, remap);
            }
            arr.finish();
        }
        ObjRepr::Dict(entries) => {
            let mut dict = obj.dict();
            for (k, v) in entries {
                write_pdf_obj_value(dict.insert(Name(k)), v, remap);
            }
            dict.finish();
        }
        ObjRepr::Stream(..) => obj.primitive(pdf_writer::Null),
    }
}

/// Write one imported object (the `collect_direct_objects` / `Pdf.addobj`
/// analogue) at `out_ref`: a `Stream` becomes an indirect stream (dict
/// entries copied verbatim, minus `/Length` which `pdf-writer` derives),
/// anything else a plain indirect object.
fn write_pdf_obj(pdf: &mut Pdf, out_ref: Ref, repr: &ObjRepr, remap: &BTreeMap<u32, Ref>) {
    match repr {
        ObjRepr::Stream(entries, bytes) => {
            let mut stream = pdf.stream(out_ref, bytes);
            for (k, v) in entries {
                write_pdf_obj_value(stream.insert(Name(k)), v, remap);
            }
            stream.finish();
        }
        other => write_pdf_obj_value(pdf.indirect(out_ref), other, remap),
    }
}

/// Write one Form XObject per id in `used` whose `ImageResource` carries a
/// `pdf` payload (`load-pdf-image`); ids without one were already handled by
/// `write_image_xobjects`.
///
/// Per id: allocate a fresh output `Ref` for every non-zero local id in
/// `PdfPageResource.resources`, write each of those objects with its
/// references remapped, then emit the page's own content stream as a
/// `/Subtype /Form` XObject whose `/BBox` is the source `/MediaBox` and whose
/// `/Resources` is the (also remapped) local-id-0 root dictionary — upstream
/// `loadPdf.ml`'s `xobject_of_page`.
fn write_form_xobjects(
    pdf: &mut Pdf,
    mut next_ref: impl FnMut() -> Ref,
    images: &[ImageResource],
    used: &BTreeSet<usize>,
) -> BTreeMap<usize, Ref> {
    let mut refs = BTreeMap::new();
    for &id in used {
        let Some(im) = images.get(id) else { continue };
        let Some(pdf_res) = &im.pdf else { continue };

        let mut remap: BTreeMap<u32, Ref> = BTreeMap::new();
        let mut root_repr: Option<&ObjRepr> = None;
        for (local_id, repr) in &pdf_res.resources.0 {
            if *local_id == 0 {
                root_repr = Some(repr);
            } else {
                remap.entry(*local_id).or_insert_with(&mut next_ref);
            }
        }
        for (local_id, repr) in &pdf_res.resources.0 {
            if *local_id != 0 {
                write_pdf_obj(pdf, remap[local_id], repr, &remap);
            }
        }

        let form_ref = next_ref();
        let (x0, y0, x1, y1) = pdf_res.media_box;
        {
            let mut fx = pdf.form_xobject(form_ref, &pdf_res.content);
            fx.bbox(Rect::new(x0 as f32, y0 as f32, x1 as f32, y1 as f32));
            // Identity `/Matrix`: form space == the source page's own
            // MediaBox space. The box-to-page scale/translate lives entirely
            // in the placement `cm` operator (`place_form`).
            fx.matrix([1.0, 0.0, 0.0, 1.0, 0.0, 0.0]);
            if let Some(root) = root_repr {
                write_pdf_obj_value(fx.insert(Name(b"Resources")), root, &remap);
            }
            fx.finish();
        }
        refs.insert(id, form_ref);
    }
    refs
}

/// Emit the content-stream operators that place one Image box: `q  w 0 0 h
/// tx ty cm  /ImN Do  Q` (v0.0.6 `graphicD.ml`'s `pdfops_of_image`).
///
/// `ty` is the same already-flipped (page-down to PDF-up) baseline
/// y-coordinate a text run on this line uses for its `Td`/`next_line`,
/// because an image XObject's unit square is placed with its *bottom-left*
/// corner at the `cm` matrix's translation and `PureHorzBox::Image` sits
/// entirely above the baseline (all height, zero depth, per `linebreak.rs`'s
/// `layout_line`): the baseline *is* the image's bottom edge.
fn place_image(content: &mut Content, id: usize, tx: f32, ty: f32, width: f32, height: f32) {
    content.save_state();
    content.transform([width, 0.0, 0.0, height, tx, ty]);
    content.x_object(Name(image_res_name(id).as_bytes()));
    content.restore_state();
}

/// Emit the content-stream operators that place one imported-PDF-page Form
/// box: `q  sx 0 0 sy (tx - sx*x0) (ty - sy*y0) cm  /FmN Do  Q`.
///
/// Unlike an Image XObject (unit square, so `place_image`'s matrix is a plain
/// `[w, 0, 0, h, tx, ty]` scale), a Form XObject draws in its own user space
/// — the source page's `/MediaBox` coordinates — so the CTM must map that box
/// onto the placed `(tx, ty, w, h)` box: scale by `w/(x1-x0)`, `h/(y1-y0)`
/// and translate the MediaBox's own origin `(x0, y0)` to `(tx, ty)`. `/BBox`
/// clips in the form's own unscaled user space, so this CTM is the only place
/// the box-to-page scale factor is applied.
fn place_form(
    content: &mut Content,
    id: usize,
    tx: f32,
    ty: f32,
    width: f32,
    height: f32,
    media_box: (f64, f64, f64, f64),
) {
    let (x0, y0, x1, y1) = media_box;
    let bbox_w = (x1 - x0) as f32;
    let bbox_h = (y1 - y0) as f32;
    let sx = if bbox_w != 0.0 { width / bbox_w } else { 1.0 };
    let sy = if bbox_h != 0.0 { height / bbox_h } else { 1.0 };
    content.save_state();
    content.transform([
        sx,
        0.0,
        0.0,
        sy,
        tx - sx * x0 as f32,
        ty - sy * y0 as f32,
    ]);
    content.x_object(Name(form_res_name(id).as_bytes()));
    content.restore_state();
}

/// Emit one laid-out `PureHorzBox::Math` run's glyphs as a `BT / Tf / Td /
/// Tj / ET` group per glyph: each glyph carries its own font/size
/// (`glyph.info`) and offset (`glyph.dx`/`dy`) relative to the box's placed
/// anchor `(anchor_x, anchor_y)`, the same already-flipped `(line.x + dx,
/// paper_h - baseline_y)` a text run's `Td` uses. `glyph.dy > 0` raises it (a
/// superscript) since PDF y is up — no second flip here, only an add.
///
/// `encode` turns one glyph into engine-specific `Tj` bytes: WinAnsi over
/// `glyph.text` for `render_pdf`, a glyph-id run for `render_pdf_ttf`
/// (`cid.rs`) that additionally special-cases `glyph.gid.is_some()` (a
/// raw MATH-table variant glyph, emitted directly rather than re-derived from
/// `text`) — so the whole glyph, not just `info`/`text`, is threaded through.
pub(crate) fn place_math(
    content: &mut Content,
    glyphs: &[MathGlyph],
    anchor_x: f32,
    anchor_y: f32,
    name_for: &dyn Fn(rustyfi_backend::FontKey) -> String,
    mut encode: impl FnMut(&MathGlyph) -> Result<Vec<u8>, PdfError>,
) -> Result<(), PdfError> {
    for glyph in glyphs {
        let encoded = encode(glyph)?;
        let res_name = name_for(glyph.info.font);
        // Non-black only, matching the `InnerString` arms' `q…Q` guard.
        let colored = glyph.info.color != Color::Gray(0.0);
        if colored {
            content.save_state();
            set_fill_color(content, glyph.info.color);
        }
        content.begin_text();
        content.set_font(Name(res_name.as_bytes()), glyph.info.size.0 as f32);
        content.next_line(
            anchor_x + glyph.dx.0 as f32,
            anchor_y + glyph.dy.0 as f32 + glyph.info.rising.0 as f32,
        );
        content.show(Str(&encoded));
        content.end_text();
        if colored {
            content.restore_state();
        }
    }
    Ok(())
}

/// Stack an `EmbeddedBlock`'s already-broken `block` lines from its placed
/// anchor `(tx, ty)`, with the *text* emission (the one thing that differs
/// between the two writers) threaded through as the `emit_line` callback.
///
/// **Top-aligned stand-in.** `place_block_at` (rustyfi-backend) lays `block`
/// out from a fixed `(0, 0)` page-y-down origin; this shifts that whole stack
/// so the FIRST content line's baseline sits exactly at the anchor `ty`, with
/// every later line falling further down the page (subtracted from `ty`,
/// since PDF y is up). `embed-block-top`'s `adjust_to_first_line` (exact
/// upstream baseline alignment) is the faithful refinement.
pub(crate) fn place_embedded_block(
    block: &[VertBox],
    tx: f32,
    ty: f32,
    anchor_last: bool,
    mut emit_line: impl FnMut(&PureHorzBox, f32, f32) -> Result<(), PdfError>,
) -> Result<(), PdfError> {
    let placed = place_block_at((Length::ZERO, Length::ZERO), block.to_vec());
    // Which inner line's baseline coincides with the box's inline baseline
    // `ty`: the FIRST for `embed-block-top`, the LAST for
    // `embed-block-bottom` (upstream `adjust_to_first_line` /
    // `adjust_to_last_line`). Every other line is offset by the difference of
    // their placed baselines (larger `baseline_y` = lower = smaller PDF `y`).
    let anchor = if anchor_last { placed.last() } else { placed.first() };
    let Some(anchor) = anchor else {
        return Ok(());
    };
    let anchor_offset = anchor.baseline_y;
    for line in &placed {
        let y = ty - (line.baseline_y - anchor_offset).0 as f32;
        for (dx, cbx) in &line.contents {
            emit_line(cbx, tx + (line.x + *dx).0 as f32, y)?;
        }
    }
    Ok(())
}

/// Write one indirect Link annotation object per entry, returning
/// page-index -> the refs that page's `/Annots` array must list.
/// Upstream: `Annotation.of_annotation` + `add_to_pdf` (annotation.ml).
pub(crate) fn write_annotations(
    pdf: &mut Pdf,
    mut next_ref: impl FnMut() -> Ref,
    annots: &[Annot],
    n_pages: usize,
) -> BTreeMap<usize, Vec<Ref>> {
    let mut by_page: BTreeMap<usize, Vec<Ref>> = BTreeMap::new();
    for a in annots {
        if a.page >= n_pages {
            continue; // out-of-range page: skip gracefully
        }
        let r = next_ref();
        let mut ann = pdf.annotation(r);
        ann.subtype(AnnotationType::Link);
        let (x1, y1, x2, y2) = a.rect;
        ann.rect(Rect::new(x1.0 as f32, y1.0 as f32, x2.0 as f32, y2.0 as f32));
        // Upstream always writes a border — width 0 when None
        // (annotation.ml's `(Length.zero, None)` arm) — which suppresses the
        // PDF default 1pt border.
        let width = a.border.as_ref().map(|(w, _)| w.0 as f32).unwrap_or(0.0);
        ann.border(0.0, 0.0, width, None);
        if let Some((_, color)) = &a.border {
            match *color {
                Color::Gray(g) => {
                    ann.color_gray(g as f32);
                }
                Color::Rgb(r, g, b) => {
                    ann.color_rgb(r as f32, g as f32, b as f32);
                }
                Color::Cmyk(c, m, y, k) => {
                    ann.color_cmyk(c as f32, m as f32, y as f32, k as f32);
                }
            }
        }
        let mut act = ann.action();
        match &a.action {
            AnnotAction::Uri(uri) => {
                act.action_type(ActionType::Uri);
                act.uri(Str(uri.as_bytes()));
            }
            AnnotAction::GotoName(name) => {
                act.action_type(ActionType::GoTo);
                act.destination_named(Name(name.as_bytes()));
            }
        }
        act.finish();
        ann.finish();
        by_page.entry(a.page).or_default().push(r);
    }
    by_page
}

/// Write the `/Dests` name dictionary (PDF-1.1-style, exactly upstream
/// namedDest.ml's `Pdf.Dictionary` in the catalog — not a 1.2 name tree).
/// Each value is `[page /XYZ x y 0]`. Returns None when there is nothing to
/// write. Duplicate names: last registration wins (BTreeMap dedupe).
pub(crate) fn write_named_dests(
    pdf: &mut Pdf,
    mut next_ref: impl FnMut() -> Ref,
    dests: &[NamedDest],
    page_ids: &[Ref],
) -> Option<Ref> {
    let mut dedup: BTreeMap<&str, &NamedDest> = BTreeMap::new();
    for d in dests {
        if d.page < page_ids.len() {
            dedup.insert(d.name.as_str(), d);
        }
    }
    if dedup.is_empty() {
        return None;
    }
    let id = next_ref();
    let mut dict = pdf.destinations(id); // TypedDict<Destination>, chunk.rs:236
    for (name, d) in dedup {
        dict.insert(Name(name.as_bytes()))
            .page(page_ids[d.page])
            .xyz(d.x.0 as f32, d.y.0 as f32, None);
    }
    dict.finish();
    Some(id)
}

/// Write the whole `/Outlines` tree from the flat `(level, …)` list
/// (upstream outline.ml via camlpdf's Pdfmarks.add_bookmarks). Nesting is
/// derived from `level` exactly like Pdfmarks: an entry is a child of the
/// nearest preceding entry with a smaller level. `/Count` is the number of
/// descendants, negated when the item is closed (`is_open == false`);
/// the root `/Count` counts top-level items. Returns None when empty.
pub(crate) fn write_outline(
    pdf: &mut Pdf,
    mut next_ref: impl FnMut() -> Ref,
    entries: &[OutlineEntry],
) -> Option<Ref> {
    if entries.is_empty() {
        return None;
    }
    let root_id = next_ref();
    let ids: Vec<Ref> = entries.iter().map(|_| next_ref()).collect();

    let mut parent: Vec<Option<usize>> = vec![None; entries.len()];
    let mut stack: Vec<usize> = Vec::new(); // indices of open ancestors
    for i in 0..entries.len() {
        while let Some(&top) = stack.last() {
            if entries[top].level < entries[i].level {
                break;
            }
            stack.pop();
        }
        parent[i] = stack.last().copied();
        stack.push(i);
    }
    let mut children: Vec<Vec<usize>> = vec![Vec::new(); entries.len()];
    let mut top_level: Vec<usize> = Vec::new();
    for i in 0..entries.len() {
        match parent[i] {
            Some(p) => children[p].push(i),
            None => top_level.push(i),
        }
    }
    fn descendants(children: &[Vec<usize>], i: usize) -> i32 {
        children[i].iter().map(|&c| 1 + descendants(children, c)).sum()
    }

    {
        let mut root = pdf.outline(root_id);
        root.first(ids[*top_level.first().unwrap()]);
        root.last(ids[*top_level.last().unwrap()]);
        root.count(top_level.len() as i32);
    }
    for (i, e) in entries.iter().enumerate() {
        let mut item = pdf.outline_item(ids[i]);
        item.title(TextStr(&e.text));
        item.parent(parent[i].map(|p| ids[p]).unwrap_or(root_id));
        let sibs: &Vec<usize> = match parent[i] {
            Some(p) => &children[p],
            None => &top_level,
        };
        let pos = sibs.iter().position(|&x| x == i).unwrap();
        if pos > 0 {
            item.prev(ids[sibs[pos - 1]]);
        }
        if pos + 1 < sibs.len() {
            item.next(ids[sibs[pos + 1]]);
        }
        if let (Some(&f), Some(&l)) = (children[i].first(), children[i].last()) {
            item.first(ids[f]);
            item.last(ids[l]);
            let n = descendants(&children, i);
            item.count(if e.is_open { n } else { -n });
        }
        item.dest_name(Name(e.dest_name.as_bytes()));
    }
    Some(root_id)
}

/// Emit the PDF `/Info` dictionary at `id` from
/// `register-document-information`'s registered value.
/// `pdf.document_info(id)` self-registers with the file trailer (pdf-writer
/// `structure.rs`), so the caller only allocates `id` and calls this once,
/// gated on `extras.doc_info.is_some()` — an unregistered document emits no
/// `/Info` object at all. `/Title`/`/Subject`/`/Author` are written only when
/// `Some`; `/Keywords` only when non-empty, joined with a single space
/// (upstream `String.concat " "`, `documentInformationDictionary.ml`).
/// DOCUMENTED DEVIATION: `/Creator`/`/Producer` are written unconditionally
/// *once this function runs* (i.e. only when the dict is registered at all) —
/// upstream emits them on EVERY document, its `/Info` dict always existing.
pub(crate) fn write_document_info(pdf: &mut Pdf, id: Ref, info: &DocInfo) {
    let mut w = pdf.document_info(id);
    if let Some(title) = &info.title {
        w.title(TextStr(title));
    }
    if let Some(subject) = &info.subject {
        w.subject(TextStr(subject));
    }
    if let Some(author) = &info.author {
        w.author(TextStr(author));
    }
    if !info.keywords.is_empty() {
        let joined = info.keywords.join(" ");
        w.keywords(TextStr(&joined));
    }
    w.creator(TextStr("SATySFi"));
    w.producer(TextStr("SATySFi"));
}

/// Serialize typeset pages into a complete PDF document. `images` is the
/// document-wide image table (`DocumentValue::images`); pass `&[]` for a
/// text-only document.
pub fn render_pdf(
    geometry: &PageGeometry,
    pages: &[Page],
    images: &[ImageResource],
) -> Result<Vec<u8>, PdfError> {
    render_pdf_with(geometry, pages, images, &DocExtras::default())
}

/// Same as [`render_pdf`], but also emits the extras (`/Annots`,
/// `/Dests`, `/Outlines`, per-page deco-graphics underlays) accumulated
/// while evaluating the document (`DocumentValue::extras`).
pub fn render_pdf_with(
    geometry: &PageGeometry,
    pages: &[Page],
    images: &[ImageResource],
    extras: &DocExtras,
) -> Result<Vec<u8>, PdfError> {
    let mut pdf = Pdf::new();
    let mut alloc = 1;
    let mut next_ref = || {
        let r = Ref::new(alloc);
        alloc += 1;
        r
    };

    let catalog_id = next_ref();
    let page_tree_id = next_ref();
    let font_ids: Vec<Ref> = (0..3).map(|_| next_ref()).collect();

    let used = used_images(pages, &extras.page_graphics);
    let img_refs = write_image_xobjects(&mut pdf, &mut next_ref, images, &used);
    let form_refs = write_form_xobjects(&mut pdf, &mut next_ref, images, &used);

    let page_ids: Vec<Ref> = pages.iter().map(|_| next_ref()).collect();
    let content_ids: Vec<Ref> = pages.iter().map(|_| next_ref()).collect();

    // Annotations, named destinations, outline.
    let annot_refs = write_annotations(&mut pdf, &mut next_ref, &extras.annotations, pages.len());
    let dests_id = write_named_dests(&mut pdf, &mut next_ref, &extras.destinations, &page_ids);
    let outline_id = write_outline(&mut pdf, &mut next_ref, &extras.outline);
    if let Some(info) = &extras.doc_info {
        let info_id = next_ref();
        write_document_info(&mut pdf, info_id, info);
    }

    {
        let mut cat = pdf.catalog(catalog_id);
        cat.pages(page_tree_id);
        if let Some(d) = dests_id {
            cat.destinations(d); // /Dests, structure.rs:55
        }
        if let Some(o) = outline_id {
            cat.outlines(o); // /Outlines, structure.rs:62
        }
    }
    {
        let mut tree = pdf.pages(page_tree_id);
        tree.kids(page_ids.iter().copied());
        tree.count(page_ids.len() as i32);
    }

    for (i, name) in base14::BASE_FONT_NAMES.iter().enumerate() {
        let mut font = pdf.type1_font(font_ids[i]);
        font.base_font(Name(name.as_bytes()));
        font.encoding_predefined(Name(b"WinAnsiEncoding"));
    }

    let paper_h = geometry.paper_height.0 as f32;
    let media_box = Rect::new(0.0, 0.0, geometry.paper_width.0 as f32, paper_h);

    for (i, ((page, &page_id), &content_id)) in
        pages.iter().zip(&page_ids).zip(&content_ids).enumerate()
    {
        let overlay = extras.page_graphics.get(i).map(|v| v.as_slice()).unwrap_or(&[]);
        let content = page_content(page, paper_h, overlay, images)?;
        pdf.stream(content_id, &content);

        let mut p = pdf.page(page_id);
        p.media_box(media_box);
        p.parent(page_tree_id);
        p.contents(content_id);
        if let Some(refs) = annot_refs.get(&i) {
            p.annotations(refs.iter().copied()); // structure.rs:1227
        }
        let mut resources = p.resources();
        let mut fonts = resources.fonts();
        for (i, res_name) in FONT_RES_NAMES.iter().enumerate() {
            fonts.pair(Name(res_name.as_bytes()), font_ids[i]);
        }
        fonts.finish();
        // Registered on every page uniformly, the same simplification the
        // three base fonts above make: an unused resource entry is legal.
        if !img_refs.is_empty() || !form_refs.is_empty() {
            let mut x_objects = resources.x_objects();
            for (&id, &r) in &img_refs {
                x_objects.pair(Name(image_res_name(id).as_bytes()), r);
            }
            for (&id, &r) in &form_refs {
                x_objects.pair(Name(form_res_name(id).as_bytes()), r);
            }
            x_objects.finish();
        }
        resources.finish();
        p.finish();
    }

    Ok(pdf.finish())
}

/// Build one page's content stream: `BT … Tf … Td … Tj … ET` runs for text
/// and `q … cm /ImN Do Q` / `q … cm /FmN Do Q` runs for raster
/// images / imported PDF pages, with the y axis flipped from page
/// coordinates (downward) to PDF (upward). `overlay` (deco graphics,
/// already in absolute PDF y-up page coordinates — see `fire_hooks`) is
/// drawn FIRST, so it sits under the page's text/images. `images` is only
/// consulted to tell an ordinary raster `Image` box from an imported-PDF-page
/// one (`place_image` vs `place_form`).
fn page_content(
    page: &Page,
    paper_h: f32,
    overlay: &[GraphicsElem],
    images: &[ImageResource],
) -> Result<Vec<u8>, PdfError> {
    let mut content = Content::new();
    // `place_graphics` emits its `q`/`cm`/`Q` wrapper UNCONDITIONALLY, even
    // for an empty slice — guard it so an overlay-free page emits nothing.
    if !overlay.is_empty() {
        place_graphics(&mut content, overlay, 0.0, 0.0, &mut |c, bx, x, y| {
            emit_box(c, bx, x, y, images)
        })?;
    }
    for line in &page.lines {
        let y = paper_h - line.baseline_y.0 as f32;
        for (dx, bx) in &line.contents {
            emit_box(&mut content, bx, (line.x + *dx).0 as f32, y, images)?;
        }
    }
    Ok(content.finish().into_vec())
}

/// Emit one already-placed `PureHorzBox` at absolute PDF-space coordinates
/// `(tx, ty)` — `tx` the box's left edge, `ty` its baseline, both already in
/// PDF's y-**up** space (the page-level flip, `y = paper_h - baseline_y`,
/// already happened in the caller's `ty`). **Reentrant**: a `Tabular` box's
/// cells hold their own already-laid-out `PureHorzBox` runs, emitted through
/// this same path recursively.
///
/// **The three y-frames, reconciled in one expression.** Page layout is
/// y-down (flipped into `ty` by the caller, once); a `Tabular` box's own
/// coordinate frame is y-**up** from its own baseline-left origin; a cell's
/// `baseline_y` is measured y-up from *that* origin. Since `ty` is already
/// the box's *own* placed baseline in PDF y-up space, `ty + cell.baseline_y`
/// is exactly the cell's absolute baseline — no second flip. The rules
/// (`tab.rules`) go through `place_graphics`, whose own `cm` translate to
/// `(tx, ty)` puts its box-local y-up path coordinates in that same frame.
fn emit_box(
    content: &mut Content,
    bx: &PureHorzBox,
    tx: f32,
    ty: f32,
    images: &[ImageResource],
) -> Result<(), PdfError> {
    match bx {
        PureHorzBox::InnerString { info, text, .. } => {
            let encoded = winansi(text)?;
            let font_idx = (info.font.0 as usize).min(FONT_RES_NAMES.len() - 1);
            let colored = info.color != Color::Gray(0.0);
            if colored {
                content.save_state();
                set_fill_color(content, info.color);
            }
            content.begin_text();
            content.set_font(
                Name(FONT_RES_NAMES[font_idx].as_bytes()),
                info.size.0 as f32,
            );
            content.next_line(tx, ty + info.rising.0 as f32);
            content.show(Str(&encoded));
            content.end_text();
            if colored {
                content.restore_state();
            }
        }
        PureHorzBox::Image {
            width,
            height,
            image,
        } => {
            // `load-pdf-image`: an imported PDF page is placed as a Form
            // XObject (its own MediaBox-to-box CTM), not an Image XObject.
            match images.get(image.0).and_then(|im| im.pdf.as_ref()) {
                Some(pdf_res) => place_form(
                    content,
                    image.0,
                    tx,
                    ty,
                    width.0 as f32,
                    height.0 as f32,
                    pdf_res.media_box,
                ),
                None => place_image(content, image.0, tx, ty, width.0 as f32, height.0 as f32),
            }
        }
        PureHorzBox::Graphics { elems, origin_independent, .. } => {
            // A page-absolute callback (`origin_independent`) already carries
            // final page coordinates, so anchor at (0,0) — do NOT translate by
            // the box's placed position (which is often a negative text-origin;
            // translating shifts a full-page frame background off the page).
            let (ax, ay) = if *origin_independent { (0.0, 0.0) } else { (tx, ty) };
            place_graphics(content, elems, ax, ay, &mut |c, bx, x, y| {
                emit_box(c, bx, x, y, images)
            })?;
        }
        PureHorzBox::Math { glyphs, rules, .. } => {
            // base-14 never sees `gid: Some(_)` (no provider here overrides
            // `math_vertical_variant`), so this always encodes `g.text`.
            let name_for = |k: rustyfi_backend::FontKey| {
                FONT_RES_NAMES[(k.0 as usize).min(FONT_RES_NAMES.len() - 1)].to_string()
            };
            place_math(content, glyphs, tx, ty, &name_for, |g| winansi(&g.text))?;
            // The fraction bar/radical sign+overbar are `Fill`s, not
            // glyphs — placed through `place_graphics` at the SAME
            // already-flipped anchor `place_math` just used for the glyphs
            // (no second y-flip belongs here).
            place_graphics(content, rules, tx, ty, &mut |c, bx, x, y| {
                emit_box(c, bx, x, y, images)
            })?;
        }
        PureHorzBox::Tabular(tab) => {
            for cell in &tab.cells {
                for (cdx, cbx) in &cell.contents {
                    emit_box(
                        content,
                        cbx,
                        tx + (cell.x + *cdx).0 as f32,
                        ty + cell.baseline_y.0 as f32,
                        images,
                    )?;
                }
            }
            place_graphics(content, &tab.rules, tx, ty, &mut |c, bx, x, y| {
                emit_box(c, bx, x, y, images)
            })?;
        }
        PureHorzBox::EmbeddedBlock { block, anchor_last, .. } => {
            place_embedded_block(block, tx, ty, *anchor_last, |cbx, x, y| {
                emit_box(content, cbx, x, y, images)
            })?;
        }
        // An inline frame's contents, on the frame's own baseline. The
        // frame's deco graphics are NOT emitted here — they were fired
        // lang-side into `DocExtras::page_graphics` and drawn as the page
        // underlay (`page_content`'s `overlay` prologue).
        PureHorzBox::Frame { contents, .. } => {
            for (dx, cbx) in contents {
                emit_box(content, cbx, tx + dx.0 as f32, ty, images)?;
            }
        }
        _ => {}
    }
    Ok(())
}

/// Callback `place_graphics` invokes for each box a `GraphicsElem::Text` run
/// carries, at BOX-LOCAL coordinates — the surrounding `q; cm` translate maps
/// them onto the page, so implementations just call their own `emit_box`
/// unchanged.
pub(crate) type NestedEmitter<'a> =
    &'a mut dyn FnMut(&mut Content, &PureHorzBox, f32, f32) -> Result<(), PdfError>;

/// Emit `elems` (already box-local — see `PureHorzBox::Graphics`) into
/// `content`, wrapped in one `save_state`/`transform`/`restore_state` that
/// translates the whole box to its placed PDF-space anchor `(tx, ty)` — the
/// **same** already-flipped `(line.x + dx, paper_h - baseline_y)` anchor a
/// text run on that line uses, so element coordinates stay box-local (exactly
/// `graphicD.ml`'s per-box `cm` wrapping).
///
/// **Coordinate space.** SATySFi graphics are y-**up** (PDF-native) inside a
/// `Path`/`Subpath`'s own coordinates, but *page* layout is y-**down**
/// (`y = paper_h - baseline_y`); that flip already happened in the anchor
/// `(tx, ty)` passed in here, via the `cm` translate below — never per
/// coordinate — so a naive per-coordinate re-flip inside `emit_path` would
/// mirror every path vertically. Don't add one.
///
/// **`GraphicsElem::Text` and the CTM.** A `draw-text` run's boxes are
/// emitted via `emit_nested` at BOX-LOCAL coordinates `(pt.x + dx, pt.y)`,
/// *inside* the `q; cm` translate below, so PDF text ops (`BT`/`Td`/`Tj`)
/// compose with the CTM the same way a filled path does. Adding an absolute
/// anchor or a second y-flip here would double-place the run — don't.
pub(crate) fn place_graphics(
    content: &mut Content,
    elems: &[GraphicsElem],
    tx: f32,
    ty: f32,
    emit_nested: NestedEmitter<'_>,
) -> Result<(), PdfError> {
    content.save_state();
    content.transform([1.0, 0.0, 0.0, 1.0, tx, ty]);
    for elem in elems {
        // Not ink: `fire_hooks` already consumed it into
        // `DocExtras::destinations`, and `/Dests` is a catalog entry rather
        // than a content-stream op. Skipped ahead of the per-element `q`/`Q`.
        if matches!(elem, GraphicsElem::Destination { .. }) {
            continue;
        }
        content.save_state();
        match elem {
            // Upstream fills with the even-odd rule (`op_f'`,
            // `graphicD.ml:246`), not nonzero-winding — matters for
            // self-intersecting/nested subpaths (e.g. a frame = outer ⊕
            // inner rectangle).
            GraphicsElem::Fill(color, path) => {
                set_fill_color(content, *color);
                emit_path(content, path);
                content.fill_even_odd();
            }
            GraphicsElem::Stroke(width, color, path) => {
                set_stroke_color(content, *color);
                content.set_line_width(width.0 as f32);
                emit_path(content, path);
                content.stroke();
            }
            // `dashed-stroke`: identical to `Stroke` plus a `d` dash-array op
            // (upstream `pdfops_of_dashed_stroke`, `graphicD.ml:231`).
            GraphicsElem::DashedStroke(width, dash, color, path) => {
                set_stroke_color(content, *color);
                content.set_line_width(width.0 as f32);
                content.set_dash_pattern([dash.0 .0 as f32, dash.1 .0 as f32], dash.2 .0 as f32);
                emit_path(content, path);
                content.stroke();
            }
            // `draw-text`: re-enter the writer's own per-box emission at
            // box-local coordinates `pt + dx` — see "Text and the CTM" above.
            GraphicsElem::Text { pt, contents, transform, .. } => {
                match transform {
                    None => {
                        for (dx, bx) in contents {
                            emit_nested(content, bx, (pt.0 + *dx).0 as f32, pt.1 .0 as f32)?;
                        }
                    }
                    // Rotated/scaled run: push a `cm` carrying the 2×2 matrix
                    // (row-major `(a,b,c,d)` → PDF `[a c b d]`) plus the `pt`
                    // translation, then emit each box at its LOCAL offset
                    // `(dx, 0)` inside it.
                    Some((a, b, c, d)) => {
                        content.transform([
                            *a as f32,
                            *c as f32,
                            *b as f32,
                            *d as f32,
                            pt.0 .0 as f32,
                            pt.1 .0 as f32,
                        ]);
                        for (dx, bx) in contents {
                            emit_nested(content, bx, (*dx).0 as f32, 0.0)?;
                        }
                    }
                }
            }
            // 0.1's `graphics` collection container nodes. Never reached
            // by any 0.0.6 program (no 0.0.6-visible prim constructs
            // `Group`/`Clip`).
            GraphicsElem::Group(inner) => {
                // Zero anchor: the outer q/cm(tx,ty) frame is already active,
                // and a nested translate of (0,0) is what upstream's flat
                // `List.concat` renders to.
                place_graphics(content, inner, 0.0, 0.0, &mut *emit_nested)?;
            }
            GraphicsElem::Clip(path, inner) => {
                // `graphicD.ml:323-336`: q; path; W' n; contents; Q — the
                // per-element q…Q wrapper above already provides the q/Q.
                emit_path(content, path);
                content.clip_even_odd();
                content.end_path();
                place_graphics(content, inner, 0.0, 0.0, &mut *emit_nested)?;
            }
            // Skipped above; this arm is only for exhaustiveness.
            GraphicsElem::Destination { .. } => {}
        }
        content.restore_state();
    }
    content.restore_state();
    Ok(())
}

pub(crate) fn set_fill_color(content: &mut Content, color: Color) {
    match color {
        Color::Gray(g) => content.set_fill_gray(g as f32),
        Color::Rgb(r, g, b) => content.set_fill_rgb(r as f32, g as f32, b as f32),
        Color::Cmyk(c, m, y, k) => content.set_fill_cmyk(c as f32, m as f32, y as f32, k as f32),
    };
}

fn set_stroke_color(content: &mut Content, color: Color) {
    match color {
        Color::Gray(g) => content.set_stroke_gray(g as f32),
        Color::Rgb(r, g, b) => content.set_stroke_rgb(r as f32, g as f32, b as f32),
        Color::Cmyk(c, m, y, k) => {
            content.set_stroke_cmyk(c as f32, m as f32, y as f32, k as f32)
        }
    };
}

/// Emit one `Path`'s subpaths as `m`/`l`/`c`/`h` operators (per
/// `graphicD.ml`'s `pdfops_of_path`). Closings: `Open` emits nothing, `Line`
/// emits `close_path` (`h`), `Bezier(c1, c2)` a final `cubic_to(c1, c2,
/// start)` then `close_path`.
fn emit_path(content: &mut Content, path: &Path) {
    for sub in &path.subpaths {
        content.move_to(sub.start.0 .0 as f32, sub.start.1 .0 as f32);
        for seg in &sub.segs {
            match seg {
                PathSeg::Line(pt) => {
                    content.line_to(pt.0 .0 as f32, pt.1 .0 as f32);
                }
                PathSeg::Bezier(c1, c2, dest) => {
                    content.cubic_to(
                        c1.0 .0 as f32,
                        c1.1 .0 as f32,
                        c2.0 .0 as f32,
                        c2.1 .0 as f32,
                        dest.0 .0 as f32,
                        dest.1 .0 as f32,
                    );
                }
            }
        }
        match sub.closing {
            Closing::Open => {}
            Closing::Line => {
                content.close_path();
            }
            Closing::Bezier(c1, c2) => {
                content.cubic_to(
                    c1.0 .0 as f32,
                    c1.1 .0 as f32,
                    c2.0 .0 as f32,
                    c2.1 .0 as f32,
                    sub.start.0 .0 as f32,
                    sub.start.1 .0 as f32,
                );
                content.close_path();
            }
        }
    }
}

/// Encode to WinAnsi. Accepts ASCII 32..=126 (what the metrics tables cover);
/// anything else is an error rather than mojibake.
fn winansi(text: &str) -> Result<Vec<u8>, PdfError> {
    let mut out = Vec::with_capacity(text.len());
    for c in text.chars() {
        let code = c as u32;
        if (32..=126).contains(&code) {
            out.push(code as u8);
        } else {
            return Err(PdfError::Unencodable(text.to_string()));
        }
    }
    Ok(out)
}