1 /* -*- Mode: C; c-basic-offset:4 ; -*- */
2 /*
3 * (C) 2008 by Argonne National Laboratory.
4 * See COPYRIGHT in top-level directory.
5 */
6
7 #include "hydra.h"
8 #include "common.h"
9 #include "pbs.h"
10
HYDT_bscd_pbs_query_env_inherit(const char * env_name,int * ret)11 HYD_status HYDT_bscd_pbs_query_env_inherit(const char *env_name, int *ret)
12 {
13 const char *env_list[] = { "PBSCOREDUMP",
14 "PBSDEBUG",
15 "PBSLOGLEVEL",
16 "PBS_ARRAYID",
17 "PBS_CLIENTRETRY",
18 "PBS_DEFAULT",
19 "PBS_DPREFIX",
20 "PBS_ENVIRONMENT",
21 "PBS_GPUFILE",
22 "PBS_JOBCOOKIE",
23 "PBS_JOBID",
24 "PBS_JOBNAME",
25 "PBS_MOMPORT",
26 "PBS_NODEFILE",
27 "PBS_NODENUM",
28 "PBS_NUM_NODES",
29 "PBS_NUM_PPN",
30 "PBS_O_HOME",
31 "PBS_O_HOST",
32 "PBS_O_JOBID",
33 "PBS_O_LANG",
34 "PBS_O_LOGNAME",
35 "PBS_O_MAIL",
36 "PBS_O_PATH",
37 "PBS_O_QUEUE",
38 "PBS_O_SHELL",
39 "PBS_O_WORKDIR",
40 "PBS_QSTAT_EXECONLY",
41 "PBS_QUEUE",
42 "PBS_SERVER",
43 "PBS_TASKNUM",
44 "PBS_VERSION",
45 "PBS_VNODENUM",
46 NULL
47 };
48
49 HYDU_FUNC_ENTER();
50
51 *ret = !HYDTI_bscd_in_env_list(env_name, env_list);
52
53 HYDU_FUNC_EXIT();
54
55 return HYD_SUCCESS;
56 }
57