/* * Copyright (c) 2004-2005 The Trustees of Indiana University. * All rights reserved. * Copyright (c) 2004-2011 The Trustees of the University of Tennessee. * All rights reserved. * Copyright (c) 2004-2005 High Performance Computing Center Stuttgart, * University of Stuttgart. All rights reserved. * Copyright (c) 2004-2005 The Regents of the University of California. * All rights reserved. * Copyright (c) 2011-2013 Los Alamos National Security, LLC. * All rights reserved. * $COPYRIGHT$ * * Additional copyrights may follow * * $HEADER$ */ #include "orte_config.h" #ifdef HAVE_STRING_H #include #endif #include #include "orte/runtime/data_type_support/orte_dt_support.h" int orte_dt_compare_std_cntr(orte_std_cntr_t *value1, orte_std_cntr_t *value2, opal_data_type_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } int orte_dt_compare_name(orte_process_name_t *value1, orte_process_name_t *value2, opal_data_type_t type) { if (NULL == value1 && NULL == value2) { return OPAL_EQUAL; } else if (NULL == value1) { return OPAL_VALUE2_GREATER; } else if (NULL == value2) { return OPAL_VALUE1_GREATER; } /* If any of the fields are wildcard, * then we want to just ignore that one field. In the case * of ORTE_NAME_WILDCARD (where ALL of the fields are wildcard), this * will automatically result in OPAL_EQUAL for any name in the other * value - a totally useless result, but consistent in behavior. */ /** check the jobids - if one of them is WILDCARD, then ignore * this field since anything is okay */ if (value1->jobid != ORTE_JOBID_WILDCARD && value2->jobid != ORTE_JOBID_WILDCARD) { if (value1->jobid < value2->jobid) { return OPAL_VALUE2_GREATER; } else if (value1->jobid > value2->jobid) { return OPAL_VALUE1_GREATER; } } /** check the vpids - if one of them is WILDCARD, then ignore * this field since anything is okay */ if (value1->vpid != ORTE_VPID_WILDCARD && value2->vpid != ORTE_VPID_WILDCARD) { if (value1->vpid < value2->vpid) { return OPAL_VALUE2_GREATER; } else if (value1->vpid > value2->vpid) { return OPAL_VALUE1_GREATER; } } /** only way to get here is if all fields are equal or WILDCARD */ return OPAL_EQUAL; } int orte_dt_compare_vpid(orte_vpid_t *value1, orte_vpid_t *value2, opal_data_type_t type) { /** if either value is WILDCARD, then return equal */ if (*value1 == ORTE_VPID_WILDCARD || *value2 == ORTE_VPID_WILDCARD) return OPAL_EQUAL; if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } int orte_dt_compare_jobid(orte_jobid_t *value1, orte_jobid_t *value2, opal_data_type_t type) { /** if either value is WILDCARD, then return equal */ if (*value1 == ORTE_JOBID_WILDCARD || *value2 == ORTE_JOBID_WILDCARD) return OPAL_EQUAL; if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /** * JOB */ int orte_dt_compare_job(orte_job_t *value1, orte_job_t *value2, opal_data_type_t type) { /** check jobids */ if (value1->jobid > value2->jobid) return OPAL_VALUE1_GREATER; if (value1->jobid < value2->jobid) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /** * NODE */ int orte_dt_compare_node(orte_node_t *value1, orte_node_t *value2, opal_data_type_t type) { int test; /** check node names */ test = strcmp(value1->name, value2->name); if (0 == test) return OPAL_EQUAL; if (0 < test) return OPAL_VALUE2_GREATER; return OPAL_VALUE1_GREATER; } /** * PROC */ int orte_dt_compare_proc(orte_proc_t *value1, orte_proc_t *value2, opal_data_type_t type) { orte_ns_cmp_bitmask_t mask; /** check vpids */ mask = ORTE_NS_CMP_VPID; return orte_util_compare_name_fields(mask, &value1->name, &value2->name); } /* * APP CONTEXT */ int orte_dt_compare_app_context(orte_app_context_t *value1, orte_app_context_t *value2, opal_data_type_t type) { if (value1->idx > value2->idx) return OPAL_VALUE1_GREATER; if (value2->idx > value1->idx) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /* * EXIT CODE */ int orte_dt_compare_exit_code(orte_exit_code_t *value1, orte_exit_code_t *value2, opal_data_type_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /* * NODE STATE */ int orte_dt_compare_node_state(orte_node_state_t *value1, orte_node_state_t *value2, orte_node_state_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /* * PROC STATE */ int orte_dt_compare_proc_state(orte_proc_state_t *value1, orte_proc_state_t *value2, orte_proc_state_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /* * JOB STATE */ int orte_dt_compare_job_state(orte_job_state_t *value1, orte_job_state_t *value2, orte_job_state_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /* * JOB_MAP */ int orte_dt_compare_map(orte_job_map_t *value1, orte_job_map_t *value2, opal_data_type_t type) { return OPAL_EQUAL; } /* * RML tags */ int orte_dt_compare_tags(orte_rml_tag_t *value1, orte_rml_tag_t *value2, opal_data_type_t type) { if (*value1 > *value2) { return OPAL_VALUE1_GREATER; } else if (*value1 < *value2) { return OPAL_VALUE2_GREATER; } else { return OPAL_EQUAL; } } /* ORTE_DAEMON_CMD */ int orte_dt_compare_daemon_cmd(orte_daemon_cmd_flag_t *value1, orte_daemon_cmd_flag_t *value2, opal_data_type_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; } /* ORTE_IOF_TAG */ int orte_dt_compare_iof_tag(orte_iof_tag_t *value1, orte_iof_tag_t *value2, opal_data_type_t type) { if (*value1 > *value2) return OPAL_VALUE1_GREATER; if (*value2 > *value1) return OPAL_VALUE2_GREATER; return OPAL_EQUAL; }