libxml-rs 0.1.0-alpha.50

//! XSLT transformation engine (§33, §85 Phase 8).
//!
//! # Upstream contract
//!
//! Parity target: upstream libxslt `transform.c` (1.1.45;
//! `SRC-LIBXSLT-1.1.42-TRANSFORM-C` under oracle/historical/src). Subsystem
//! census: xslt-transform-ctxt, xslt-transform-exec, xslt-output,
//! xslt-errors, xslt-exports. ABI surface: `xsltNewTransformContext`/
//! `xsltFreeTransformContext`, `xsltApplyStylesheet` and variants,
//! `xsltApplyStylesheetUser`/`Stacked`, the `xsltMaxDepth`/`xsltMaxVars`
//! globals, and `xsltSetXIncludeDefault`/`xsltGetXIncludeDefault`.
//!
//! # Conceptual behavior
//!
//! `xsltApplyStylesheet` creates (or reuses) a transform context, seeds
//! the XPath context, initializes global variables and key tables,
//! applies the root template, and drives instruction execution: each
//! instruction builds the result tree through the context `insert`
//! pointer, with `node`/`nodeList` tracking the source node and
//! `contextSize`/`proximityPosition` tracking the XPath context.
//! `XSLT_MAX_DEPTH`/`xsltMaxDepth` bound recursion; the context state
//! (OK/ERROR/STOPPED) gates every loop.
//!
//! # Ownership & safety invariants
//!
//! - Source document: borrowed (caller keeps it).
//! - Result document: fresh, caller-owned (`xmlFreeDoc`;
//!   `xsltFreeTransformResult` alias); version/encoding strings are
//!   heap-copied (R-000104) so `free_doc` never frees borrowed literals.
//! - RVT documents: owned by the context doc lists (variables/documents
//!   modules), freed at teardown after the XPath context (R-000109).
//! - The variable stack is context-owned; `process_call_template` pops
//!   back to the saved depth, never a fixed count (R-000158).
//! - All entry points are `unsafe`; pointers must come from the matching
//!   constructor/owner (atlas/OWNERSHIP_ATLAS.md section 4).
//!
//! # Historical quirks & epochs
//!
//! E-008 (atlas/SEMANTIC_EPOCHS.md): xsltproc basic/num/empty output is
//! byte-identical from libxslt 1.1.26 (2009) through 1.1.45 — the engine
//! targets a fully frozen epoch. Residual fixes anchored here: R-000104
//! (result version/encoding double-free), R-000107 (XPath core functions
//! registration), R-000108 (AVT evaluation), R-000113 (boolean
//! conversion), R-000115 (sort wiring), R-000158 (with-param snapshot),
//! R-000159 (position() context), R-000162 (callback bridge), R-000167
//! (version symbol types).
//!
//! # Deliberate oddities
//!
//! - The default parser options for loaded documents are exactly
//!   XSLT_PARSE_OPTIONS (NOENT|DTDLOAD|DTDATTR|NOCDATA = 16398),
//!   matching transform.c `xsltNewTransformContext`.
//! - The per-context depth/vars limits are copied from the process-wide
//!   `xsltMaxDepth`/`xsltMaxVars` globals at context creation, matching
//!   upstream.
//! - Context position/size state is maintained on both the C ABI
//!   `_xmlXPathContext` and the internal Rust XPathContext (`extra`
//!   slot) — a dual-bookkeeping bridge (R-000159).
//!
//! # Proving courts
//!
//! CLI-XSLTPROC-0001..0057 (differential xsltproc corpus, byte-identical
//! receipts), XSLT-001 (xslt-family probe), DSO-LOADER, HIST-EPOCH-0001..
//! 0008 (E-008), and the in-crate `cargo test` suites.
//!
//! # Tempting simplifications that would break parity
//!
//! - Fixed-count variable pops instead of pop-to-saved-depth break
//!   xsl:call-template with defaulted parameters (R-000158).
//! - Treating position() as a function of the node alone breaks
//!   `//book[position() <= 2]` (R-000159); the predicate loops must set
//!   and restore proximity position.
//! - Evaluating AVTs once at compile time breaks context-dependent
//!   attribute values (R-000108).
//! - Iterating with-param lists while pushing variables corrupts the
//!   list (xsltPushVariable rewires `next`); snapshot first (R-000158).
//!
//! Executes compiled stylesheets against source documents:
//! - `xsltNewTransformContext` / `xsltFreeTransformContext`
//! - `xsltApplyStylesheet` and variants
//! - Template application and instruction execution
//! - Result tree construction
//! - Current node / context position / context size management
//! - Recursion depth limiting
//!
//! # UPSTREAM-PARITY
//!
//! Upstream libxslt (transform.c) drives the transformation from
//! `xsltApplyStylesheet`:
//!
//! 1. Create a transform context (or reuse a user-supplied one).
//! 2. Initialize global variables and key tables.
//! 3. Apply the template matching the root node of the source document.
//! 4. Execute the template's instructions, building the result tree.
//! 5. Return the result document.
//!
//! The `insert` pointer in the context tracks the current insertion point
//! in the result tree; the `node` / `nodeList` fields track the current
//! source node and node list; `contextSize` / `proximityPosition` track
//! the XPath context.

use crate::abi::allocator::xmlFreeImpl;
use crate::abi::exports_xml2::*;
use crate::abi::structs::*;
use crate::abi::types::xmlElementType::*;
use crate::abi::types::xmlXPathObjectType;
use crate::abi::types::*;
use crate::xml::tree::*;
use std::ffi::c_void;
use std::os::raw::{c_char, c_int};
use std::ptr;

use super::compiler::{get_element_name, get_element_ns, is_xslt_element, is_xslt_namespace};

/// Maximum template recursion depth (matches upstream XSLT_MAX_DEPTH).
pub const XSLT_MAX_DEPTH: c_int = 3000;

/// Maximum insert depth.
pub const XSLT_MAX_INSERT_DEPTH: c_int = 50;

/// State flags for the transform context.
pub const XSLT_STATE_OK: c_int = 0;
/// The transform context is in an error state after a fatal error.
pub const XSLT_STATE_ERROR: c_int = 1;

/// The transformation was stopped (e.g. xsl:message terminate="yes").
pub const XSLT_STATE_STOPPED: c_int = 2;

/// Static type cells used as `_xsltStackElem.comp` markers so the debug
/// dump (upstream extra.c `xsltDebug`, which reads `cur->comp->type`) can
/// classify pushed variables/params. Values mirror the XSLT_FUNC_* enum
/// used by exports_xslt_exec.rs (PARAM/VARIABLE get a prefix in the dump;
/// with-param prints the bare name).
pub(crate) static XSLT_COMP_TYPE_PARAM: c_int = 19;
pub(crate) static XSLT_COMP_TYPE_VARIABLE: c_int = 20;
pub(crate) static XSLT_COMP_TYPE_WITHPARAM: c_int = 24;

/// Maximum template recursion depth (upstream `xsltMaxDepth`, transform.c).
/// Default 3000 (upstream transform.c `int xsltMaxDepth = 3000`).
#[no_mangle]
pub static mut xsltMaxDepth: c_int = 3000;

/// Maximum number of variables/params (upstream `xsltMaxVars`, transform.c).
#[no_mangle]
pub static mut xsltMaxVars: c_int = 15000;

/// Whether XInclude processing is enabled by default for documents loaded
/// by the transform (upstream `xsltDoXIncludeDefault`, transform.c).
static mut XSLT_XINCLUDE_DEFAULT: c_int = 0;

/// Set whether XInclude processing is done on documents loaded by the
/// transformation (upstream `xsltSetXIncludeDefault`).
///
/// # SAFETY
///
/// - The value is a process-wide setting, matching upstream's global.
#[no_mangle]
pub unsafe extern "C" fn xsltSetXIncludeDefault(xinclude: c_int) {
    unsafe { XSLT_XINCLUDE_DEFAULT = if xinclude != 0 { 1 } else { 0 } };
}

/// Get the current XInclude default (upstream `xsltGetXIncludeDefault`).
///
/// # SAFETY
///
/// The function touches crate-global state only; it is safe
/// as long as the caller respects the library's global
/// initialization/cleanup ordering (xmlInitParser before use,
/// xmlCleanupParser only after all users are done).
///
/// Violating the global lifecycle ordering, or calling this after
/// teardown or from a signal handler, is undefined behavior.
#[no_mangle]
pub unsafe extern "C" fn xsltGetXIncludeDefault() -> c_int {
    unsafe { XSLT_XINCLUDE_DEFAULT }
}

/// Create a new transform context.
///
/// # SAFETY
///
/// - `style` must be a valid compiled `_xsltStylesheet`.
/// - `doc` must be a valid source document (may be NULL).
#[no_mangle]
pub unsafe extern "C" fn xsltNewTransformContext(
    style: *mut _xsltStylesheet,
    doc: *mut _xmlDoc,
) -> *mut _xsltTransformContext {
    if style.is_null() {
        return ptr::null_mut();
    }
    let ctxt = libc::calloc(1, core::mem::size_of::<_xsltTransformContext>())
        as *mut _xsltTransformContext;
    if ctxt.is_null() {
        return ptr::null_mut();
    }
    (*ctxt).style = style;
    (*ctxt).state = XSLT_STATE_OK;
    // UPSTREAM-PARITY: the default parser options (XSLT_PARSE_OPTIONS =
    // XML_PARSE_NOENT|DTDLOAD|DTDATTR|NOCDATA = 2+4+8+16384 = 16398),
    // exactly as transform.c xsltNewTransformContext sets it.
    (*ctxt).parserOptions = 2 | 4 | 8 | 16384;
    // UPSTREAM-PARITY: the per-context depth/vars limits come from the
    // process-wide xsltMaxDepth/xsltMaxVars globals (adjustable via
    // xsltproc --maxdepth/--maxvars).
    (*ctxt).maxTemplateDepth = unsafe { xsltMaxDepth };
    (*ctxt).maxTemplateVars = unsafe { xsltMaxVars };

    // Create the XPath context.
    let xpath_ctxt = xmlXPathNewContext(doc);
    if !xpath_ctxt.is_null() {
        (*ctxt).xpathCtxt = xpath_ctxt;
        // Stash this transform context in the XPath context's opaque slot so
        // XSLT XPath functions (e.g. key()) can reach the key tables.
        let internal = (*xpath_ctxt).extra as *mut crate::xml::xpath::context::XPathContext;
        if !internal.is_null() {
            (*internal).func_lookup_data = ctxt as *mut c_void;
        }
        // Register the standard XSLT extension functions and variable
        // lookup for XSLT evaluation. UPSTREAM-PARITY: transform.c
        // xsltNewTransformContext runs XSLT_REGISTER_VARIABLE_LOOKUP, which
        // calls xsltRegisterAllFunctions(xpathCtxt) — registering the C
        // XPath functions (format-number, key, document, ...) on the
        // context and re-registering the internal Rust implementations.
        crate::abi::exports_xslt_functions::xsltRegisterAllFunctions(xpath_ctxt);
    }

    // Security preferences: upstream xsltNewTransformContext binds the
    // process-wide default (transform.c 1.1.42); there is no per-stylesheet
    // security slot.
    (*ctxt).sec = crate::xslt::security::xsltGetDefaultSecurityPrefs();

    // UPSTREAM-PARITY: wrap the source document in an _xsltDocument
    // (docu->main = 1, transform.c) so ctxt->document is a proper document
    // wrapper; key tables and loaded documents hang off it.
    if !doc.is_null() {
        let docu = libc::calloc(1, core::mem::size_of::<_xsltDocument>()) as *mut _xsltDocument;
        if !docu.is_null() {
            (*docu).main = 1;
            (*docu).doc = doc;
            (*ctxt).document = docu;
            (*ctxt).docList = docu;
        }
        // Upstream xsltApplyStylesheetInternal records the initial context
        // here (transform.c); xsltEvalGlobalVariable evaluates global
        // variables against it (variables.c).
        (*ctxt).initialContextDoc = doc;
        (*ctxt).initialContextNode = doc as *mut _xmlNode;
    }
    ctxt
}

/// Free a transform context.
///
/// # SAFETY
///
/// - `ctxt` must be a valid `_xsltTransformContext` allocated by
///   `xsltNewTransformContext`, or NULL.
#[no_mangle]
pub unsafe extern "C" fn xsltFreeTransformContext(ctxt: *mut _xsltTransformContext) {
    if ctxt.is_null() {
        return;
    }
    // Free the XPath context.
    if !(*ctxt).xpathCtxt.is_null() {
        xmlXPathFreeContext((*ctxt).xpathCtxt);
    }
    // NOTE: the result document is owned by the caller of
    // xsltApplyStylesheet (upstream xsltFreeTransformContext does not free
    // ctxt->output / resultDoc); freeing it here would double-free the
    // result when the caller releases it.
    // Free global variables.
    crate::xslt::variables::xsltFreeGlobalVariables(ctxt);
    // Free key tables.
    crate::xslt::keys::xsltFreeKeyTables(ctxt);
    // Free the document cache.
    crate::xslt::documents::xsltFreeDocCache(ctxt);
    // Free extension registrations.
    crate::xslt::extensions::xsltFreeExts(ctxt);
    // Free the variable table itself.
    if !(*ctxt).varsTab.is_null() {
        libc::free((*ctxt).varsTab as *mut libc::c_void);
    }
    if !(*ctxt).templTab.is_null() {
        libc::free((*ctxt).templTab as *mut libc::c_void);
    }
    // Free the document wrapper (the wrapped _xmlDoc belongs to the caller;
    // only the _xsltDocument shell and its key tables are owned here).
    if !(*ctxt).document.is_null() {
        let docu = (*ctxt).document;
        (*docu).doc = ptr::null_mut();
        libc::free(docu as *mut libc::c_void);
        (*ctxt).document = ptr::null_mut();
    }
    libc::free(ctxt as *mut libc::c_void);
}

/// Apply a stylesheet to a document.
///
/// `params` is a NULL-terminated array of `name=value` strings.
/// Returns the result document (caller frees with `xmlFreeDoc`).
///
/// # SAFETY
///
/// - `style` must be a valid compiled stylesheet.
/// - `doc` must be a valid source document.
#[no_mangle]
pub unsafe extern "C" fn xsltApplyStylesheet(
    style: *mut _xsltStylesheet,
    doc: *mut _xmlDoc,
    params: *mut *const c_char,
) -> *mut _xmlDoc {
    xsltApplyStylesheetUser(
        style,
        doc,
        params,
        ptr::null(),
        ptr::null_mut(),
        ptr::null_mut(),
    )
}

/// Apply a stylesheet with user control.
///
/// # SAFETY
///
/// - All pointers must be valid or NULL where permitted.
#[no_mangle]
pub unsafe extern "C" fn xsltApplyStylesheetUser(
    style: *mut _xsltStylesheet,
    doc: *mut _xmlDoc,
    params: *mut *const c_char,
    _output: *const c_char,
    _profile: *mut c_void,
    userCtxt: *mut _xsltTransformContext,
) -> *mut _xmlDoc {
    if style.is_null() || doc.is_null() {
        return ptr::null_mut();
    }

    // Use the user-provided context or create a new one.
    let mut ctxt = userCtxt;
    let mut own_ctxt = false;
    if ctxt.is_null() {
        ctxt = xsltNewTransformContext(style, doc);
        if ctxt.is_null() {
            return ptr::null_mut();
        }
        own_ctxt = true;
    }

    // Parse the stylesheet parameters.
    if !params.is_null() {
        crate::xslt::parameters::xsltParseStylesheetParams(style, params);
    }

    // Initialize global variables.
    crate::xslt::variables::xsltInitGlobalVariables(ctxt);

    // Initialize key tables.
    crate::xslt::keys::xsltInitKeys(ctxt, style);

    // Apply the strip-space rules to the source document.
    crate::xslt::whitespace::xsltApplyStripSpaces(style, doc);

    // Build the result document. UPSTREAM-PARITY (transform.c
    // xsltApplyStylesheetInternal -> xmlNewDoc): the result document is a
    // fresh xmlNewDoc, whose defaults are standalone=-1 (undeclared),
    // compression=-1, charset=UTF-8 and properties=XML_DOC_USERBUILT. The
    // pre-fix calloc only zeroed the struct, so the serializer emitted an
    // unwanted `standalone="no"` in the XML declaration (xslt006 +
    // xsltprocessor_transformToXML diff) and the wrong charset defaults.
    let result = libc::calloc(1, core::mem::size_of::<_xmlDoc>()) as *mut _xmlDoc;
    if result.is_null() {
        if own_ctxt {
            xsltFreeTransformContext(ctxt);
        }
        return ptr::null_mut();
    }
    (*result).type_ = XML_DOCUMENT_NODE as c_int;
    (*result).standalone = -1;
    (*result).compression = -1;
    (*result).charset = crate::abi::types::xmlCharEncoding::XML_CHAR_ENCODING_UTF8 as c_int;
    (*result).properties = crate::abi::types::xmlDocProperties::XML_DOC_USERBUILT as c_int;
    (*result).version = crate::xml::string::xml_strdup(c"1.0".as_ptr() as *const xmlChar);
    (*result).doc = result;
    // Copy output settings from the stylesheet. These are heap-copied so
    // that free_doc (which frees version/encoding with xmlFree) is safe
    // and the stylesheet keeps its own copies.
    if !(*style).encoding.is_null() {
        (*result).encoding = crate::xml::string::xml_strdup((*style).encoding);
    }
    if !(*style).version.is_null() {
        let v = crate::xml::string::xml_strdup((*style).version);
        if !v.is_null() {
            if !(*result).version.is_null() {
                libc::free((*result).version as *mut libc::c_void);
            }
            (*result).version = v;
        }
    }

    // UPSTREAM-PARITY: xsltApplyStylesheetInternal records the initial
    // context here (transform.c 1.1.42); global variable evaluation uses it.
    (*ctxt).initialContextDoc = doc;
    (*ctxt).initialContextNode = doc as *mut _xmlNode;

    (*ctxt).output = result;
    (*ctxt).insert = result as *mut _xmlNode;

    // Apply the root template: XSLT 1.0 §5.1 applies the template
    // matching "/" to the document node (the root of the source tree).
    // The document node is the doc cast to a node; its parent is null.
    (*ctxt).node = doc as *mut _xmlNode;
    if !(*ctxt).xpathCtxt.is_null() {
        (*(*ctxt).xpathCtxt).node = doc as *mut _xmlNode;
        (*(*ctxt).xpathCtxt).doc = doc;
        (*(*ctxt).xpathCtxt).contextSize = 1;
        (*(*ctxt).xpathCtxt).proximityPosition = 1;
    }
    let result_code = apply_templates_to_node(ctxt, doc as *mut _xmlNode, ptr::null());
    let _ = result_code;

    // UPSTREAM-PARITY: a transformation whose context is no longer in the
    // OK state produces no result (xsltApplyStylesheetInternal frees the
    // result and returns NULL when ctxt->state != XSLT_STATE_OK).
    let final_result = if (*ctxt).state == XSLT_STATE_OK {
        result
    } else {
        free_doc(result);
        ptr::null_mut()
    };

    if own_ctxt {
        // Detach the result document from the context before freeing.
        (*ctxt).output = ptr::null_mut();
        xsltFreeTransformContext(ctxt);
    }
    final_result
}

/// Apply a stylesheet with a parameter stack.
///
/// # SAFETY
///
/// - All pointers must be valid or NULL where permitted.
#[no_mangle]
pub unsafe extern "C" fn xsltApplyStylesheetStacked(
    style: *mut _xsltStylesheet,
    doc: *mut _xmlDoc,
    params: *mut *const c_char,
    _stack: *mut c_void,
) -> *mut _xmlDoc {
    xsltApplyStylesheet(style, doc, params)
}

