int args_to_job_recover_env (void) { int n_env = n_E_environment; int i; if (C_chdir) { E_environment[n_env].name = "PREFIX"; E_environment[n_env].value = C_chdir; n_env++; } E_environment[n_env].name = "HIST"; E_environment[n_env].value = I_index_file ? "y" : "n"; n_env++; E_environment[n_env].name = "TYPE"; E_environment[n_env].value = B_bu_type; n_env++; if (U_user) { E_environment[n_env].name = "USER"; E_environment[n_env].value = U_user; n_env++; } for (i = 0; i < n_e_exclude_pattern; i++) { E_environment[n_env].name = "EXCLUDE"; E_environment[n_env].value = e_exclude_pattern[i]; n_env++; } if (o_rules) { E_environment[n_env].name = "RULES"; E_environment[n_env].value = o_rules; } nn_E_environment = n_env; /* file_arg[]s are done in nlist[] */ jndex_merge_environment (); return nn_E_environment; }
int args_to_job_recover_env (void) { ndmp9_pval pv; int i; if (C_chdir) { pv.name = "PREFIX"; pv.value = C_chdir; ndma_store_env_list (&E_environment, &pv); } pv.name = "HIST"; pv.value = I_index_file ? "y" : "n"; ndma_store_env_list (&E_environment, &pv); pv.name = "TYPE"; pv.value = B_bu_type; ndma_store_env_list (&E_environment, &pv); if (U_user) { pv.name = "USER"; pv.value = U_user; ndma_store_env_list (&E_environment, &pv); } for (i = 0; i < n_e_exclude_pattern; i++) { pv.name = "EXCLUDE"; pv.value = e_exclude_pattern[i]; ndma_store_env_list (&E_environment, &pv); } if (o_rules) { pv.name = "RULES"; pv.value = o_rules; ndma_store_env_list (&E_environment, &pv); } /* file_arg[]s are done in nlist[] */ jndex_merge_environment (); return E_environment.n_env; }