自学教程：C++ HYDU_FUNC_EXIT函数代码示例

char *HYDU_find_full_path(const char *execname){    char *tmp[HYD_NUM_TMP_STRINGS] = { NULL }, *path = NULL, *test_path = NULL;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    status = HYDU_find_in_path(execname, &test_path);    HYDU_ERR_POP(status, "error while searching for executable in user path/n");    if (test_path) {        tmp[0] = MPL_strdup(test_path);        tmp[1] = MPL_strdup(execname);        tmp[2] = NULL;        status = HYDU_str_alloc_and_join(tmp, &path);        HYDU_ERR_POP(status, "error joining strings/n");    }fn_exit:    HYDU_free_strlist(tmp);    if (test_path)        MPL_free(test_path);    HYDU_FUNC_EXIT();    return path;fn_fail:    goto fn_exit;}

HYD_status HYDU_alloc_exec(struct HYD_exec **exec){    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    HYDU_MALLOC(*exec, struct HYD_exec *, sizeof(struct HYD_exec), status);    (*exec)->exec[0] = NULL;    (*exec)->wdir = NULL;    (*exec)->proc_count = -1;#if defined(FINEGRAIN_MPI)    (*exec)->nfg = 1;    (*exec)->start_rank = -1;#endif    (*exec)->env_prop = NULL;    (*exec)->user_env = NULL;    (*exec)->appnum = -1;    (*exec)->next = NULL;  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDU_correct_wdir(char **wdir){    char *tmp[HYD_NUM_TMP_STRINGS];    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    if (*wdir == NULL) {        *wdir = HYDU_getcwd();    }    else if (*wdir[0] != '/') {        tmp[0] = HYDU_getcwd();        tmp[1] = HYDU_strdup("/");        tmp[2] = HYDU_strdup(*wdir);        tmp[3] = NULL;        HYDU_FREE(*wdir);        status = HYDU_str_alloc_and_join(tmp, wdir);        HYDU_ERR_POP(status, "unable to join strings/n");        HYDU_free_strlist(tmp);    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status cmd_response(int fd, int pid, const char *cmd){    struct HYD_pmcd_hdr hdr;    int sent, closed;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    HYD_pmcd_init_header(&hdr);    hdr.cmd = PMI_RESPONSE;    hdr.pid = pid;    hdr.pmi_version = 1;    hdr.buflen = strlen(cmd);    status = HYDU_sock_write(fd, &hdr, sizeof(hdr), &sent, &closed);    HYDU_ERR_POP(status, "unable to send PMI_RESPONSE header to proxy/n");    HYDU_ASSERT(!closed, status);    if (HYD_server_info.user_global.debug) {        HYDU_dump(stdout, "PMI response to fd %d pid %d: %s", fd, pid, cmd);    }    status = HYDU_sock_write(fd, cmd, strlen(cmd), &sent, &closed);    HYDU_ERR_POP(status, "unable to send response to command/n");    HYDU_ASSERT(!closed, status);  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status alloc_proxy(struct HYD_proxy **proxy, struct HYD_pg *pg, struct HYD_node *node){    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    HYDU_MALLOC(*proxy, struct HYD_proxy *, sizeof(struct HYD_proxy), status);    (*proxy)->node = node;    (*proxy)->pg = pg;    (*proxy)->proxy_id = -1;    (*proxy)->exec_launch_info = NULL;    (*proxy)->proxy_process_count = 0;    (*proxy)->filler_processes = 0;    (*proxy)->pid = NULL;    (*proxy)->exit_status = NULL;    (*proxy)->control_fd = HYD_FD_UNSET;    (*proxy)->exec_list = NULL;    (*proxy)->next = NULL;  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDT_topo_bind(int idx){    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    if (idx < 0 || ignore_binding)        goto fn_exit;#if defined HAVE_HWLOC    if (!strcmp(HYDT_topo_info.topolib, "hwloc")) {        status = HYDT_topo_hwloc_bind(idx);        HYDU_ERR_POP(status, "HWLOC failure binding process to core/n");        goto fn_exit;    }#endif /* HAVE_HWLOC */    HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "no topology library available/n");  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status fn_abort(int fd, int pid, int pgid, char *args[]){    int token_count;    struct HYD_pmcd_token *tokens;    /* set a default exit code of 1 */    int exitcode = 1;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    status = HYD_pmcd_pmi_args_to_tokens(args, &tokens, &token_count);    HYDU_ERR_POP(status, "unable to convert args to tokens/n");    if (HYD_pmcd_pmi_find_token_keyval(tokens, token_count, "exitcode") == NULL)        HYDU_ERR_POP(status, "cannot find token: exitcode/n");    exitcode = atoi(HYD_pmcd_pmi_find_token_keyval(tokens, token_count, "exitcode"));  fn_exit:    /* clean everything up and exit */    status = HYDT_bsci_wait_for_completion(0);    exit(exitcode);    /* never get here */    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

char *HYDU_size_t_to_str(size_t x){    int len = 1, i;    size_t max = 10;    char *str = NULL;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    while (x >= max) {        len++;        max *= 10;    }    len++;    HYDU_MALLOC(str, char *, len, status);    HYDU_ERR_POP(status, "unable to allocate memory/n");    for (i = 0; i < len; i++)        str[i] = '0';    HYDU_snprintf(str, len, "%llu", (unsigned long long) x);  fn_exit:    HYDU_FUNC_EXIT();    return str;  fn_fail:    goto fn_exit;}

HYD_status HYDU_str_alloc_and_join(char **strlist, char **strjoin){    int len = 0, i, count;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    for (i = 0; strlist[i] != NULL; i++) {        len += strlen(strlist[i]);    }    HYDU_MALLOC(*strjoin, char *, len + 1, status);    count = 0;    (*strjoin)[0] = 0;    for (i = 0; strlist[i] != NULL; i++) {        HYDU_snprintf(*strjoin + count, len - count + 1, "%s", strlist[i]);        count += strlen(strlist[i]);    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDU_env_to_str(struct HYD_env *env, char **str){    int i;    char *tmp[HYD_NUM_TMP_STRINGS];    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    i = 0;    tmp[i++] = MPL_strdup("'");    tmp[i++] = MPL_strdup(env->env_name);    tmp[i++] = MPL_strdup("=");    tmp[i++] = env->env_value ? MPL_strdup(env->env_value) : MPL_strdup("");    tmp[i++] = MPL_strdup("'");    tmp[i++] = NULL;    status = HYDU_str_alloc_and_join(tmp, str);    HYDU_ERR_POP(status, "unable to join strings/n");    for (i = 0; tmp[i]; i++)        MPL_free(tmp[i]);  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status fn_name_publish(int fd, int pid, int pgid, char *args[]){    struct HYD_string_stash stash;    char *cmd, *thrid, *val, *name = NULL, *port = NULL;    int token_count, success;    struct HYD_pmcd_token *tokens = NULL;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    status = HYD_pmcd_pmi_args_to_tokens(args, &tokens, &token_count);    HYDU_ERR_POP(status, "unable to convert args to tokens/n");    thrid = HYD_pmcd_pmi_find_token_keyval(tokens, token_count, "thrid");    if ((val = HYD_pmcd_pmi_find_token_keyval(tokens, token_count, "name")) == NULL)        HYDU_ERR_POP(status, "cannot find token: name/n");    name = HYDU_strdup(val);    if ((val = HYD_pmcd_pmi_find_token_keyval(tokens, token_count, "port")) == NULL)        HYDU_ERR_POP(status, "cannot find token: port/n");    port = HYDU_strdup(val);    status = HYD_pmcd_pmi_publish(name, port, &success);    HYDU_ERR_POP(status, "error publishing service/n");    HYD_STRING_STASH_INIT(stash);    HYD_STRING_STASH(stash, HYDU_strdup("cmd=name-publish-response;"), status);    if (thrid) {        HYD_STRING_STASH(stash, HYDU_strdup("thrid="), status);        HYD_STRING_STASH(stash, HYDU_strdup(thrid), status);        HYD_STRING_STASH(stash, HYDU_strdup(";"), status);    }    if (!success) {        HYD_STRING_STASH(stash, HYDU_strdup("rc=1;errmsg=duplicate_service_"), status);        HYD_STRING_STASH(stash, HYDU_strdup(name), status);        HYD_STRING_STASH(stash, HYDU_strdup(";"), status);    }    else        HYD_STRING_STASH(stash, HYDU_strdup("rc=0;"), status);    HYD_STRING_SPIT(stash, cmd, status);    status = cmd_response(fd, pid, cmd);    HYDU_ERR_POP(status, "send command failed/n");    HYDU_FREE(cmd);  fn_exit:    if (tokens)        HYD_pmcd_pmi_free_tokens(tokens, token_count);    if (name)        HYDU_FREE(name);    if (port)        HYDU_FREE(port);    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDU_putenv(struct HYD_env *env, HYD_env_overwrite_t overwrite){    char *tmp[HYD_NUM_TMP_STRINGS], *str;    int i;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    /* If the overwrite flag is false, just exit */    if (MPL_env2str(env->env_name, (const char **) &str) && overwrite == HYD_ENV_OVERWRITE_FALSE)        goto fn_exit;    i = 0;    tmp[i++] = MPL_strdup(env->env_name);    tmp[i++] = MPL_strdup("=");    tmp[i++] = env->env_value ? MPL_strdup(env->env_value) : MPL_strdup("");    tmp[i++] = NULL;    status = HYDU_str_alloc_and_join(tmp, &str);    HYDU_ERR_POP(status, "unable to join strings/n");    MPL_putenv(str);    for (i = 0; tmp[i]; i++)        MPL_free(tmp[i]);  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDU_append_env_str_to_list(const char *str, struct HYD_env **env_list){    char *my_str = NULL;    char *env_name, *env_value;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    my_str = env_value = MPL_strdup(str);    /* don't use strtok, it will mangle env values that contain '=' */    env_name = MPL_strsep(&env_value, "=");    HYDU_ASSERT(env_name != NULL, status);    status = HYDU_append_env_to_list(env_name, env_value, env_list);    HYDU_ERR_POP(status, "unable to append env to list/n");  fn_exit:    if (my_str)        MPL_free(my_str);    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDU_send_strlist(int fd, char **strlist){    int i, list_len, len;    int sent, closed;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    /* Check how many arguments we have */    list_len = HYDU_strlist_lastidx(strlist);    status = HYDU_sock_write(fd, &list_len, sizeof(int), &sent, &closed, HYDU_SOCK_COMM_MSGWAIT);    HYDU_ERR_POP(status, "unable to write data to proxy/n");    HYDU_ASSERT(!closed, status);    /* Convert the string list to parseable data and send */    for (i = 0; strlist[i]; i++) {        len = strlen(strlist[i]) + 1;        status = HYDU_sock_write(fd, &len, sizeof(int), &sent, &closed, HYDU_SOCK_COMM_MSGWAIT);        HYDU_ERR_POP(status, "unable to write data to proxy/n");        HYDU_ASSERT(!closed, status);        status = HYDU_sock_write(fd, strlist[i], len, &sent, &closed, HYDU_SOCK_COMM_MSGWAIT);        HYDU_ERR_POP(status, "unable to write data to proxy/n");        HYDU_ASSERT(!closed, status);    }fn_exit:    HYDU_FUNC_EXIT();    return status;fn_fail:    goto fn_exit;}

HYD_status HYDT_bscd_sge_query_env_inherit(const char *env_name, int *ret){    const char *env_list[] = { "DISPLAY", "SGE_ROOT", "SGE_CELL", "SGE_DEBUG_LEVEL",        "SGE_QMASTER_PORT", "SGE_O_HOME", "SGE_O_HOST",        "SGE_O_LOGNAME", "SGE_O_MAIL", "SGE_O_PATH",        "SGE_O_SHELL", "SGE_O_TZ", "SGE_O_WORKDIR",        "SGE_ARCH", "SGE_CKPT_ENV", "SGE_CKPT_DIR",        "SGE_STDERR_PATH", "SGE_STDOUT_PATH", "SGE_STDIN_PATH",        "SGE_JOB_SPOOL_DIR", "SGE_TASK_ID", "SGE_TASK_FIRST",        "SGE_TASK_LAST", "SGE_TASK_STEPSIZE", "SGE_BINARY_PATH",        "SGE_JSV_TIMEOUT", "SGE_BINDING", "ARC", "ENVIRONMENT",        "HOME", "HOSTNAME", "JOB_ID", "JOB_NAME", "JOB_SCRIPT",        "LOGNAME", "NHOSTS", "NQUEUES", "NSLOTS", "PATH",        "PE", "PE_HOSTFILE", "QUEUE", "REQUEST", "RESTARTED",        "SHELL", "TMPDIR", "TMP", "TZ", "USER", NULL    };    HYDU_FUNC_ENTER();    *ret = !HYDTI_bscd_in_env_list(env_name, env_list);    HYDU_FUNC_EXIT();    return HYD_SUCCESS;}

HYD_status HYDU_strsplit(char *str, char **str1, char **str2, char sep){    int i;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    if (str == NULL)        HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "");    *str1 = HYDU_strdup(str);    for (i = 0; (*str1)[i] && ((*str1)[i] != sep); i++);    if ((*str1)[i] == 0)        /* End of the string */        *str2 = NULL;    else {        *str2 = HYDU_strdup(&((*str1)[i + 1]));        (*str1)[i] = 0;    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status alloc_fwd_hash(struct fwd_hash **fwd_hash, int in, int out){    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    HYDU_MALLOC_OR_JUMP(*fwd_hash, struct fwd_hash *, sizeof(struct fwd_hash), status);    (*fwd_hash)->in = in;    (*fwd_hash)->out = out;    (*fwd_hash)->buf_offset = 0;    (*fwd_hash)->buf_count = 0;    (*fwd_hash)->next = NULL;    status = HYDU_sock_set_nonblock(in);    HYDU_ERR_POP(status, "unable to set out-socket to non-blocking/n");    status = HYDU_sock_set_nonblock(out);    HYDU_ERR_POP(status, "unable to set out-socket to non-blocking/n");  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status fn_put(int fd, int pid, int pgid, char *args[]){    struct HYD_proxy *proxy;    struct HYD_pmcd_pmi_pg_scratch *pg_scratch;    struct HYD_pmcd_token *tokens;    int token_count, i, ret;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    status = HYD_pmcd_pmi_args_to_tokens(args, &tokens, &token_count);    HYDU_ERR_POP(status, "unable to convert args to tokens/n");    proxy = HYD_pmcd_pmi_find_proxy(fd);    HYDU_ASSERT(proxy, status);    pg_scratch = (struct HYD_pmcd_pmi_pg_scratch *) proxy->pg->pg_scratch;    for (i = 0; i < token_count; i++) {        status = HYD_pmcd_pmi_add_kvs(tokens[i].key, tokens[i].val, pg_scratch->kvs, &ret);        HYDU_ERR_POP(status, "unable to add keypair to kvs/n");    }  fn_exit:    HYD_pmcd_pmi_free_tokens(tokens, token_count);    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status create_env_file(const struct HYD_env *envlist, int num_ranks, int *ranks){    HYD_status status = HYD_SUCCESS;    char filename[256];    FILE *f;    const struct HYD_env *e;    int ret;    int r;    HYDU_FUNC_ENTER();    for (r = 0; r < num_ranks; ++r) {        MPL_snprintf(filename, sizeof(filename), "/tmp/hydra-env-file-%d:%d", (int) getpid(),                     ranks[r]);        f = fopen(filename, "w");        HYDU_ERR_CHKANDJUMP(status, f == NULL, HYD_INTERNAL_ERROR, "fopen failed: %s/n",                            strerror(errno));        for (e = envlist; e; e = e->next) {            fprintf(f, "%s=%s/n", e->env_name, e->env_value);        }        ret = fclose(f);        HYDU_ERR_CHKANDJUMP(status, ret, HYD_INTERNAL_ERROR, "fclose failed: %s/n",                            strerror(errno));    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

HYD_status HYDT_bscd_sge_query_node_list(struct HYD_node **node_list){    char *hostfile;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    if (MPL_env2str("PE_HOSTFILE", (const char **) &hostfile) == 0)        hostfile = NULL;    if (hostfile == NULL) {        *node_list = NULL;        HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "No SGE nodefile found/n");    }    else {        status = HYDU_parse_hostfile(hostfile, node_list, process_mfile_token);        HYDU_ERR_POP(status, "error parsing hostfile/n");    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status fn_barrier_in(int fd, int pid, int pgid, char *args[]){    struct HYD_proxy *proxy, *tproxy;    const char *cmd;    int proxy_count;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();    proxy = HYD_pmcd_pmi_find_proxy(fd);    HYDU_ASSERT(proxy, status);    proxy_count = 0;    for (tproxy = proxy->pg->proxy_list; tproxy; tproxy = tproxy->next)        proxy_count++;    proxy->pg->barrier_count++;    if (proxy->pg->barrier_count == proxy_count) {        proxy->pg->barrier_count = 0;        cmd = "cmd=barrier_out/n";        for (tproxy = proxy->pg->proxy_list; tproxy; tproxy = tproxy->next) {            status = cmd_response(tproxy->control_fd, pid, cmd);            HYDU_ERR_POP(status, "error writing PMI line/n");        }    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

void HYDU_free_proxy_list(struct HYD_proxy *proxy_list){    struct HYD_proxy *proxy, *tproxy;    HYDU_FUNC_ENTER();    proxy = proxy_list;    while (proxy) {        tproxy = proxy->next;        proxy->node = NULL;        if (proxy->exec_launch_info) {            HYDU_free_strlist(proxy->exec_launch_info);            HYDU_FREE(proxy->exec_launch_info);        }        if (proxy->pid)            HYDU_FREE(proxy->pid);        if (proxy->exit_status)            HYDU_FREE(proxy->exit_status);        HYDU_free_exec_list(proxy->exec_list);        HYDU_FREE(proxy);        proxy = tproxy;    }    HYDU_FUNC_EXIT();}

void HYDU_free_exec_list(struct HYD_exec *exec_list){    struct HYD_exec *exec, *run;    HYDU_FUNC_ENTER();    exec = exec_list;    while (exec) {        run = exec->next;        HYDU_free_strlist(exec->exec);        if (exec->wdir)            HYDU_FREE(exec->wdir);        if (exec->env_prop)            HYDU_FREE(exec->env_prop);        HYDU_env_free_list(exec->user_env);        exec->user_env = NULL;        HYDU_FREE(exec);        exec = run;    }    HYDU_FUNC_EXIT();}

HYD_status HYDT_bscd_pbs_launcher_finalize(void){    int err;    HYD_status status = HYD_SUCCESS;    HYDU_FUNC_ENTER();#if defined(HAVE_TM_H)    err = tm_finalize();    HYDU_ERR_CHKANDJUMP(status, err != TM_SUCCESS, HYD_INTERNAL_ERROR,                        "error calling tm_finalize/n");#endif /* HAVE_TM_H */    if (HYDT_bscd_pbs_sys) {        if (HYDT_bscd_pbs_sys->task_id)            HYDU_FREE(HYDT_bscd_pbs_sys->task_id);        if (HYDT_bscd_pbs_sys->spawn_events)            HYDU_FREE(HYDT_bscd_pbs_sys->spawn_events);        HYDU_FREE(HYDT_bscd_pbs_sys);    }  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}

static HYD_status exec_args_fn(char *arg, char ***argv){    long int i, count;    struct HYD_exec *exec = NULL;    HYD_status status = HYD_SUCCESS;    if (**argv == NULL)        HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "NULL argument to exec args/n");    for (exec = HYD_pmcd_pmip.exec_list; exec->next; exec = exec->next);    count = strtol(**argv, NULL, 10);    if (errno == ERANGE || errno == EINVAL)        HYDU_ERR_SETANDJUMP(status, HYD_INTERNAL_ERROR, "Exec arg not convertible to integer/n");    for (i = 0; i < count; i++) {        (*argv)++;        exec->exec[i] = MPL_strdup(**argv);    }    exec->exec[i] = NULL;    (*argv)++;  fn_exit:    HYDU_FUNC_EXIT();    return status;  fn_fail:    goto fn_exit;}