/// Free the result of a transformation.
///
/// # SAFETY
///
/// - `result` must be a document returned by `xsltApplyStylesheet` or NULL.
#[no_mangle]
pub unsafe extern "C" fn xsltFreeTransformResult(result: *mut _xmlDoc) {
    if !result.is_null() {
        free_doc(result);
    }
}

/// Apply a stylesheet and write the result to an output channel.
///
/// # UPSTREAM-PARITY
///
/// Mirrors `xsltRunStylesheetUser` (transform.c 1.1.45): applies the
/// stylesheet and saves to `output` (a filename) or `IObuf`. The SAX
/// callback mode is not implemented by upstream either (it returns -1).
///
/// # SAFETY
///
/// - All pointers must be valid or NULL where permitted.
#[no_mangle]
pub unsafe extern "C" fn xsltRunStylesheetUser(
    style: *mut _xsltStylesheet,
    doc: *mut _xmlDoc,
    params: *mut *const c_char,
    output: *const c_char,
    SAX: *mut crate::abi::structs::_xmlSAXHandler,
    IObuf: *mut crate::abi::structs::_xmlOutputBuffer,
    profile: *mut c_void,
    userCtxt: *mut _xsltTransformContext,
) -> c_int {
    if output.is_null() && SAX.is_null() && IObuf.is_null() {
        return -1;
    }
    if !SAX.is_null() && !IObuf.is_null() {
        return -1;
    }
    // SAX output mode is unsupported upstream as well.
    if !SAX.is_null() {
        return -1;
    }
    let tmp = xsltApplyStylesheetUser(style, doc, params, output, profile, userCtxt);
    if tmp.is_null() {
        eprintln!("xsltRunStylesheet : run failed");
        return -1;
    }
    let ret = if !IObuf.is_null() {
        let mut txt: *mut xmlChar = ptr::null_mut();
        let mut len: c_int = 0;
        let r = crate::xslt::serialization::xsltSaveResultToString(&mut txt, &mut len, tmp, style);
        if r != 0 || txt.is_null() {
            -1
        } else {
            let written = crate::xml::io::output_buffer_write(IObuf, len, txt as *const c_char);
            crate::abi::allocator::xmlFreeImpl(txt as *mut c_void);
            written
        }
    } else {
        crate::xslt::serialization::xsltSaveResultToFilename(output, tmp, style, 0)
    };
    free_doc(tmp);
    ret
}

/// Apply a stylesheet and write the result to an output channel.
///
/// # SAFETY
///
/// - All pointers must be valid or NULL where permitted.
#[no_mangle]
pub unsafe extern "C" fn xsltRunStylesheet(
    style: *mut _xsltStylesheet,
    doc: *mut _xmlDoc,
    params: *mut *const c_char,
    output: *const c_char,
    SAX: *mut crate::abi::structs::_xmlSAXHandler,
    IObuf: *mut crate::abi::structs::_xmlOutputBuffer,
) -> c_int {
    xsltRunStylesheetUser(
        style,
        doc,
        params,
        output,
        SAX,
        IObuf,
        ptr::null_mut(),
        ptr::null_mut(),
    )
}

/// Apply the root template (match="/") for empty documents.
///
/// # SAFETY
///
/// - All pointers must be valid.
#[allow(dead_code)]
pub(crate) unsafe fn apply_root_template(
    ctxt: *mut _xsltTransformContext,
    doc: *mut _xmlDoc,
) -> c_int {
    // Find the template matching "/".
    let style = (*ctxt).style;
    if style.is_null() {
        return -1;
    }
    // Use the document node itself as the context node.
    let doc_node = doc as *mut _xmlNode;
    (*ctxt).node = doc_node;
    if !(*ctxt).xpathCtxt.is_null() {
        (*(*ctxt).xpathCtxt).contextSize = 1;
        (*(*ctxt).xpathCtxt).proximityPosition = 1;
    }
    let templ = crate::xslt::templates::xsltFindTemplate(style, doc_node, ptr::null());
    if templ.is_null() {
        // No match: copy nothing (empty result).
        return 0;
    }
    // Execute the template body.
    let mut vars_base = (*ctxt).varsNr;
    let _ = &mut vars_base;
    (*ctxt).templ = templ;
    execute_content(ctxt, (*templ).content);
    (*ctxt).templ = ptr::null_mut();
    0
}

/// Push a template onto the transform context's template stack (upstream
/// xsltApplyXSLTTemplate pushes the template into `ctxt->templTab` before
/// instantiating it; extra.c `xsltDebug` dumps the last 15 entries).
///
/// # SAFETY
///
/// - `ctxt` and `templ` must be valid pointers.
unsafe fn template_stack_push(ctxt: *mut _xsltTransformContext, templ: *mut _xsltTemplate) {
    unsafe {
        let nr = (*ctxt).templNr;
        if nr >= (*ctxt).templMax {
            let new_max = if (*ctxt).templMax == 0 {
                32
            } else {
                (*ctxt).templMax * 2
            };
            let new_tab = libc::realloc(
                (*ctxt).templTab as *mut libc::c_void,
                (new_max as usize) * core::mem::size_of::<*mut _xsltTemplate>(),
            ) as *mut *mut _xsltTemplate;
            if new_tab.is_null() {
                return;
            }
            (*ctxt).templTab = new_tab;
            (*ctxt).templMax = new_max;
        }
        *(*ctxt).templTab.add(nr as usize) = templ;
        (*ctxt).templNr = nr + 1;
    }
}

/// Pop a template from the transform context's template stack.
///
/// # SAFETY
///
/// - `ctxt` must be a valid pointer.
unsafe fn template_stack_pop(ctxt: *mut _xsltTransformContext) {
    unsafe {
        if (*ctxt).templNr > 0 {
            (*ctxt).templNr -= 1;
            *(*ctxt).templTab.add((*ctxt).templNr as usize) = ptr::null_mut();
        }
    }
}

/// Report a template-recursion guard (upstream transform.c
/// xsltApplySequenceConstructor / xsltApplyXSLTTemplate): the context line
/// and the two-line diagnostic through xsltTransformError, the
/// Templates:/Variables: debug dump (extra.c xsltDebug), then
/// XSLT_STATE_STOPPED — the transformation ends with no further output
/// (php bug71571_a / bug71571_b).
///
/// `depth_guard` selects the message (maxTemplateDepth vs maxTemplateVars);
/// `node` is the stylesheet node attributed to the error (the current
/// instruction for the depth guard, the instantiated template's first
/// content node for the variable guard).
///
/// # SAFETY
///
/// - `ctxt` and `node` must be valid pointers.
unsafe fn report_template_recursion(
    ctxt: *mut _xsltTransformContext,
    node: *mut _xmlNode,
    depth_guard: bool,
) {
    unsafe {
        let limit = if depth_guard {
            (*ctxt).maxTemplateDepth
        } else {
            (*ctxt).maxTemplateVars
        };
        let text = if depth_guard {
            format!(
                "xsltApplySequenceConstructor: A potential infinite template recursion was detected.\nYou can adjust $maxTemplateDepth in order to raise the maximum number of nested template calls and variables/params (currently set to {}).\n",
                limit
            )
        } else {
            format!(
                "xsltApplyXSLTTemplate: A potential infinite template recursion was detected.\nYou can adjust $maxTemplateVars in order to raise the maximum number of variables/params (currently set to {}).\n",
                limit
            )
        };
        let Ok(msg) = std::ffi::CString::new(text) else {
            return;
        };
        crate::xslt::errors::xsltTransformError(ctxt, ptr::null_mut(), node, msg.as_ptr());
        crate::abi::exports_xslt_exec::xsltDebug(
            ctxt,
            ptr::null_mut(),
            ptr::null_mut(),
            ptr::null_mut(),
        );
        (*ctxt).state = XSLT_STATE_STOPPED;
    }
}

/// Apply templates to a single node in the given mode.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn apply_templates_to_node(
    ctxt: *mut _xsltTransformContext,
    node: *mut _xmlNode,
    mode: *const xmlChar,
) -> c_int {
    let style = (*ctxt).style;
    if style.is_null() {
        return -1;
    }
    let templ = crate::xslt::templates::xsltFindTemplate(style, node, mode);
    if templ.is_null() {
        // Built-in template rules (XSLT 1.0 §5.8):
        // - For root/document: apply templates to children.
        // - For elements: apply templates to children.
        // - For text/attribute: copy the text.
        // - For comments/PIs: do nothing.
        let typ = (*node).type_;
        if typ == XML_TEXT_NODE as c_int
            || typ == XML_CDATA_SECTION_NODE as c_int
            || typ == XML_ATTRIBUTE_NODE as c_int
        {
            let content = node_get_content(node);
            if !content.is_null() {
                append_text_node(ctxt, content);
                libc::free(content as *mut libc::c_void);
            }
        } else if typ == XML_ELEMENT_NODE as c_int
            || typ == XML_DOCUMENT_NODE as c_int
            || typ == XML_HTML_DOCUMENT_NODE as c_int
        {
            // Apply templates to children.
            apply_templates_to_children(ctxt, node, mode);
        }
        return 0;
    }
    // UPSTREAM-PARITY (transform.c xsltApplyXSLTTemplate): the template is
    // pushed onto the template stack (the recursion dump lists it) before
    // the recursion guards run.
    template_stack_push(ctxt, templ);
    (*ctxt).depth += 1;
    // Check recursion depth (php bug71571_a): stop once the maximum of
    // nested templates is exceeded, report, dump, and stop the transform.
    if (*ctxt).depth > (*ctxt).maxTemplateDepth {
        report_template_recursion(ctxt, node, true);
        (*ctxt).depth -= 1;
        template_stack_pop(ctxt);
        return 0;
    }
    if (*ctxt).varsNr >= (*ctxt).maxTemplateVars {
        let err_node = if (*templ).content.is_null() {
            node
        } else {
            (*templ).content
        };
        report_template_recursion(ctxt, err_node, false);
        (*ctxt).depth -= 1;
        template_stack_pop(ctxt);
        return 0;
    }
    (*ctxt).templ = templ;
    (*ctxt).node = node;
    if !(*ctxt).xpathCtxt.is_null() {
        (*(*ctxt).xpathCtxt).contextSize = 1;
        (*(*ctxt).xpathCtxt).proximityPosition = 1;
    }
    execute_content(ctxt, (*templ).content);
    (*ctxt).depth -= 1;
    template_stack_pop(ctxt);
    (*ctxt).templ = ptr::null_mut();
    0
}

/// Apply templates to all children of a node.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn apply_templates_to_children(
    ctxt: *mut _xsltTransformContext,
    node: *mut _xmlNode,
    mode: *const xmlChar,
) -> c_int {
    // Collect the children in document order.
    let mut children: Vec<*mut _xmlNode> = Vec::new();
    let mut child = (*node).children;
    while !child.is_null() {
        children.push(child);
        child = (*child).next;
    }
    // Sort if xsl:sort children are present on the apply-templates
    // instruction (handled by the caller via sort handling).
    let size = children.len();
    if !(*ctxt).xpathCtxt.is_null() {
        (*(*ctxt).xpathCtxt).contextSize = size as c_int;
    }
    for (i, node) in children.iter().enumerate() {
        (*ctxt).node = *node;
        if !(*ctxt).xpathCtxt.is_null() {
            (*(*ctxt).xpathCtxt).proximityPosition = (i + 1) as c_int;
        }
        apply_templates_to_node(ctxt, *node, mode);
    }
    0
}

/// Execute the content of a template (a list of nodes).
///
/// # SAFETY
///
/// - All pointers must be valid.
pub unsafe fn execute_content(ctxt: *mut _xsltTransformContext, content: *mut _xmlNode) -> c_int {
    let mut cur = content;
    while !cur.is_null() {
        // UPSTREAM-PARITY (transform.c xsltApplySequenceConstructor): the
        // instruction loop stops as soon as the context leaves the OK
        // state (an XPath failure sets STOPPED, a hard error sets ERROR).
        if (*ctxt).state == XSLT_STATE_ERROR || (*ctxt).state == XSLT_STATE_STOPPED {
            return -1;
        }
        let next = (*cur).next;
        xsltProcessInstruction(ctxt, cur);
        cur = next;
    }
    0
}

/// Process a single instruction node.
///
/// # SAFETY
///
/// - `ctxt` must be a valid transform context.
/// - `inst` must be a valid instruction node.
pub unsafe fn xsltProcessInstruction(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) -> c_int {
    if ctxt.is_null() || inst.is_null() {
        return -1;
    }
    let typ = (*inst).type_;
    // UPSTREAM-PARITY: the transform context tracks the current instruction
    // (transform.c xsltProcessOneNode); XPath evaluation and error reporting
    // use it for namespace scope and diagnostics.
    (*ctxt).inst = inst;
    match typ {
        t if t == XML_TEXT_NODE as c_int || t == XML_CDATA_SECTION_NODE as c_int => {
            // Literal text: copy to the result.
            if !(*inst).content.is_null() {
                append_text_node(ctxt, (*inst).content);
            }
            0
        }
        t if t == XML_COMMENT_NODE as c_int => {
            // Literal comment: copy to the result.
            if !(*inst).content.is_null() {
                append_comment_node(ctxt, (*inst).content);
            }
            0
        }
        t if t == XML_PI_NODE as c_int => {
            // Literal PI: copy to the result.
            if !(*inst).name.is_null() {
                let content = if (*inst).content.is_null() {
                    ptr::null()
                } else {
                    (*inst).content
                };
                append_pi_node(ctxt, (*inst).name, content);
            }
            0
        }
        t if t == XML_ELEMENT_NODE as c_int => {
            if is_xslt_namespace(inst) {
                process_xslt_instruction(ctxt, inst);
            } else {
                // UPSTREAM-PARITY (transform.c xsltProcessOneNode): an
                // element whose namespace is a REGISTERED extension
                // namespace is an extension-element instruction, NOT a
                // literal result element — it dispatches to the module's
                // transform handler (xsltDocumentElem for the built-in
                // saxon:output / xalan:write / xt:document extras; php
                // bug54446). exsl:document is dispatched natively.
                let ns = get_element_ns(inst);
                if let Some(ref ns_uri) = ns {
                    if ns_uri == crate::exslt::EXSLT_NS_COMMON
                        && get_element_name(inst).as_deref() == Some("document")
                    {
                        process_exsl_document(ctxt, inst);
                        return 0;
                    }
                    let ns_c = str_to_cstr(ns_uri);
                    let ns_ptr = ns_c.as_ptr() as *const xmlChar;
                    if !(*inst).name.is_null() {
                        // Per-context extension-element registration
                        // (xsltRegisterExtElement).
                        let ctx_h =
                            crate::xslt::extensions::xsltFindExtElement(ctxt, (*inst).name, ns_ptr);
                        if !ctx_h.is_null() {
                            // UPSTREAM-PARITY (transform.c xsltProcessOneNode /
                            // xsltExtElementPreCompTest): the registered
                            // xsltTransformFunction is invoked with the
                            // transform context, the CURRENT context node
                            // (ctxt->node), the extension-element instance,
                            // and NULL for the precomputed data (per-context
                            // registrations never carry a comp block).
                            let func: crate::abi::exports_xslt_compile::xsltTransformFunction =
                                core::mem::transmute(ctx_h);
                            func(ctxt, (*ctxt).node, inst, ptr::null_mut());
                            return 0;
                        }
                        // Global module-element table
                        // (xsltRegisterExtModuleElement); the built-in
                        // extras (saxon:output etc.) land here via
                        // xsltRegisterAllExtras -> xsltInit.
                        if let Some(handler) =
                            crate::abi::exports_xslt_ext::xsltExtModuleElementLookup(
                                (*inst).name,
                                ns_ptr,
                            )
                        {
                            handler(ctxt, (*ctxt).node, inst, ptr::null_mut());
                            return 0;
                        }
                    }
                }
                // Literal result element: create the element and process
                // its content.
                process_literal_element(ctxt, inst);
            }
            0
        }
        _ => 0,
    }
}

/// Process an XSLT instruction element.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_xslt_instruction(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) -> c_int {
    let name = get_element_name(inst);
    match name.as_deref() {
        Some("apply-templates") => {
            process_apply_templates(ctxt, inst);
        }
        Some("call-template") => {
            process_call_template(ctxt, inst);
        }
        Some("apply-imports") => {
            process_apply_imports(ctxt, inst);
        }
        Some("for-each") => {
            process_for_each(ctxt, inst);
        }
        Some("value-of") => {
            process_value_of(ctxt, inst);
        }
        Some("copy-of") => {
            process_copy_of(ctxt, inst);
        }
        Some("copy") => {
            process_copy(ctxt, inst);
        }
        Some("element") => {
            process_element(ctxt, inst);
        }
        Some("attribute") => {
            process_attribute(ctxt, inst);
        }
        Some("text") => {
            process_text(ctxt, inst);
        }
        Some("comment") => {
            process_comment(ctxt, inst);
        }
        Some("processing-instruction") => {
            process_pi(ctxt, inst);
        }
        Some("number") => {
            process_number(ctxt, inst);
        }
        Some("choose") => {
            process_choose(ctxt, inst);
        }
        Some("when") | Some("otherwise") => {
            // Only valid inside xsl:choose; ignored here.
        }
        Some("if") => {
            process_if(ctxt, inst);
        }
        Some("variable") => {
            process_variable(ctxt, inst);
        }
        Some("param") => {
            process_param(ctxt, inst);
        }
        Some("with-param") => {
            // Only valid inside call-template/apply-templates; ignored.
        }
        Some("sort") => {
            // Only valid inside for-each/apply-templates; ignored.
        }
        Some("message") => {
            process_message(ctxt, inst);
        }
        Some("fallback") => {
            // Only used when an extension element is unavailable.
        }
        Some("output")
        | Some("decimal-format")
        | Some("namespace-alias")
        | Some("attribute-set")
        | Some("key")
        | Some("strip-space")
        | Some("preserve-space")
        | Some("import")
        | Some("include")
        | Some("stylesheet")
        | Some("transform") => {
            // Top-level elements: not instructions, ignored in content.
        }
        _ => {
            // Unknown element: may be an EXSLT extension element or a
            // registered extension element.
            let ns = get_element_ns(inst);
            if let Some(ns_uri) = ns {
                // exsl:document — write the element content to a file.
                if ns_uri == crate::exslt::EXSLT_NS_COMMON
                    && get_element_name(inst).as_deref() == Some("document")
                {
                    process_exsl_document(ctxt, inst);
                    return 0;
                }
                // Check for a registered extension element.
                let name_ptr = (*inst).name;
                let ns_cstr = str_to_cstr(&ns_uri);
                let found = crate::xslt::extensions::xsltFindExtElement(
                    ctxt,
                    name_ptr,
                    ns_cstr.as_ptr() as *const xmlChar,
                );
                if !found.is_null() {
                    // UPSTREAM-PARITY: dispatch a registered extension element
                    // (this branch is reached for non-XSLT-namespace unknown
                    // elements routed through process_xslt_instruction).
                    let func: crate::abi::exports_xslt_compile::xsltTransformFunction =
                        core::mem::transmute(found);
                    func(ctxt, (*ctxt).node, inst, ptr::null_mut());
                    return 0;
                }
            }
            // Unknown instruction: process fallback children or ignore.
        }
    }
    0
}

/// Convert a Rust string to a NUL-terminated byte vec.
fn str_to_cstr(s: &str) -> Vec<u8> {
    let mut v = s.as_bytes().to_vec();
    v.push(0);
    v
}

