Add a new MCA parameter for default_dash_host to offer a mirror of the default_hostfile

orte/runtime/orte_globals.c

@@ -155,6 +155,7 @@ bool orte_default_hostfile_given = false;
 char *orte_rankfile = NULL;
 int orte_num_allocated_nodes = 0;
 char *orte_node_regex = NULL;
+char *orte_default_dash_host = NULL;
 
 /* tool communication controls */
 bool orte_report_events = false;

orte/runtime/orte_globals.h

@@ -540,6 +540,7 @@ ORTE_DECLSPEC extern bool orte_default_hostfile_given;
 ORTE_DECLSPEC extern char *orte_rankfile;
 ORTE_DECLSPEC extern int orte_num_allocated_nodes;
 ORTE_DECLSPEC extern char *orte_node_regex;
+ORTE_DECLSPEC extern char *orte_default_dash_host;
 
 /* PMI version control */
 ORTE_DECLSPEC extern int orted_pmi_version;

orte/runtime/orte_mca_params.c

@@ -362,6 +362,14 @@ int orte_register_params(void)
         orte_default_hostfile_given = true;
     }
 
+    /* default dash-host */
+    orte_default_dash_host = NULL;
+    (void) mca_base_var_register ("orte", "orte", NULL, "default_dash_host",
+                                  "Default -host setting, \"none\" to ignore environmental or default MCA param setting)",
+                                  MCA_BASE_VAR_TYPE_STRING, NULL, 0, 0,
+                                  OPAL_INFO_LVL_9, MCA_BASE_VAR_SCOPE_READONLY,
+                                  &orte_default_dash_host);
+
     /* regex of nodes in system */
     orte_node_regex = NULL;
     (void) mca_base_var_register ("orte", "orte", NULL, "node_regex",

orte/tools/orte-submit/orte-submit.c

@@ -1169,6 +1169,9 @@ static int create_app(int argc, char* argv[],
         orte_set_attribute(&app->attributes, ORTE_APP_DASH_HOST, ORTE_ATTR_GLOBAL, tval, OPAL_STRING);
         opal_argv_free(targ);
         free(tval);
+    } else if (NULL != orte_default_dash_host) {
+        orte_set_attribute(&app->attributes, ORTE_APP_DASH_HOST, ORTE_ATTR_LOCAL,
+                           orte_default_dash_host, OPAL_STRING);
     }
 
     /* check for bozo error */

orte/tools/orterun/orterun.c

@@ -1586,6 +1586,9 @@ static int create_app(int argc, char* argv[],
         orte_set_attribute(&app->attributes, ORTE_APP_DASH_HOST, ORTE_ATTR_LOCAL, tval, OPAL_STRING);
         opal_argv_free(targ);
         free(tval);
+    } else if (NULL != orte_default_dash_host) {
+        orte_set_attribute(&app->attributes, ORTE_APP_DASH_HOST, ORTE_ATTR_LOCAL,
+                           orte_default_dash_host, OPAL_STRING);
     }
 
     /* check for bozo error */