/*
	 * 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>                        // bool, true, false
	#include <stdint.h>
	
	#include <crm/pengine/status.h>
	#include <crm/pengine/internal.h>
	#include <pe_status_private.h>
	#include <crm/common/xml.h>
	#include <crm/common/output.h>
	
	typedef struct {
	    int clone_max;
	    int clone_node_max;
	
	    int promoted_max;
	    int promoted_node_max;
	
	    int total_clones;
	
	    uint32_t flags; // Group of enum pcmk__clone_flags
	
	    notify_data_t *stop_notify;
	    notify_data_t *start_notify;
	    notify_data_t *demote_notify;
	    notify_data_t *promote_notify;
	
	    xmlNode *xml_obj_child;
	} clone_variant_data_t;
	
	#define get_clone_variant_data(data, rsc) do {  \
	        pcmk__assert(pcmk__is_clone(rsc));      \
	        data = rsc->priv->variant_opaque;       \
	    } while (0)
	
	/*!
	 * \internal
	 * \brief Return the maximum number of clone instances allowed to be run
	 *
	 * \param[in] clone  Clone or clone instance to check
	 *
	 * \return Maximum instances for \p clone
	 */
	int
	pe__clone_max(const pcmk_resource_t *clone)
	{
	    const clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, pe__const_top_resource(clone, false));
	    return clone_data->clone_max;
	}
	
	/*!
	 * \internal
	 * \brief Return the maximum number of clone instances allowed per node
	 *
	 * \param[in] clone  Promotable clone or clone instance to check
	 *
	 * \return Maximum allowed instances per node for \p clone
	 */
	int
	pe__clone_node_max(const pcmk_resource_t *clone)
	{
	    const clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, pe__const_top_resource(clone, false));
	    return clone_data->clone_node_max;
	}
	
	/*!
	 * \internal
	 * \brief Return the maximum number of clone instances allowed to be promoted
	 *
	 * \param[in] clone  Promotable clone or clone instance to check
	 *
	 * \return Maximum promoted instances for \p clone
	 */
	int
	pe__clone_promoted_max(const pcmk_resource_t *clone)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, pe__const_top_resource(clone, false));
	    return clone_data->promoted_max;
	}
	
	/*!
	 * \internal
	 * \brief Return the maximum number of clone instances allowed to be promoted
	 *
	 * \param[in] clone  Promotable clone or clone instance to check
	 *
	 * \return Maximum promoted instances for \p clone
	 */
	int
	pe__clone_promoted_node_max(const pcmk_resource_t *clone)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, pe__const_top_resource(clone, false));
	    return clone_data->promoted_node_max;
	}
	
	static GList *
	sorted_hash_table_values(GHashTable *table)
	{
	    GList *retval = NULL;
	    GHashTableIter iter;
	    gpointer key, value;
	
	    g_hash_table_iter_init(&iter, table);
	    while (g_hash_table_iter_next(&iter, &key, &value)) {
	        if (!g_list_find_custom(retval, value, (GCompareFunc) strcmp)) {
	            retval = g_list_prepend(retval, (char *) value);
	        }
	    }
	
	    retval = g_list_sort(retval, (GCompareFunc) strcmp);
	    return retval;
	}
	
	static GList *
	nodes_with_status(GHashTable *table, const char *status)
	{
	    GList *retval = NULL;
	    GHashTableIter iter;
	    gpointer key, value;
	
	    g_hash_table_iter_init(&iter, table);
	    while (g_hash_table_iter_next(&iter, &key, &value)) {
	        if (!strcmp((char *) value, status)) {
	            retval = g_list_prepend(retval, key);
	        }
	    }
	
	    retval = g_list_sort(retval, (GCompareFunc) pcmk__numeric_strcasecmp);
	    return retval;
	}
	
	static GString *
	node_list_to_str(const GList *list)
	{
	    GString *retval = NULL;
	
	    for (const GList *iter = list; iter != NULL; iter = iter->next) {
	        pcmk__add_word(&retval, 1024, (const char *) iter->data);
	    }
	
	    return retval;
	}
	
	static void
	clone_header(pcmk__output_t *out, int *rc, const pcmk_resource_t *rsc,
	             clone_variant_data_t *clone_data, const char *desc)
	{
	    GString *attrs = NULL;
	
	    if (pcmk__is_set(rsc->flags, pcmk__rsc_promotable)) {
	        pcmk__add_separated_word(&attrs, 64, "promotable", ", ");
	    }
	
	    if (pcmk__is_set(rsc->flags, pcmk__rsc_unique)) {
	        pcmk__add_separated_word(&attrs, 64, "unique", ", ");
	    }
	
	    if (pe__resource_is_disabled(rsc)) {
	        pcmk__add_separated_word(&attrs, 64, "disabled", ", ");
	    }
	
	    if (pcmk__is_set(rsc->flags, pcmk__rsc_maintenance)) {
	        pcmk__add_separated_word(&attrs, 64, "maintenance", ", ");
	
	    } else if (!pcmk__is_set(rsc->flags, pcmk__rsc_managed)) {
	        pcmk__add_separated_word(&attrs, 64, "unmanaged", ", ");
	    }
	
	    if (attrs != NULL) {
	        PCMK__OUTPUT_LIST_HEADER(out, FALSE, *rc, "Clone Set: %s [%s] (%s)%s%s%s",
	                                 rsc->id,
	                                 pcmk__xe_id(clone_data->xml_obj_child),
	                                 (const char *) attrs->str, desc ? " (" : "",
	                                 desc ? desc : "", desc ? ")" : "");
	        g_string_free(attrs, TRUE);
	    } else {
	        PCMK__OUTPUT_LIST_HEADER(out, FALSE, *rc, "Clone Set: %s [%s]%s%s%s",
	                                 rsc->id,
	                                 pcmk__xe_id(clone_data->xml_obj_child),
	                                 desc ? " (" : "", desc ? desc : "",
	                                 desc ? ")" : "");
	    }
	}
	
	void
	pe__force_anon(const char *standard, pcmk_resource_t *rsc, const char *rid,
	               pcmk_scheduler_t *scheduler)
	{
	    if (pcmk__is_clone(rsc)) {
	        clone_variant_data_t *clone_data = rsc->priv->variant_opaque;
	
	        pcmk__config_warn("Ignoring " PCMK_META_GLOBALLY_UNIQUE " for %s "
	                          "because %s resources such as %s can be used only as "
	                          "anonymous clones", rsc->id, standard, rid);
	
	        clone_data->clone_node_max = 1;
	        clone_data->clone_max = QB_MIN(clone_data->clone_max,
	                                       g_list_length(scheduler->nodes));
	    }
	}
	
	pcmk_resource_t *
	pe__create_clone_child(pcmk_resource_t *rsc, pcmk_scheduler_t *scheduler)
	{
	    bool removed = false;
	    char *inc_num = NULL;
	    char *inc_max = NULL;
	    pcmk_resource_t *child_rsc = NULL;
	    xmlNode *child_copy = NULL;
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, rsc);
	
	    CRM_CHECK(clone_data->xml_obj_child != NULL, return FALSE);
	
	    if (clone_data->total_clones >= clone_data->clone_max) {
	        /* If we've already used all available instances, this instance is
	         * treated as removed
	         */
	        removed = true;
	    }
	
	    // Allocate instance numbers in numerical order (starting at 0)
	    inc_num = pcmk__itoa(clone_data->total_clones);
	    inc_max = pcmk__itoa(clone_data->clone_max);
	
	    child_copy = pcmk__xml_copy(NULL, clone_data->xml_obj_child);
	
	    pcmk__xe_set(child_copy, PCMK__META_CLONE, inc_num);
	
	    if (pe__unpack_resource(child_copy, &child_rsc, rsc,
	                            scheduler) != pcmk_rc_ok) {
	        goto bail;
	    }
	/*  child_rsc->globally_unique = rsc->globally_unique; */
	
	    pcmk__assert(child_rsc != NULL);
	    clone_data->total_clones += 1;
	    pcmk__rsc_trace(child_rsc, "Setting clone attributes for: %s",
	                    child_rsc->id);
	    rsc->priv->children = g_list_append(rsc->priv->children, child_rsc);
	    if (removed) {
	        pe__set_resource_flags_recursive(child_rsc, pcmk__rsc_removed);
	    }
	
	    pcmk__insert_meta(child_rsc->priv, PCMK_META_CLONE_MAX, inc_max);
	    pcmk__rsc_trace(rsc, "Added %s instance %s", rsc->id, child_rsc->id);
	
	  bail:
	    free(inc_num);
	    free(inc_max);
	
	    return child_rsc;
	}
	
	/*!
	 * \internal
	 * \brief Unpack a nonnegative integer value from a resource meta-attribute
	 *
	 * \param[in]  rsc              Resource with meta-attribute
	 * \param[in]  meta_name        Name of meta-attribute to unpack
	 * \param[in]  deprecated_name  If not NULL, try unpacking this
	 *                              if \p meta_name is unset
	 * \param[in]  default_value    Value to use if unset
	 *
	 * \return Integer parsed from resource's specified meta-attribute if a valid
	 *         nonnegative integer, \p default_value if unset, or 0 if invalid
	 */
	static int
	unpack_meta_int(const pcmk_resource_t *rsc, const char *meta_name,
	                const char *deprecated_name, int default_value)
	{
	    int integer = default_value;
	    const char *value = g_hash_table_lookup(rsc->priv->meta, meta_name);
	
	    if ((value == NULL) && (deprecated_name != NULL)) {
	        value = g_hash_table_lookup(rsc->priv->meta, deprecated_name);
	
	        if (value != NULL) {
	            if (pcmk__str_eq(deprecated_name, PCMK__META_PROMOTED_MAX_LEGACY,
	                             pcmk__str_none)) {
	                pcmk__warn_once(pcmk__wo_clone_master_max,
	                                "Support for the " PCMK__META_PROMOTED_MAX_LEGACY
	                                " meta-attribute (such as in %s) is deprecated "
	                                "and will be removed in a future release. Use the "
	                                PCMK_META_PROMOTED_MAX " meta-attribute instead.",
	                                rsc->id);
	            } else if (pcmk__str_eq(deprecated_name, PCMK__META_PROMOTED_NODE_MAX_LEGACY,
	                                    pcmk__str_none)) {
	                pcmk__warn_once(pcmk__wo_clone_master_node_max,
	                                "Support for the " PCMK__META_PROMOTED_NODE_MAX_LEGACY
	                                " meta-attribute (such as in %s) is deprecated "
	                                "and will be removed in a future release. Use the "
	                                PCMK_META_PROMOTED_NODE_MAX " meta-attribute instead.",
	                                rsc->id);
	            }
	        }
	    }
	    if (value != NULL) {
	        pcmk__scan_min_int(value, &integer, 0);
	    }
	    return integer;
	}
	
	bool
	clone_unpack(pcmk_resource_t *rsc)
	{
	    int lpc = 0;
	    int num_nodes = g_list_length(rsc->priv->scheduler->nodes);
	    xmlNode *a_child = NULL;
	    xmlNode *xml_obj = rsc->priv->xml;
	    clone_variant_data_t *clone_data = NULL;
	
	    pcmk__rsc_trace(rsc, "Processing resource %s...", rsc->id);
	
	    clone_data = pcmk__assert_alloc(1, sizeof(clone_variant_data_t));
	    rsc->priv->variant_opaque = clone_data;
	
	    if (pcmk__is_set(rsc->flags, pcmk__rsc_promotable)) {
	        // Use 1 as default but 0 for minimum and invalid
	        // @COMPAT PCMK__META_PROMOTED_MAX_LEGACY deprecated since 2.0.0
	        clone_data->promoted_max =
	            unpack_meta_int(rsc, PCMK_META_PROMOTED_MAX,
	                            PCMK__META_PROMOTED_MAX_LEGACY, 1);
	
	        // Use 1 as default but 0 for minimum and invalid
	        // @COMPAT PCMK__META_PROMOTED_NODE_MAX_LEGACY deprecated since 2.0.0
	        clone_data->promoted_node_max =
	            unpack_meta_int(rsc, PCMK_META_PROMOTED_NODE_MAX,
	                            PCMK__META_PROMOTED_NODE_MAX_LEGACY, 1);
	    }
	
	    // Use 1 as default but 0 for minimum and invalid
	    clone_data->clone_node_max = unpack_meta_int(rsc, PCMK_META_CLONE_NODE_MAX,
	                                                 NULL, 1);
	
	    /* Use number of nodes (but always at least 1, which is handy for crm_verify
	     * for a CIB without nodes) as default, but 0 for minimum and invalid
	     *
	     * @TODO Exclude bundle nodes when counting
	     */
	    clone_data->clone_max = unpack_meta_int(rsc, PCMK_META_CLONE_MAX, NULL,
	                                            QB_MAX(1, num_nodes));
	
	    if (pcmk__is_true(g_hash_table_lookup(rsc->priv->meta,
	                                          PCMK_META_ORDERED))) {
	        clone_data->flags = pcmk__set_flags_as(__func__, __LINE__, LOG_TRACE,
	                                               "Clone", rsc->id,
	                                               clone_data->flags,
	                                               pcmk__clone_ordered,
	                                               "pcmk__clone_ordered");
	    }
	
	    if (!pcmk__is_set(rsc->flags, pcmk__rsc_unique)
	        && (clone_data->clone_node_max > 1)) {
	
	        pcmk__config_err("Ignoring " PCMK_META_CLONE_NODE_MAX " of %d for %s "
	                         "because anonymous clones support only one instance "
	                         "per node", clone_data->clone_node_max, rsc->id);
	        clone_data->clone_node_max = 1;
	    }
	
	    pcmk__rsc_trace(rsc, "Options for %s", rsc->id);
	    pcmk__rsc_trace(rsc, "\tClone max: %d", clone_data->clone_max);
	    pcmk__rsc_trace(rsc, "\tClone node max: %d", clone_data->clone_node_max);
	    pcmk__rsc_trace(rsc, "\tClone is unique: %s",
	                    pcmk__flag_text(rsc->flags, pcmk__rsc_unique));
	    pcmk__rsc_trace(rsc, "\tClone is promotable: %s",
	                    pcmk__flag_text(rsc->flags, pcmk__rsc_promotable));
	
	    // Clones may contain a single group or primitive
	    for (a_child = pcmk__xe_first_child(xml_obj, NULL, NULL, NULL);
	         a_child != NULL; a_child = pcmk__xe_next(a_child, NULL)) {
	
	        if (pcmk__str_any_of((const char *) a_child->name,
	                             PCMK_XE_PRIMITIVE, PCMK_XE_GROUP, NULL)) {
	            clone_data->xml_obj_child = a_child;
	            break;
	        }
	    }
	
	    if (clone_data->xml_obj_child == NULL) {
	        pcmk__config_err("%s has nothing to clone", rsc->id);
	        return FALSE;
	    }
	
	    /*
	     * Make clones ever so slightly sticky by default
	     *
	     * This helps ensure clone instances are not shuffled around the cluster
	     * for no benefit in situations when pre-allocation is not appropriate
	     */
	    if (g_hash_table_lookup(rsc->priv->meta,
	                            PCMK_META_RESOURCE_STICKINESS) == NULL) {
	        pcmk__insert_meta(rsc->priv, PCMK_META_RESOURCE_STICKINESS, "1");
	    }
	
	    /* This ensures that the PCMK_META_GLOBALLY_UNIQUE value always exists for
	     * children to inherit when being unpacked, as well as in resource agents'
	     * environment.
	     */
	    pcmk__insert_meta(rsc->priv, PCMK_META_GLOBALLY_UNIQUE,
	                      pcmk__flag_text(rsc->flags, pcmk__rsc_unique));
	
	    if (clone_data->clone_max <= 0) {
	        /* Create one child instance so that unpack_find_resource() will hook up
	         * any removed instances up to the parent correctly.
	         */
	        if (pe__create_clone_child(rsc, rsc->priv->scheduler) == NULL) {
	            return FALSE;
	        }
	
	    } else {
	        // Create a child instance for each available instance number
	        for (lpc = 0; lpc < clone_data->clone_max; lpc++) {
	            if (pe__create_clone_child(rsc, rsc->priv->scheduler) == NULL) {
	                return FALSE;
	            }
	        }
	    }
	
	    pcmk__rsc_trace(rsc, "Added %d children to resource %s...",
	                    clone_data->clone_max, rsc->id);
	    return TRUE;
	}
	
	bool
	clone_active(const pcmk_resource_t *rsc, bool all)
	{
	    for (GList *gIter = rsc->priv->children;
	         gIter != NULL; gIter = gIter->next) {
	
	        pcmk_resource_t *child_rsc = (pcmk_resource_t *) gIter->data;
	        bool child_active = child_rsc->priv->fns->active(child_rsc, all);
	
	        if (all == FALSE && child_active) {
	            return TRUE;
	        } else if (all && child_active == FALSE) {
	            return FALSE;
	        }
	    }
	
	    if (all) {
	        return TRUE;
	    } else {
	        return FALSE;
	    }
	}
	
	static const char *
	configured_role_str(pcmk_resource_t * rsc)
	{
	    const char *target_role = g_hash_table_lookup(rsc->priv->meta,
	                                                  PCMK_META_TARGET_ROLE);
	
	    if ((target_role == NULL) && (rsc->priv->children != NULL)) {
	        // Any instance will do
	        pcmk_resource_t *instance = rsc->priv->children->data;
	
	        target_role = g_hash_table_lookup(instance->priv->meta,
	                                          PCMK_META_TARGET_ROLE);
	    }
	    return target_role;
	}
	
	static enum rsc_role_e
	configured_role(pcmk_resource_t *rsc)
	{
	    enum rsc_role_e role = pcmk_role_unknown;
	    const char *target_role = configured_role_str(rsc);
	
	    if (target_role != NULL) {
	        role = pcmk_parse_role(target_role);
	        if (role == pcmk_role_unknown) {
	            pcmk__config_err("Invalid " PCMK_META_TARGET_ROLE
	                             " for resource %s", rsc->id);
	        }
	    }
	    return role;
	}
	
	bool
	is_set_recursive(const pcmk_resource_t *rsc, long long flag, bool any)
	{
	    bool all = !any;
	
	    if (pcmk__is_set(rsc->flags, flag)) {
	        if(any) {
	            return TRUE;
	        }
	    } else if(all) {
	        return FALSE;
	    }
	
	    for (GList *gIter = rsc->priv->children;
	         gIter != NULL; gIter = gIter->next) {
	
	        if(is_set_recursive(gIter->data, flag, any)) {
	            if(any) {
	                return TRUE;
	            }
	
	        } else if(all) {
	            return FALSE;
	        }
	    }
	
	    if(all) {
	        return TRUE;
	    }
	    return FALSE;
	}
	
	PCMK__OUTPUT_ARGS("clone", "uint32_t", "pcmk_resource_t *", "GList *",
	                  "GList *")
	int
	pe__clone_xml(pcmk__output_t *out, va_list args)
	{
	    uint32_t show_opts = va_arg(args, uint32_t);
	    pcmk_resource_t *rsc = va_arg(args, pcmk_resource_t *);
	    GList *only_node = va_arg(args, GList *);
	    GList *only_rsc = va_arg(args, GList *);
	
	    GList *all = NULL;
	    int rc = pcmk_rc_no_output;
	    gboolean printed_header = FALSE;
	    bool print_everything = true;
	
	    if (rsc->priv->fns->is_filtered(rsc, only_rsc, true)) {
	        return rc;
	    }
	
	    print_everything = pcmk__str_in_list(rsc_printable_id(rsc), only_rsc,
	                                         pcmk__str_star_matches)
	                       || ((strchr(rsc->id, ':') != NULL)
	                           && pcmk__str_in_list(rsc->id, only_rsc,
	                                                pcmk__str_star_matches));
	
	    all = g_list_prepend(all, (gpointer) "*");
	
	    for (GList *gIter = rsc->priv->children;
	         gIter != NULL; gIter = gIter->next) {
	
	        pcmk_resource_t *child_rsc = (pcmk_resource_t *) gIter->data;
	
	        if (pcmk__rsc_filtered_by_node(child_rsc, only_node)) {
	            continue;
	        }
	
	        if (child_rsc->priv->fns->is_filtered(child_rsc, only_rsc,
	                                              print_everything)) {
	            continue;
	        }
	
	        if (!printed_header) {
	            const char *multi_state = pcmk__flag_text(rsc->flags,
	                                                      pcmk__rsc_promotable);
	            const char *unique = pcmk__flag_text(rsc->flags, pcmk__rsc_unique);
	            const char *maintenance = pcmk__flag_text(rsc->flags,
	                                                      pcmk__rsc_maintenance);
	            const char *managed = pcmk__flag_text(rsc->flags,
	                                                  pcmk__rsc_managed);
	            const char *disabled = pcmk__btoa(pe__resource_is_disabled(rsc));
	            const char *failed = pcmk__flag_text(rsc->flags, pcmk__rsc_failed);
	            const char *ignored = pcmk__flag_text(rsc->flags,
	                                                  pcmk__rsc_ignore_failure);
	            const char *target_role = configured_role_str(rsc);
	            const char *desc = pe__resource_description(rsc, show_opts);
	
	            printed_header = TRUE;
	
	            rc = pe__name_and_nvpairs_xml(out, true, PCMK_XE_CLONE,
	                                          PCMK_XA_ID, rsc->id,
	                                          PCMK_XA_MULTI_STATE, multi_state,
	                                          PCMK_XA_UNIQUE, unique,
	                                          PCMK_XA_MAINTENANCE, maintenance,
	                                          PCMK_XA_MANAGED, managed,
	                                          PCMK_XA_DISABLED, disabled,
	                                          PCMK_XA_FAILED, failed,
	                                          PCMK_XA_FAILURE_IGNORED, ignored,
	                                          PCMK_XA_TARGET_ROLE, target_role,
	                                          PCMK_XA_DESCRIPTION, desc,
	                                          NULL);
	            pcmk__assert(rc == pcmk_rc_ok);
	        }
	
	        out->message(out, (const char *) child_rsc->priv->xml->name,
	                     show_opts, child_rsc, only_node, all);
	    }
	
	    if (printed_header) {
	        pcmk__output_xml_pop_parent(out);
	    }
	
	    g_list_free(all);
	    return rc;
	}
	
	PCMK__OUTPUT_ARGS("clone", "uint32_t", "pcmk_resource_t *", "GList *",
	                  "GList *")
	int
	pe__clone_default(pcmk__output_t *out, va_list args)
	{
	    uint32_t show_opts = va_arg(args, uint32_t);
	    pcmk_resource_t *rsc = va_arg(args, pcmk_resource_t *);
	    GList *only_node = va_arg(args, GList *);
	    GList *only_rsc = va_arg(args, GList *);
	
	    GHashTable *stopped = NULL;
	
	    GString *list_text = NULL;
	
	    GList *promoted_list = NULL;
	    GList *started_list = NULL;
	    GList *gIter = NULL;
	
	    const char *desc = NULL;
	
	    clone_variant_data_t *clone_data = NULL;
	    int active_instances = 0;
	    int rc = pcmk_rc_no_output;
	    gboolean print_everything = TRUE;
	
	    desc = pe__resource_description(rsc, show_opts);
	

	    get_clone_variant_data(clone_data, rsc);
	

	    if (rsc->priv->fns->is_filtered(rsc, only_rsc, true)) {
	        return rc;
	    }
	

	    print_everything = pcmk__str_in_list(rsc_printable_id(rsc), only_rsc,
	                                         pcmk__str_star_matches)
	                       || ((strchr(rsc->id, ':') != NULL)
	                           && pcmk__str_in_list(rsc->id, only_rsc,
	                                                pcmk__str_star_matches));
	

	    for (gIter = rsc->priv->children; gIter != NULL; gIter = gIter->next) {
	        gboolean print_full = FALSE;
	        pcmk_resource_t *child_rsc = (pcmk_resource_t *) gIter->data;
	        bool partially_active = child_rsc->priv->fns->active(child_rsc, false);
	

	        if (pcmk__rsc_filtered_by_node(child_rsc, only_node)) {
	            continue;
	        }
	

	        if (child_rsc->priv->fns->is_filtered(child_rsc, only_rsc,
	                                              print_everything)) {

	            continue;
	        }
	

	        if (pcmk__is_set(show_opts, pcmk_show_clone_detail)) {
	            print_full = TRUE;
	        }
	

	        if (pcmk__is_set(rsc->flags, pcmk__rsc_unique)) {
	            // Print individual instance when unique, unless stopped and removed

	            if (partially_active
	                || !pcmk__is_set(rsc->flags, pcmk__rsc_removed)) {
	                print_full = TRUE;
	            }
	
	        // Everything else in this block is for anonymous clones
	

	        } else if (pcmk__is_set(show_opts, pcmk_show_pending)
	                   && (child_rsc->priv->pending_action != NULL)
	                   && (strcmp(child_rsc->priv->pending_action,
	                              "probe") != 0)) {
	            // Print individual instance when non-probe action is pending
	            print_full = TRUE;
	

	        } else if (partially_active == FALSE) {
	            // List stopped instances when requested (except removed instances)

	            if (!pcmk__is_set(child_rsc->flags, pcmk__rsc_removed)
	                && !pcmk__is_set(show_opts, pcmk_show_clone_detail)
	                && pcmk__is_set(show_opts, pcmk_show_inactive_rscs)) {

	                if (stopped == NULL) {
	                    stopped = pcmk__strkey_table(free, free);
	                }
	                pcmk__insert_dup(stopped, child_rsc->id, "Stopped");
	            }
	

	        } else if (is_set_recursive(child_rsc, pcmk__rsc_removed, TRUE)
	                   || !is_set_recursive(child_rsc, pcmk__rsc_managed, FALSE)
	                   || is_set_recursive(child_rsc, pcmk__rsc_failed, TRUE)) {
	
	            // Print individual instance when active removed/unmanaged/failed
	            print_full = TRUE;
	
	        } else if (child_rsc->priv->fns->active(child_rsc, true)) {
	            // Instance of fully active anonymous clone
	
	            pcmk_node_t *location = NULL;
	
	            location = child_rsc->priv->fns->location(child_rsc, NULL,
	                                                      pcmk__rsc_node_current);
	            if (location) {
	                // Instance is active on a single node
	
	                enum rsc_role_e a_role;
	
	                a_role = child_rsc->priv->fns->state(child_rsc, TRUE);
	
	                if (location->details->online == FALSE && location->details->unclean) {
	                    print_full = TRUE;
	
	                } else if (a_role > pcmk_role_unpromoted) {
	                    promoted_list = g_list_append(promoted_list, location);
	
	                } else {
	                    started_list = g_list_append(started_list, location);
	                }
	
	            } else {
	                /* uncolocated group - bleh */
	                print_full = TRUE;
	            }
	
	        } else {
	            // Instance of partially active anonymous clone
	            print_full = TRUE;
	        }
	

	        if (print_full) {
	            GList *all = NULL;
	
	            clone_header(out, &rc, rsc, clone_data, desc);
	
	            /* Print every resource that's a child of this clone. */
	            all = g_list_prepend(all, (gpointer) "*");
	            out->message(out, (const char *) child_rsc->priv->xml->name,
	                         show_opts, child_rsc, only_node, all);
	            g_list_free(all);
	        }

	    }
	

	    if (pcmk__is_set(show_opts, pcmk_show_clone_detail)) {
	        PCMK__OUTPUT_LIST_FOOTER(out, rc);
	
	        g_list_free(promoted_list);
	        g_list_free(started_list);
	        return pcmk_rc_ok;
	    }
	
	    /* Promoted */
	    promoted_list = g_list_sort(promoted_list, pe__cmp_node_name);

	    for (gIter = promoted_list; gIter; gIter = gIter->next) {
	        pcmk_node_t *host = gIter->data;
	

	        if (!pcmk__str_in_list(host->priv->name, only_node,
	                               pcmk__str_star_matches|pcmk__str_casei)) {

	            continue;
	        }
	
	        pcmk__add_word(&list_text, 1024, host->priv->name);
	        active_instances++;

	    }
	    g_list_free(promoted_list);
	

	    if ((list_text != NULL) && (list_text->len > 0)) {
	        clone_header(out, &rc, rsc, clone_data, desc);
	
	        out->list_item(out, NULL, PCMK_ROLE_PROMOTED ": [ %s ]",
	                       (const char *) list_text->str);
	        g_string_truncate(list_text, 0);
	    }
	
	    /* Started/Unpromoted */
	    started_list = g_list_sort(started_list, pe__cmp_node_name);

	    for (gIter = started_list; gIter; gIter = gIter->next) {
	        pcmk_node_t *host = gIter->data;
	

	        if (!pcmk__str_in_list(host->priv->name, only_node,
	                               pcmk__str_star_matches|pcmk__str_casei)) {

	            continue;
	        }
	
	        pcmk__add_word(&list_text, 1024, host->priv->name);
	        active_instances++;

	    }
	    g_list_free(started_list);
	

	    if ((list_text != NULL) && (list_text->len > 0)) {
	        clone_header(out, &rc, rsc, clone_data, desc);
	
	        if (pcmk__is_set(rsc->flags, pcmk__rsc_promotable)) {
	            enum rsc_role_e role = configured_role(rsc);
	
	            if (role == pcmk_role_unpromoted) {
	                out->list_item(out, NULL,
	                               PCMK_ROLE_UNPROMOTED
	                               " (" PCMK_META_TARGET_ROLE "): [ %s ]",
	                               (const char *) list_text->str);
	            } else {
	                out->list_item(out, NULL, PCMK_ROLE_UNPROMOTED ": [ %s ]",
	                               (const char *) list_text->str);
	            }
	
	        } else {
	            out->list_item(out, NULL, "Started: [ %s ]",
	                           (const char *) list_text->str);
	        }
	    }
	

	    if (list_text != NULL) {
	        g_string_free(list_text, TRUE);
	    }
	

	    if (pcmk__is_set(show_opts, pcmk_show_inactive_rscs)) {

	        if (!pcmk__is_set(rsc->flags, pcmk__rsc_unique)
	            && (clone_data->clone_max > active_instances)) {
	
	            GList *nIter;
	            GList *list = g_hash_table_get_values(rsc->priv->allowed_nodes);
	
	            /* Custom stopped table for non-unique clones */

	            g_clear_pointer(&stopped, g_hash_table_destroy);
	
	            if (list == NULL) {
	                /* Clusters with PCMK_OPT_SYMMETRIC_CLUSTER=false haven't
	                 * calculated allowed nodes yet. If we've not probed for them
	                 * yet, the Stopped list will be empty.
	                 */
	                list = g_hash_table_get_values(rsc->priv->probed_nodes);
	            }
	
	            list = g_list_sort(list, pe__cmp_node_name);
	            for (nIter = list; nIter != NULL; nIter = nIter->next) {
	                pcmk_node_t *node = (pcmk_node_t *) nIter->data;
	
	                if ((pcmk__find_node_in_list(rsc->priv->active_nodes,
	                                             node->priv->name) == NULL)
	                    && pcmk__str_in_list(node->priv->name, only_node,
	                                         pcmk__str_star_matches|pcmk__str_casei)) {
	
	                    xmlNode *probe_op = NULL;
	                    const char *state = "Stopped";
	
	                    if (configured_role(rsc) == pcmk_role_stopped) {
	                        state = "Stopped (disabled)";
	                    }
	
	                    if (stopped == NULL) {
	                        stopped = pcmk__strkey_table(free, free);
	                    }
	
	                    probe_op = pe__failed_probe_for_rsc(rsc,
	                                                        node->priv->name);
	                    if (probe_op != NULL) {
	                        int rc = pcmk_rc_ok;
	                        char *key = pcmk__str_copy(node->priv->name);
	                        char *value = NULL;
	
	                        pcmk__scan_min_int(pcmk__xe_get(probe_op,
	                                                        PCMK__XA_RC_CODE),
	                                           &rc, 0);
	                        value = pcmk__assert_asprintf("Stopped (%s)",
	                                                      crm_exit_str(rc));
	                        g_hash_table_insert(stopped, key, value);
	
	                    } else {
	                        pcmk__insert_dup(stopped, node->priv->name, state);
	                    }
	                }
	            }
	            g_list_free(list);
	        }
	
	        if (stopped != NULL) {
	            GList *list = sorted_hash_table_values(stopped);
	
	            clone_header(out, &rc, rsc, clone_data, desc);
	
	            for (GList *status_iter = list; status_iter != NULL; status_iter = status_iter->next) {
	                const char *status = status_iter->data;
	                GList *nodes = nodes_with_status(stopped, status);
	                GString *nodes_str = node_list_to_str(nodes);
	
	                if (nodes_str != NULL) {
	                    if (nodes_str->len > 0) {
	                        out->list_item(out, NULL, "%s: [ %s ]", status,
	                                       (const char *) nodes_str->str);
	                    }
	                    g_string_free(nodes_str, TRUE);
	                }
	
	                g_list_free(nodes);
	            }
	
	            g_list_free(list);
	            g_hash_table_destroy(stopped);
	
	        /* If there are no instances of this clone (perhaps because there are no
	         * nodes configured), simply output the clone header by itself.  This can
	         * come up in PCS testing.
	         */
	        } else if (active_instances == 0) {
	            clone_header(out, &rc, rsc, clone_data, desc);
	            PCMK__OUTPUT_LIST_FOOTER(out, rc);
	            return rc;
	        }
	    }
	
	    PCMK__OUTPUT_LIST_FOOTER(out, rc);
	    return rc;
	}
	
	void
	clone_free(pcmk_resource_t * rsc)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, rsc);
	
	    pcmk__rsc_trace(rsc, "Freeing %s", rsc->id);
	
	    for (GList *gIter = rsc->priv->children;
	         gIter != NULL; gIter = gIter->next) {
	
	        pcmk_resource_t *child_rsc = (pcmk_resource_t *) gIter->data;
	
	        pcmk__assert(child_rsc != NULL);
	        pcmk__rsc_trace(child_rsc, "Freeing child %s", child_rsc->id);
	        g_clear_pointer(&child_rsc->priv->xml, pcmk__xml_free);
	
	        /* There could be a saved unexpanded xml */
	        g_clear_pointer(&child_rsc->priv->orig_xml, pcmk__xml_free);
	
	        pcmk__free_resource(child_rsc);
	    }
	
	    g_list_free(rsc->priv->children);
	
	    if (clone_data) {
	        pcmk__assert((clone_data->demote_notify == NULL)
	                     && (clone_data->stop_notify == NULL)
	                     && (clone_data->start_notify == NULL)
	                     && (clone_data->promote_notify == NULL));
	    }
	
	    common_free(rsc);
	}
	
	enum rsc_role_e
	clone_resource_state(const pcmk_resource_t *rsc, bool current)
	{
	    enum rsc_role_e clone_role = pcmk_role_unknown;
	
	    for (GList *gIter = rsc->priv->children;
	         gIter != NULL; gIter = gIter->next) {
	
	        pcmk_resource_t *child_rsc = (pcmk_resource_t *) gIter->data;
	        enum rsc_role_e a_role = child_rsc->priv->fns->state(child_rsc,
	                                                             current);
	
	        if (a_role > clone_role) {
	            clone_role = a_role;
	        }
	    }
	
	    pcmk__rsc_trace(rsc, "%s role: %s", rsc->id, pcmk_role_text(clone_role));
	    return clone_role;
	}
	
	/*!
	 * \internal
	 * \brief Check whether a clone has an instance for every node
	 *
	 * \param[in] rsc        Clone to check
	 * \param[in] scheduler  Scheduler data
	 */
	bool
	pe__is_universal_clone(const pcmk_resource_t *rsc,
	                       const pcmk_scheduler_t *scheduler)
	{
	    if (pcmk__is_clone(rsc)) {
	        clone_variant_data_t *clone_data = rsc->priv->variant_opaque;
	
	        if (clone_data->clone_max == g_list_length(scheduler->nodes)) {
	            return TRUE;
	        }
	    }
	    return FALSE;
	}
	
	bool
	pe__clone_is_filtered(const pcmk_resource_t *rsc, const GList *only_rsc,
	                      bool check_parent)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    if (pcmk__str_in_list(rsc_printable_id(rsc), only_rsc,
	                          pcmk__str_star_matches)) {
	        return false;
	    }
	
	    get_clone_variant_data(clone_data, rsc);
	
	    if (pcmk__str_in_list(pcmk__xe_id(clone_data->xml_obj_child), only_rsc,
	                          pcmk__str_star_matches)) {
	        return false;
	    }
	
	    for (const GList *iter = rsc->priv->children; iter != NULL;
	         iter = iter->next) {
	
	        const pcmk_resource_t *child_rsc = iter->data;
	
	        if (!child_rsc->priv->fns->is_filtered(child_rsc, only_rsc, false)) {
	            return false;
	        }
	    }
	
	    return true;
	}
	
	const char *
	pe__clone_child_id(const pcmk_resource_t *rsc)
	{
	    clone_variant_data_t *clone_data = NULL;
	    get_clone_variant_data(clone_data, rsc);
	    return pcmk__xe_id(clone_data->xml_obj_child);
	}
	
	/*!
	 * \internal
	 * \brief Check whether a clone is ordered
	 *
	 * \param[in] clone  Clone resource to check
	 *
	 * \return true if clone is ordered, otherwise false
	 */
	bool
	pe__clone_is_ordered(const pcmk_resource_t *clone)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	    return pcmk__is_set(clone_data->flags, pcmk__clone_ordered);
	}
	
	/*!
	 * \internal
	 * \brief Set a clone flag
	 *
	 * \param[in,out] clone  Clone resource to set flag for
	 * \param[in]     flag   Clone flag to set
	 *
	 * \return Standard Pacemaker return code (either pcmk_rc_ok if flag was not
	 *         already set or pcmk_rc_already if it was)
	 */
	int
	pe__set_clone_flag(pcmk_resource_t *clone, enum pcmk__clone_flags flag)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	    if (pcmk__is_set(clone_data->flags, flag)) {
	        return pcmk_rc_already;
	    }
	    clone_data->flags = pcmk__set_flags_as(__func__, __LINE__, LOG_TRACE,
	                                           "Clone", clone->id,
	                                           clone_data->flags, flag, "flag");
	    return pcmk_rc_ok;
	}
	
	/*!
	 * \internal
	 * \brief Check whether a clone flag is set
	 *
	 * \param[in] group  Clone resource to check
	 * \param[in] flags  Flag or flags to check
	 *
	 * \return \c true if all \p flags are set for \p clone, otherwise \c false
	 */
	bool
	pe__clone_flag_is_set(const pcmk_resource_t *clone, uint32_t flags)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	    pcmk__assert(clone_data != NULL);
	
	    return pcmk__all_flags_set(clone_data->flags, flags);
	}
	
	/*!
	 * \internal
	 * \brief Create pseudo-actions needed for promotable clones
	 *
	 * \param[in,out] clone          Promotable clone to create actions for
	 * \param[in]     any_promoting  Whether any instances will be promoted
	 * \param[in]     any_demoting   Whether any instance will be demoted
	 */
	void
	pe__create_promotable_pseudo_ops(pcmk_resource_t *clone, bool any_promoting,
	                                 bool any_demoting)
	{
	    pcmk_action_t *action = NULL;
	    pcmk_action_t *action_complete = NULL;
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	
	    // Create a "promote" action for the clone itself
	    action = pe__new_rsc_pseudo_action(clone, PCMK_ACTION_PROMOTE,
	                                       !any_promoting, true);
	
	    // Create a "promoted" action for when all promotions are done
	    action_complete = pe__new_rsc_pseudo_action(clone, PCMK_ACTION_PROMOTED,
	                                                !any_promoting, true);
	    action_complete->priority = PCMK_SCORE_INFINITY;
	
	    // Create notification pseudo-actions for promotion
	    if (clone_data->promote_notify == NULL) {
	        clone_data->promote_notify = pe__action_notif_pseudo_ops(clone,
	                                                                 PCMK_ACTION_PROMOTE,
	                                                                 action,
	                                                                 action_complete);
	    }
	
	    // Create a "demote" action for the clone itself
	    action = pe__new_rsc_pseudo_action(clone, PCMK_ACTION_DEMOTE,
	                                       !any_demoting, true);
	
	    // Create a "demoted" action for when all demotions are done
	    action_complete = pe__new_rsc_pseudo_action(clone, PCMK_ACTION_DEMOTED,
	                                                !any_demoting, true);
	    action_complete->priority = PCMK_SCORE_INFINITY;
	
	    // Create notification pseudo-actions for demotion
	    if (clone_data->demote_notify == NULL) {
	        clone_data->demote_notify = pe__action_notif_pseudo_ops(clone,
	                                                                PCMK_ACTION_DEMOTE,
	                                                                action,
	                                                                action_complete);
	
	        if (clone_data->promote_notify != NULL) {
	            order_actions(clone_data->stop_notify->post_done,
	                          clone_data->promote_notify->pre, pcmk__ar_ordered);
	            order_actions(clone_data->start_notify->post_done,
	                          clone_data->promote_notify->pre, pcmk__ar_ordered);
	            order_actions(clone_data->demote_notify->post_done,
	                          clone_data->promote_notify->pre, pcmk__ar_ordered);
	            order_actions(clone_data->demote_notify->post_done,
	                          clone_data->start_notify->pre, pcmk__ar_ordered);
	            order_actions(clone_data->demote_notify->post_done,
	                          clone_data->stop_notify->pre, pcmk__ar_ordered);
	        }
	    }
	}
	
	/*!
	 * \internal
	 * \brief Create all notification data and actions for a clone
	 *
	 * \param[in,out] clone  Clone to create notifications for
	 */
	void
	pe__create_clone_notifications(pcmk_resource_t *clone)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	
	    pe__create_action_notifications(clone, clone_data->start_notify);
	    pe__create_action_notifications(clone, clone_data->stop_notify);
	    pe__create_action_notifications(clone, clone_data->promote_notify);
	    pe__create_action_notifications(clone, clone_data->demote_notify);
	}
	
	/*!
	 * \internal
	 * \brief Free all notification data for a clone
	 *
	 * \param[in,out] clone  Clone to free notification data for
	 */
	void
	pe__free_clone_notification_data(pcmk_resource_t *clone)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	
	    g_clear_pointer(&clone_data->demote_notify,
	                    pe__free_action_notification_data);
	    g_clear_pointer(&clone_data->stop_notify,
	                    pe__free_action_notification_data);
	    g_clear_pointer(&clone_data->start_notify,
	                    pe__free_action_notification_data);
	    g_clear_pointer(&clone_data->promote_notify,
	                    pe__free_action_notification_data);
	}
	
	/*!
	 * \internal
	 * \brief Create pseudo-actions for clone start/stop notifications
	 *
	 * \param[in,out] clone    Clone to create pseudo-actions for
	 * \param[in,out] start    Start action for \p clone
	 * \param[in,out] stop     Stop action for \p clone
	 * \param[in,out] started  Started action for \p clone
	 * \param[in,out] stopped  Stopped action for \p clone
	 */
	void
	pe__create_clone_notif_pseudo_ops(pcmk_resource_t *clone,
	                                  pcmk_action_t *start, pcmk_action_t *started,
	                                  pcmk_action_t *stop, pcmk_action_t *stopped)
	{
	    clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, clone);
	
	    if (clone_data->start_notify == NULL) {
	        clone_data->start_notify = pe__action_notif_pseudo_ops(clone,
	                                                               PCMK_ACTION_START,
	                                                               start, started);
	    }
	
	    if (clone_data->stop_notify == NULL) {
	        clone_data->stop_notify = pe__action_notif_pseudo_ops(clone,
	                                                              PCMK_ACTION_STOP,
	                                                              stop, stopped);
	        if ((clone_data->start_notify != NULL)
	            && (clone_data->stop_notify != NULL)) {
	            order_actions(clone_data->stop_notify->post_done,
	                          clone_data->start_notify->pre, pcmk__ar_ordered);
	        }
	    }
	}
	
	/*!
	 * \internal
	 * \brief Get maximum clone resource instances per node
	 *
	 * \param[in] rsc  Clone resource to check
	 *
	 * \return Maximum number of \p rsc instances that can be active on one node
	 */
	unsigned int
	pe__clone_max_per_node(const pcmk_resource_t *rsc)
	{
	    const clone_variant_data_t *clone_data = NULL;
	
	    get_clone_variant_data(clone_data, rsc);
	    return clone_data->clone_node_max;
	}