/// Process the EXSLT `<exsl:document href="...">` extension element:
/// instantiate the element's content into a separate result document and
/// write it to the file named by the `href` attribute.
///
/// # UPSTREAM-PARITY
///
/// Upstream libexslt (common.c `exsltDocumentElem`) creates a new document
/// whose root element copies the attributes of the exsl:document element
/// (minus href), evaluates the content into it, and saves it to the
/// resolved href (relative to the stylesheet's base URI).
///
/// # SAFETY
///
/// - All pointers must be valid.
unsafe fn process_exsl_document(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let href = get_prop(inst, c"href".as_ptr() as *const xmlChar);
    if href.is_null() {
        crate::xslt::errors::xsltTransformError(
            ctxt,
            (*ctxt).style,
            inst,
            c"exsl:document: missing href attribute".as_ptr() as *const c_char,
        );
        return;
    }
    // Build the fragment document.
    let frag = libc::calloc(1, core::mem::size_of::<_xmlDoc>()) as *mut _xmlDoc;
    if frag.is_null() {
        libc::free(href as *mut libc::c_void);
        return;
    }
    (*frag).type_ = XML_DOCUMENT_NODE as c_int;
    (*frag).doc = frag;
    let saved_insert = (*ctxt).insert;
    let saved_output = (*ctxt).output;
    (*ctxt).insert = frag as *mut _xmlNode;
    (*ctxt).output = frag;
    execute_content(ctxt, (*inst).children);
    (*ctxt).insert = saved_insert;
    (*ctxt).output = saved_output;

    // Write the fragment to the file.
    let fname = crate::abi::versioning::c_str_to_bytes(href as *const c_char);
    if let Some(name) = fname {
        let path = String::from_utf8_lossy(name);
        let cpath = str_to_cstr(&path);
        let out = libc::fopen(
            cpath.as_ptr() as *const c_char,
            c"wb".as_ptr() as *const c_char,
        );
        if !out.is_null() {
            let buf = crate::xml::io::buf_create(-1);
            if !buf.is_null() {
                crate::xml::tree::doc_dump(buf, frag);
                let content = crate::xml::io::buf_content(buf);
                let len = crate::xml::io::buf_length(buf);
                if !content.is_null() && len > 0 {
                    libc::fwrite(content as *const libc::c_void, 1, len as usize, out);
                }
                crate::xml::io::buf_free(buf);
            }
            libc::fclose(out);
        }
    }
    libc::free(href as *mut libc::c_void);
    free_doc(frag);
}

/// Evaluate an XPath expression in the current context.
/// Returns an XPath object (caller frees) or NULL on error.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn eval_xpath(
    ctxt: *mut _xsltTransformContext,
    expr: *const xmlChar,
) -> *mut _xmlXPathObject {
    if ctxt.is_null() || expr.is_null() {
        return ptr::null_mut();
    }
    let xpath_ctxt = (*ctxt).xpathCtxt;
    if xpath_ctxt.is_null() {
        return ptr::null_mut();
    }
    // Set the context node and position on both the C ABI struct and the
    // internal Rust XPathContext (which is what the evaluator actually
    // reads via the `extra` field). contextSize/proximityPosition live on
    // the XPath context (UPSTREAM-PARITY: libxml2 xpath.h), so the mirror
    // copies from there.
    (*xpath_ctxt).node = (*ctxt).node;
    if !(*ctxt).document.is_null() {
        (*xpath_ctxt).doc = (*(*ctxt).document).doc;
    }
    let internal = (*xpath_ctxt).extra as *mut crate::xml::xpath::context::XPathContext;
    if !internal.is_null() {
        (*internal).context_node = (*ctxt).node;
        if !(*ctxt).document.is_null() {
            (*internal).document = (*(*ctxt).document).doc;
        }
        (*internal).context_size = (*xpath_ctxt).contextSize;
        (*internal).context_position = (*xpath_ctxt).proximityPosition;
        (*internal).proximity_position = (*xpath_ctxt).proximityPosition;
        // UPSTREAM-PARITY (transform.c xsltEvalXPathString): the in-scope
        // namespace declarations of the current instruction are registered
        // on the XPath context, so prefixed extension-function names resolve
        // and unknown ones report "Unregistered function" instead of
        // "Undefined namespace prefix".
        if !(*ctxt).inst.is_null() {
            register_in_scope_ns(internal, (*ctxt).inst);
        }
    }
    xmlXPathEvalExpression(expr, xpath_ctxt)
}

/// Register the in-scope namespace declarations of `node` (its own nsDef
/// chain plus every ancestor's) on the internal XPath context.
///
/// # SAFETY
///
/// - `internal` must be a valid XPathContext pointer.
/// - `node` must be a valid node pointer.
pub(crate) unsafe fn register_in_scope_ns(
    internal: *mut crate::xml::xpath::context::XPathContext,
    node: *mut _xmlNode,
) {
    unsafe {
        let mut cur = node;
        let mut seen: std::collections::HashSet<String> = std::collections::HashSet::new();
        while !cur.is_null() {
            let mut ns = (*cur).nsDef;
            while !ns.is_null() {
                let prefix = if (*ns).prefix.is_null() {
                    String::new()
                } else {
                    let l = libc::strlen((*ns).prefix as *const libc::c_char);
                    String::from_utf8_lossy(core::slice::from_raw_parts((*ns).prefix, l))
                        .into_owned()
                };
                if !seen.contains(&prefix) && !(*ns).href.is_null() {
                    let l = libc::strlen((*ns).href as *const libc::c_char);
                    let href = String::from_utf8_lossy(core::slice::from_raw_parts((*ns).href, l))
                        .into_owned();
                    (*internal).register_namespace(&prefix, &href);
                    seen.insert(prefix);
                }
                ns = (*ns).next;
            }
            cur = (*cur).parent;
        }
    }
}

/// Report an XPath evaluation failure the way upstream xsltproc does and
/// fail the transformation (the caller's stylesheet yields no result and
/// xsltproc exits 10).
///
/// ```text
/// XPath error : Unregistered function: str:upper-case
/// runtime error: file exsl.xsl line 17 element value-of
/// XPath evaluation returned no result.
/// ```
///
/// # SAFETY
///
/// - `ctxt` / `inst` must be valid pointers.
pub(crate) unsafe fn report_xpath_eval_failure(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
    elem_name: &str,
) {
    unsafe {
        // UPSTREAM-PARITY (transform.c xsltValueOf / xsltCopyOf): an XPath
        // evaluation failure is reported through xsltTransformError — the
        // context line ("runtime error: file ... element value-of") and the
        // message are emitted as SEPARATE handler calls, so library
        // consumers (lxml's _receiveXSLTError error_log) record the
        // "runtime error, element '...'" entry before "XPath evaluation
        // returned no result.". The XPath diagnostic itself was already
        // delivered by the evaluation path (raise_xpath_error → the XPath
        // context's error handler / generic channel), so it is not repeated
        // here. The transformation stops (XSLT_STATE_STOPPED, not ERROR —
        // xsltproc exits 10). The element name for the context line comes
        // from the instruction node itself (upstream xsltPrintErrorContext).
        let _ = elem_name;
        let style = if ctxt.is_null() {
            ptr::null_mut()
        } else {
            (*ctxt).style
        };
        crate::xslt::errors::xsltTransformError(
            ctxt,
            style,
            inst,
            c"XPath evaluation returned no result.\n".as_ptr() as *const c_char,
        );
        (*ctxt).state = XSLT_STATE_STOPPED;
    }
}

/// Process `xsl:apply-templates`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_apply_templates(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) {
    // mode attribute.
    let mode = get_prop(inst, c"mode".as_ptr() as *const xmlChar);
    // select attribute (default: all children).
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    // with-param children.
    let params = collect_with_params(ctxt, inst);

    let obj = if !select.is_null() {
        eval_xpath(ctxt, select)
    } else {
        // Default select: "node()" — all children.
        // Build a node-set from children.
        build_child_node_set(ctxt)
    };
    if !select.is_null() {
        libc::free(select as *mut libc::c_void);
    }
    if obj.is_null() {
        if !mode.is_null() {
            libc::free(mode as *mut libc::c_void);
        }
        report_xpath_eval_failure(ctxt, inst, "apply-templates");
        return;
    }

    // Extract the node-set.
    let nodes = if (*obj).type_ == xmlXPathObjectType::XPATH_NODESET as c_int {
        (*obj).nodesetval as *mut _xmlNodeSet
    } else {
        ptr::null_mut()
    };

    if !nodes.is_null() && (*nodes).nodeNr > 0 {
        // Check for xsl:sort children.
        let sort = find_sort_children(ctxt, inst);
        let mut node_ptrs: Vec<*mut _xmlNode> = Vec::new();
        let mut i = 0;
        while i < (*nodes).nodeNr {
            let n = *(*nodes).nodeTab.offset(i as isize);
            if !n.is_null() {
                node_ptrs.push(n);
            }
            i += 1;
        }
        // Sort if requested.
        if !sort.is_null() {
            let sorted = libc::calloc(1, core::mem::size_of::<_xmlNodeSet>()) as *mut _xmlNodeSet;
            if !sorted.is_null() {
                (*sorted).nodeNr = node_ptrs.len() as c_int;
                (*sorted).nodeMax = node_ptrs.len() as c_int;
                let tab = libc::malloc(node_ptrs.len() * core::mem::size_of::<*mut _xmlNode>())
                    as *mut *mut _xmlNode;
                (*sorted).nodeTab = tab;
                for (idx, n) in node_ptrs.iter().enumerate() {
                    if !tab.is_null() {
                        *tab.add(idx) = *n;
                    }
                }
                crate::xslt::sorting::xsltSortNodeSet(ctxt, sorted, sort);
                // Apply templates in sorted order.
                let mut k = 0;
                while k < (*sorted).nodeNr {
                    // UPSTREAM-PARITY (transform.c xsltApplyTemplates): stop
                    // once the context leaves the OK state.
                    if (*ctxt).state == XSLT_STATE_ERROR || (*ctxt).state == XSLT_STATE_STOPPED {
                        break;
                    }
                    let n = *(*sorted).nodeTab.offset(k as isize);
                    if !n.is_null() {
                        (*ctxt).node = n;
                        if !(*ctxt).xpathCtxt.is_null() {
                            (*(*ctxt).xpathCtxt).contextSize = (*sorted).nodeNr;
                            (*(*ctxt).xpathCtxt).proximityPosition = k + 1;
                        }
                        apply_templates_with_params(ctxt, n, mode, params);
                    }
                    k += 1;
                }
                libc::free((*sorted).nodeTab as *mut libc::c_void);
                libc::free(sorted as *mut libc::c_void);
            }
        } else {
            if !(*ctxt).xpathCtxt.is_null() {
                (*(*ctxt).xpathCtxt).contextSize = node_ptrs.len() as c_int;
            }
            for (i, n) in node_ptrs.iter().enumerate() {
                // UPSTREAM-PARITY (transform.c xsltApplyTemplates): stop
                // once the context leaves the OK state.
                if (*ctxt).state == XSLT_STATE_ERROR || (*ctxt).state == XSLT_STATE_STOPPED {
                    break;
                }
                if !n.is_null() {
                    (*ctxt).node = *n;
                    if !(*ctxt).xpathCtxt.is_null() {
                        (*(*ctxt).xpathCtxt).proximityPosition = (i + 1) as c_int;
                    }
                    apply_templates_with_params(ctxt, *n, mode, params);
                }
            }
        }
    }

    if !mode.is_null() {
        libc::free(mode as *mut libc::c_void);
    }
    xmlXPathFreeObject(obj);
}

/// Apply templates to a node, passing parameters.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn apply_templates_with_params(
    ctxt: *mut _xsltTransformContext,
    node: *mut _xmlNode,
    mode: *const xmlChar,
    params: *mut _xsltStackElem,
) {
    // Push the params onto the parameter stack.
    let mut p = params;
    while !p.is_null() {
        crate::xslt::parameters::xsltPushParam(ctxt, p);
        p = (*p).next;
    }
    apply_templates_to_node(ctxt, node, mode);
    // Pop the params.
    let mut p = params;
    while !p.is_null() {
        crate::xslt::parameters::xsltPopParam(ctxt);
        p = (*p).next;
    }
}

/// Build a node-set from the children of the current node.
///
/// # SAFETY
///
/// - `ctxt` must be valid.
pub(crate) unsafe fn build_child_node_set(
    ctxt: *mut _xsltTransformContext,
) -> *mut _xmlXPathObject {
    let ns = xmlXPathNodeSetCreate(ptr::null_mut());
    if ns.is_null() {
        return ptr::null_mut();
    }
    let obj = xmlMalloc_zero_obj();
    if obj.is_null() {
        libc::free(ns as *mut libc::c_void);
        return ptr::null_mut();
    }
    (*obj).type_ = xmlXPathObjectType::XPATH_NODESET as c_int;
    (*obj).nodesetval = ns as *mut c_void;
    let node = (*ctxt).node;
    if !node.is_null() {
        let mut child = (*node).children;
        while !child.is_null() {
            append_to_node_set(ns, child);
            child = (*child).next;
        }
    }
    obj
}

/// Allocate a zeroed XPath object.
unsafe fn xmlMalloc_zero_obj() -> *mut _xmlXPathObject {
    libc::calloc(1, core::mem::size_of::<_xmlXPathObject>()) as *mut _xmlXPathObject
}

/// Append a node to a node-set.
///
/// # SAFETY
///
/// - All pointers must be valid.
unsafe fn append_to_node_set(ns: *mut _xmlNodeSet, node: *mut _xmlNode) {
    if ns.is_null() || node.is_null() {
        return;
    }
    // Deduplicate.
    let mut i = 0;
    while i < (*ns).nodeNr {
        if *(*ns).nodeTab.offset(i as isize) == node {
            return;
        }
        i += 1;
    }
    if (*ns).nodeNr >= (*ns).nodeMax {
        let new_max = if (*ns).nodeMax == 0 {
            8
        } else {
            (*ns).nodeMax * 2
        };
        let new_tab = libc::realloc(
            (*ns).nodeTab as *mut libc::c_void,
            (new_max as usize) * core::mem::size_of::<*mut _xmlNode>(),
        ) as *mut *mut _xmlNode;
        if new_tab.is_null() {
            return;
        }
        (*ns).nodeTab = new_tab;
        (*ns).nodeMax = new_max;
    }
    *(*ns).nodeTab.offset((*ns).nodeNr as isize) = node;
    (*ns).nodeNr += 1;
}

/// Collect the `xsl:with-param` children of an instruction.
///
/// Returns a linked list of evaluated parameter stack elements.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn collect_with_params(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) -> *mut _xsltStackElem {
    let mut head: *mut _xsltStackElem = ptr::null_mut();
    let mut tail: *mut _xsltStackElem = ptr::null_mut();
    let mut child = (*inst).children;
    while !child.is_null() {
        let next = (*child).next;
        if is_xslt_element(child, "with-param") {
            let param = evaluate_with_param(ctxt, child);
            if !param.is_null() {
                (*param).next = ptr::null_mut();
                if tail.is_null() {
                    head = param;
                    tail = param;
                } else {
                    (*tail).next = param;
                    tail = param;
                }
            }
        }
        child = next;
    }
    head
}

/// Evaluate a single `xsl:with-param` element.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn evaluate_with_param(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) -> *mut _xsltStackElem {
    let name = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name.is_null() {
        return ptr::null_mut();
    }
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    let param = libc::calloc(1, core::mem::size_of::<_xsltStackElem>()) as *mut _xsltStackElem;
    if param.is_null() {
        libc::free(name as *mut libc::c_void);
        if !select.is_null() {
            libc::free(select as *mut libc::c_void);
        }
        return ptr::null_mut();
    }
    (*param).name = name;
    (*param).flags = 2 | 4; // PARAM | INTERNAL
                            // comp type marker for the xsltDebug variable dump (extra.c reads
                            // cur->comp->type): a with-param prints its bare name (not PARAM/VARIABLE).
    (*param).comp = &XSLT_COMP_TYPE_WITHPARAM as *const c_int as *mut c_void;
    if !select.is_null() {
        let obj = eval_xpath(ctxt, select);
        if !obj.is_null() {
            (*param).value = obj;
        } else {
            report_xpath_eval_failure(ctxt, inst, "with-param");
            libc::free(select as *mut libc::c_void);
            libc::free(param as *mut libc::c_void);
            return ptr::null_mut();
        }
        libc::free(select as *mut libc::c_void);
    } else {
        // Inline content: result tree fragment.
        let value = eval_content_fragment(ctxt, (*inst).children);
        if !value.is_null() {
            (*param).value = value;
        }
    }
    param
}

/// Evaluate inline content into a result tree fragment object.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn eval_content_fragment(
    ctxt: *mut _xsltTransformContext,
    content: *mut _xmlNode,
) -> *mut _xmlXPathObject {
    let frag = libc::calloc(1, core::mem::size_of::<_xmlDoc>()) as *mut _xmlDoc;
    if frag.is_null() {
        return ptr::null_mut();
    }
    (*frag).type_ = XML_DOCUMENT_NODE as c_int;
    (*frag).doc = frag;
    // Save the insert point and redirect into the fragment.
    let saved_insert = (*ctxt).insert;
    let saved_output = (*ctxt).output;
    (*ctxt).insert = frag as *mut _xmlNode;
    (*ctxt).output = frag;
    execute_content(ctxt, content);
    (*ctxt).insert = saved_insert;
    (*ctxt).output = saved_output;

    let obj = xmlMalloc_zero_obj();
    if obj.is_null() {
        free_doc(frag);
        return ptr::null_mut();
    }
    (*obj).type_ = xmlXPathObjectType::XPATH_XSLT_TREE as c_int;
    (*obj).nodesetval = frag as *mut c_void;
    obj
}

/// Process `xsl:call-template`.
///
/// # SAFETY
///
/// - All pointers must be valid.
#[allow(clippy::while_immutable_condition)]
pub(crate) unsafe fn process_call_template(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let name = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name.is_null() {
        return;
    }
    let style = (*ctxt).style;
    let templ = crate::xslt::templates::xsltLookupTemplate(style, name);
    libc::free(name as *mut libc::c_void);
    if templ.is_null() {
        return;
    }
    // UPSTREAM-PARITY (transform.c xsltApplyXSLTTemplate): push the
    // template before the recursion guards run so the debug dump lists it.
    template_stack_push(ctxt, templ);
    (*ctxt).depth += 1;
    // Depth guard (php bug71571_a): report + dump + STOPPED instead of the
    // previous silent early return.
    if (*ctxt).depth > (*ctxt).maxTemplateDepth {
        report_template_recursion(ctxt, inst, true);
        (*ctxt).depth -= 1;
        template_stack_pop(ctxt);
        return;
    }
    // UPSTREAM-PARITY (templates.c xsltApplyTemplate): remember the variable
    // stack depth, push the with-params, instantiate the template (whose
    // xsl:param defaults may push MORE variables on top), then pop back to
    // the saved depth — never a fixed count. A fixed count misaligns the
    // stack whenever a default parameter was materialized during the call
    // and leaves stale bindings behind (R-000158).
    let old_vars_nr = (*ctxt).varsNr;
    let params = collect_with_params(ctxt, inst);
    // Snapshot the with-param list BEFORE pushing: xsltPushVariable rewires
    // (*var).next into the variable-stack chain, clobbering the list links.
    let mut to_push: Vec<*mut _xsltStackElem> = Vec::new();
    let mut p = params;
    while !p.is_null() {
        to_push.push(p);
        p = (*p).next;
    }
    for param in to_push {
        crate::xslt::parameters::xsltPushParam(ctxt, param);
    }
    // Variable-count guard (php bug71571_b): the caller's with-params are on
    // the stack by now; report against the template's first content node
    // (its xsl:param) like upstream's xsltApplyXSLTTemplate error.
    if (*ctxt).varsNr >= (*ctxt).maxTemplateVars {
        let err_node = if (*templ).content.is_null() {
            inst
        } else {
            (*templ).content
        };
        report_template_recursion(ctxt, err_node, false);
        (*ctxt).depth -= 1;
        template_stack_pop(ctxt);
        while (*ctxt).varsNr > old_vars_nr {
            crate::xslt::parameters::xsltPopParam(ctxt);
        }
        return;
    }
    let saved_templ = (*ctxt).templ;
    (*ctxt).templ = templ;
    execute_content(ctxt, (*templ).content);
    (*ctxt).templ = saved_templ;
    while (*ctxt).varsNr > old_vars_nr {
        crate::xslt::parameters::xsltPopParam(ctxt);
    }
    (*ctxt).depth -= 1;
    template_stack_pop(ctxt);
}

