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)11HYD_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