void clone_rsc_colocation_lh(rsc_colocation_t *constraint)
void clone_rsc_colocation_lh( resource_t *rsc_lh, resource_t *rsc_rh, rsc_colocation_t *constraint)
void clone_rsc_colocation_lh(rsc_colocation_t *constraint){	gboolean do_interleave = FALSE;	resource_t *rsc = constraint->rsc_lh;	clone_variant_data_t *clone_data = NULL;	clone_variant_data_t *clone_data_rh = NULL;		if(rsc == NULL) {		pe_err("rsc_lh was NULL for %s", constraint->id);		return;	} else if(constraint->rsc_rh == NULL) {		pe_err("rsc_rh was NULL for %s", constraint->id);		return;			} else {		crm_debug_4("Processing constraints from %s", rsc->id);	}		get_clone_variant_data(clone_data, rsc);	if(constraint->rsc_rh->variant == pe_clone) {		get_clone_variant_data(			clone_data_rh, constraint->rsc_rh);		if(clone_data->clone_max_node		   != clone_data_rh->clone_max_node) {			pe_err("Cannot interleave "XML_CIB_TAG_INCARNATION" %s and %s because"			       " they do not support the same number of"			       " resources per node",			       constraint->rsc_lh->id, constraint->rsc_rh->id);					/* only the LHS side needs to be labeled as interleave */		} else if(clone_data->interleave) {			do_interleave = TRUE;		}	}		if(do_interleave) {		resource_t *child_lh = NULL;		resource_t *child_rh = NULL;		resource_t *parent_rh = constraint->rsc_rh;				GListPtr iter_lh = clone_data->child_list;		GListPtr iter_rh = clone_data_rh->child_list;		crm_debug_2("Interleaving %s with %s",			    constraint->rsc_lh->id, constraint->rsc_rh->id);		/* If the resource have different numbers of incarnations,		 *   then just do as many as are available		 */		while(iter_lh != NULL && iter_rh != NULL) {			child_lh = iter_lh->data;			child_rh = iter_rh->data;			iter_lh = iter_lh->next;			iter_rh = iter_rh->next;						constraint->rsc_rh = child_rh;			crm_debug_3("Colocating %s with %s", child_lh->id, child_rh->id);			child_rh->fns->rsc_colocation_rh(child_lh, constraint);		}		/* restore the original RHS of the constraint */		constraint->rsc_rh = parent_rh;		return;	} else if(constraint->strength != pecs_must_not) {		pe_warn("rsc_colocations other than \"-INFINITY\""			 " are not supported for non-interleaved"			" "XML_CIB_TAG_INCARNATION" resources");		return;	}		slist_iter(		child_rsc, resource_t, clone_data->child_list, lpc,				crm_action_debug_3(print_resource("LHS", child_rsc, TRUE));		child_rsc->fns->rsc_colocation_rh(child_rsc, constraint);		);}