/// Process `xsl:apply-imports`.
///
/// XSLT 1.0 §5.6: applies the next template in import precedence order
/// that matches the current node, skipping templates at the same or
/// higher import precedence as the current template.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_apply_imports(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let _ = inst;
    let style = (*ctxt).style;
    let node = (*ctxt).node;
    let current_templ = (*ctxt).templ;
    if style.is_null() || node.is_null() || current_templ.is_null() {
        return;
    }
    // The current template's import depth; imported templates have HIGHER
    // depth values. apply-imports considers templates with depth strictly
    // greater than the current template's depth. (Depth is carried in
    // `position`, candidate-internal; upstream tracks it via the stylesheet
    // import chain.)
    let current_depth = (*current_templ).position;
    let mode = (*current_templ).mode;

    let mut best: *mut _xsltTemplate = ptr::null_mut();
    let mut best_priority: f32 = f32::NEG_INFINITY;
    let mut best_depth: c_int = -1;

    let mut templ = (*style).templates;
    while !templ.is_null() {
        // Only templates imported more deeply than the current one.
        if (*templ).position <= current_depth {
            templ = (*templ).next;
            continue;
        }
        // Mode must match.
        if !(*templ).mode.is_null() {
            if mode.is_null()
                || libc::strcmp(
                    (*templ).mode as *const libc::c_char,
                    mode as *const libc::c_char,
                ) != 0
            {
                templ = (*templ).next;
                continue;
            }
        } else if !mode.is_null() {
            templ = (*templ).next;
            continue;
        }
        // Pattern must match. The compiled pattern is carried in `params`
        // (candidate-internal; see xsltAddTemplate).
        let pattern_ptr = (*templ).params as *mut crate::xslt::patterns::_xsltPattern;
        if pattern_ptr.is_null() {
            templ = (*templ).next;
            continue;
        }
        if crate::xslt::patterns::xsltTestPattern(ctxt, pattern_ptr, node) == 0 {
            templ = (*templ).next;
            continue;
        }
        // Priority: explicit or default.
        let priority = (*templ).priority;
        if priority > best_priority || (priority == best_priority && (*templ).position > best_depth)
        {
            best = templ;
            best_priority = priority;
            best_depth = (*templ).position;
        }
        templ = (*templ).next;
    }

    if !best.is_null() {
        template_stack_push(ctxt, best);
        (*ctxt).depth += 1;
        if (*ctxt).depth > (*ctxt).maxTemplateDepth {
            report_template_recursion(ctxt, inst, true);
            (*ctxt).depth -= 1;
            template_stack_pop(ctxt);
            return;
        }
        if (*ctxt).varsNr >= (*ctxt).maxTemplateVars {
            let err_node = if (*best).content.is_null() {
                inst
            } else {
                (*best).content
            };
            report_template_recursion(ctxt, err_node, false);
            (*ctxt).depth -= 1;
            template_stack_pop(ctxt);
            return;
        }
        let saved_templ = (*ctxt).templ;
        (*ctxt).templ = best;
        execute_content(ctxt, (*best).content);
        (*ctxt).templ = saved_templ;
        (*ctxt).depth -= 1;
        template_stack_pop(ctxt);
    }
}

/// Process `xsl:for-each`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_for_each(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    if select.is_null() {
        return;
    }
    let obj = eval_xpath(ctxt, select);
    libc::free(select as *mut libc::c_void);
    if obj.is_null() {
        report_xpath_eval_failure(ctxt, inst, "for-each");
        return;
    }
    if (*obj).type_ != xmlXPathObjectType::XPATH_NODESET as c_int {
        xmlXPathFreeObject(obj);
        return;
    }
    let nodes = (*obj).nodesetval as *mut _xmlNodeSet;
    if nodes.is_null() || (*nodes).nodeNr == 0 {
        xmlXPathFreeObject(obj);
        return;
    }
    // Check for xsl:sort children.
    let sort = find_sort_children(ctxt, inst);
    // Save the current node list state (contextSize/proximityPosition live
    // on the XPath context; UPSTREAM-PARITY: xpath.h).
    let saved_node = (*ctxt).node;
    let xpath_ctxt = (*ctxt).xpathCtxt;
    let (saved_size, saved_pos) = if xpath_ctxt.is_null() {
        (0, 0)
    } else {
        ((*xpath_ctxt).contextSize, (*xpath_ctxt).proximityPosition)
    };

    let mut node_ptrs: Vec<*mut _xmlNode> = Vec::new();
    let mut i = 0;
    while i < (*nodes).nodeNr {
        let n = *(*nodes).nodeTab.offset(i as isize);
        if !n.is_null() {
            node_ptrs.push(n);
        }
        i += 1;
    }

    if !sort.is_null() {
        // Build a temporary node-set and sort it.
        let sorted = libc::calloc(1, core::mem::size_of::<_xmlNodeSet>()) as *mut _xmlNodeSet;
        if !sorted.is_null() {
            (*sorted).nodeNr = node_ptrs.len() as c_int;
            (*sorted).nodeMax = node_ptrs.len() as c_int;
            let tab = libc::malloc(node_ptrs.len() * core::mem::size_of::<*mut _xmlNode>())
                as *mut *mut _xmlNode;
            (*sorted).nodeTab = tab;
            for (idx, n) in node_ptrs.iter().enumerate() {
                if !tab.is_null() {
                    *tab.add(idx) = *n;
                }
            }
            crate::xslt::sorting::xsltSortNodeSet(ctxt, sorted, sort);
            if !xpath_ctxt.is_null() {
                (*xpath_ctxt).contextSize = (*sorted).nodeNr;
            }
            let mut k = 0;
            while k < (*sorted).nodeNr {
                // UPSTREAM-PARITY (transform.c xsltForEach): stop iterating
                // once the context leaves the OK state.
                if (*ctxt).state == XSLT_STATE_ERROR || (*ctxt).state == XSLT_STATE_STOPPED {
                    break;
                }
                let n = *(*sorted).nodeTab.offset(k as isize);
                if !n.is_null() {
                    (*ctxt).node = n;
                    if !xpath_ctxt.is_null() {
                        (*xpath_ctxt).proximityPosition = k + 1;
                    }
                    execute_content(ctxt, (*inst).children);
                }
                k += 1;
            }
            libc::free((*sorted).nodeTab as *mut libc::c_void);
            libc::free(sorted as *mut libc::c_void);
        }
    } else {
        if !xpath_ctxt.is_null() {
            (*xpath_ctxt).contextSize = node_ptrs.len() as c_int;
        }
        for (i, n) in node_ptrs.iter().enumerate() {
            // UPSTREAM-PARITY (transform.c xsltForEach): stop iterating
            // once the context leaves the OK state.
            if (*ctxt).state == XSLT_STATE_ERROR || (*ctxt).state == XSLT_STATE_STOPPED {
                break;
            }
            if !n.is_null() {
                (*ctxt).node = *n;
                if !xpath_ctxt.is_null() {
                    (*xpath_ctxt).proximityPosition = (i + 1) as c_int;
                }
                execute_content(ctxt, (*inst).children);
            }
        }
    }

    // Restore the current node state.
    (*ctxt).node = saved_node;
    if !xpath_ctxt.is_null() {
        (*xpath_ctxt).contextSize = saved_size;
        (*xpath_ctxt).proximityPosition = saved_pos;
    }
    xmlXPathFreeObject(obj);
}

/// Find the first `xsl:sort` child of an instruction and compile it.
///
/// # SAFETY
///
/// - `ctxt` must be a valid transform context.
/// - `inst` must be a valid node.
unsafe fn find_sort_children(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) -> *mut _xsltSort {
    if ctxt.is_null() || inst.is_null() {
        return ptr::null_mut();
    }
    let mut child = (*inst).children;
    while !child.is_null() {
        if is_xslt_element(child, "sort") {
            // Compile the sort from the instruction node, with the actual
            // stylesheet so xsltCompileSort can record it on the sort.
            let style = (*ctxt).style;
            let sort = crate::xslt::sorting::xsltCompileSort(style, child);
            return sort;
        }
        child = (*child).next;
    }
    ptr::null_mut()
}

/// Process `xsl:value-of`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_value_of(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    if select.is_null() {
        return;
    }
    let obj = eval_xpath(ctxt, select);
    libc::free(select as *mut libc::c_void);
    if obj.is_null() {
        // UPSTREAM-PARITY: an XPath evaluation failure in xsl:value-of is a
        // fatal transform error (xsltValueOf -> "XPath evaluation returned
        // no result.", exit 10).
        report_xpath_eval_failure(ctxt, inst, "value-of");
        return;
    }
    let strv = xmlXPathCastToString(obj);
    xmlXPathFreeObject(obj);
    if !strv.is_null() {
        // UPSTREAM-PARITY (transform.c xsltValueOf 1.1.45): the string value
        // is copied into the result only when it is non-empty
        // (`if (value[0] != 0)`); an empty value-of must NOT create an empty
        // text node, otherwise an otherwise-empty element would serialize
        // as `<out></out>` instead of the oracle's `<out/>`.
        if *strv != 0 {
            append_text_node(ctxt, strv);
        }
        libc::free(strv as *mut libc::c_void);
    }
}

/// Process `xsl:copy-of`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_copy_of(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    if select.is_null() {
        return;
    }
    let obj = eval_xpath(ctxt, select);
    libc::free(select as *mut libc::c_void);
    if obj.is_null() {
        report_xpath_eval_failure(ctxt, inst, "copy-of");
        return;
    }
    if (*obj).type_ == xmlXPathObjectType::XPATH_NODESET as c_int {
        let nodes = (*obj).nodesetval as *mut _xmlNodeSet;
        if !nodes.is_null() {
            let mut i = 0;
            while i < (*nodes).nodeNr {
                let n = *(*nodes).nodeTab.offset(i as isize);
                if !n.is_null() {
                    copy_node_deep(ctxt, n);
                }
                i += 1;
            }
        }
    } else if (*obj).type_ == xmlXPathObjectType::XPATH_XSLT_TREE as c_int {
        // Result tree fragment: copy the fragment's children.
        let frag = (*obj).nodesetval as *mut _xmlDoc;
        if !frag.is_null() {
            let mut child = (*frag).children;
            while !child.is_null() {
                let next = (*child).next;
                copy_node_deep(ctxt, child);
                child = next;
            }
        }
    } else {
        // Atomic value: copy as text. UPSTREAM-PARITY (transform.c
        // xsltCopyOf 1.1.45): the cast string is appended only when
        // non-empty (`if (value[0] != 0)`); an empty atomic copy-of must
        // not create an empty text node (same rule as xsltValueOf).
        let strv = xmlXPathCastToString(obj);
        if !strv.is_null() {
            if *strv != 0 {
                append_text_node(ctxt, strv);
            }
            libc::free(strv as *mut libc::c_void);
        }
    }
    xmlXPathFreeObject(obj);
}

/// Deep-copy a source node into the result tree.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn copy_node_deep(ctxt: *mut _xsltTransformContext, node: *mut _xmlNode) {
    if node.is_null() {
        return;
    }
    let typ = (*node).type_;
    if typ == XML_TEXT_NODE as c_int || typ == XML_CDATA_SECTION_NODE as c_int {
        if !(*node).content.is_null() {
            append_text_node(ctxt, (*node).content);
        }
    } else if typ == XML_COMMENT_NODE as c_int {
        if !(*node).content.is_null() {
            append_comment_node(ctxt, (*node).content);
        }
    } else if typ == XML_PI_NODE as c_int {
        if !(*node).name.is_null() {
            append_pi_node(ctxt, (*node).name, (*node).content);
        }
    } else if typ == XML_ELEMENT_NODE as c_int {
        // Create the element.
        let name = (*node).name;
        let new_elem = new_element_node(ctxt, name, (*node).ns);
        if new_elem.is_null() {
            return;
        }
        // Copy attributes.
        let mut prop = (*node).properties;
        while !prop.is_null() {
            let attr_name = (*prop).name;
            let attr_val = node_get_content((*prop).children);
            if !attr_name.is_null() && !attr_val.is_null() {
                set_prop(new_elem, attr_name, attr_val);
                libc::free(attr_val as *mut libc::c_void);
            }
            prop = (*prop).next;
        }
        // Recurse into children.
        let saved_insert = (*ctxt).insert;
        (*ctxt).insert = new_elem;
        let mut child = (*node).children;
        while !child.is_null() {
            let next = (*child).next;
            copy_node_deep(ctxt, child);
            child = next;
        }
        (*ctxt).insert = saved_insert;
    } else if typ == XML_DOCUMENT_NODE as c_int || typ == XML_HTML_DOCUMENT_NODE as c_int {
        // Document node: copy its children (the root element and any
        // top-level nodes). `xsl:copy-of select="document('')"` must emit
        // the stylesheet's root element (lxml test_xslt_document_*).
        let mut child = (*node).children;
        while !child.is_null() {
            let next = (*child).next;
            copy_node_deep(ctxt, child);
            child = next;
        }
    }
}

/// Create an element node in the result tree.
///
/// # SAFETY
///
/// - All pointers must be valid.
unsafe fn new_element_node(
    ctxt: *mut _xsltTransformContext,
    name: *const xmlChar,
    ns: *mut _xmlNs,
) -> *mut _xmlNode {
    let elem = new_node(ns, name);
    if elem.is_null() {
        return ptr::null_mut();
    }
    append_to_result(ctxt, elem);
    elem
}

/// Append a node to the result tree at the current insertion point.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn append_to_result(ctxt: *mut _xsltTransformContext, node: *mut _xmlNode) {
    let insert = (*ctxt).insert;
    if insert.is_null() {
        return;
    }
    // If the insert point is a document, add as a child.
    add_child(insert, node);
    // Fix up the document pointer.
    let doc = if (*insert).type_ == XML_DOCUMENT_NODE as c_int {
        insert as *mut _xmlDoc
    } else {
        (*insert).doc
    };
    if !doc.is_null() {
        set_node_doc(node, doc);
    }
}

/// Recursively set the doc pointer of a subtree.
///
/// # SAFETY
///
/// - All pointers must be valid.
unsafe fn set_node_doc(node: *mut _xmlNode, doc: *mut _xmlDoc) {
    if node.is_null() {
        return;
    }
    (*node).doc = doc;
    let mut prop = (*node).properties;
    while !prop.is_null() {
        (*prop).doc = doc;
        prop = (*prop).next;
    }
    let mut child = (*node).children;
    while !child.is_null() {
        set_node_doc(child, doc);
        child = (*child).next;
    }
}

/// Append a text node to the result tree.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn append_text_node(ctxt: *mut _xsltTransformContext, content: *const xmlChar) {
    let insert = (*ctxt).insert;
    if insert.is_null() || content.is_null() {
        return;
    }
    let text = new_text(content);
    if text.is_null() {
        return;
    }
    append_to_result(ctxt, text);
}

/// Append a comment node to the result tree.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn append_comment_node(
    ctxt: *mut _xsltTransformContext,
    content: *const xmlChar,
) {
    let insert = (*ctxt).insert;
    if insert.is_null() || content.is_null() {
        return;
    }
    let comment = new_comment(content);
    if comment.is_null() {
        return;
    }
    append_to_result(ctxt, comment);
}

/// Append a PI node to the result tree.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn append_pi_node(
    ctxt: *mut _xsltTransformContext,
    name: *const xmlChar,
    content: *const xmlChar,
) {
    let insert = (*ctxt).insert;
    if insert.is_null() || name.is_null() {
        return;
    }
    let pi = new_pi(name, content);
    if pi.is_null() {
        return;
    }
    append_to_result(ctxt, pi);
}

/// Process `xsl:copy`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_copy(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let node = (*ctxt).node;
    if node.is_null() {
        return;
    }
    let typ = (*node).type_;
    let saved_insert = (*ctxt).insert;
    if typ == XML_ELEMENT_NODE as c_int {
        // UPSTREAM-PARITY (transform.c xsltCopy -> xsltShallowCopyElem,
        // non-LRE): shallow-copy the element into the result tree, declare
        // the source element's namespace declarations on the copy, and
        // re-bind the element namespace with xsltGetSpecialNamespace
        // (namespace fixup). The pre-fix code only carried the source ns
        // pointer over without declaring it, so copied elements lost their
        // in-scope declarations (gh21357_2 / namespaced identity copies).
        let name = (*node).name;
        if name.is_null() {
            return;
        }
        // New element with NO namespace yet; append BEFORE the fixups so the
        // namespace search can see the ancestor chain (upstream order).
        let new_elem = crate::xml::tree::new_node(ptr::null_mut(), name);
        if new_elem.is_null() {
            return;
        }
        append_to_result(ctxt, new_elem);
        // Declare the copied element's namespace declarations (upstream
        // xsltCopyNamespaceListInternal — plain copies, no aliasing).
        let mut nsdef = (*node).nsDef;
        while !nsdef.is_null() {
            unsafe {
                if !(*nsdef).href.is_null() {
                    crate::xml::tree::new_ns(new_elem, (*nsdef).href, (*nsdef).prefix);
                }
            }
            nsdef = unsafe { (*nsdef).next };
        }
        if !(*node).ns.is_null() {
            let src_ns = &*(*node).ns;
            if src_ns.href.is_null() || *src_ns.href == 0 {
                // Source element's namespace is a disabled/empty decl.
                (*new_elem).ns = ptr::null_mut();
            } else {
                let fixed = crate::abi::exports_xslt_avt::xsltGetSpecialNamespace(
                    ctxt,
                    inst,
                    src_ns.href,
                    src_ns.prefix,
                    new_elem,
                );
                (*new_elem).ns = fixed;
            }
        } else if !saved_insert.is_null()
            && (*saved_insert).type_ == XML_ELEMENT_NODE as c_int
            && !(*saved_insert).ns.is_null()
        {
            // "Undeclare" the default namespace (upstream).
            crate::abi::exports_xslt_avt::xsltGetSpecialNamespace(
                ctxt,
                inst,
                ptr::null(),
                ptr::null(),
                new_elem,
            );
        }
        (*ctxt).insert = new_elem;
    } else if typ == XML_TEXT_NODE as c_int || typ == XML_CDATA_SECTION_NODE as c_int {
        if !(*node).content.is_null() {
            append_text_node(ctxt, (*node).content);
        }
    } else if typ == XML_COMMENT_NODE as c_int {
        if !(*node).content.is_null() {
            append_comment_node(ctxt, (*node).content);
        }
    } else if typ == XML_PI_NODE as c_int {
        if !(*node).name.is_null() {
            append_pi_node(ctxt, (*node).name, (*node).content);
        }
    } else if typ == XML_ATTRIBUTE_NODE as c_int {
        // UPSTREAM-PARITY (transform.c xsltCopy -> xsltShallowCopyAttr): an
        // xsl:copy of an attribute node creates an ATTRIBUTE copy on the
        // current result element — namespace fixup through
        // xsltGetSpecialNamespace + xmlSetNsProp — never a text node.
        // Modern DOM documents expose xmlns declarations as attributes in
        // the xmlns namespace (php_dom_ns_compat_mark_attribute_list);
        // copying such an attribute must reproduce the declaration literally
        // (gh21357_2: ns_1:xmlns="..."), not splat its value as text.
        let target = (*ctxt).insert;
        let copy_ok = if target.is_null() || (*target).type_ != XML_ELEMENT_NODE as c_int {
            crate::xslt::errors::xsltTransformError(
                ctxt,
                ptr::null_mut(),
                inst,
                c"Cannot add an attribute node to a non-element node.\n"
                    .as_ptr()
                    .cast::<libc::c_char>(),
            );
            false
        } else if !(*target).children.is_null() {
            crate::xslt::errors::xsltTransformError(
                ctxt,
                ptr::null_mut(),
                inst,
                c"Attribute nodes must be added before any child nodes to an element.\n"
                    .as_ptr()
                    .cast::<libc::c_char>()
                    .add(0),
            );
            false
        } else {
            let val = node_get_content((*node).children);
            let attr = node as *mut _xmlAttr;
            let attr_ref = &*attr;
            let ns = if attr_ref.ns.is_null() {
                ptr::null_mut()
            } else {
                crate::abi::exports_xslt_avt::xsltGetSpecialNamespace(
                    ctxt,
                    inst,
                    (*attr_ref.ns).href,
                    (*attr_ref.ns).prefix,
                    target,
                )
            };
            // xmlSetNsProp(target, ns, attr->name, value): duplicates are
            // replaced and the namespace is assigned even to a duplicate
            // (upstream note). NULL value is tolerated (xmlSetNsProp with
            // NULL content creates an empty attribute).
            crate::abi::exports_xml2::xmlSetNsProp(target, ns, attr_ref.name, val);
            if !val.is_null() {
                libc::free(val as *mut libc::c_void);
            }
            true
        };
        let _ = copy_ok;
    }
    // Process children (attributes and content).
    execute_content(ctxt, (*inst).children);
    (*ctxt).insert = saved_insert;
}

