/*
	 * Copyright 2004-2026 the Pacemaker project contributors
	 *
	 * The version control history for this file may have further details.
	 *
	 * This source code is licensed under the GNU Lesser General Public License
	 * version 2.1 or later (LGPLv2.1+) WITHOUT ANY WARRANTY.
	 */
	
	#include <crm_internal.h>
	
	#include <stdbool.h>
	#include <stdio.h>
	#include <string.h>
	#include <dirent.h>
	#include <errno.h>
	#include <limits.h>             // UCHAR_MAX
	#include <sys/stat.h>
	#include <stdarg.h>
	
	#include <glib.h>                       // g_str_has_prefix()
	#include <libxml/relaxng.h>
	#include <libxml/tree.h>                // xmlNode
	#include <libxml/xmlstring.h>           // xmlChar
	#include <libxslt/xslt.h>
	#include <libxslt/transform.h>
	#include <libxslt/security.h>
	#include <libxslt/xsltutils.h>
	
	#include <crm/common/schemas.h>
	#include <crm/common/xml.h>
	
	#include "crmcommon_private.h"
	
	#define SCHEMA_ZERO { .v = { 0, 0 } }
	
	#define schema_strdup_printf(prefix, version, suffix) \
	    pcmk__assert_asprintf(prefix "%u.%u" suffix, (version).v[0], (version).v[1])
	
	typedef struct {
	    xmlRelaxNGPtr rng;
	    xmlRelaxNGValidCtxtPtr valid;
	    xmlRelaxNGParserCtxtPtr parser;
	} relaxng_ctx_cache_t;
	
	static GList *known_schemas = NULL;
	static bool initialized = false;
	static bool silent_logging = FALSE;
	
	static void G_GNUC_PRINTF(2, 3)
	xml_log(int priority, const char *fmt, ...)
	{
	    va_list ap;
	
	    va_start(ap, fmt);
	    if (silent_logging == FALSE) {
	        /* XXX should not this enable dechunking as well? */
	        PCMK__XML_LOG_BASE(priority, FALSE, 0, NULL, fmt, ap);
	    }
	    va_end(ap);
	}
	
	static int
	xml_latest_schema_index(void)
	{
	    /* This function assumes that pcmk__schema_init() has been called
	     * beforehand, so we have at least two schemas (one real schema and the
	     * "none" schema).
	     *
	     * @COMPAT: The "none" schema is deprecated since 2.1.8.
	     * Update this when we drop that schema.
	     */
	    return g_list_length(known_schemas) - 2;
	}
	
	/*!
	 * \internal
	 * \brief Return the schema entry of the highest-versioned schema
	 *
	 * \return Schema entry of highest-versioned schema
	 */
	static GList *
	get_highest_schema(void)
	{
	    /* The highest numerically versioned schema is the one before none
	     *
	     * @COMPAT none is deprecated since 2.1.8
	     */
	    GList *entry = pcmk__get_schema("none");
	
	    pcmk__assert((entry != NULL) && (entry->prev != NULL));
	    return entry->prev;
	}
	
	/*!
	 * \internal
	 * \brief Return the name of the highest-versioned schema
	 *
	 * \return Name of highest-versioned schema (or NULL on error)
	 */
	const char *
	pcmk__highest_schema_name(void)
	{
	    GList *entry = get_highest_schema();
	
	    return ((pcmk__schema_t *)(entry->data))->name;
	}
	
	/*!
	 * \internal
	 * \brief Find first entry of highest major schema version series
	 *
	 * \return Schema entry of first schema with highest major version
	 */
	GList *
	pcmk__find_x_0_schema(void)
	{
	#if defined(PCMK__UNIT_TESTING)
	    /* If we're unit testing, this can't be static because it'll stick
	     * around from one test run to the next. It needs to be cleared out
	     * every time.
	     */
	    GList *x_0_entry = NULL;
	#else
	    static GList *x_0_entry = NULL;
	#endif
	
	    pcmk__schema_t *highest_schema = NULL;
	
	    if (x_0_entry != NULL) {
	        return x_0_entry;
	    }
	    x_0_entry = get_highest_schema();
	    highest_schema = x_0_entry->data;
	
	    for (GList *iter = x_0_entry->prev; iter != NULL; iter = iter->prev) {
	        pcmk__schema_t *schema = iter->data;
	
	        /* We've found a schema in an older major version series.  Return
	         * the index of the first one in the same major version series as
	         * the highest schema.
	         */
	        if (schema->version.v[0] < highest_schema->version.v[0]) {
	            x_0_entry = iter->next;
	            break;
	        }
	
	        /* We're out of list to examine.  This probably means there was only
	         * one major version series, so return the first schema entry.
	         */
	        if (iter->prev == NULL) {
	            x_0_entry = known_schemas->data;
	            break;
	        }
	    }
	    return x_0_entry;
	}
	
	static inline bool
	version_from_filename(const char *filename, pcmk__schema_version_t *version)
	{
	    if (filename == NULL) {
	        return false;
	    }
	
	    if (g_str_has_suffix(filename, ".rng")) {
	        return sscanf(filename, "pacemaker-%hhu.%hhu.rng", &(version->v[0]), &(version->v[1])) == 2;
	    } else {
	        return sscanf(filename, "pacemaker-%hhu.%hhu", &(version->v[0]), &(version->v[1])) == 2;
	    }
	}
	
	static int
	schema_filter(const struct dirent *a)
	{
	    pcmk__schema_version_t version = SCHEMA_ZERO;
	
	    if (g_str_has_prefix(a->d_name, "pacemaker-")
	        && g_str_has_suffix(a->d_name, ".rng")
	        && version_from_filename(a->d_name, &version)) {
	
	        return 1;
	    }
	
	    return 0;
	}
	
	static int
	schema_cmp(pcmk__schema_version_t a_version, pcmk__schema_version_t b_version)
	{
	    for (int i = 0; i < 2; ++i) {
	        if (a_version.v[i] < b_version.v[i]) {
	            return -1;
	        } else if (a_version.v[i] > b_version.v[i]) {
	            return 1;
	        }
	    }
	    return 0;
	}
	
	static int
	schema_cmp_directory(const struct dirent **a, const struct dirent **b)
	{
	    pcmk__schema_version_t a_version = SCHEMA_ZERO;
	    pcmk__schema_version_t b_version = SCHEMA_ZERO;
	
	    if (!version_from_filename(a[0]->d_name, &a_version)
	        || !version_from_filename(b[0]->d_name, &b_version)) {
	        // Shouldn't be possible, but makes static analysis happy
	        return 0;
	    }
	
	    return schema_cmp(a_version, b_version);
	}
	
	/*!
	 * \internal
	 * \brief Add given schema + auxiliary data to internal bookkeeping.
	 */
	static void
	add_schema(enum pcmk__schema_validator validator,
	           const pcmk__schema_version_t *version, const char *name,
	           GList *transforms)
	{
	    pcmk__schema_t *schema = NULL;
	
	    schema = pcmk__assert_alloc(1, sizeof(pcmk__schema_t));
	
	    schema->validator = validator;
	    schema->version.v[0] = version->v[0];
	    schema->version.v[1] = version->v[1];
	    schema->transforms = transforms;
	    // schema->schema_index is set after all schemas are loaded and sorted
	
	    if (version->v[0] || version->v[1]) {
	        schema->name = schema_strdup_printf("pacemaker-", *version, "");
	    } else {
	        schema->name = pcmk__str_copy(name);
	    }
	
	    known_schemas = g_list_prepend(known_schemas, schema);
	}
	
	static void
	wrap_libxslt(bool finalize)
	{
	    static xsltSecurityPrefsPtr secprefs;
	    int ret = 0;
	
	    /* security framework preferences */
	    if (!finalize) {
	        pcmk__assert(secprefs == NULL);
	        secprefs = xsltNewSecurityPrefs();
	        ret = xsltSetSecurityPrefs(secprefs, XSLT_SECPREF_WRITE_FILE,
	                                   xsltSecurityForbid)
	              | xsltSetSecurityPrefs(secprefs, XSLT_SECPREF_CREATE_DIRECTORY,
	                                     xsltSecurityForbid)
	              | xsltSetSecurityPrefs(secprefs, XSLT_SECPREF_READ_NETWORK,
	                                     xsltSecurityForbid)
	              | xsltSetSecurityPrefs(secprefs, XSLT_SECPREF_WRITE_NETWORK,
	                                     xsltSecurityForbid);
	        if (ret != 0) {
	            return;
	        }
	    } else {
	        xsltFreeSecurityPrefs(secprefs);
	        secprefs = NULL;
	    }
	
	    /* cleanup only */
	    if (finalize) {
	        xsltCleanupGlobals();
	    }
	}
	
	/*!
	 * \internal
	 * \brief Check whether a directory entry matches the upgrade XSLT pattern
	 *
	 * \param[in] entry  Directory entry whose filename to check
	 *
	 * \return 1 if the entry's filename is of the form
	 *         <tt>upgrade-X.Y-ORDER.xsl</tt> with each number in the range 0 to
	 *         255, or 0 otherwise
	 */
	static int
	transform_filter(const struct dirent *entry)
	{
	    const char *re = NULL;
	    unsigned int major = 0;
	    unsigned int minor = 0;
	    unsigned int order = 0;
	
	    /* Each number is an unsigned char, which is 1 to 3 digits long. (Pacemaker
	     * requires an 8-bit char via a configure test.)
	     */
	    re = "upgrade-[[:digit:]]{1,3}\\.[[:digit:]]{1,3}-[[:digit:]]{1,3}\\.xsl";
	
	    if (!pcmk__str_eq(entry->d_name, re, pcmk__str_regex)) {
	        return 0;
	    }
	
	    /* Performance isn't critical here and this is simpler than range-checking
	     * within the regex
	     */
	    if (sscanf(entry->d_name, "upgrade-%u.%u-%u.xsl",
	               &major, &minor, &order) != 3) {
	        return 0;
	    }
	
	    if ((major > UCHAR_MAX) || (minor > UCHAR_MAX) || (order > UCHAR_MAX)) {
	        return 0;
	    }
	    return 1;
	}
	
	/*!
	 * \internal
	 * \brief Compare transform files based on the version strings in their names
	 *
	 * \retval -1 if \p entry1 sorts before \p entry2
	 * \retval  0 if \p entry1 sorts equal to \p entry2
	 * \retval  1 if \p entry1 sorts after \p entry2
	 *
	 * \note The GNU \c versionsort() function would be perfect here, but it's not
	 *       portable.
	 */
	static int
	compare_transforms(const struct dirent **entry1, const struct dirent **entry2)
	{
	    // We already validated the format of each filename in transform_filter()
	    static const size_t offset = sizeof("upgrade-") - 1;
	
	    gchar *ver1 = g_strdelimit(g_strdup((*entry1)->d_name + offset), "-", '.');
	    gchar *ver2 = g_strdelimit(g_strdup((*entry2)->d_name + offset), "-", '.');
	    int rc = pcmk__compare_versions(ver1, ver2);
	
	    g_free(ver1);
	    g_free(ver2);
	    return rc;
	}
	
	/*!
	 * \internal
	 * \brief Free a list of XSLT transform <tt>struct dirent</tt> objects
	 *
	 * \param[in,out] data  List to free
	 */
	static void
	free_transform_list(void *data)
	{
	    g_list_free_full((GList *) data, free);
	}
	
	/*!
	 * \internal
	 * \brief Load names of upgrade XSLT stylesheets from a directory into a table
	 *
	 * Stylesheets must have names of the form "upgrade-X.Y-order.xsl", where:
	 * * X is the schema major version
	 * * Y is the schema minor version
	 * * ORDER is the order in which the stylesheet occurs in the transform pipeline
	 *
	 * \param[in] dir  Directory containing XSLT stylesheets
	 *
	 * \return Table with schema version as key and \c GList of associated transform
	 *         files (as <tt>struct dirent</tt>) as value
	 */
	static GHashTable *
	load_transforms_from_dir(const char *dir)
	{
	    struct dirent **namelist = NULL;
	    GHashTable *transforms = NULL;
	    int num_matches = scandir(dir, &namelist, transform_filter,
	                              compare_transforms);
	
	    if (num_matches < 0) {
	        int rc = errno;
	
	        pcmk__warn("Could not load transforms from %s: %s", dir,
	                   pcmk_rc_str(rc));
	        goto done;
	    }
	
	    transforms = pcmk__strkey_table(free, free_transform_list);
	
	    for (int i = 0; i < num_matches; i++) {
	        pcmk__schema_version_t version = SCHEMA_ZERO;
	        unsigned char order = 0;  // Placeholder only
	
	        if (sscanf(namelist[i]->d_name, "upgrade-%hhu.%hhu-%hhu.xsl",
	                   &(version.v[0]), &(version.v[1]), &order) == 3) {
	
	            char *version_s = pcmk__assert_asprintf("%hhu.%hhu",
	                                                    version.v[0], version.v[1]);
	            GList *list = g_hash_table_lookup(transforms, version_s);
	
	            if (list == NULL) {
	                /* Prepend is more efficient. However, there won't be many of
	                 * these, and we want them to remain sorted by version. It's not
	                 * worth reversing all the lists at the end.
	                 *
	                 * Avoid calling g_hash_table_insert() if the list already
	                 * exists. Otherwise free_transform_list() gets called on it.
	                 */
	                list = g_list_append(list, namelist[i]);
	                g_hash_table_insert(transforms, version_s, list);
	
	            } else {
	#pragma GCC diagnostic push
	#pragma GCC diagnostic ignored "-Wunused-result"
	                g_list_append(list, namelist[i]);
	#pragma GCC diagnostic pop
	                free(version_s);
	            }
	
	        } else {
	            // Sanity only, should never happen thanks to transform_filter()
	            free(namelist[i]);
	        }
	    }
	
	done:
	    free(namelist);
	    return transforms;
	}
	
	void
	pcmk__load_schemas_from_dir(const char *dir)
	{
	    int lpc, max;
	    struct dirent **namelist = NULL;
	    GHashTable *transforms = NULL;
	
	    max = scandir(dir, &namelist, schema_filter, schema_cmp_directory);
	    if (max < 0) {
	        int rc = errno;
	
	        pcmk__warn("Could not load schemas from %s: %s", dir, pcmk_rc_str(rc));
	        goto done;
	    }
	
	    // Look for any upgrade transforms in the same directory
	    transforms = load_transforms_from_dir(dir);
	
	    for (lpc = 0; lpc < max; lpc++) {
	        pcmk__schema_version_t version = SCHEMA_ZERO;
	
	        if (version_from_filename(namelist[lpc]->d_name, &version)) {
	            char *version_s = pcmk__assert_asprintf("%hhu.%hhu",
	                                                    version.v[0], version.v[1]);
	            char *orig_key = NULL;
	            GList *transform_list = NULL;
	
	            if (transforms != NULL) {
	                // The schema becomes the owner of transform_list
	                g_hash_table_lookup_extended(transforms, version_s,
	                                             (gpointer *) &orig_key,
	                                             (gpointer *) &transform_list);
	                g_hash_table_steal(transforms, version_s);
	            }
	
	            add_schema(pcmk__schema_validator_rng, &version, NULL,
	                       transform_list);
	
	            free(version_s);
	            free(orig_key);
	
	        } else {
	            // Shouldn't be possible, but makes static analysis happy
	            pcmk__warn("Skipping schema '%s': could not parse version",
	                       namelist[lpc]->d_name);
	        }
	    }
	
	    for (lpc = 0; lpc < max; lpc++) {
	        free(namelist[lpc]);
	    }
	
	done:
	    free(namelist);
	    g_clear_pointer(&transforms, g_hash_table_destroy);
	}
	
	static gint
	schema_sort_GCompareFunc(gconstpointer a, gconstpointer b)
	{
	    const pcmk__schema_t *schema_a = a;
	    const pcmk__schema_t *schema_b = b;
	
	    // @COMPAT The "none" schema is deprecated since 2.1.8
	    if (pcmk__str_eq(schema_a->name, PCMK_VALUE_NONE, pcmk__str_none)) {
	        return 1;
	    } else if (pcmk__str_eq(schema_b->name, PCMK_VALUE_NONE, pcmk__str_none)) {
	        return -1;
	    } else {
	        return schema_cmp(schema_a->version, schema_b->version);
	    }
	}
	
	/*!
	 * \internal
	 * \brief Sort the list of known schemas such that all pacemaker-X.Y are in
	 *        version order, then "none"
	 *
	 * This function should be called whenever additional schemas are loaded using
	 * \c pcmk__load_schemas_from_dir(), after the initial sets in
	 * \c pcmk__schema_init().
	 */
	void
	pcmk__sort_schemas(void)
	{
	    known_schemas = g_list_sort(known_schemas, schema_sort_GCompareFunc);
	}
	
	/*!
	 * \internal
	 * \brief Load pacemaker schemas into cache
	 *
	 * \note This currently also serves as an entry point for the
	 *       generic initialization of the libxslt library.
	 */
	void
	pcmk__schema_init(void)
	{
	    if (!initialized) {
	        const char *remote_schema_dir = pcmk__remote_schema_dir();
	        char *base = pcmk__xml_artefact_root(pcmk__xml_artefact_ns_legacy_rng);
	        const pcmk__schema_version_t zero = SCHEMA_ZERO;
	        int schema_index = 0;
	
	        initialized = true;
	
	        wrap_libxslt(false);
	
	        pcmk__load_schemas_from_dir(base);
	        pcmk__load_schemas_from_dir(remote_schema_dir);
	        free(base);
	
	        // @COMPAT Deprecated since 2.1.8
	        add_schema(pcmk__schema_validator_none, &zero, PCMK_VALUE_NONE, NULL);
	
	        /* add_schema() prepends items to the list, so in the simple case, this
	         * just reverses the list. However if there were any remote schemas,
	         * sorting is necessary.
	         */
	        pcmk__sort_schemas();
	
	        // Now set the schema indexes and log the final result
	        for (GList *iter = known_schemas; iter != NULL; iter = iter->next) {
	            pcmk__schema_t *schema = iter->data;
	
	            pcmk__debug("Loaded schema %d: %s", schema_index, schema->name);
	            schema->schema_index = schema_index++;
	        }
	    }
	}
	
	static bool
	validate_with_relaxng(xmlDocPtr doc, xmlRelaxNGValidityErrorFunc error_handler,
	                      void *error_handler_context, const char *relaxng_file,
	                      relaxng_ctx_cache_t **cached_ctx)
	{
	    int rc = 0;
	    bool valid = true;
	    relaxng_ctx_cache_t *ctx = NULL;
	
	    CRM_CHECK(doc != NULL, return false);
	    CRM_CHECK(relaxng_file != NULL, return false);
	
	    if (cached_ctx && *cached_ctx) {
	        ctx = *cached_ctx;
	
	    } else {
	        pcmk__debug("Creating RNG parser context");
	        ctx = pcmk__assert_alloc(1, sizeof(relaxng_ctx_cache_t));
	
	        ctx->parser = xmlRelaxNGNewParserCtxt(relaxng_file);
	        CRM_CHECK(ctx->parser != NULL, goto cleanup);
	
	        if (error_handler) {
	            xmlRelaxNGSetParserErrors(ctx->parser,
	                                      (xmlRelaxNGValidityErrorFunc) error_handler,
	                                      (xmlRelaxNGValidityWarningFunc) error_handler,
	                                      error_handler_context);
	        } else {
	            xmlRelaxNGSetParserErrors(ctx->parser,
	                                      (xmlRelaxNGValidityErrorFunc) fprintf,
	                                      (xmlRelaxNGValidityWarningFunc) fprintf,
	                                      stderr);
	        }
	
	        ctx->rng = xmlRelaxNGParse(ctx->parser);
	        CRM_CHECK(ctx->rng != NULL,
	                  pcmk__err("Could not find/parse %s", relaxng_file);
	                  goto cleanup);
	
	        ctx->valid = xmlRelaxNGNewValidCtxt(ctx->rng);
	        CRM_CHECK(ctx->valid != NULL, goto cleanup);
	
	        if (error_handler) {
	            xmlRelaxNGSetValidErrors(ctx->valid,
	                                     (xmlRelaxNGValidityErrorFunc) error_handler,
	                                     (xmlRelaxNGValidityWarningFunc) error_handler,
	                                     error_handler_context);
	        } else {
	            xmlRelaxNGSetValidErrors(ctx->valid,
	                                     (xmlRelaxNGValidityErrorFunc) fprintf,
	                                     (xmlRelaxNGValidityWarningFunc) fprintf,
	                                     stderr);
	        }
	    }
	
	    rc = xmlRelaxNGValidateDoc(ctx->valid, doc);
	    if (rc > 0) {
	        valid = false;
	
	    } else if (rc < 0) {
	        pcmk__err("Internal libxml error during validation");
	    }
	
	  cleanup:
	
	    if (cached_ctx) {
	        *cached_ctx = ctx;
	
	    } else {
	        if (ctx->parser != NULL) {
	            xmlRelaxNGFreeParserCtxt(ctx->parser);
	        }
	        if (ctx->valid != NULL) {
	            xmlRelaxNGFreeValidCtxt(ctx->valid);
	        }
	        if (ctx->rng != NULL) {
	            xmlRelaxNGFree(ctx->rng);
	        }
	        free(ctx);
	    }
	
	    return valid;
	}
	
	static void
	free_schema(gpointer data)
	{
	    pcmk__schema_t *schema = data;
	    relaxng_ctx_cache_t *ctx = NULL;
	
	    switch (schema->validator) {
	        case pcmk__schema_validator_none: // not cached
	            break;
	
	        case pcmk__schema_validator_rng: // cached
	            ctx = (relaxng_ctx_cache_t *) schema->cache;
	            if (ctx == NULL) {
	                break;
	            }
	
	            if (ctx->parser != NULL) {
	                xmlRelaxNGFreeParserCtxt(ctx->parser);
	            }
	
	            if (ctx->valid != NULL) {
	                xmlRelaxNGFreeValidCtxt(ctx->valid);
	            }
	
	            if (ctx->rng != NULL) {
	                xmlRelaxNGFree(ctx->rng);
	            }
	
	            free(ctx);
	            schema->cache = NULL;
	            break;
	    }
	
	    free(schema->name);
	    g_list_free_full(schema->transforms, free);
	    free(schema);
	}
	
	/*!
	 * \internal
	 * \brief Clean up global memory associated with XML schemas
	 */
	void
	pcmk__schema_cleanup(void)
	{
	    g_list_free_full(known_schemas, free_schema);
	    known_schemas = NULL;
	    initialized = false;
	
	    wrap_libxslt(true);
	}
	
	/*!
	 * \internal
	 * \brief Get schema list entry corresponding to a schema name
	 *
	 * \param[in] name  Name of schema to get
	 *
	 * \return Schema list entry corresponding to \p name, or NULL if unknown
	 */
	GList *
	pcmk__get_schema(const char *name)
	{
	    if (name == NULL) {
	        return NULL;
	    }
	    for (GList *iter = known_schemas; iter != NULL; iter = iter->next) {
	        pcmk__schema_t *schema = iter->data;
	
	        if (pcmk__str_eq(name, schema->name, pcmk__str_none)) {
	            return iter;
	        }
	    }
	    return NULL;
	}
	
	/*!
	 * \internal
	 * \brief Compare two schema version numbers given the schema names
	 *
	 * \param[in] schema1  Name of first schema to compare
	 * \param[in] schema2  Name of second schema to compare
	 *
	 * \return Standard comparison result (negative integer if \p schema1 has the
	 *         lower version number, positive integer if \p schema1 has the higher
	 *         version number, of 0 if the version numbers are equal)
	 */
	int
	pcmk__cmp_schemas_by_name(const char *schema1_name, const char *schema2_name)
	{
	    GList *entry1 = pcmk__get_schema(schema1_name);
	    GList *entry2 = pcmk__get_schema(schema2_name);
	
	    if (entry1 == NULL) {
	        return (entry2 == NULL)? 0 : -1;
	
	    } else if (entry2 == NULL) {
	        return 1;
	
	    } else {
	        pcmk__schema_t *schema1 = entry1->data;
	        pcmk__schema_t *schema2 = entry2->data;
	
	        return schema1->schema_index - schema2->schema_index;
	    }
	}
	
	static bool
	validate_with(xmlDoc *doc, pcmk__schema_t *schema,
	              xmlRelaxNGValidityErrorFunc error_handler,
	              void *error_handler_context)
	{
	    bool valid = false;
	    char *file = NULL;
	    relaxng_ctx_cache_t **cache = NULL;
	
	    if (schema == NULL) {
	        return false;
	    }
	
	    if (schema->validator == pcmk__schema_validator_none) {
	        return true;
	    }
	
	    file = pcmk__xml_artefact_path(pcmk__xml_artefact_ns_legacy_rng,
	                                   schema->name);
	
	    pcmk__trace("Validating with %s (type=%d)", pcmk__s(file, "missing schema"),
	                schema->validator);
	    switch (schema->validator) {
	        case pcmk__schema_validator_rng:
	            cache = (relaxng_ctx_cache_t **) &(schema->cache);
	            valid = validate_with_relaxng(doc, error_handler,
	                                          error_handler_context, file, cache);
	            break;
	        default:
	            pcmk__err("Unknown validator type: %d", schema->validator);
	            break;
	    }
	
	    free(file);
	    return valid;
	}
	
	static bool
	validate_with_silent(xmlDoc *doc, pcmk__schema_t *schema)
	{
	    bool rc = false;
	    bool sl_backup = silent_logging;
	
	    silent_logging = TRUE;
	    rc = validate_with(doc, schema, (xmlRelaxNGValidityErrorFunc) xml_log,
	                       GUINT_TO_POINTER(LOG_ERR));
	    silent_logging = sl_backup;
	    return rc;
	}
	
	bool
	pcmk__validate_xml(xmlNode *xml, xmlRelaxNGValidityErrorFunc error_handler,
	                   void *error_handler_context)
	{
	    const char *validation = NULL;
	    GList *entry = NULL;
	    pcmk__schema_t *schema = NULL;
	
	    CRM_CHECK((xml != NULL) && (xml->doc != NULL), return false);
	
	    validation = pcmk__xe_get(xml, PCMK_XA_VALIDATE_WITH);
	    pcmk__warn_if_schema_deprecated(validation);
	
	    entry = pcmk__get_schema(validation);
	    if (entry == NULL) {
	        pcmk__config_err("Cannot validate CIB with %s " PCMK_XA_VALIDATE_WITH
	                         " (manually edit to use a known schema)",
	                         ((validation == NULL)? "missing" : "unknown"));
	        return false;
	    }
	
	    schema = entry->data;
	    return validate_with(xml->doc, schema, error_handler,
	                         error_handler_context);
	}
	
	/*!
	 * \internal
	 * \brief Validate XML using its configured schema (and send errors to logs)
	 *
	 * \param[in] xml  XML to validate
	 *
	 * \return true if XML validates, otherwise false
	 */
	bool
	pcmk__configured_schema_validates(xmlNode *xml)
	{
	    return pcmk__validate_xml(xml, (xmlRelaxNGValidityErrorFunc) xml_log,
	                              GUINT_TO_POINTER(LOG_ERR));
	}
	
	/* With this arrangement, an attempt to identify the message severity
	   as explicitly signalled directly from XSLT is performed in rather
	   a smart way (no reliance on formatting string + arguments being
	   always specified as ["%s", purposeful_string], as it can also be
	   ["%s: %s", some_prefix, purposeful_string] etc. so every argument
	   pertaining %s specifier is investigated), and if such a mark found,
	   the respective level is determined and, when the messages are to go
	   to the native logs, the mark itself gets dropped
	   (by the means of string shift).
	
	   NOTE: whether the native logging is the right sink is decided per
	         the ctx parameter -- NULL denotes this case, otherwise it
	         carries a pointer to the numeric expression of the desired
	         target logging level (messages with higher level will be
	         suppressed)
	
	   NOTE: on some architectures, this string shift may not have any
	         effect, but that's an acceptable tradeoff
	
	   The logging level for not explicitly designated messages
	   (suspicious, likely internal errors or some runaways) is
	   LOG_WARNING.
	 */
	static void G_GNUC_PRINTF(2, 3)
	cib_upgrade_err(void *ctx, const char *fmt, ...)
	{
	    va_list ap, aq;
	    char *arg_cur;
	
	    bool found = false;
	    const char *fmt_iter = fmt;
	    uint8_t msg_log_level = LOG_WARNING;  /* default for runaway messages */
	    const unsigned * log_level = (const unsigned *) ctx;
	    enum {
	        escan_seennothing,
	        escan_seenpercent,
	    } scan_state = escan_seennothing;
	
	    va_start(ap, fmt);
	    va_copy(aq, ap);
	
	    while (!found && *fmt_iter != '\0') {
	        /* while casing schema borrowed from libqb:qb_vsnprintf_serialize */
	        switch (*fmt_iter++) {
	        case '%':
	            if (scan_state == escan_seennothing) {
	                scan_state = escan_seenpercent;
	            } else if (scan_state == escan_seenpercent) {
	                scan_state = escan_seennothing;
	            }
	            break;
	        case 's':
	            if (scan_state == escan_seenpercent) {
	                size_t prefix_len = 0;
	
	                scan_state = escan_seennothing;
	                arg_cur = va_arg(aq, char *);
	
	                if (arg_cur == NULL) {
	                    break;
	
	                } else if (g_str_has_prefix(arg_cur, "WARNING: ")) {
	                    prefix_len = sizeof("WARNING: ") - 1;
	                    msg_log_level = LOG_WARNING;
	
	                } else if (g_str_has_prefix(arg_cur, "INFO: ")) {
	                    prefix_len = sizeof("INFO: ") - 1;
	                    msg_log_level = LOG_INFO;
	
	                } else if (g_str_has_prefix(arg_cur, "DEBUG: ")) {
	                    prefix_len = sizeof("DEBUG: ") - 1;
	                    msg_log_level = LOG_DEBUG;
	
	                } else {
	                    break;
	                }
	
	                found = true;
	                if (ctx == NULL) {
	                    memmove(arg_cur, arg_cur + prefix_len,
	                            strlen(arg_cur + prefix_len) + 1);
	                }
	            }
	            break;
	        case '#': case '-': case ' ': case '+': case '\'': case 'I': case '.':
	        case '0': case '1': case '2': case '3': case '4':
	        case '5': case '6': case '7': case '8': case '9':
	        case '*':
	            break;
	        case 'l':
	        case 'z':
	        case 't':
	        case 'j':
	        case 'd': case 'i':
	        case 'o':
	        case 'u':
	        case 'x': case 'X':
	        case 'e': case 'E':
	        case 'f': case 'F':
	        case 'g': case 'G':
	        case 'a': case 'A':
	        case 'c':
	        case 'p':
	            if (scan_state == escan_seenpercent) {
	                (void) va_arg(aq, void *);  /* skip forward */
	                scan_state = escan_seennothing;
	            }
	            break;
	        default:
	            scan_state = escan_seennothing;
	            break;
	        }
	    }
	
	    if (log_level != NULL) {
	        /* intention of the following offset is:
	           cibadmin -V -> start showing INFO labelled messages */
	        if (*log_level + 4 >= msg_log_level) {
	            vfprintf(stderr, fmt, ap);
	        }
	    } else {
	        PCMK__XML_LOG_BASE(msg_log_level, TRUE, 0, "CIB upgrade: ", fmt, ap);
	    }
	
	    va_end(aq);
	    va_end(ap);
	}
	
	/*!
	 * \internal
	 * \brief Apply a single XSL transformation to the given XML document
	 *
	 * \param[in] doc        XML document
	 * \param[in] transform  XSL name
	 * \param[in] to_logs    If false, certain validation errors will be sent to
	 *                       stderr rather than logged
	 *
	 * \return Transformed XML on success, otherwise NULL
	 */
	static xmlDoc *
	apply_transformation(xmlDoc *doc, const char *transform, bool to_logs)
	{
	    char *xform = NULL;
	    xsltStylesheet *xslt = NULL;
	    xmlDoc *result_doc = NULL;
	
	    xform = pcmk__xml_artefact_path(pcmk__xml_artefact_ns_legacy_xslt,
	                                    transform);
	
	    /* for capturing, e.g., what's emitted via <xsl:message> */
	    if (to_logs) {
	        xsltSetGenericErrorFunc(NULL, cib_upgrade_err);
	    } else {
	        xsltSetGenericErrorFunc(&crm_log_level, cib_upgrade_err);
	    }
	
	    xslt = xsltParseStylesheetFile((const xmlChar *) xform);
	    CRM_CHECK(xslt != NULL, goto cleanup);
	
	    /* Caller allocates private data for final result document. Intermediate
	     * result documents are temporary and don't need private data.
	     */
	    result_doc = xsltApplyStylesheet(xslt, doc, NULL);
	    CRM_CHECK(result_doc != NULL, goto cleanup);
	
	    xsltSetGenericErrorFunc(NULL, NULL);  /* restore default one */
	
	  cleanup:
	    if (xslt) {
	        xsltFreeStylesheet(xslt);
	    }
	
	    free(xform);
	
	    return result_doc;
	}
	
	/*!
	 * \internal
	 * \brief Perform all transformations needed to upgrade XML to next schema
	 *
	 * \param[in] input_doc     XML document to transform
	 * \param[in] schema_index  Index of schema that successfully validates
	 *                          \p original_xml
	 * \param[in] to_logs       If false, certain validation errors will be sent to
	 *                          stderr rather than logged
	 *
	 * \return XML result of schema transforms if successful, otherwise NULL
	 */
	static xmlDoc *
	apply_upgrade(xmlDoc *input_doc, int schema_index, bool to_logs)
	{
	    pcmk__schema_t *schema = g_list_nth_data(known_schemas, schema_index);
	    pcmk__schema_t *upgraded_schema = g_list_nth_data(known_schemas,
	                                                      schema_index + 1);
	
	    xmlDoc *old_doc = NULL;
	    xmlDoc *new_doc = NULL;
	    xmlRelaxNGValidityErrorFunc error_handler = NULL;
	
	    pcmk__assert((schema != NULL) && (upgraded_schema != NULL));
	
	    if (to_logs) {
	        error_handler = (xmlRelaxNGValidityErrorFunc) xml_log;
	    }
	
	    for (GList *iter = schema->transforms; iter != NULL; iter = iter->next) {
	        const struct dirent *entry = iter->data;
	        const char *transform = entry->d_name;
	
	        pcmk__debug("Upgrading schema from %s to %s: applying XSL transform %s",
	                    schema->name, upgraded_schema->name, transform);
	
	        new_doc = apply_transformation(input_doc, transform, to_logs);
	        pcmk__xml_free_doc(old_doc);
	
	        if (new_doc == NULL) {
	            pcmk__err("XSL transform %s failed, aborting upgrade", transform);
	            return NULL;
	        }
	
	        input_doc = new_doc;
	        old_doc = new_doc;
	    }
	
	    // Final result document from upgrade pipeline needs private data
	    pcmk__xml_new_private_data((xmlNode *) new_doc);
	    pcmk__assert(new_doc != NULL);
	
	    // Ensure result validates with its new schema
	    if (!validate_with(new_doc, upgraded_schema, error_handler,
	                       GUINT_TO_POINTER(LOG_ERR))) {
	        pcmk__err("Schema upgrade from %s to %s failed: XSL transform pipeline "
	                  "produced an invalid configuration",
	                  schema->name, upgraded_schema->name);
	        pcmk__log_xml_debug(xmlDocGetRootElement(new_doc),
	                            "bad-transform-result");
	        pcmk__xml_free_doc(new_doc);
	        return NULL;
	    }
	
	    pcmk__info("Schema upgrade from %s to %s succeeded", schema->name,
	               upgraded_schema->name);
	    return new_doc;
	}
	
	/*!
	 * \internal
	 * \brief Get the schema list entry corresponding to XML configuration
	 *
	 * \param[in] xml  CIB XML to check
	 *
	 * \return List entry of schema configured in \p xml
	 */
	static GList *
	get_configured_schema(const xmlNode *xml)
	{
	    const char *schema_name = pcmk__xe_get(xml, PCMK_XA_VALIDATE_WITH);
	
	    pcmk__warn_if_schema_deprecated(schema_name);
	    return pcmk__get_schema(schema_name);
	}
	
	/*!
	 * \brief Update CIB XML to latest schema that validates it
	 *
	 * \param[in,out] xml              XML to update (may be freed and replaced
	 *                                 after being transformed)
	 * \param[in]     max_schema_name  If not NULL, do not update \p xml to any
	 *                                 schema later than this one
	 * \param[in]     transform        If false, do not update \p xml to any schema
	 *                                 that requires an XSL transform
	 * \param[in]     to_logs          If false, certain validation errors will be
	 *                                 sent to stderr rather than logged
	 *
	 * \return Standard Pacemaker return code
	 */
	int
	pcmk__update_schema(xmlNode **xml, const char *max_schema_name, bool transform,
	                    bool to_logs)
	{
	    int max_stable_schemas = xml_latest_schema_index();
	    int max_schema_index = 0;
	    int rc = pcmk_rc_ok;
	    GList *entry = NULL;
	    pcmk__schema_t *best_schema = NULL;
	    pcmk__schema_t *original_schema = NULL;
	    xmlRelaxNGValidityErrorFunc error_handler = NULL;
	
	    CRM_CHECK((xml != NULL) && (*xml != NULL) && ((*xml)->doc != NULL),
	              return EINVAL);
	
	    if (to_logs) {
	        error_handler = (xmlRelaxNGValidityErrorFunc) xml_log;
	    }
	
	    if (max_schema_name != NULL) {
	        GList *max_entry = pcmk__get_schema(max_schema_name);
	
	        if (max_entry != NULL) {
	            pcmk__schema_t *max_schema = max_entry->data;
	
	            max_schema_index = max_schema->schema_index;
	        }
	    }
	    if ((max_schema_index < 1) || (max_schema_index > max_stable_schemas)) {
	        max_schema_index = max_stable_schemas;
	    }
	
	    entry = get_configured_schema(*xml);
	    if (entry == NULL) {
	        return pcmk_rc_cib_corrupt;
	    }
	    original_schema = entry->data;
	    if (original_schema->schema_index >= max_schema_index) {
	        return pcmk_rc_ok;
	    }
	
	    for (; entry != NULL; entry = entry->next) {
	        pcmk__schema_t *current_schema = entry->data;
	        xmlDoc *upgrade = NULL;
	
	        if (current_schema->schema_index > max_schema_index) {
	            break;
	        }
	
	        if (!validate_with((*xml)->doc, current_schema, error_handler,
	                           GUINT_TO_POINTER(LOG_ERR))) {
	            pcmk__debug("Schema %s does not validate", current_schema->name);
	            if (best_schema != NULL) {
	                /* we've satisfied the validation, no need to check further */
	                break;
	            }
	            rc = pcmk_rc_schema_validation;
	            continue; // Try again with the next higher schema
	        }
	
	        pcmk__debug("Schema %s validates", current_schema->name);
	        rc = pcmk_rc_ok;
	        best_schema = current_schema;
	        if (current_schema->schema_index == max_schema_index) {
	            break; // No further transformations possible
	        }
	
	        // coverity[null_field] The index check ensures entry->next is not NULL
	        if (!transform || (current_schema->transforms == NULL)
	            || validate_with_silent((*xml)->doc, entry->next->data)) {
	            /* The next schema either doesn't require a transform or validates
	             * successfully even without the transform. Skip the transform and
	             * try the next schema with the same XML.
	             */
	            continue;
	        }
	
	        upgrade = apply_upgrade((*xml)->doc, current_schema->schema_index,
	                                to_logs);
	        if (upgrade == NULL) {
	            /* The transform failed, so this schema can't be used. Later
	             * schemas are unlikely to validate, but try anyway until we
	             * run out of options.
	             */
	            rc = pcmk_rc_transform_failed;
	
	        } else {
	            best_schema = current_schema;
	            pcmk__xml_free(*xml);
	            *xml = xmlDocGetRootElement(upgrade);
	        }
	    }
	
	    if ((best_schema != NULL)
	        && (best_schema->schema_index > original_schema->schema_index)) {
	        pcmk__info("%s the configuration schema to %s",
	                   (transform? "Transformed" : "Upgraded"), best_schema->name);
	        pcmk__xe_set(*xml, PCMK_XA_VALIDATE_WITH, best_schema->name);
	    }
	    return rc;
	}
	
	int
	pcmk_update_configured_schema(xmlNode **xml)
	{
	    return pcmk__update_configured_schema(xml, true);
	}
	
	/*!
	 * \brief Update XML from its configured schema to the latest major series
	 *
	 * \param[in,out] xml      XML to update
	 * \param[in]     to_logs  If false, certain validation errors will be
	 *                         sent to stderr rather than logged
	 *
	 * \return Standard Pacemaker return code
	 */
	int
	pcmk__update_configured_schema(xmlNode **xml, bool to_logs)
	{
	    pcmk__schema_t *x_0_schema = pcmk__find_x_0_schema()->data;
	    pcmk__schema_t *original_schema = NULL;
	    GList *entry = NULL;
	

	    if (xml == NULL) {
	        return EINVAL;
	    }
	
	    entry = get_configured_schema(*xml);

	    if (entry == NULL) {
	        return pcmk_rc_cib_corrupt;
	    }
	
	    original_schema = entry->data;

	    if (original_schema->schema_index < x_0_schema->schema_index) {
	        // Current configuration schema is not acceptable, try to update
	        xmlNode *converted = NULL;
	        const char *new_schema_name = NULL;
	        pcmk__schema_t *schema = NULL;
	
	        entry = NULL;
	        converted = pcmk__xml_copy(NULL, *xml);

	        if (pcmk__update_schema(&converted, NULL, true, to_logs) == pcmk_rc_ok) {
	            new_schema_name = pcmk__xe_get(converted, PCMK_XA_VALIDATE_WITH);
	            entry = pcmk__get_schema(new_schema_name);
	        }

	        schema = (entry == NULL)? NULL : entry->data;
	

	        if ((schema == NULL)
	            || (schema->schema_index < x_0_schema->schema_index)) {
	            // Updated configuration schema is still not acceptable
	

	            if ((schema == NULL)
	                || (schema->schema_index < original_schema->schema_index)) {
	                // We couldn't validate any schema at all

	                if (to_logs) {

	                    pcmk__config_err("Cannot upgrade configuration (claiming "
	                                     "%s schema) to at least %s because it "
	                                     "does not validate with any schema from "
	                                     "%s to the latest",
	                                     original_schema->name,
	                                     x_0_schema->name, original_schema->name);

	                } else {
	                    fprintf(stderr, "Cannot upgrade configuration (claiming "
	                                    "%s schema) to at least %s because it "
	                                    "does not validate with any schema from "
	                                    "%s to the latest\n",
	                                    original_schema->name,
	                                    x_0_schema->name, original_schema->name);
	                }

	            } else {
	                // We updated configuration successfully, but still too low
	                if (to_logs) {
	                    pcmk__config_err("Cannot upgrade configuration (claiming "
	                                     "%s schema) to at least %s because it "
	                                     "would not upgrade past %s",
	                                     original_schema->name, x_0_schema->name,
	                                     pcmk__s(new_schema_name, "unspecified version"));
	                } else {
	                    fprintf(stderr, "Cannot upgrade configuration (claiming "
	                                    "%s schema) to at least %s because it "
	                                    "would not upgrade past %s\n",
	                                    original_schema->name, x_0_schema->name,
	                                    pcmk__s(new_schema_name, "unspecified version"));
	                }
	            }
	

	            g_clear_pointer(&converted, pcmk__xml_free);
	            return pcmk_rc_transform_failed;
	
	        } else {
	            // Updated configuration schema is acceptable
	            pcmk__xml_free(*xml);
	            *xml = converted;
	
	            if (schema->schema_index < xml_latest_schema_index()) {
	                if (to_logs) {
	                    pcmk__config_warn("Configuration with %s schema was "
	                                      "internally upgraded to acceptable (but "
	                                      "not most recent) %s",
	                                      original_schema->name, schema->name);
	                }
	            } else if (to_logs) {
	                pcmk__info("Configuration with %s schema was internally "
	                           "upgraded to latest version %s",
	                           original_schema->name, schema->name);
	            }
	        }
	
	    } else if (!to_logs) {
	        pcmk__schema_t *none_schema = NULL;
	
	        entry = pcmk__get_schema(PCMK_VALUE_NONE);
	        pcmk__assert((entry != NULL) && (entry->data != NULL));
	
	        none_schema = entry->data;
	        if (original_schema->schema_index >= none_schema->schema_index) {
	            // @COMPAT the none schema is deprecated since 2.1.8
	            fprintf(stderr, "Schema validation of configuration is "
	                            "disabled (support for " PCMK_XA_VALIDATE_WITH
	                            " set to \"" PCMK_VALUE_NONE "\" is deprecated"
	                            " and will be removed in a future release)\n");
	        }
	    }
	
	    return pcmk_rc_ok;
	}
	
	/*!
	 * \internal
	 * \brief Return a list of all schema files and any associated XSLT files
	 *        later than the given one
	 * \brief Return a list of all schema versions later than the given one
	 *
	 * \param[in] schema The schema to compare against (for example,
	 *                   "pacemaker-3.1.rng" or "pacemaker-3.1")
	 *
	 * \note The caller is responsible for freeing both the returned list and
	 *       the elements of the list
	 */
	GList *
	pcmk__schema_files_later_than(const char *name)
	{
	    GList *lst = NULL;
	    pcmk__schema_version_t ver;
	
	    if (!version_from_filename(name, &ver)) {
	        return lst;
	    }
	
	    for (GList *iter = g_list_nth(known_schemas, xml_latest_schema_index());
	         iter != NULL; iter = iter->prev) {
	        pcmk__schema_t *schema = iter->data;
	
	        if (schema_cmp(ver, schema->version) != -1) {
	            continue;
	        }
	
	        for (GList *iter2 = g_list_last(schema->transforms); iter2 != NULL;
	             iter2 = iter2->prev) {
	
	            const struct dirent *entry = iter2->data;
	
	            lst = g_list_prepend(lst, pcmk__str_copy(entry->d_name));
	        }
	
	        lst = g_list_prepend(lst,
	                             pcmk__assert_asprintf("%s.rng", schema->name));
	    }
	
	    return lst;
	}
	
	static void
	append_href(xmlNode *xml, void *user_data)
	{
	    GList **list = user_data;
	    char *href = pcmk__xe_get_copy(xml, "href");
	
	    if (href == NULL) {
	        return;
	    }
	    *list = g_list_prepend(*list, href);
	}
	
	static void
	external_refs_in_schema(GList **list, const char *contents)
	{
	    /* local-name()= is needed to ignore the xmlns= setting at the top of
	     * the XML file.  Otherwise, the xpath query will always return nothing.
	     */
	    const char *search = "//*[local-name()='externalRef'] | //*[local-name()='include']";
	    xmlNode *xml = pcmk__xml_parse(contents);
	
	    pcmk__xpath_foreach_result(xml->doc, search, append_href, list);
	    pcmk__xml_free(xml);
	}
	
	static int
	read_file_contents(const char *file, char **contents)
	{
	    int rc = pcmk_rc_ok;
	    char *path = NULL;
	
	    if (g_str_has_suffix(file, ".rng")) {
	        path = pcmk__xml_artefact_path(pcmk__xml_artefact_ns_legacy_rng, file);
	    } else {
	        path = pcmk__xml_artefact_path(pcmk__xml_artefact_ns_legacy_xslt, file);
	    }
	
	    rc = pcmk__file_contents(path, contents);
	
	    free(path);
	    return rc;
	}
	
	static void
	add_schema_file_to_xml(xmlNode *parent, const char *file, GList **already_included)
	{
	    char *contents = NULL;
	    char *path = NULL;
	    xmlNode *file_node = NULL;
	    GList *includes = NULL;
	    int rc = pcmk_rc_ok;
	
	    /* If we already included this file, don't do so again. */
	    if (g_list_find_custom(*already_included, file, (GCompareFunc) strcmp) != NULL) {
	        return;
	    }
	
	    /* Ensure whatever file we were given has a suffix we know about.  If not,
	     * just assume it's an RNG file.
	     */
	    if (!g_str_has_suffix(file, ".rng") && !g_str_has_suffix(file, ".xsl")) {
	        path = pcmk__assert_asprintf("%s.rng", file);
	    } else {
	        path = pcmk__str_copy(file);
	    }
	
	    rc = read_file_contents(path, &contents);
	    if (rc != pcmk_rc_ok || contents == NULL) {
	        pcmk__warn("Could not read schema file %s: %s", file, pcmk_rc_str(rc));
	        free(path);
	        return;
	    }
	
	    /* Create a new <file path="..."> node with the contents of the file
	     * as a CDATA block underneath it.
	     */
	    file_node = pcmk__xe_create(parent, PCMK__XE_FILE);
	    pcmk__xe_set(file_node, PCMK_XA_PATH, path);
	    *already_included = g_list_prepend(*already_included, path);
	
	    xmlAddChild(file_node,
	                xmlNewCDataBlock(parent->doc, (const xmlChar *) contents,
	                                 strlen(contents)));
	
	    /* Scan the file for any <externalRef> or <include> nodes and build up
	     * a list of the files they reference.
	     */
	    external_refs_in_schema(&includes, contents);
	
	    /* For each referenced file, recurse to add it (and potentially anything it
	     * references, ...) to the XML.
	     */
	    for (GList *iter = includes; iter != NULL; iter = iter->next) {
	        add_schema_file_to_xml(parent, iter->data, already_included);
	    }
	
	    free(contents);
	    g_list_free_full(includes, free);
	}
	
	/*!
	 * \internal
	 * \brief Add an XML schema file and all the files it references as children
	 *        of a given XML node
	 *
	 * \param[in,out] parent            The parent XML node
	 * \param[in] name                  The schema version to compare against
	 *                                  (for example, "pacemaker-3.1" or "pacemaker-3.1.rng")
	 * \param[in,out] already_included  A list of names that have already been added
	 *                                  to the parent node.
	 *
	 * \note The caller is responsible for freeing both the returned list and
	 *       the elements of the list
	 */
	void
	pcmk__build_schema_xml_node(xmlNode *parent, const char *name, GList **already_included)
	{
	    xmlNode *schema_node = pcmk__xe_create(parent, PCMK__XA_SCHEMA);
	
	    pcmk__xe_set(schema_node, PCMK_XA_VERSION, name);
	    add_schema_file_to_xml(schema_node, name, already_included);
	
	    if (schema_node->children == NULL) {
	        // Not needed if empty. May happen if name was invalid, for example.
	        pcmk__xml_free(schema_node);
	    }
	}
	
	/*!
	 * \internal
	 * \brief Return the directory containing any extra schema files that a
	 *        Pacemaker Remote node fetched from the cluster
	 */
	const char *
	pcmk__remote_schema_dir(void)
	{
	    const char *dir = pcmk__env_option(PCMK__ENV_REMOTE_SCHEMA_DIRECTORY);
	
	    if (pcmk__str_empty(dir)) {
	        return PCMK__REMOTE_SCHEMA_DIR;
	    }
	
	    return dir;
	}
	
	/*!
	 * \internal
	 * \brief Warn if a given validation schema is deprecated
	 *
	 * \param[in] Schema name to check
	 */
	void
	pcmk__warn_if_schema_deprecated(const char *schema)
	{
	    /* @COMPAT Disabling validation is deprecated since 2.1.8, but
	     * resource-agents' ocf-shellfuncs (at least as of 4.15.1) uses it
	     */
	    if (pcmk__str_eq(schema, PCMK_VALUE_NONE, pcmk__str_none)) {
	        pcmk__config_warn("Support for " PCMK_XA_VALIDATE_WITH "='%s' is "
	                          "deprecated and will be removed in a future release "
	                          "without the possibility of upgrades (manually edit "
	                          "to use a supported schema)", schema);
	    }
	}
	
	// Deprecated functions kept only for backward API compatibility
	// LCOV_EXCL_START
	
	#include <crm/common/xml_compat.h>
	
	gboolean
	cli_config_update(xmlNode **xml, int *best_version, gboolean to_logs)
	{
	    int rc = pcmk__update_configured_schema(xml, to_logs);
	
	    if (best_version != NULL) {
	        const char *name = pcmk__xe_get(*xml, PCMK_XA_VALIDATE_WITH);
	
	        if (name == NULL) {
	            *best_version = -1;
	        } else {
	            GList *entry = pcmk__get_schema(name);
	            pcmk__schema_t *schema = (entry == NULL)? NULL : entry->data;
	
	            *best_version = (schema == NULL)? -1 : schema->schema_index;
	        }
	    }
	    return (rc == pcmk_rc_ok)? TRUE: FALSE;
	}
	
	// LCOV_EXCL_STOP
	// End deprecated API