1 /*
2  * Copyright (C) by Argonne National Laboratory
3  *     See COPYRIGHT in top-level directory
4  */
5 
6 #include "hydra.h"
7 #include "bsci.h"
8 #include "bscu.h"
9 #include "ll.h"
10 
HYDT_bscd_ll_query_proxy_id(int * proxy_id)11 HYD_status HYDT_bscd_ll_query_proxy_id(int *proxy_id)
12 {
13     HYD_status status = HYD_SUCCESS;
14 
15     HYDU_FUNC_ENTER();
16 
17     if (MPL_env2int("MP_CHILD", proxy_id) == 0) {
18         *proxy_id = -1;
19         HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "cannot find ll proxy ID\n");
20     }
21 
22   fn_exit:
23     HYDU_FUNC_EXIT();
24     return status;
25 
26   fn_fail:
27     goto fn_exit;
28 }
29