/// Process `xsl:element`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_element(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let name_attr = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name_attr.is_null() {
        return;
    }
    // Evaluate the name attribute (it may be an AVT).
    let name_str = eval_avt(ctxt, name_attr);
    libc::free(name_attr as *mut libc::c_void);
    if name_str.is_null() {
        return;
    }
    // Check for the namespace attribute.
    let ns_attr = get_prop(inst, c"namespace".as_ptr() as *const xmlChar);
    let had_ns_attr = !ns_attr.is_null();
    let ns_str = if !ns_attr.is_null() {
        let v = eval_avt(ctxt, ns_attr);
        libc::free(ns_attr as *mut libc::c_void);
        v
    } else {
        ptr::null_mut()
    };
    // Resolve the namespace name (upstream xsltElement): the `namespace`
    // attribute (AVT, may be empty = no namespace); when ABSENT, the QName
    // is expanded using the namespace declarations in effect for the
    // xsl:element element, INCLUDING any default namespace declaration
    // (`xmlSearchNs(inst->doc, inst, NULL)`). gh21357_2's
    // `<xsl:element ... xmlns="http://something/new/">` relies on the
    // default-ns case: the created element is in the instruction's default
    // namespace.
    //
    // Borrowed pointers into the stylesheet when no namespace attribute is
    // present; `ns_str` (owned) when the attribute supplied a value. The
    // binding below copies the href/prefix before `ns_str` is freed.
    let mut borrowed_href: *const xmlChar = ptr::null();
    let mut borrowed_prefix: *const xmlChar = ptr::null();
    if !ns_str.is_null() && *ns_str != 0 {
        borrowed_href = ns_str;
    } else if ns_str.is_null() && !had_ns_attr {
        // No namespace attribute: in-scope default namespace of the
        // instruction (prefix NULL).
        let def = crate::abi::exports_xml2::xmlSearchNs((*inst).doc, inst, ptr::null());
        if !def.is_null() && !(*def).href.is_null() && *(*def).href != 0 {
            borrowed_href = (*def).href;
            borrowed_prefix = (*def).prefix;
        }
    }
    let elem = crate::xml::tree::new_node(ptr::null_mut(), name_str);
    libc::free(name_str as *mut libc::c_void);
    if elem.is_null() {
        if !ns_str.is_null() {
            libc::free(ns_str as *mut libc::c_void);
        }
        return;
    }
    append_to_result(ctxt, elem);
    if !borrowed_href.is_null() && *borrowed_href != 0 {
        // Bind: find or declare the namespace on the element
        // (xsltGetSpecialNamespace — declares a default decl when the
        // prefix is free; mints ns_1.. when the default is taken).
        let bound = crate::abi::exports_xslt_avt::xsltGetSpecialNamespace(
            ctxt,
            inst,
            borrowed_href,
            borrowed_prefix,
            elem,
        );
        (*elem).ns = bound;
    }
    if !ns_str.is_null() {
        libc::free(ns_str as *mut libc::c_void);
    }
    let saved_insert = (*ctxt).insert;
    (*ctxt).insert = elem;
    execute_content(ctxt, (*inst).children);
    (*ctxt).insert = saved_insert;
}

/// Process `xsl:attribute`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_attribute(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let name_attr = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name_attr.is_null() {
        return;
    }
    // The name attribute may be an AVT (XSLT 1.0 §7.6.2).
    let name_str = eval_avt(ctxt, name_attr);
    libc::free(name_attr as *mut libc::c_void);
    if name_str.is_null() {
        return;
    }
    let insert = (*ctxt).insert;
    if insert.is_null() {
        xmlFreeImpl(name_str as *mut c_void);
        return;
    }
    // Evaluate the content into a temporary buffer.
    let saved_insert = (*ctxt).insert;
    let buf = libc::calloc(1, core::mem::size_of::<_xmlBuffer>()) as *mut _xmlBuffer;
    if buf.is_null() {
        xmlFreeImpl(name_str as *mut c_void);
        return;
    }
    (*buf).content = libc::calloc(1, 64) as *mut xmlChar;
    (*buf).size = 64;
    (*buf).use_ = 0;
    let frag_doc = libc::calloc(1, core::mem::size_of::<_xmlDoc>()) as *mut _xmlDoc;
    if frag_doc.is_null() {
        libc::free(buf as *mut libc::c_void);
        xmlFreeImpl(name_str as *mut c_void);
        return;
    }
    (*frag_doc).type_ = XML_DOCUMENT_NODE as c_int;
    (*frag_doc).doc = frag_doc;
    (*ctxt).insert = frag_doc as *mut _xmlNode;
    execute_content(ctxt, (*inst).children);
    // Collect the text from the fragment.
    let mut value: Vec<u8> = Vec::new();
    let mut child = (*frag_doc).children;
    while !child.is_null() {
        if (*child).type_ == XML_TEXT_NODE as c_int && !(*child).content.is_null() {
            let len = libc::strlen((*child).content as *const libc::c_char) as usize;
            value.extend_from_slice(core::slice::from_raw_parts((*child).content, len));
        }
        child = (*child).next;
    }
    // Free the fragment.
    free_doc(frag_doc);
    (*ctxt).insert = saved_insert;

    // Set the attribute on the current result element.
    let mut cvalue = value.clone();
    cvalue.push(0);
    set_prop(insert, name_str, cvalue.as_ptr() as *const xmlChar);
    xmlFreeImpl(name_str as *mut c_void);
}

/// Process `xsl:text`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_text(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    // disable-output-escaping attribute.
    let doe = get_prop(inst, c"disable-output-escaping".as_ptr() as *const xmlChar);
    if !doe.is_null() {
        libc::free(doe as *mut libc::c_void);
    }
    // Copy the text children verbatim.
    let mut child = (*inst).children;
    while !child.is_null() {
        if (*child).type_ == XML_TEXT_NODE as c_int && !(*child).content.is_null() {
            append_text_node(ctxt, (*child).content);
        }
        child = (*child).next;
    }
}

/// Process `xsl:comment`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_comment(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let content = node_get_content((*inst).children);
    if !content.is_null() {
        append_comment_node(ctxt, content);
        libc::free(content as *mut libc::c_void);
    }
}

/// Process `xsl:processing-instruction`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_pi(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let name_attr = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name_attr.is_null() {
        return;
    }
    // The name attribute may be an AVT (XSLT 1.0 §7.6.2).
    let name_str = eval_avt(ctxt, name_attr);
    libc::free(name_attr as *mut libc::c_void);
    if name_str.is_null() {
        return;
    }
    let content = node_get_content((*inst).children);
    append_pi_node(ctxt, name_str, content);
    if !content.is_null() {
        libc::free(content as *mut libc::c_void);
    }
    xmlFreeImpl(name_str as *mut c_void);
}

/// Process `xsl:number`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_number(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let value_attr = get_prop(inst, c"value".as_ptr() as *const xmlChar);
    let mut number: f64 = f64::NAN;
    if !value_attr.is_null() {
        let obj = eval_xpath(ctxt, value_attr);
        libc::free(value_attr as *mut libc::c_void);
        if !obj.is_null() {
            number = (*obj).floatval;
            xmlXPathFreeObject(obj);
        } else {
            report_xpath_eval_failure(ctxt, inst, "number");
            return;
        }
    } else {
        // Compute the number from the level (single/multiple/any) and
        // count patterns. Phase 8: full implementation computes preceding
        // siblings etc. Simplified: count preceding siblings + 1.
        number = 1.0;
        let node = (*ctxt).node;
        if !node.is_null() {
            let mut sib = (*node).prev;
            while !sib.is_null() {
                if (*sib).type_ == XML_ELEMENT_NODE as c_int {
                    number += 1.0;
                }
                sib = (*sib).prev;
            }
        }
    }
    // Format the number: format attribute with tokens.
    let format = get_prop(inst, c"format".as_ptr() as *const xmlChar);
    let formatted = crate::xslt::numbering::xsltFormatNumber(number, format);
    if !format.is_null() {
        libc::free(format as *mut libc::c_void);
    }
    if !formatted.is_null() {
        append_text_node(ctxt, formatted);
        libc::free(formatted as *mut libc::c_void);
    }
}

/// XPath 1.0 boolean conversion (§4.3) of a C ABI XPath object.
///
/// - node-set → true iff non-empty
/// - number → true iff non-zero and not NaN
/// - string → true iff non-empty
/// - boolean → itself
unsafe fn xpath_obj_boolean(obj: *mut _xmlXPathObject) -> bool {
    if obj.is_null() {
        return false;
    }
    let typ = (*obj).type_;
    if typ == xmlXPathObjectType::XPATH_BOOLEAN as c_int {
        return (*obj).boolval != 0;
    }
    if typ == xmlXPathObjectType::XPATH_NUMBER as c_int {
        let n = (*obj).floatval;
        return n != 0.0 && !n.is_nan();
    }
    if typ == xmlXPathObjectType::XPATH_STRING as c_int {
        return !(*obj).stringval.is_null() && *(*obj).stringval != 0;
    }
    if typ == xmlXPathObjectType::XPATH_NODESET as c_int {
        let ns = (*obj).nodesetval as *mut _xmlNodeSet;
        return !ns.is_null() && (*ns).nodeNr > 0;
    }
    false
}

/// Process `xsl:choose`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_choose(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let mut child = (*inst).children;
    let mut executed = false;
    while !child.is_null() {
        let next = (*child).next;
        if is_xslt_element(child, "when") {
            let test = get_prop(child, c"test".as_ptr() as *const xmlChar);
            if !test.is_null() {
                let obj = eval_xpath(ctxt, test);
                libc::free(test as *mut libc::c_void);
                if obj.is_null() {
                    report_xpath_eval_failure(ctxt, child, "when");
                    return;
                }
                let truthy = xpath_obj_boolean(obj);
                xmlXPathFreeObject(obj);
                if truthy {
                    execute_content(ctxt, (*child).children);
                    executed = true;
                    break;
                }
            }
        } else if is_xslt_element(child, "otherwise") && !executed {
            execute_content(ctxt, (*child).children);
            executed = true;
        }
        child = next;
    }
}

/// Process `xsl:if`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_if(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let test = get_prop(inst, c"test".as_ptr() as *const xmlChar);
    if test.is_null() {
        return;
    }
    let obj = eval_xpath(ctxt, test);
    libc::free(test as *mut libc::c_void);
    if obj.is_null() {
        report_xpath_eval_failure(ctxt, inst, "if");
        return;
    }
    // XPath 1.0 boolean conversion (§4.3): the test may be a node-set
    // (e.g. `test="author"`), number, or string — `boolval` alone is only
    // valid for boolean objects.
    let truthy = xpath_obj_boolean(obj);
    xmlXPathFreeObject(obj);
    if truthy {
        execute_content(ctxt, (*inst).children);
    }
}

/// Process `xsl:variable` (local variable).
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_variable(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let name = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name.is_null() {
        return;
    }
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    let var = libc::calloc(1, core::mem::size_of::<_xsltStackElem>()) as *mut _xsltStackElem;
    if var.is_null() {
        libc::free(name as *mut libc::c_void);
        if !select.is_null() {
            libc::free(select as *mut libc::c_void);
        }
        return;
    }
    (*var).name = name;
    (*var).flags = 4; // INTERNAL
                      // comp type marker for the xsltDebug variable dump: an xsl:variable
                      // prints "var".
    (*var).comp = &XSLT_COMP_TYPE_VARIABLE as *const c_int as *mut c_void;
    if !select.is_null() {
        let obj = eval_xpath(ctxt, select);
        if !obj.is_null() {
            (*var).value = obj;
        } else {
            report_xpath_eval_failure(ctxt, inst, "variable");
            libc::free(select as *mut libc::c_void);
            libc::free(var as *mut libc::c_void);
            return;
        }
        libc::free(select as *mut libc::c_void);
    } else {
        let value = eval_content_fragment(ctxt, (*inst).children);
        if !value.is_null() {
            (*var).value = value;
        }
    }
    crate::xslt::variables::xsltPushVariable(ctxt, var);
}

/// Process `xsl:param` (local param with default).
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_param(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let name = get_prop(inst, c"name".as_ptr() as *const xmlChar);
    if name.is_null() {
        return;
    }
    // Check whether a value was passed (via xsl:with-param or a global
    // caller parameter). With-params are registered in the XPath context's
    // variable hash by xsltPushParam, so consult the hash.
    let already_bound = {
        let xpath_ctxt = (*ctxt).xpathCtxt;
        if xpath_ctxt.is_null() {
            false
        } else {
            let internal = (*xpath_ctxt).extra as *mut crate::xml::xpath::context::XPathContext;
            if internal.is_null() {
                false
            } else {
                let name_len = libc::strlen(name as *const libc::c_char);
                let name_bytes = core::slice::from_raw_parts(name, name_len);
                let name_owned = String::from_utf8_lossy(name_bytes).into_owned();
                (*internal).variables.contains_key(&name_owned)
            }
        }
    };
    if already_bound {
        // Value already provided by with-param / caller.
        libc::free(name as *mut libc::c_void);
        return;
    }
    let select = get_prop(inst, c"select".as_ptr() as *const xmlChar);
    let var = libc::calloc(1, core::mem::size_of::<_xsltStackElem>()) as *mut _xsltStackElem;
    if var.is_null() {
        libc::free(name as *mut libc::c_void);
        if !select.is_null() {
            libc::free(select as *mut libc::c_void);
        }
        return;
    }
    (*var).name = name;
    (*var).flags = 2 | 4; // PARAM | INTERNAL
                          // comp type marker for the xsltDebug variable dump: an xsl:param prints
                          // "param".
    (*var).comp = &XSLT_COMP_TYPE_PARAM as *const c_int as *mut c_void;
    if !select.is_null() {
        let obj = eval_xpath(ctxt, select);
        if !obj.is_null() {
            (*var).value = obj;
        } else {
            report_xpath_eval_failure(ctxt, inst, "param");
            libc::free(select as *mut libc::c_void);
            libc::free(var as *mut libc::c_void);
            return;
        }
        libc::free(select as *mut libc::c_void);
    } else {
        let value = eval_content_fragment(ctxt, (*inst).children);
        if !value.is_null() {
            (*var).value = value;
        }
    }
    crate::xslt::variables::xsltPushVariable(ctxt, var);
}

/// Process `xsl:message`.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_message(ctxt: *mut _xsltTransformContext, inst: *mut _xmlNode) {
    let content = node_get_content((*inst).children);
    if !content.is_null() {
        // UPSTREAM-PARITY (transform.c xsltMessage): the message is emitted
        // through the transform error handler (ctxt->error) or the global
        // generic channel, NOT raw stderr — lxml's _receiveXSLTError and
        // php's xsl_libxslt_error_handler only capture it via that route.
        let len = libc::strlen(content as *const libc::c_char) as usize;
        let bytes = core::slice::from_raw_parts(content as *const u8, len);
        crate::xslt::errors::xsltEmitMessage(ctxt, bytes);
        // terminate attribute: if "yes", stop the transformation.
        let terminate = get_prop(inst, c"terminate".as_ptr() as *const xmlChar);
        if !terminate.is_null() {
            if libc::strcmp(
                terminate as *const libc::c_char,
                c"yes".as_ptr() as *const libc::c_char,
            ) == 0
            {
                (*ctxt).state = XSLT_STATE_ERROR;
            }
            libc::free(terminate as *mut libc::c_void);
        }
        libc::free(content as *mut libc::c_void);
    }
}

/// Evaluate an attribute value template (AVT) per XSLT 1.0 §7.6.2.
///
/// - `{{` and `}}` escape to literal `{` / `}`.
/// - `{expr}` evaluates `expr` as an XPath expression and substitutes its
///   string value.
/// - An unmatched `{` is copied literally (upstream `xsltEvalAttrValueTemplate`
///   keeps malformed templates verbatim).
///
/// # SAFETY
///
/// - `ctxt` must be a valid transform context.
/// - `value` must be NULL or a valid NUL-terminated C string.
///
/// Returns a heap-allocated NUL-terminated string; the caller frees it with
/// `xmlFree`. Returns NULL only on allocation failure.
pub(crate) unsafe fn eval_avt(
    ctxt: *mut _xsltTransformContext,
    value: *const xmlChar,
) -> *mut xmlChar {
    if value.is_null() {
        return ptr::null_mut();
    }
    let len = libc::strlen(value as *const libc::c_char);
    let bytes = core::slice::from_raw_parts(value, len);
    let mut out: Vec<u8> = Vec::new();
    let mut i = 0;
    while i < bytes.len() {
        let b = bytes[i];
        if b == b'{' {
            if i + 1 < bytes.len() && bytes[i + 1] == b'{' {
                out.push(b'{');
                i += 2;
                continue;
            }
            // Find the closing brace of the embedded XPath expression.
            if let Some(rel) = bytes[i + 1..].iter().position(|c| *c == b'}') {
                let close = i + 1 + rel;
                let expr_bytes = &bytes[i + 1..close];
                let expr_c = crate::xml::string::bytes_to_xmlstr(expr_bytes);
                if !expr_c.is_null() {
                    let obj = eval_xpath(ctxt, expr_c);
                    xmlFreeImpl(expr_c as *mut c_void);
                    if !obj.is_null() {
                        let strv = xmlXPathCastToString(obj);
                        xmlXPathFreeObject(obj);
                        if !strv.is_null() {
                            let slen = libc::strlen(strv as *const libc::c_char);
                            out.extend_from_slice(core::slice::from_raw_parts(strv, slen));
                            xmlFreeImpl(strv as *mut c_void);
                        }
                    } else {
                        report_xpath_eval_failure(ctxt, (*ctxt).inst, "attribute-value-template");
                        return ptr::null_mut();
                    }
                }
                i = close + 1;
                continue;
            }
            // No closing brace: literal '{'.
            out.push(b'{');
            i += 1;
            continue;
        }
        if b == b'}' {
            if i + 1 < bytes.len() && bytes[i + 1] == b'}' {
                out.push(b'}');
                i += 2;
                continue;
            }
            out.push(b'}');
            i += 1;
            continue;
        }
        out.push(b);
        i += 1;
    }
    crate::xml::string::bytes_to_xmlstr(&out)
}

/// Collect the raw prefixes listed in an `xsl:exclude-result-prefixes` or
/// `xsl:extension-element-prefixes` attribute (on a literal result element or
/// the stylesheet root). Both designate namespaces that must not be copied to
/// the result tree (XSLT 1.0 §14.1: an extension namespace is excluded from
/// the result unless actually used). An empty entry represents `#default`
/// (the default namespace).
///
/// # Safety
///
/// - `node` must be NULL or a valid element node whose properties/children
///   are valid.
unsafe fn read_excluded_prefixes(node: *mut _xmlNode) -> Vec<Vec<u8>> {
    let mut out = Vec::new();
    if node.is_null() {
        return out;
    }
    let mut prop = (*node).properties;
    while !prop.is_null() {
        let is_exclude = {
            let name = (*prop).name;
            let is_name = if name.is_null() {
                false
            } else {
                let b = core::slice::from_raw_parts(
                    name,
                    libc::strlen(name as *const libc::c_char) as usize,
                );
                b == b"exclude-result-prefixes" || b == b"extension-element-prefixes"
            };
            let is_xsl_ns = if (*prop).ns.is_null() {
                false
            } else {
                let h = (*(*prop).ns).href;
                !h.is_null() && {
                    let hb = core::slice::from_raw_parts(
                        h,
                        libc::strlen(h as *const libc::c_char) as usize,
                    );
                    hb == XSLT_NAMESPACE_BYTES
                }
            };
            // Unprefixed XSLT attributes on the stylesheet root have no
            // namespace (`exclude-result-prefixes="..."` written without
            // `xsl:`); a literal result element uses the prefixed
            // `xsl:exclude-result-prefixes` form. Accept both.
            is_name && (is_xsl_ns || (*prop).ns.is_null())
        };
        if is_exclude {
            let content = node_get_content((*prop).children);
            if !content.is_null() {
                let len = libc::strlen(content as *const libc::c_char) as usize;
                let bytes = core::slice::from_raw_parts(content, len);
                for tok in bytes.split(|&b| b == b' ' || b == b'\t' || b == b'\n' || b == b'\r') {
                    if !tok.is_empty() {
                        out.push(tok.to_vec());
                    }
                }
                xmlFreeImpl(content as *mut c_void);
            }
        }
        prop = (*prop).next;
    }
    out
}

/// Find the top-level `xsl:stylesheet`/`xsl:transform` element ancestor of a
/// stylesheet node (or NULL).
///
/// # Safety
///
/// - `node` must be NULL or a valid node whose parent chain stays alive.
unsafe fn find_stylesheet_root(node: *mut _xmlNode) -> *mut _xmlNode {
    let mut cur = node;
    while !cur.is_null() {
        if (*cur).type_ == XML_ELEMENT_NODE as c_int {
            if unsafe { is_xslt_namespace(cur) } {
                let name = get_element_name(cur);
                if matches!(name.as_deref(), Some("stylesheet") | Some("transform")) {
                    return cur;
                }
            }
        }
        let t = (*cur).type_;
        cur = (*cur).parent;
        if cur.is_null() || t == XML_DOCUMENT_NODE as c_int || t == XML_HTML_DOCUMENT_NODE as c_int
        {
            break;
        }
    }
    ptr::null_mut()
}

const XSLT_NAMESPACE_BYTES: &[u8] = b"http://www.w3.org/1999/XSL/Transform";

/// Whether an LRE's full effective namespace set is suppressed: libxslt only
/// computes effective ns-decls for literal result elements whose stylesheet
/// ancestry to the template/stylesheet boundary contains no content-executing
/// XSLT instruction (xsl:for-each / xsl:if / xsl:choose / xsl:when /
/// xsl:otherwise). Inside such instruction bodies the compile-time LRE ns
/// scope is empty (observed oracle behavior: `<xsl:for-each>..<br/>` at the
/// top of a result emits NO xmlns declarations, while a `<br/>` directly in
/// the template does). Literal-result ancestors do NOT reset the suppression;
/// only the element's own namespace binding is still materialised (a
/// prefixed literal `<php:x>` inside xsl:for-each DOES declare xmlns:php).
///
/// # Safety
///
/// - `node` must be NULL or a valid node whose parent chain stays alive.
unsafe fn lre_decls_suppressed(node: *mut _xmlNode) -> bool {
    let mut cur = if node.is_null() {
        return false;
    } else {
        (*node).parent
    };
    while !cur.is_null() {
        let t = (*cur).type_;
        if t == XML_ELEMENT_NODE as c_int && unsafe { is_xslt_namespace(cur) } {
            let name = get_element_name(cur);
            match name.as_deref() {
                Some("for-each") | Some("if") | Some("choose") | Some("when")
                | Some("otherwise") => return true,
                Some("template") | Some("stylesheet") | Some("transform") => return false,
                _ => {}
            }
        }
        if cur.is_null() || t == XML_DOCUMENT_NODE as c_int || t == XML_HTML_DOCUMENT_NODE as c_int
        {
            break;
        }
        cur = (*cur).parent;
    }
    false
}

/// Create the namespace declarations a literal result element must carry
/// (XSLT 1.0 §7.1.3): its in-scope namespace nodes from the stylesheet,
/// minus the xml namespace, minus any prefix bound to the XSLT namespace and
/// minus `xsl:exclude-result-prefixes` entries. Declarations already in scope
/// at the result insertion point (same prefix AND href) are not duplicated;
/// the element's own namespace is bound to the matching declaration (creating
/// it when needed). When the literal element is in NO namespace but the
/// result parent has a non-empty default namespace, `xmlns=""` undeclares it
/// (upstream transform.c xsltCopyTree ns handling).
///
/// # Safety
///
/// - `ctxt` must be a valid transform context whose `insert` is the result
///   insertion point; `elem` a freshly created, already-appended result
///   element; `inst` the stylesheet literal element.
unsafe fn copy_literal_result_ns(
    ctxt: *mut _xsltTransformContext,
    elem: *mut _xmlNode,
    inst: *mut _xmlNode,
) {
    // Excluded prefix lists: the literal element itself and the stylesheet
    // root (XSLT 1.0 §7.1.3: both attribute forms are honored).
    let mut excluded: Vec<Vec<u8>> = Vec::new();
    excluded.extend(read_excluded_prefixes(inst));
    let root = find_stylesheet_root(inst);
    if !root.is_null() && root != inst {
        excluded.extend(read_excluded_prefixes(root));
    }
    let excluded_default = excluded.iter().any(|p| p.is_empty());

    // The in-scope declarations of the stylesheet element: own nsDef first,
    // then ancestors, deduplicated by prefix (nearest declaration wins).
    struct NsDecl {
        prefix: *const xmlChar,
        href: *const xmlChar,
    }
    let mut in_scope: Vec<NsDecl> = Vec::new();
    let mut cur: *mut _xmlNode = inst;
    while !cur.is_null() {
        let mut d = (*cur).nsDef;
        while !d.is_null() {
            let prefix = (*d).prefix;
            let dup = in_scope.iter().any(|e| {
                (prefix.is_null() && e.prefix.is_null())
                    || (!prefix.is_null()
                        && !e.prefix.is_null()
                        && unsafe { xmlStrEqual(prefix, e.prefix) != 0 })
            });
            if !dup {
                in_scope.push(NsDecl {
                    prefix,
                    href: (*d).href,
                });
            }
            d = (*d).next;
        }
        let t = (*cur).type_;
        cur = (*cur).parent;
        if cur.is_null() || t == XML_DOCUMENT_NODE as c_int || t == XML_HTML_DOCUMENT_NODE as c_int
        {
            break;
        }
    }

    let result_parent = (*elem).parent;
    let result_doc = (*elem).doc;

    // UPSTREAM-PARITY: inside xsl:for-each/if/choose/when/otherwise bodies
    // the compiled LRE carries NO effective namespace declarations (the
    // element-name binding and xmlns="" undeclaration below still apply).
    let suppressed = unsafe { lre_decls_suppressed(inst) };
    if !suppressed {
        for decl in &in_scope {
            let href = decl.href;
            if href.is_null() {
                continue;
            }
            // Skip the xml prefix (always implicitly bound).
            if !decl.prefix.is_null() {
                let pbytes = core::slice::from_raw_parts(
                    decl.prefix,
                    libc::strlen(decl.prefix as *const libc::c_char) as usize,
                );
                if pbytes == b"xml" {
                    continue;
                }
                let is_xslt_bound = {
                    let hbytes = core::slice::from_raw_parts(
                        href,
                        libc::strlen(href as *const libc::c_char) as usize,
                    );
                    hbytes == XSLT_NAMESPACE_BYTES
                };
                let is_excluded = excluded.iter().any(|p| p.as_slice() == pbytes);
                if is_xslt_bound || is_excluded {
                    continue;
                }
            } else if excluded_default {
                continue;
            }
            // Redundant when the result insertion point already binds this
            // prefix to the same URI.
            let parent =
                if result_parent.is_null() || (*result_parent).type_ != XML_ELEMENT_NODE as c_int {
                    ptr::null_mut()
                } else {
                    result_parent
                };
            if !parent.is_null() {
                let ins = search_ns(result_doc, parent, decl.prefix);
                if !ins.is_null() && !(*ins).href.is_null() {
                    let same = unsafe { xmlStrEqual((*ins).href, href) != 0 };
                    if same {
                        continue;
                    }
                }
            }
            unsafe {
                new_ns(elem, href, decl.prefix);
            }
        }
    }

    // Bind the element's own namespace.
    let inst_ns = (*inst).ns;
    if !inst_ns.is_null() {
        let want_prefix = (*inst_ns).prefix;
        let want_href = (*inst_ns).href;
        // 1. a declaration we just created on elem with the same prefix.
        let mut own = (*elem).nsDef;
        while !own.is_null() {
            let prefix_eq = (want_prefix.is_null() && (*own).prefix.is_null())
                || (!want_prefix.is_null()
                    && !(*own).prefix.is_null()
                    && unsafe { xmlStrEqual(want_prefix, (*own).prefix) != 0 });
            if prefix_eq && !(*own).href.is_null() && !want_href.is_null() {
                if unsafe { xmlStrEqual((*own).href, want_href) != 0 } {
                    (*elem).ns = own;
                    break;
                }
            }
            own = (*own).next;
        }
        if (*elem).ns.is_null() {
            // 2. already in scope at the result parent.
            let parent =
                if result_parent.is_null() || (*result_parent).type_ != XML_ELEMENT_NODE as c_int {
                    ptr::null_mut()
                } else {
                    result_parent
                };
            let mut in_scope_ns: *mut _xmlNs = ptr::null_mut();
            if !parent.is_null() {
                in_scope_ns = search_ns(result_doc, parent, want_prefix);
            }
            if !in_scope_ns.is_null()
                && !want_href.is_null()
                && !(*in_scope_ns).href.is_null()
                && unsafe { xmlStrEqual((*in_scope_ns).href, want_href) != 0 }
            {
                (*elem).ns = in_scope_ns;
            } else {
                // 3. declare it on the element itself.
                let created = unsafe { new_ns(elem, want_href, want_prefix) };
                if !created.is_null() {
                    (*elem).ns = created;
                }
            }
        }
    } else if !result_parent.is_null() && (*result_parent).type_ == XML_ELEMENT_NODE as c_int {
        // The literal element is in no namespace but the result parent is:
        // undeclare the default namespace so serialization does not put the
        // element in it (xmlns="").
        let d = unsafe { search_ns(result_doc, result_parent, ptr::null()) };
        if !d.is_null()
            && !(*d).href.is_null()
            && unsafe { *(*d).href } != 0
            && unsafe { (*elem).ns }.is_null()
        {
            unsafe {
                new_ns(elem, c"".as_ptr() as *const xmlChar, ptr::null());
            }
        }
    }
}

/// Process a literal result element.
///
/// # SAFETY
///
/// - All pointers must be valid.
pub(crate) unsafe fn process_literal_element(
    ctxt: *mut _xsltTransformContext,
    inst: *mut _xmlNode,
) {
    // Create the result element.
    let elem = new_node(ptr::null_mut(), (*inst).name);
    if elem.is_null() {
        return;
    }
    append_to_result(ctxt, elem);
    // Copy the in-scope namespace declarations onto the result element
    // (XSLT 1.0 literal-result-element rules) and bind its namespace.
    copy_literal_result_ns(ctxt, elem, inst);
    // Copy attributes, evaluating attribute value templates.
    let mut prop = (*inst).properties;
    while !prop.is_null() {
        let attr_name = (*prop).name;
        // Skip xmlns declarations (they are namespace nodes).
        if !attr_name.is_null() {
            let name_bytes = core::slice::from_raw_parts(
                attr_name,
                libc::strlen(attr_name as *const libc::c_char) as usize,
            );
            if name_bytes != b"xmlns" {
                let attr_val = node_get_content((*prop).children);
                if !attr_val.is_null() {
                    // AVT: the attribute value may contain {expr} templates.
                    let avt_val = eval_avt(ctxt, attr_val);
                    libc::free(attr_val as *mut libc::c_void);
                    if !avt_val.is_null() {
                        set_prop(elem, attr_name, avt_val);
                        xmlFreeImpl(avt_val as *mut c_void);
                    }
                }
            }
        }
        prop = (*prop).next;
    }
    // Process the content.
    let saved_insert = (*ctxt).insert;
    (*ctxt).insert = elem;
    execute_content(ctxt, (*inst).children);
    (*ctxt).insert = saved_insert;
}

/// Register the XSLT-specific XPath functions: document(), key(),
/// generate-id(), system-property(), element-available(),
/// function-available(), and current().
///
/// # SAFETY
///
/// - `ctxt` must be a valid transform context.
///
/// Emit a transform error through the XSLT error machinery with the given
///
/// transform context (so the context line carries the current instruction's
///
/// file/line/element, matching upstream xsltTransformError(ctxt, ...)).
///
/// # SAFETY
///
/// - `tctxt` may be NULL; `msg` must not contain interior NUL bytes.
unsafe fn emit_transform_error_with_ctxt(tctxt: *mut _xsltTransformContext, msg: &[u8]) {
    {
        let mut buf = msg.to_vec();
        buf.push(0);
        crate::xslt::errors::xsltTransformError(
            tctxt,
            ptr::null_mut(),
            ptr::null_mut(),
            buf.as_ptr() as *const std::os::raw::c_char,
        );
    }
}

/// Register the XPath 1.0 core, XSLT, EXSLT, and extension functions on the
/// transform context's XPath context.
///
/// # Safety
///
/// - `ctxt` must be a non-NULL pointer to a valid, live
///   `_xsltTransformContext` whose `xpathCtxt` field is NULL or a pointer to a
///   valid XPath context, and whose `extra` field is NULL or a pointer to the
///   internal `XPathContext` struct used here; that internal context is
///   mutably borrowed for the whole call, so no other code may access it
///   concurrently. When `ctxt->style` is non-NULL, the style and its `doc`
///   node tree must stay alive as long as the registered closures can run,
///   because the `key` and `format-number` closures and the
///   extension-function lookup dereference `tctxt`, `style`, `inst`,
///   namespace nodes, and `style.doc` through raw pointers.
pub(crate) unsafe fn register_xslt_functions(ctxt: *mut _xsltTransformContext) {
    let xpath_ctxt = (*ctxt).xpathCtxt;
    if xpath_ctxt.is_null() {
        return;
    }
    let internal = (*xpath_ctxt).extra as *mut crate::xml::xpath::context::XPathContext;
    if internal.is_null() {
        return;
    }
    let internal = &mut *internal;

    use crate::xml::xpath::context::XPathContext;
    use crate::xml::xpath::types::{NodeSet, XPathValue};

    // The XPath 1.0 core function library (count, string, substring, concat,
    // …) is served by the static lookup_core_function table (Phase 16.5.9);
    // only the XSLT/EXSLT additions below are registered into the context map.

    // document() — loads an external document (first argument) and returns
    // its root node-set.
    internal.register_function("document", |ctx, args| {
        let value = match args.first() {
            Some(v) => v.as_string(),
            None => return Err("document() requires an argument".to_string()),
        };
        let tctxt = ctx.func_lookup_data as *mut _xsltTransformContext;
        if tctxt.is_null() {
            return Ok(XPathValue::NodeSet(NodeSet::new()));
        }
        // UPSTREAM-PARITY (functions.c xsltDocumentFunction): an empty URI
        // (document('')) selects the STYLESHEET document itself, not a
        // resolver/loader round-trip. Without this, lxml's test_xslt_document
        // family (which loads document('') from a file) returns an empty
        // result tree.
        if value.is_empty() {
            unsafe {
                let style = (*tctxt).style;
                if !style.is_null() && !(*style).doc.is_null() {
                    let mut ns = NodeSet::new();
                    ns.push((*style).doc as *mut _xmlNode);
                    return Ok(XPathValue::NodeSet(ns));
                }
            }
            return Ok(XPathValue::NodeSet(NodeSet::new()));
        }
        unsafe {
            // UPSTREAM-PARITY (functions.c xsltDocumentFunction): the URI is
            // resolved against the current instruction's document (the
            // stylesheet) with xmlBuildURI, then loaded through the
            // transform's document loader (xsltLoadDocument), which invokes
            // the registered xsltDocLoaderFunc — lxml's loader records
            // resolver failures so XSLTApplyError("Cannot resolve URI ...")
            // surfaces after the run, exactly like the oracle.
            let mut base: *mut xmlChar = ptr::null_mut();
            let inst = (*tctxt).inst;
            if !inst.is_null() {
                base = crate::abi::exports_tree::xmlNodeGetBase((*inst).doc, inst);
            } else if !(*tctxt).style.is_null() && !(*(*tctxt).style).doc.is_null() {
                base = crate::abi::exports_tree::xmlNodeGetBase(
                    (*(*tctxt).style).doc,
                    (*(*tctxt).style).doc as *mut _xmlNode,
                );
            }
            let value_c = crate::xml::string::bytes_to_xmlstr(value.as_bytes());
            let resolved = crate::abi::exports_uri::xmlBuildURI(
                value_c as *const c_char,
                base as *const c_char,
            );
            if !base.is_null() {
                crate::abi::allocator::xmlFreeImpl(base as *mut c_void);
            }
            if !value_c.is_null() {
                crate::abi::allocator::xmlFreeImpl(value_c as *mut c_void);
            }
            let load_uri: Vec<u8> = if resolved.is_null() {
                value.as_bytes().to_vec()
            } else {
                let l = libc::strlen(resolved as *const libc::c_char);
                core::slice::from_raw_parts(resolved as *const u8, l).to_vec()
            };
            if !resolved.is_null() {
                crate::abi::allocator::xmlFreeImpl(resolved as *mut c_void);
            }
            let mut load_c = load_uri;
            load_c.push(0);
            let doc =
                crate::xslt::documents::xsltLoadDocument(tctxt, load_c.as_ptr() as *const xmlChar);
            if doc.is_null() {
                // UPSTREAM-PARITY: a failed load selects the stylesheet doc
                // only for the special URIs (handled by the load failure
                // fallback in xsltDocumentFunctionLoadDocument); otherwise an
                // empty node-set is pushed and the transform continues — the
                // loader's recorded exception surfaces at the end.
                return Ok(XPathValue::NodeSet(NodeSet::new()));
            }
            // The node-set contains the DOCUMENT node (upstream pushes
            // xmlXPathNewNodeSet((xmlNodePtr) doc)); child steps like
            // document('x')/r/v navigate from it.
            let mut ns = NodeSet::new();
            ns.push(doc as *mut _xmlNode);
            Ok(XPathValue::NodeSet(ns))
        }
    });

    // key() — looks up the key tables built by xsltInitKeys. The value is
    // matched against the key table's stored string keys (upstream
    // xsltEvalKeyFunction, keys.c). The transform context is reached through
    // the XPath context's opaque func_lookup_data slot, which is set below.
    internal.register_function("key", |ctx, args| {
        let tctxt = ctx.func_lookup_data as *mut _xsltTransformContext;
        if tctxt.is_null() {
            return Ok(XPathValue::NodeSet(NodeSet::new()));
        }
        let name_str = match args.first() {
            Some(v) => v.as_string(),
            None => return Err("key() requires a name argument".to_string()),
        };
        // The value may be a node-set: use the string value of the first node
        // (upstream iterates every node; the common case is a single value).
        let value_str = match args.get(1) {
            Some(XPathValue::NodeSet(ns)) => match ns.first() {
                Some(n) => crate::xml::xpath::types::node_string_value(n),
                None => return Ok(XPathValue::NodeSet(NodeSet::new())),
            },
            Some(v) => v.as_string(),
            None => return Err("key() requires a value argument".to_string()),
        };
        let name_c = crate::xml::string::bytes_to_xmlstr(name_str.as_bytes());
        let value_c = crate::xml::string::bytes_to_xmlstr(value_str.as_bytes());
        if name_c.is_null() || value_c.is_null() {
            if !name_c.is_null() {
                crate::abi::allocator::xmlFreeImpl(name_c as *mut c_void);
            }
            if !value_c.is_null() {
                crate::abi::allocator::xmlFreeImpl(value_c as *mut c_void);
            }
            return Ok(XPathValue::NodeSet(NodeSet::new()));
        }
        let ns = unsafe { crate::xslt::keys::xsltEvalKeyFunction(tctxt, name_c, value_c) };
        crate::abi::allocator::xmlFreeImpl(name_c as *mut c_void);
        crate::abi::allocator::xmlFreeImpl(value_c as *mut c_void);
        if ns.is_null() {
            return Ok(XPathValue::NodeSet(NodeSet::new()));
        }
        let mut out = NodeSet::new();
        unsafe {
            let node_nr = (*ns).nodeNr;
            let node_tab = (*ns).nodeTab;
            if !node_tab.is_null() {
                for i in 0..node_nr as isize {
                    let n = *node_tab.add(i as usize);
                    if !n.is_null() {
                        out.push(n);
                    }
                }
            }
            crate::abi::exports_xml2::xmlXPathFreeNodeSet(ns);
        }
        Ok(XPathValue::NodeSet(out))
    });

    // generate-id() — returns a unique ID for the first node of the
    // node-set argument (or the context node).
    internal.register_function("generate-id", |ctx, args| {
        let node = match args.first() {
            Some(XPathValue::NodeSet(ns)) => ns.first().unwrap_or(ctx.context_node),
            _ => ctx.context_node,
        };
        if node.is_null() {
            return Ok(XPathValue::String(String::new()));
        }
        // SAFETY: node must be valid.
        let id = { format!("id{:p}", node) };
        Ok(XPathValue::String(id))
    });

    // format-number() — formats a number with an XSLT decimal-format
    // picture (numbers.c xsltFormatNumberConversion). Two or three
    // arguments: (number, picture [, decimal-format-name]). Faithful to
    // upstream functions.c xsltFormatNumberFunction:
    //
    // - without a third argument the default format (chain head) is used;
    // - an unresolvable QName prefix reports
    //   "format-number : No namespace found for QName 'p:l'" and falls
    //   back to the default format;
    // - an undeclared format reports
    //   "format-number() : undeclared decimal format 'name'" and pushes no
    //   result, which surfaces as an XPath "Stack usage error".
    internal.register_function("format-number", |ctx, args| {
        if args.len() < 2 || args.len() > 3 {
            return Err("format-number() requires 2 or 3 arguments".to_string());
        }
        let number = args[0].as_number();
        let picture = args[1].as_string();
        let tctxt = ctx.func_lookup_data as *mut _xsltTransformContext;
        // Upstream starts from the default format (sheet->decimalFormat).
        let mut fmt: *mut _xsltDecimalFormat = if tctxt.is_null() {
            ptr::null_mut()
        } else {
            unsafe { (*(*tctxt).style).decimalFormat }
        };
        if args.len() == 3 {
            let qname = args[2].as_string();
            let (prefix, local) = match qname.split_once(':') {
                Some((p, l)) => (Some(p), l),
                None => (None, qname.as_str()),
            };
            let mut ns_uri: *const xmlChar = ptr::null();
            let mut ncname_ok = true;
            if let Some(p) = prefix {
                let inst = unsafe { (*tctxt).inst };
                if inst.is_null() {
                    ncname_ok = false;
                } else {
                    let prefix_c = crate::xml::string::bytes_to_xmlstr(p.as_bytes());
                    let ns = unsafe {
                        crate::abi::exports_xml2::xmlSearchNs((*inst).doc, inst, prefix_c)
                    };
                    if !prefix_c.is_null() {
                        crate::abi::allocator::xmlFreeImpl(prefix_c as *mut c_void);
                    }
                    if ns.is_null() {
                        // UPSTREAM-PARITY: unresolvable prefix — report and
                        // fall back to the default format.
                        let msg = format!(
                            "format-number : No namespace found for QName '{}:{}'\n",
                            p, local
                        );
                        emit_transform_error_with_ctxt(tctxt, msg.as_bytes());
                        unsafe {
                            (*(*tctxt).style).errors += 1;
                        }
                        ncname_ok = false;
                    } else {
                        ns_uri = unsafe { (*ns).href };
                    }
                }
            }
            if ncname_ok {
                let local_c = crate::xml::string::bytes_to_xmlstr(local.as_bytes());
                let style = unsafe { (*tctxt).style };
                fmt = crate::xslt::numbering::decimal_format_by_qname(style, ns_uri, local_c);
                if !local_c.is_null() {
                    crate::abi::allocator::xmlFreeImpl(local_c as *mut c_void);
                }
                if fmt.is_null() {
                    // UPSTREAM-PARITY: undeclared format — report and push
                    // nothing (the value-of then reports a stack error).
                    let msg = format!("format-number() : undeclared decimal format '{}'\n", qname);
                    emit_transform_error_with_ctxt(tctxt, msg.as_bytes());
                    return Err("Stack usage error".to_string());
                }
            }
        }
        let picture_c = crate::xml::string::bytes_to_xmlstr(picture.as_bytes());
        let mut result: *mut xmlChar = ptr::null_mut();
        let status = unsafe {
            crate::xslt::numbering::xslt_format_number_conversion(
                fmt,
                picture_c,
                number,
                &mut result,
            )
        };
        if !picture_c.is_null() {
            crate::abi::allocator::xmlFreeImpl(picture_c as *mut c_void);
        }
        let _ = status;
        let s = if result.is_null() {
            String::new()
        } else {
            unsafe {
                std::ffi::CStr::from_ptr(result as *const std::os::raw::c_char)
                    .to_string_lossy()
                    .into_owned()
            }
        };
        if !result.is_null() {
            crate::abi::allocator::xmlFreeImpl(result as *mut c_void);
        }
        Ok(XPathValue::String(s))
    });

    // system-property() — returns system properties (xsl:version,
    // xsl:vendor, xsl:vendor-url).
    internal.register_function("system-property", |_ctx, args| {
        let name = match args.first() {
            Some(v) => v.as_string(),
            None => return Err("system-property() requires an argument".to_string()),
        };
        let value = match name.as_str() {
            "xsl:version" => "1.0",
            "xsl:vendor" => "libxslt",
            "xsl:vendor-url" => "http://xmlsoft.org/XSLT/",
            _ => "",
        };
        Ok(XPathValue::String(value.to_string()))
    });

    // element-available() / function-available() — check availability of
    // XSLT elements/functions (all standard ones are available).
    internal.register_function("element-available", |_ctx, args| {
        let name = match args.first() {
            Some(v) => v.as_string(),
            None => return Err("element-available() requires an argument".to_string()),
        };
        // All standard XSLT 1.0 elements are available, plus EXSLT elements.
        let exslt_elements = [
            "exsl:document",
            "exsl:node-set",
            "exsl:object-type",
            "func:function",
            "func:result",
            "func:script",
            "dyn:element",
            "dyn:attribute",
            "dyn:call",
            "dyn:evaluate",
        ];
        let available = name.starts_with("xsl:")
            || exslt_elements.contains(&name.as_str())
            || matches!(
                name.as_str(),
                "apply-templates"
                    | "call-template"
                    | "apply-imports"
                    | "for-each"
                    | "value-of"
                    | "copy-of"
                    | "copy"
                    | "element"
                    | "attribute"
                    | "text"
                    | "comment"
                    | "processing-instruction"
                    | "number"
                    | "choose"
                    | "if"
                    | "variable"
                    | "param"
                    | "sort"
                    | "message"
                    | "fallback"
                    | "output"
                    | "decimal-format"
                    | "namespace-alias"
                    | "attribute-set"
                    | "key"
                    | "strip-space"
                    | "preserve-space"
                    | "import"
                    | "include"
                    | "stylesheet"
                    | "transform"
            );
        Ok(XPathValue::Boolean(available))
    });

    internal.register_function("function-available", |_ctx, args| {
        let name = match args.first() {
            Some(v) => v.as_string(),
            None => return Err("function-available() requires an argument".to_string()),
        };
        // All XPath 1.0 core functions plus the XSLT functions are available.
        let core = [
            "last",
            "position",
            "count",
            "id",
            "local-name",
            "namespace-uri",
            "name",
            "string",
            "concat",
            "starts-with",
            "contains",
            "substring-before",
            "substring-after",
            "substring",
            "string-length",
            "normalize-space",
            "translate",
            "boolean",
            "not",
            "true",
            "false",
            "lang",
            "number",
            "sum",
            "floor",
            "ceiling",
            "round",
        ];
        let xslt_fn = [
            "document",
            "key",
            "generate-id",
            "system-property",
            "element-available",
            "function-available",
            "current",
            "unparsed-entity-uri",
        ];
        // EXSLT functions (e.g. math:max, exsl:node-set) are available when
        // the EXSLT registry has been populated (exsltRegisterAll).
        let exslt_available = crate::exslt::lookup(&name).is_some();
        let local = name.rsplit(':').next().unwrap_or(&name);
        Ok(XPathValue::Boolean(
            core.contains(&local) || xslt_fn.contains(&local) || exslt_available,
        ))
    });

    // current() — returns the current node.
    internal.register_function("current", |ctx, _args| {
        let node = ctx.context_node;
        if node.is_null() {
            return Ok(XPathValue::NodeSet(NodeSet::new()));
        }
        let mut ns = NodeSet::new();
        ns.push(node);
        Ok(XPathValue::NodeSet(ns))
    });

    // ── EXSLT functions (§35) ────────────────────────────────────────────
    //
    // Upstream requires an explicit exsltRegisterAll() before EXSLT
    // functions become available; xsltproc calls it at startup. We mirror
    // that: copy the process-wide EXSLT registry into this context.
    for (name, f) in crate::exslt::iter_functions() {
        internal.register_function(&name, f);
    }
    // Register <func:function> definitions found in the stylesheet.
    crate::exslt::functions::register_stylesheet_functions(
        internal,
        (*ctxt)
            .style
            .as_ref()
            .map_or(std::ptr::null_mut(), |s| s.doc),
    );

    // Extension functions: `prefix:local(...)` resolves the prefix against
    // the stylesheet's namespace declarations and dispatches to the
    // transform context's registered extension functions (upstream
    // XSLT_REGISTER_FUNCTION_LOOKUP -> xsltXPathFunctionLookup,
    // extensions.c). The C callback runs through the same synthesized
    // parser-context bridge used by xmlXPathRegisterFunc.
    internal.function_lookup = Some(Box::new(|ctx: &XPathContext, name: &str| {
        let (prefix, local) = name.split_once(':')?;
        let tctxt = ctx.func_lookup_data as *mut _xsltTransformContext;
        if tctxt.is_null() {
            return None;
        }
        // Resolve the prefix from the stylesheet's in-scope namespaces.
        let style = unsafe { (*tctxt).style.as_ref() }?;
        let style_doc = style.doc;
        let prefix_c = crate::xml::string::bytes_to_xmlstr(prefix.as_bytes());
        let root = unsafe { (*style_doc).children };
        let ns = unsafe { crate::xml::tree::search_ns(style_doc, root, prefix_c) };
        if !prefix_c.is_null() {
            crate::abi::allocator::xmlFreeImpl(prefix_c as *mut c_void);
        }
        if ns.is_null() {
            return None;
        }
        let href = unsafe { (*ns).href };
        if href.is_null() {
            return None;
        }
        let href_str = unsafe {
            std::ffi::CStr::from_ptr(href as *const std::os::raw::c_char)
                .to_string_lossy()
                .into_owned()
        };
        let local_c = crate::xml::string::bytes_to_xmlstr(local.as_bytes());
        let href_c = crate::xml::string::bytes_to_xmlstr(href_str.as_bytes());
        let mut fnptr =
            unsafe { crate::xslt::extensions::xsltFindExtFunction(tctxt, local_c, href_c) };
        if fnptr.is_null() {
            // UPSTREAM-PARITY (functions.c xsltXPathFunctionLookup): when the
            // per-context registry misses, fall back to the process-wide
            // extension-module registry (extensions.c xsltExtModuleFunction
            // Lookup). php registers its php:function / php:functionString
            // dispatchers there at MINIT via xsltRegisterExtModuleFunction.
            if let Some(modfn) = unsafe {
                crate::abi::exports_xslt_ext::xsltExtModuleFunctionLookup(local_c, href_c)
            } {
                fnptr = modfn as usize as *mut c_void;
            }
        }
        if !local_c.is_null() {
            crate::abi::allocator::xmlFreeImpl(local_c as *mut c_void);
        }
        if !href_c.is_null() {
            crate::abi::allocator::xmlFreeImpl(href_c as *mut c_void);
        }
        if fnptr.is_null() {
            return None;
        }
        // SAFETY: fnptr was stored by xsltRegisterExtFunction as the C
        // xmlXPathFunction callback.
        let f: Option<unsafe extern "C" fn(*mut c_void, c_int)> =
            unsafe { std::mem::transmute(fnptr) };
        let tctxt_addr = tctxt as usize;
        let local_owned = local.to_string();
        let href_owned = href_str.clone();
        Some(Box::new(
            move |_ctx: &mut XPathContext, args: &[XPathValue]| {
                let t = tctxt_addr as *mut _xsltTransformContext;
                let xpath_ctxt = unsafe { (*t).xpathCtxt };
                if xpath_ctxt.is_null() {
                    return Err("XSLT: null XPath context".to_string());
                }
                unsafe {
                    // The mirror bridge exposes an upstream-layout context
                    // (extra = transform context) to the C callback, which
                    // php's xsl handlers require (xsl_proxy_factory reads
                    // ctxt->context->extra directly).
                    crate::abi::exports_xml2::call_xslt_ext_function(
                        f,
                        t,
                        xpath_ctxt,
                        &local_owned,
                        Some(&href_owned),
                        args,
                    )
                }
            },
        ))
    }));
}

/// The set of EXSLT element names recognized by `element-available()`.
pub const fn exslt_element_names() -> &'static [&'static str] {
    &[
        "exsl:document",
        "exsl:node-set",
        "exsl:object-type",
        "func:function",
        "func:result",
        "func:script",
        "dyn:element",
        "dyn:attribute",
        "dyn:call",
        "dyn:evaluate",
    ]
}

/// The set of EXSLT function QNames (prefix:local) for `function-available()`.
pub fn exslt_function_names() -> Vec<String> {
    crate::exslt::iter_functions()
        .into_iter()
        .map(|(n, _)| n)
        .collect()
}

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

    #[test]
    /// Tests that `xsltNewTransformContext` returns NULL for a NULL style.
    ///
    /// # Safety
    ///
    /// - `xsltNewTransformContext` tolerates NULL arguments and returns NULL
    ///   without dereferencing them, so passing two null pointers is sound.
    fn test_new_context_null_style() {
        unsafe {
            assert!(xsltNewTransformContext(ptr::null_mut(), ptr::null_mut()).is_null());
        }
    }

    #[test]
    /// Tests that the context and result free functions tolerate NULL.
    ///
    /// # Safety
    ///
    /// - `xsltFreeTransformContext` and `xsltFreeTransformResult` check their
    ///   arguments for NULL and return early without dereferencing them.
    fn test_free_null() {
        unsafe {
            xsltFreeTransformContext(ptr::null_mut());
            xsltFreeTransformResult(ptr::null_mut());
        }
    }

    #[test]
    /// Tests that `xsltApplyStylesheet` returns NULL for NULL inputs.
    ///
    /// # Safety
    ///
    /// - `xsltApplyStylesheet` validates its arguments and returns NULL
    ///   without dereferencing the null style, document, and parameters.
    fn test_apply_stylesheet_null() {
        unsafe {
            assert!(
                xsltApplyStylesheet(ptr::null_mut(), ptr::null_mut(), ptr::null_mut()).is_null()
            );
        }
    }

    #[test]
    /// Tests a full transform with a simplified stylesheet, end to end.
    ///
    /// # Safety
    ///
    /// - `xsl` and `src` are NUL-terminated byte buffers that stay alive
    ///   while `xsltParseStylesheetMemory` and `xmlReadMemory` parse them;
    ///   `style` and `doc` are asserted non-NULL before use; `txt` and `len`
    ///   are live stack pointers passed to `xsltSaveResultToString`, and the
    ///   returned `txt` buffer is valid for `len` bytes when sliced via
    ///   `from_raw_parts` and is freed with `libc::free`; `result`, `doc`,
    ///   and `style` are freed once each after the last use.
    fn test_end_to_end_simplified_stylesheet() {
        unsafe {
            // A simplified stylesheet: a literal <html> element with an
            // implicit template matching "/" (and the required
            // xsl:version attribute).
            let xsl = b"<?xml version=\"1.0\"?><html xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" xsl:version=\"1.0\"><body><p>Hello</p></body></html>\0";
            let style = crate::xslt::stylesheet::xsltParseStylesheetMemory(
                xsl.as_ptr() as *const c_char,
                (xsl.len() - 1) as c_int,
                ptr::null(),
            );
            assert!(!style.is_null(), "stylesheett parse failed");

            // Source document.
            let src = b"<?xml version=\"1.0\"?><root><item>world</item></root>\0";
            let doc = crate::abi::exports_xml2::xmlReadMemory(
                src.as_ptr() as *const c_char,
                (src.len() - 1) as c_int,
                ptr::null(),
                ptr::null(),
                0,
            );
            assert!(!doc.is_null());

            let result = xsltApplyStylesheet(style, doc, ptr::null_mut());
            assert!(!result.is_null(), "apply failed");

            // Serialize the result.
            let mut txt: *mut xmlChar = ptr::null_mut();
            let mut len: c_int = 0;
            let ret = crate::xslt::serialization::xsltSaveResultToString(
                &mut txt, &mut len, result, style,
            );
            assert_eq!(ret, 0);
            assert!(!txt.is_null());
            let out = String::from_utf8_lossy(core::slice::from_raw_parts(txt, len as usize));
            assert!(
                out.contains("Hello"),
                "result should contain the literal text, got: {}",
                out
            );

            libc::free(txt as *mut libc::c_void);
            crate::xml::tree::free_doc(result);
            crate::xml::tree::free_doc(doc);
            crate::xslt::stylesheet::xsltFreeStylesheet(style);
        }
    }

    #[test]
    /// Tests a full transform with an explicit template, end to end.
    ///
    /// # Safety
    ///
    /// - `xsl` and `src` are NUL-terminated byte buffers alive for the parse
    ///   calls; `style` and `doc` are asserted non-NULL before use; `txt` and
    ///   `len` are live stack pointers for `xsltSaveResultToString`, and the
    ///   returned `txt` buffer is valid for `len` bytes when sliced via
    ///   `from_raw_parts` and is freed with `libc::free`; `result`, `doc`,
    ///   and `style` are each freed exactly once after their last use.
    fn test_end_to_end_template_transform() {
        unsafe {
            // A normal stylesheet with an explicit template that emits
            // element and value-of.
            let xsl = b"<?xml version=\"1.0\"?>\n\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\n\
              <xsl:template match=\"/\">\n\
                <out><xsl:value-of select=\"/root/item\"/></out>\n\
              </xsl:template>\n\
            </xsl:stylesheet>\0";
            let style = crate::xslt::stylesheet::xsltParseStylesheetMemory(
                xsl.as_ptr() as *const c_char,
                (xsl.len() - 1) as c_int,
                ptr::null(),
            );
            assert!(!style.is_null(), "stylesheet parse failed");

            let src = b"<?xml version=\"1.0\"?><root><item>world</item></root>\0";
            let doc = crate::abi::exports_xml2::xmlReadMemory(
                src.as_ptr() as *const c_char,
                (src.len() - 1) as c_int,
                ptr::null(),
                ptr::null(),
                0,
            );
            assert!(!doc.is_null());

            let result = xsltApplyStylesheet(style, doc, ptr::null_mut());
            assert!(!result.is_null(), "apply failed");

            let mut txt: *mut xmlChar = ptr::null_mut();
            let mut len: c_int = 0;
            let ret = crate::xslt::serialization::xsltSaveResultToString(
                &mut txt, &mut len, result, style,
            );
            assert_eq!(ret, 0);
            let out = String::from_utf8_lossy(core::slice::from_raw_parts(txt, len as usize));
            assert!(
                out.contains("world"),
                "result should contain the selected value, got: {}",
                out
            );

            libc::free(txt as *mut libc::c_void);
            crate::xml::tree::free_doc(result);
            crate::xml::tree::free_doc(doc);
            crate::xslt::stylesheet::xsltFreeStylesheet(style);
        }
    }

    /// Helper: transform a source document with a stylesheet and return the
    /// serialized result.
    unsafe fn run_transform(xsl: &[u8], src: &[u8]) -> String {
        let style = crate::xslt::stylesheet::xsltParseStylesheetMemory(
            xsl.as_ptr() as *const c_char,
            (xsl.len() - 1) as c_int,
            ptr::null(),
        );
        assert!(!style.is_null(), "stylesheet parse failed");
        let doc = crate::abi::exports_xml2::xmlReadMemory(
            src.as_ptr() as *const c_char,
            (src.len() - 1) as c_int,
            ptr::null(),
            ptr::null(),
            0,
        );
        assert!(!doc.is_null());
        let result = xsltApplyStylesheet(style, doc, ptr::null_mut());
        assert!(!result.is_null(), "apply failed");
        let mut txt: *mut xmlChar = ptr::null_mut();
        let mut len: c_int = 0;
        let ret =
            crate::xslt::serialization::xsltSaveResultToString(&mut txt, &mut len, result, style);
        assert_eq!(ret, 0);
        let out =
            String::from_utf8_lossy(core::slice::from_raw_parts(txt, len as usize)).into_owned();
        libc::free(txt as *mut libc::c_void);
        crate::xml::tree::free_doc(result);
        crate::xml::tree::free_doc(doc);
        crate::xslt::stylesheet::xsltFreeStylesheet(style);
        out
    }

    #[test]
    /// Tests `xsl:for-each` over the selected nodes.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers that stay
    ///   alive for the whole `run_transform` call, which parses, transforms,
    ///   and serializes them and frees every created document before
    ///   returning.
    fn test_xslt_for_each() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <list><xsl:for-each select=\"/root/item\"><i><xsl:value-of select=\".\"/></i></xsl:for-each></list>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src =
                b"<?xml version=\"1.0\"?><root><item>a</item><item>b</item><item>c</item></root>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<i>a</i>"), "got: {}", out);
            assert!(out.contains("<i>b</i>"), "got: {}", out);
            assert!(out.contains("<i>c</i>"), "got: {}", out);
        }
    }

    #[test]
    /// Tests that the XPath 1.0 core function library is registered on the
    /// transform context.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_core_functions_in_value_of() {
        // UPSTREAM-PARITY: the transform context must register the XPath 1.0
        // core function library (count, string, substring, ...) so that
        // function calls in XPath expressions evaluate correctly. Before the
        // fix, every function call failed with an unknown-function error.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <cnt><xsl:value-of select=\"count(library/book)\"/></cnt>\
                  <sub><xsl:value-of select=\"substring('hello',1,2)\"/></sub>\
                  <str><xsl:value-of select=\"string(library/book[1]/title)\"/></str>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library>\
              <book><title>Rust</title></book>\
              <book><title>XML</title></book>\
            </library>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<cnt>2</cnt>"), "count() wrong: {}", out);
            assert!(out.contains("<sub>he</sub>"), "substring() wrong: {}", out);
            assert!(out.contains("<str>Rust</str>"), "string() wrong: {}", out);
        }
    }

    #[test]
    /// Tests attribute value templates inside literal result element
    /// attributes.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_avt_in_literal_attribute() {
        // UPSTREAM-PARITY: literal result element attributes may contain
        // attribute value templates (XSLT 1.0 §7.6.2): {expr} is evaluated
        // and its string value substituted, {{ and }} are literal braces.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <xsl:for-each select=\"library/book\">\
                    <book id=\"{@id}\" label=\"{{literal}}\"/>\
                  </xsl:for-each>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library>\
              <book id=\"b1\"/>\
              <book id=\"b2\"/>\
            </library>\0";
            let out = run_transform(xsl, src);
            assert!(
                out.contains("<book id=\"b1\" label=\"{literal}\""),
                "AVT not evaluated: {}",
                out
            );
            assert!(
                out.contains("<book id=\"b2\" label=\"{literal}\""),
                "AVT not evaluated: {}",
                out
            );
        }
    }

    #[test]
    /// Tests that `xsl:element` name is treated as an AVT.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_avt_in_xsl_element_name() {
        // UPSTREAM-PARITY: xsl:element/@name is an AVT.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <xsl:element name=\"el-{library/book/@id}\">text</xsl:element>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library><book id=\"b1\"/></library>\0";
            let out = run_transform(xsl, src);
            assert!(
                out.contains("<el-b1>"),
                "xsl:element AVT not evaluated: {}",
                out
            );
        }
    }

    #[test]
    /// Tests that a variable with inline content is copied into a result tree
    /// fragment and stringifies to its full descendant text.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_variable_inline_content_rtf() {
        // UPSTREAM-PARITY: a variable with inline content is a result tree
        // fragment. Regression test: the inline content must be copied into
        // a context-owned RVT (not left pointing into the stylesheet doc,
        // which caused a double-free at teardown), and $var must stringify
        // to the full descendant text.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:variable name=\"rtf\"><nums><n>3</n><n>7</n></nums></xsl:variable>\
              <xsl:template match=\"/\">\
                <out><v><xsl:value-of select=\"$rtf\"/></v></out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root/>\0";
            // Must complete without a double-free and produce the text.
            let out = run_transform(xsl, src);
            assert!(out.contains("<v>37</v>"), "RTF string-value wrong: {}", out);
        }
    }

    #[test]
    /// Tests `exsl:node-set` on a result tree fragment variable.
    ///
    /// # Safety
    ///
    /// - `exslt::register_all` runs before the transform; the `xsl` and `src`
    ///   byte slices are NUL-terminated buffers alive for the whole
    ///   `run_transform` call, which parses, transforms, and serializes them
    ///   and frees every created document before returning.
    fn test_xslt_exsl_node_set_on_rtf() {
        // UPSTREAM-PARITY: exsl:node-set($var) on an RTF variable yields a
        // node-set whose root is the RVT document node, so path navigation
        // and node-set functions work on it (§35).
        unsafe {
            crate::exslt::register_all();
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" xmlns:exsl=\"http://exslt.org/common\" xmlns:math=\"http://exslt.org/math\" extension-element-prefixes=\"exsl math\">\
              <xsl:variable name=\"rtf\"><nums><n>3</n><n>7</n><n>1</n><n>9</n></nums></xsl:variable>\
              <xsl:template match=\"/\">\
                <out>\
                  <max><xsl:value-of select=\"math:max(exsl:node-set($rtf)/nums/n)\"/></max>\
                  <cnt><xsl:value-of select=\"count(exsl:node-set($rtf)/nums/n)\"/></cnt>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root/>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<max>9</max>"), "math:max wrong: {}", out);
            assert!(out.contains("<cnt>4</cnt>"), "count wrong: {}", out);
        }
    }

    #[test]
    /// Tests that `extension-element-prefixes` and `exclude-result-prefixes`
    /// namespaces are not copied into the result tree (XSLT 1.0 §14.1 / §7.1.3).
    ///
    /// Regression: the unprefixed forms on `xsl:stylesheet` were missed by the
    /// namespace check, so `xmlns:exsl` leaked into every serialized result.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call.
    fn test_xslt_extension_prefixes_excluded_from_result() {
        unsafe {
            crate::exslt::register_all();
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" xmlns:exsl=\"http://exslt.org/common\" extension-element-prefixes=\"exsl\">\
              <xsl:template match=\"/\">\
                <out><v><xsl:value-of select=\"count(exsl:node-set(/doc/b)/b)\"/></v></out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><doc><b>x</b></doc>\0";
            let out = run_transform(xsl, src);
            assert!(
                !out.contains("xmlns:exsl"),
                "extension-element-prefixes leaked: {}",
                out
            );

            let xsl2 = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\" xmlns:exsl=\"http://exslt.org/common\" exclude-result-prefixes=\"exsl\">\
              <xsl:template match=\"/\">\
                <out><v><xsl:value-of select=\"count(exsl:node-set(/doc/b)/b)\"/></v></out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let out2 = run_transform(xsl2, src);
            assert!(
                !out2.contains("xmlns:exsl"),
                "exclude-result-prefixes leaked: {}",
                out2
            );
        }
    }

    #[test]
    /// Tests that `xsl:if` accepts a node-set `test` expression.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_if_node_set_test() {
        // UPSTREAM-PARITY: xsl:if/@test may be a node-set (XPath boolean
        // conversion §4.3). Regression: the transform read only boolval,
        // which is 0 for node-set objects, so test="author" was always
        // false.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <xsl:for-each select=\"library/book\">\
                    <b><xsl:if test=\"author\">A</xsl:if><xsl:if test=\"missing\">M</xsl:if></b>\
                  </xsl:for-each>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library><book><author>x</author></book><book/></library>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<b>A</b>"), "node-set test false: {}", out);
            assert!(out.contains("<b/>"), "missing-node test true: {}", out);
        }
    }

    #[test]
    /// Tests that attribute string values are used by `string` and
    /// predicates.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_attribute_string_value() {
        // UPSTREAM-PARITY: string(@attr) / @attr='x' predicates use the
        // attribute's string value. Regression: node_string_value treated
        // type 13 (XML_HTML_DOCUMENT_NODE) as attribute and returned empty
        // for real attributes (type 2).
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <x><xsl:value-of select=\"string(library/book[1]/@id)\"/></x>\
                  <y><xsl:value-of select=\"count(library/book[@id='b2'])\"/></y>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library><book id=\"b1\"/><book id=\"b2\"/></library>\0";
            let out = run_transform(xsl, src);
            assert!(
                out.contains("<x>b1</x>"),
                "attr string-value wrong: {}",
                out
            );
            assert!(out.contains("<y>1</y>"), "attr predicate wrong: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:sort` with descending order.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_sort_descending() {
        // UPSTREAM-PARITY: xsl:sort with order="descending" inverts the
        // comparison. Regression: the sort was never compiled (null style)
        // and the sort key evaluated against the wrong context node.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <xsl:for-each select=\"library/book\">\
                    <xsl:sort select=\"title\" order=\"descending\"/>\
                    <i><xsl:value-of select=\"title\"/></i>\
                  </xsl:for-each>\
                </out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library><book><title>Alpha</title></book><book><title>Gamma</title></book><book><title>Beta</title></book></library>\0";
            let out = run_transform(xsl, src);
            let gamma = out.find("<i>Gamma</i>").unwrap();
            let beta = out.find("<i>Beta</i>").unwrap();
            let alpha = out.find("<i>Alpha</i>").unwrap();
            assert!(gamma < beta && beta < alpha, "not descending: {}", out);
        }
    }

    #[test]
    /// Tests the `key` function through the stylesheet key tables.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_key_function() {
        // UPSTREAM-PARITY: key(name, value) resolves through the key tables
        // built from xsl:key definitions.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:key name=\"byAuthor\" match=\"book\" use=\"author\"/>\
              <xsl:template match=\"/\">\
                <out><k><xsl:value-of select=\"key('byAuthor', 'Smith')/title\"/></k></out>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?>\
            <library><book><title>A</title><author>Smith</author></book><book><title>B</title><author>Jones</author></book></library>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<k>A</k>"), "key() wrong: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:call-template` with `xsl:with-param` and `xsl:param`
    /// defaults.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_call_template_with_params() {
        // UPSTREAM-PARITY: xsl:with-param values are visible to $name inside
        // the called template; xsl:param defaults apply when no value is
        // passed. Regression: with-params were never registered in the XPath
        // variable hash.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out>\
                  <xsl:call-template name=\"greet\">\
                    <xsl:with-param name=\"who\" select=\"'World'\"/>\
                  </xsl:call-template>\
                </out>\
              </xsl:template>\
              <xsl:template name=\"greet\">\
                <xsl:param name=\"who\" select=\"'nobody'\"/>\
                <g>Hello <xsl:value-of select=\"$who\"/>!</g>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root/>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("Hello World"), "with-param lost: {}", out);
        }
    }

    #[test]
    /// Tests the HTML output method's meta charset insertion and formatting.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_html_method_meta_charset() {
        // UPSTREAM-PARITY: method="html" inserts <meta charset="..."> in
        // the <head> of the root <html> and formats with newlines only.
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:output method=\"html\" indent=\"yes\"/>\
              <xsl:template match=\"/\">\
                <html><head><title>T</title></head><body><p>x</p></body></html>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root/>\0";
            let out = run_transform(xsl, src);
            assert!(
                out.contains("<meta charset=\"UTF-8\">"),
                "meta charset missing: {}",
                out
            );
            assert!(!out.contains("  <head>"), "unexpected indent: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:if` with string equality tests.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_if() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <xsl:if test=\"/root/item = 'yes'\"><yes/></xsl:if>\
                <xsl:if test=\"/root/item = 'no'\"><no/></xsl:if>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><item>yes</item></root>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<yes/>"), "got: {}", out);
            assert!(!out.contains("<no/>"), "got: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:choose` with `xsl:when` and `xsl:otherwise` branches.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_choose() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <xsl:choose>\
                  <xsl:when test=\"/root/item = 'a'\"><chosen>a</chosen></xsl:when>\
                  <xsl:when test=\"/root/item = 'b'\"><chosen>b</chosen></xsl:when>\
                  <xsl:otherwise><chosen>other</chosen></xsl:otherwise>\
                </xsl:choose>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><item>b</item></root>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<chosen>b</chosen>"), "got: {}", out);
        }
    }

    #[test]
    /// Tests variables and `xsl:call-template` together.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_variable_and_call_template() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:variable name=\"greeting\" select=\"'Hello'\"/>\
              <xsl:template match=\"/\">\
                <xsl:call-template name=\"say\"/>\
              </xsl:template>\
              <xsl:template name=\"say\">\
                <msg><xsl:value-of select=\"$greeting\"/> <xsl:value-of select=\"/root/name\"/></msg>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><name>World</name></root>\0";
            let out = run_transform(xsl, src);
            // UPSTREAM-PARITY: the whitespace-only text node between the two
            // xsl:value-of instructions is stripped at stylesheet
            // preprocessing, exactly as upstream libxslt does; preserving it
            // requires an explicit <xsl:text> </xsl:text>.
            assert!(out.contains("HelloWorld"), "got: {}", out);
        }
    }

    #[test]
    /// Tests that `xsl:text` preserves whitespace verbatim.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_text_preserves_whitespace() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <msg><xsl:value-of select=\"'Hello'\"/><xsl:text> </xsl:text><xsl:value-of select=\"/root/name\"/></msg>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><name>World</name></root>\0";
            let out = run_transform(xsl, src);
            // UPSTREAM-PARITY: xsl:text content is preserved verbatim.
            assert!(out.contains("Hello World"), "got: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:element` and `xsl:attribute` construction.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_element_and_attribute() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <xsl:element name=\"custom\">\
                  <xsl:attribute name=\"attr\">value</xsl:attribute>\
                  <xsl:value-of select=\"/root/item\"/>\
                </xsl:element>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><item>data</item></root>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("custom"), "got: {}", out);
            assert!(out.contains("attr=\"value\""), "got: {}", out);
            assert!(out.contains("data"), "got: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:apply-templates` with a `select` expression.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_apply_templates_with_select() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <out><xsl:apply-templates select=\"/root/item\"/></out>\
              </xsl:template>\
              <xsl:template match=\"item\"><item><xsl:value-of select=\".\"/></item></xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><item>alpha</item><item>beta</item></root>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<item>alpha</item>"), "got: {}", out);
            assert!(out.contains("<item>beta</item>"), "got: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:text`, `xsl:comment`, and `xsl:processing-instruction`
    /// output.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_text_and_comment_and_pi() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <xsl:text>plain</xsl:text>\
                <xsl:comment>a comment</xsl:comment>\
                <xsl:processing-instruction name=\"target\">pi-data</xsl:processing-instruction>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root/>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("plain"), "got: {}", out);
            assert!(out.contains("<!--a comment-->"), "got: {}", out);
            assert!(out.contains("<?target pi-data?>"), "got: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:copy-of` for node sets and literal strings.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_copy_and_copy_of() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <xsl:copy-of select=\"/root/item\"/>\
                <xsl:copy-of select=\"'literal'\"/>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root><item>copied</item></root>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<item>copied</item>"), "got: {}", out);
            assert!(out.contains("literal"), "got: {}", out);
        }
    }

    #[test]
    /// Tests `xsl:number` with explicit values and formats.
    ///
    /// # Safety
    ///
    /// - The `xsl` and `src` byte slices are NUL-terminated buffers alive for
    ///   the whole `run_transform` call, which parses, transforms, and
    ///   serializes them and frees every created document before returning.
    fn test_xslt_number() {
        unsafe {
            let xsl = b"<?xml version=\"1.0\"?>\
            <xsl:stylesheet version=\"1.0\" xmlns:xsl=\"http://www.w3.org/1999/XSL/Transform\">\
              <xsl:template match=\"/\">\
                <n><xsl:number value=\"42\"/></n>\
                <r><xsl:number value=\"9\" format=\"I\"/></r>\
              </xsl:template>\
            </xsl:stylesheet>\0";
            let src = b"<?xml version=\"1.0\"?><root/>\0";
            let out = run_transform(xsl, src);
            assert!(out.contains("<n>42</n>"), "got: {}", out);
            assert!(out.contains("<r>IX</r>"), "got: {}", out);
        }
    }
}