int hv_to_user_cond(HV* hv, slurmdb_user_cond_t* user_cond) { AV* element_av; SV** svp; char* str = NULL; int i, elements = 0; user_cond->admin_level = 0; user_cond->with_assocs = 1; user_cond->with_coords = 0; user_cond->with_deleted = 1; user_cond->with_wckeys = 0; FETCH_FIELD(hv, user_cond, admin_level, uint16_t, FALSE); FETCH_FIELD(hv, user_cond, with_assocs, uint16_t, FALSE); FETCH_FIELD(hv, user_cond, with_coords, uint16_t, FALSE); FETCH_FIELD(hv, user_cond, with_deleted, uint16_t, FALSE); FETCH_FIELD(hv, user_cond, with_wckeys, uint16_t, FALSE); if ( (svp = hv_fetch (hv, "assoc_cond", strlen("assoc_cond"), FALSE)) ) { if(SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVHV) { HV* element_hv = (HV*)SvRV(*svp); hv_to_assoc_cond(element_hv, user_cond->assoc_cond); } else { Perl_warn(aTHX_ "assoc_cond val is not an hash value reference"); return -1; } } FETCH_LIST_FIELD(hv, user_cond, def_acct_list); FETCH_LIST_FIELD(hv, user_cond, def_wckey_list); return 0; }
int hv_to_qos_cond(HV* hv, slurmdb_qos_cond_t* qos_cond) { AV* element_av; char* str = NULL; int i, elements = 0; FETCH_FIELD(hv, qos_cond, preempt_mode, uint16_t, FALSE); FETCH_FIELD(hv, qos_cond, with_deleted, uint16_t, FALSE); FETCH_LIST_FIELD(hv, qos_cond, description_list); FETCH_LIST_FIELD(hv, qos_cond, id_list); FETCH_LIST_FIELD(hv, qos_cond, name_list); return 0; }
/* * convert perl HV to job_info_msg_t */ int hv_to_job_info_msg(HV *hv, job_info_msg_t *job_info_msg) { SV **svp; AV *av; int i, n; memset(job_info_msg, 0, sizeof(job_info_msg_t)); FETCH_FIELD(hv, job_info_msg, last_update, time_t, TRUE); svp = hv_fetch(hv, "job_array", 9, FALSE); if (! (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV)) { Perl_warn (aTHX_ "job_array is not an arrary reference in HV for job_info_msg_t"); return -1; } av = (AV*)SvRV(*svp); n = av_len(av) + 1; job_info_msg->record_count = n; job_info_msg->job_array = xmalloc(n * sizeof(job_info_t)); for(i = 0; i < n; i ++) { svp = av_fetch(av, i, FALSE); if (! (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVHV)) { Perl_warn (aTHX_ "element %d in job_array is not valid", i); return -1; } if (hv_to_job_info((HV*)SvRV(*svp), &job_info_msg->job_array[i]) < 0) { Perl_warn(aTHX_ "failed to convert element %d in job_array", i); return -1; } } return 0; }
/* * convert perl HV to reservation_name_msg_t. */ int hv_to_delete_reservation_msg(HV *hv, reservation_name_msg_t *resv_name) { resv_name->name = NULL; FETCH_FIELD(hv, resv_name, name, charp, FALSE); return 0; }
int hv_to_cluster_cond(HV* hv, slurmdb_cluster_cond_t* cluster_cond) { AV* element_av; char* str = NULL; int i, elements = 0; cluster_cond->classification = SLURMDB_CLASS_NONE; cluster_cond->usage_end = 0; cluster_cond->usage_start = 0; cluster_cond->with_deleted = 1; cluster_cond->with_usage = 1; FETCH_FIELD(hv, cluster_cond, classification, uint16_t, FALSE); FETCH_FIELD(hv, cluster_cond, flags, uint32_t, FALSE); FETCH_FIELD(hv, cluster_cond, usage_end, time_t , FALSE); FETCH_FIELD(hv, cluster_cond, usage_start, time_t , FALSE); FETCH_FIELD(hv, cluster_cond, with_deleted, uint16_t, FALSE); FETCH_FIELD(hv, cluster_cond, with_usage, uint16_t, FALSE); FETCH_LIST_FIELD(hv, cluster_cond, cluster_list); FETCH_LIST_FIELD(hv, cluster_cond, plugin_id_select_list); FETCH_LIST_FIELD(hv, cluster_cond, rpc_version_list); return 0; }
/* * convert perl HV to update_node_msg_t */ int hv_to_update_node_msg(HV *hv, update_node_msg_t *update_msg) { slurm_init_update_node_msg(update_msg); FETCH_FIELD(hv, update_msg, node_addr, charp, FALSE); FETCH_FIELD(hv, update_msg, node_hostname, charp, FALSE); FETCH_FIELD(hv, update_msg, node_names, charp, TRUE); FETCH_FIELD(hv, update_msg, node_state, uint32_t, FALSE); FETCH_FIELD(hv, update_msg, reason, charp, FALSE); FETCH_FIELD(hv, update_msg, features, charp, FALSE); FETCH_FIELD(hv, update_msg, features_act, charp, FALSE); FETCH_FIELD(hv, update_msg, weight, uint32_t, FALSE); return 0; }
/* * convert perl HV to job_desc_msg_t * return 0 on success, -1 on failure */ int hv_to_job_desc_msg(HV *hv, job_desc_msg_t *job_desc) { SV **svp; HV *environ_hv; AV *argv_av; SV *val; char *env_key, *env_val; I32 klen; STRLEN vlen; int num_keys, i; slurm_init_job_desc_msg(job_desc); FETCH_FIELD(hv, job_desc, account, charp, FALSE); FETCH_FIELD(hv, job_desc, acctg_freq, charp, FALSE); FETCH_FIELD(hv, job_desc, alloc_node, charp, FALSE); FETCH_FIELD(hv, job_desc, alloc_resp_port, uint16_t, FALSE); FETCH_FIELD(hv, job_desc, alloc_sid, uint32_t, FALSE); /* argv, argc */ if((svp = hv_fetch(hv, "argv", 4, FALSE))) { if(SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { argv_av = (AV*)SvRV(*svp); job_desc->argc = av_len(argv_av) + 1; if (job_desc->argc > 0) { Newz(0, job_desc->argv, (int32_t)(job_desc->argc + 1), char*); for(i = 0; i < job_desc->argc; i ++) { if((svp = av_fetch(argv_av, i, FALSE))) *(job_desc->argv + i) = (char*) SvPV_nolen(*svp); else { Perl_warn(aTHX_ "error fetching `argv' of job descriptor"); free_job_desc_msg_memory(job_desc); return -1; } } } } else {
/* * convert perl HV to trigger_info_t */ int hv_to_trigger_info(HV *hv, trigger_info_t *trigger_info) { memset(trigger_info, 0, sizeof(trigger_info_t)); FETCH_FIELD(hv, trigger_info, trig_id, uint32_t, FALSE); FETCH_FIELD(hv, trigger_info, res_type, uint8_t, FALSE); FETCH_FIELD(hv, trigger_info, res_id, charp, FALSE); FETCH_FIELD(hv, trigger_info, trig_type, uint32_t, FALSE); FETCH_FIELD(hv, trigger_info, offset, uint16_t, FALSE); FETCH_FIELD(hv, trigger_info, user_id, uint32_t, FALSE); FETCH_FIELD(hv, trigger_info, program, charp, FALSE); return 0; }
/* * convert perl HV to step_update_request_msg_t */ int hv_to_step_update_request_msg(HV *hv, step_update_request_msg_t *update_msg) { slurm_init_update_step_msg(update_msg); FETCH_FIELD(hv, update_msg, end_time, time_t, TRUE); FETCH_FIELD(hv, update_msg, exit_code, uint32_t, TRUE); FETCH_FIELD(hv, update_msg, job_id, uint32_t, TRUE); FETCH_FIELD(hv, update_msg, name, charp, FALSE); FETCH_FIELD(hv, update_msg, start_time, time_t, TRUE); FETCH_FIELD(hv, update_msg, step_id, uint32_t, TRUE); FETCH_FIELD(hv, update_msg, time_limit, uint32_t, TRUE); return 0; }
int hv_to_assoc_cond(HV* hv, slurmdb_assoc_cond_t* assoc_cond) { AV* element_av; SV** svp; char* str = NULL; int i, elements = 0; time_t start_time = 0; time_t end_time = 0; if ( (svp = hv_fetch (hv, "usage_start", strlen("usage_start"), FALSE)) ) { start_time = (time_t) (SV2time_t(*svp)); } if ( (svp = hv_fetch (hv, "usage_end", strlen("usage_end"), FALSE)) ) { end_time = (time_t) (SV2time_t(*svp)); } slurmdb_report_set_start_end_time(&start_time, &end_time); assoc_cond->usage_start = start_time; assoc_cond->usage_end = end_time; assoc_cond->with_usage = 1; assoc_cond->with_deleted = 0; assoc_cond->with_raw_qos = 0; assoc_cond->with_sub_accts = 0; assoc_cond->without_parent_info = 0; assoc_cond->without_parent_limits = 0; FETCH_FIELD(hv, assoc_cond, with_usage, uint16_t, FALSE); FETCH_FIELD(hv, assoc_cond, with_deleted, uint16_t, FALSE); FETCH_FIELD(hv, assoc_cond, with_raw_qos, uint16_t, FALSE); FETCH_FIELD(hv, assoc_cond, with_sub_accts, uint16_t, FALSE); FETCH_FIELD(hv, assoc_cond, without_parent_info, uint16_t, FALSE); FETCH_FIELD(hv, assoc_cond, without_parent_limits, uint16_t, FALSE); FETCH_LIST_FIELD(hv, assoc_cond, acct_list); FETCH_LIST_FIELD(hv, assoc_cond, cluster_list); FETCH_LIST_FIELD(hv, assoc_cond, def_qos_id_list); FETCH_LIST_FIELD(hv, assoc_cond, id_list); FETCH_LIST_FIELD(hv, assoc_cond, parent_acct_list); FETCH_LIST_FIELD(hv, assoc_cond, partition_list); FETCH_LIST_FIELD(hv, assoc_cond, qos_list); FETCH_LIST_FIELD(hv, assoc_cond, user_list); return 0; }
/* * convert perl HV to slurm_step_ctx_params_t */ int hv_to_slurm_step_ctx_params(HV *hv, slurm_step_ctx_params_t *params) { slurm_step_ctx_params_t_init(params); FETCH_FIELD(hv, params, ckpt_interval, uint16_t, FALSE); FETCH_FIELD(hv, params, cpu_count, uint32_t, FALSE); FETCH_FIELD(hv, params, cpu_freq_min, uint32_t, FALSE); FETCH_FIELD(hv, params, cpu_freq_max, uint32_t, FALSE); FETCH_FIELD(hv, params, cpu_freq_gov, uint32_t, FALSE); FETCH_FIELD(hv, params, exclusive, uint16_t, FALSE); FETCH_FIELD(hv, params, features, charp, FALSE); FETCH_FIELD(hv, params, immediate, uint16_t, FALSE); FETCH_FIELD(hv, params, job_id, uint32_t, FALSE); /* for slurm_step_ctx_create_no_alloc */ FETCH_FIELD(hv, params, pn_min_memory, uint32_t, FALSE); FETCH_FIELD(hv, params, ckpt_dir, charp, FALSE); FETCH_FIELD(hv, params, gres, charp, FALSE); FETCH_FIELD(hv, params, name, charp, FALSE); FETCH_FIELD(hv, params, network, charp, FALSE); FETCH_FIELD(hv, params, profile, uint32_t, FALSE); FETCH_FIELD(hv, params, no_kill, uint8_t, FALSE); FETCH_FIELD(hv, params, min_nodes, uint32_t, FALSE); FETCH_FIELD(hv, params, max_nodes, uint32_t, FALSE); FETCH_FIELD(hv, params, node_list, charp, FALSE); FETCH_FIELD(hv, params, overcommit, bool, FALSE); FETCH_FIELD(hv, params, plane_size, uint16_t, FALSE); FETCH_FIELD(hv, params, relative, uint16_t, FALSE); FETCH_FIELD(hv, params, resv_port_cnt, uint16_t, FALSE); FETCH_FIELD(hv, params, task_count, uint32_t, FALSE); FETCH_FIELD(hv, params, task_dist, uint16_t, FALSE); FETCH_FIELD(hv, params, time_limit, uint32_t, FALSE); FETCH_FIELD(hv, params, uid, uint32_t, FALSE); FETCH_FIELD(hv, params, verbose_level, uint16_t, FALSE); return 0; }
/* * convert perl HV to delete_part_msg_t */ int hv_to_delete_part_msg(HV *hv, delete_part_msg_t *delete_msg) { FETCH_FIELD(hv, delete_msg, name, charp, TRUE); return 0; }
/* * convert perl HV to node_info_t */ int hv_to_node_info(HV *hv, node_info_t *node_info) { memset(node_info, 0, sizeof(node_info_t)); FETCH_FIELD(hv, node_info, arch, charp, FALSE); FETCH_FIELD(hv, node_info, boot_time, time_t, TRUE); FETCH_FIELD(hv, node_info, cores, uint16_t, TRUE); FETCH_FIELD(hv, node_info, cpu_load, uint32_t, TRUE); FETCH_FIELD(hv, node_info, cpus, uint16_t, TRUE); FETCH_FIELD(hv, node_info, features, charp, FALSE); FETCH_FIELD(hv, node_info, features_act, charp, FALSE); FETCH_FIELD(hv, node_info, gres, charp, FALSE); FETCH_FIELD(hv, node_info, name, charp, TRUE); FETCH_FIELD(hv, node_info, node_state, uint32_t, TRUE); FETCH_FIELD(hv, node_info, os, charp, FALSE); FETCH_FIELD(hv, node_info, real_memory, uint64_t, TRUE); FETCH_FIELD(hv, node_info, reason, charp, FALSE); FETCH_FIELD(hv, node_info, reason_time, time_t, TRUE); FETCH_FIELD(hv, node_info, reason_uid, uint32_t, TRUE); FETCH_FIELD(hv, node_info, slurmd_start_time, time_t, TRUE); FETCH_FIELD(hv, node_info, boards, uint16_t, TRUE); FETCH_FIELD(hv, node_info, sockets, uint16_t, TRUE); FETCH_FIELD(hv, node_info, threads, uint16_t, TRUE); FETCH_FIELD(hv, node_info, tmp_disk, uint32_t, TRUE); FETCH_FIELD(hv, node_info, weight, uint32_t, TRUE); FETCH_PTR_FIELD(hv, node_info, select_nodeinfo, "Slurm::dynamic_plugin_data_t", TRUE); return 0; }
/* * convert perl HV to slurmd_status_t */ int hv_to_slurmd_status(HV *hv, slurmd_status_t *status) { memset(status, 0, sizeof(slurmd_status_t)); FETCH_FIELD(hv, status, booted, time_t, TRUE); FETCH_FIELD(hv, status, last_slurmctld_msg, time_t, TRUE); FETCH_FIELD(hv, status, slurmd_debug, uint16_t, TRUE); FETCH_FIELD(hv, status, actual_cpus, uint16_t, TRUE); FETCH_FIELD(hv, status, actual_sockets, uint16_t, TRUE); FETCH_FIELD(hv, status, actual_cores, uint16_t, TRUE); FETCH_FIELD(hv, status, actual_threads, uint16_t, TRUE); FETCH_FIELD(hv, status, actual_real_mem, uint32_t, TRUE); FETCH_FIELD(hv, status, actual_tmp_disk, uint32_t, TRUE); FETCH_FIELD(hv, status, pid, uint32_t, TRUE); FETCH_FIELD(hv, status, hostname, charp, FALSE); FETCH_FIELD(hv, status, slurmd_logfile, charp, FALSE); FETCH_FIELD(hv, status, step_list, charp, FALSE); FETCH_FIELD(hv, status, version, charp, FALSE); return 0; }
/* * convert perl HV to partition_info_t */ int hv_to_partition_info(HV *hv, partition_info_t *part_info) { SV **svp; AV *av; int i, n; memset(part_info, 0, sizeof(partition_info_t)); FETCH_FIELD(hv, part_info, allow_alloc_nodes, charp, FALSE); FETCH_FIELD(hv, part_info, allow_accounts, charp, FALSE); FETCH_FIELD(hv, part_info, allow_groups, charp, FALSE); FETCH_FIELD(hv, part_info, allow_qos, charp, FALSE); FETCH_FIELD(hv, part_info, alternate, charp, FALSE); FETCH_FIELD(hv, part_info, cr_type, uint16_t, FALSE); FETCH_FIELD(hv, part_info, def_mem_per_cpu, uint32_t, FALSE); FETCH_FIELD(hv, part_info, default_time, uint32_t, TRUE); FETCH_FIELD(hv, part_info, deny_accounts, charp, FALSE); FETCH_FIELD(hv, part_info, deny_qos, charp, FALSE); FETCH_FIELD(hv, part_info, flags, uint16_t, TRUE); FETCH_FIELD(hv, part_info, grace_time, uint32_t, FALSE); FETCH_FIELD(hv, part_info, max_cpus_per_node, uint32_t, FALSE); FETCH_FIELD(hv, part_info, max_mem_per_cpu, uint32_t, FALSE); FETCH_FIELD(hv, part_info, max_nodes, uint32_t, TRUE); FETCH_FIELD(hv, part_info, max_share, uint16_t, TRUE); FETCH_FIELD(hv, part_info, max_time, uint32_t, TRUE); FETCH_FIELD(hv, part_info, min_nodes, uint32_t, TRUE); FETCH_FIELD(hv, part_info, name, charp, TRUE); svp = hv_fetch(hv, "node_inx", 8, FALSE); if (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { av = (AV*)SvRV(*svp); n = av_len(av) + 2; /* for trailing -1 */ part_info->node_inx = xmalloc(n * sizeof(int)); for (i = 0 ; i < n-1; i += 2) { part_info->node_inx[i] = (int)SvIV(*(av_fetch(av, i, FALSE))); part_info->node_inx[i+1] = (int)SvIV(*(av_fetch(av, i+1 ,FALSE))); } part_info->node_inx[n-1] = -1; } else { /* nothing to do */ } FETCH_FIELD(hv, part_info, nodes, charp, FALSE); FETCH_FIELD(hv, part_info, preempt_mode, uint16_t, TRUE); FETCH_FIELD(hv, part_info, priority, uint16_t, TRUE); FETCH_FIELD(hv, part_info, qos_char, charp, TRUE); FETCH_FIELD(hv, part_info, state_up, uint16_t, TRUE); FETCH_FIELD(hv, part_info, total_cpus, uint32_t, TRUE); FETCH_FIELD(hv, part_info, total_nodes, uint32_t, TRUE); return 0; }
/* * convert perl HV to job_step_info_t */ int hv_to_job_step_info(HV *hv, job_step_info_t *step_info) { SV **svp; AV *av; int i, n; FETCH_FIELD(hv, step_info, array_job_id, uint32_t, TRUE); FETCH_FIELD(hv, step_info, array_task_id, uint32_t, TRUE); FETCH_FIELD(hv, step_info, ckpt_dir, charp, FALSE); FETCH_FIELD(hv, step_info, ckpt_interval, uint16_t, TRUE); FETCH_FIELD(hv, step_info, gres, charp, FALSE); FETCH_FIELD(hv, step_info, job_id, uint16_t, TRUE); FETCH_FIELD(hv, step_info, name, charp, FALSE); FETCH_FIELD(hv, step_info, network, charp, FALSE); FETCH_FIELD(hv, step_info, nodes, charp, FALSE); svp = hv_fetch(hv, "node_inx", 8, FALSE); if (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { av = (AV*)SvRV(*svp); n = av_len(av) + 2; /* for trailing -1 */ step_info->node_inx = xmalloc(n * sizeof(int)); for (i = 0 ; i < n-1; i += 2) { step_info->node_inx[i] = (int)SvIV(*(av_fetch(av, i ,FALSE))); step_info->node_inx[i+1] = (int)SvIV(*(av_fetch(av, i+1 ,FALSE))); } step_info->node_inx[n-1] = -1; } else { /* nothing to do */ } FETCH_FIELD(hv, step_info, num_cpus, uint32_t, TRUE); FETCH_FIELD(hv, step_info, num_tasks, uint32_t, TRUE); FETCH_FIELD(hv, step_info, partition, charp, FALSE); FETCH_FIELD(hv, step_info, profile, uint32_t, TRUE); FETCH_FIELD(hv, step_info, resv_ports, charp, FALSE); FETCH_FIELD(hv, step_info, run_time, time_t, TRUE); FETCH_FIELD(hv, step_info, start_time, time_t, TRUE); FETCH_FIELD(hv, step_info, step_id, uint32_t, TRUE); FETCH_FIELD(hv, step_info, time_limit, uint32_t, TRUE); FETCH_FIELD(hv, step_info, user_id, uint32_t, TRUE); FETCH_FIELD(hv, step_info, state, uint16_t, TRUE); return 0; }
/* * convert perl HV to slurm_ctl_conf_t */ int hv_to_slurm_ctl_conf(HV *hv, slurm_ctl_conf_t *conf) { memset(conf, 0, sizeof(slurm_ctl_conf_t)); FETCH_FIELD(hv, conf, last_update, time_t, TRUE); FETCH_FIELD(hv, conf, acct_gather_profile_type, charp, FALSE); FETCH_FIELD(hv, conf, acct_gather_infiniband_type, charp, FALSE); FETCH_FIELD(hv, conf, acct_gather_filesystem_type, charp, FALSE); FETCH_FIELD(hv, conf, accounting_storage_enforce, uint16_t, TRUE); FETCH_FIELD(hv, conf, accounting_storage_backup_host, charp, FALSE); FETCH_FIELD(hv, conf, accounting_storage_host, charp, FALSE); FETCH_FIELD(hv, conf, accounting_storage_loc, charp, FALSE); FETCH_FIELD(hv, conf, accounting_storage_port, uint32_t, TRUE); FETCH_FIELD(hv, conf, accounting_storage_type, charp, FALSE); FETCH_FIELD(hv, conf, accounting_storage_user, charp, FALSE); FETCH_FIELD(hv, conf, authinfo, charp, FALSE); FETCH_FIELD(hv, conf, authtype, charp, FALSE); FETCH_FIELD(hv, conf, backup_addr, charp, FALSE); FETCH_FIELD(hv, conf, backup_controller, charp, FALSE); FETCH_FIELD(hv, conf, batch_start_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, boot_time, time_t, TRUE); FETCH_FIELD(hv, conf, checkpoint_type, charp, FALSE); FETCH_FIELD(hv, conf, cluster_name, charp, FALSE); FETCH_FIELD(hv, conf, complete_wait, uint16_t, TRUE); FETCH_FIELD(hv, conf, control_addr, charp, FALSE); FETCH_FIELD(hv, conf, control_machine, charp, FALSE); FETCH_FIELD(hv, conf, crypto_type, charp, FALSE); FETCH_FIELD(hv, conf, debug_flags, uint32_t, TRUE); FETCH_FIELD(hv, conf, def_mem_per_cpu, uint32_t, TRUE); FETCH_FIELD(hv, conf, disable_root_jobs, uint16_t, TRUE); FETCH_FIELD(hv, conf, dynalloc_port, uint16_t, TRUE); FETCH_FIELD(hv, conf, enforce_part_limits, uint16_t, TRUE); FETCH_FIELD(hv, conf, epilog, charp, FALSE); FETCH_FIELD(hv, conf, epilog_msg_time, uint32_t, TRUE); FETCH_FIELD(hv, conf, epilog_slurmctld, charp, FALSE); FETCH_FIELD(hv, conf, ext_sensors_freq, uint16_t, TRUE); FETCH_FIELD(hv, conf, fast_schedule, uint16_t, TRUE); FETCH_FIELD(hv, conf, first_job_id, uint32_t, TRUE); FETCH_FIELD(hv, conf, get_env_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, gres_plugins, charp, FALSE); FETCH_FIELD(hv, conf, group_info, uint16_t, TRUE); FETCH_FIELD(hv, conf, hash_val, uint32_t, TRUE); FETCH_FIELD(hv, conf, health_check_interval, uint16_t, TRUE); FETCH_FIELD(hv, conf, health_check_node_state, uint16_t, TRUE); FETCH_FIELD(hv, conf, health_check_program, charp, FALSE); FETCH_FIELD(hv, conf, inactive_limit, uint16_t, TRUE); FETCH_FIELD(hv, conf, job_acct_gather_freq, charp, TRUE); FETCH_FIELD(hv, conf, job_acct_gather_type, charp, FALSE); FETCH_FIELD(hv, conf, job_ckpt_dir, charp, FALSE); FETCH_FIELD(hv, conf, job_comp_host, charp, FALSE); FETCH_FIELD(hv, conf, job_comp_loc, charp, FALSE); FETCH_FIELD(hv, conf, job_comp_port, uint32_t, TRUE); FETCH_FIELD(hv, conf, job_comp_type, charp, FALSE); FETCH_FIELD(hv, conf, job_comp_user, charp, FALSE); FETCH_FIELD(hv, conf, job_credential_private_key, charp, FALSE); FETCH_FIELD(hv, conf, job_credential_public_certificate, charp, FALSE); FETCH_FIELD(hv, conf, job_file_append, uint16_t, TRUE); FETCH_FIELD(hv, conf, job_requeue, uint16_t, TRUE); FETCH_FIELD(hv, conf, job_submit_plugins, charp, FALSE); FETCH_FIELD(hv, conf, keep_alive_time, uint16_t, TRUE); FETCH_FIELD(hv, conf, kill_on_bad_exit, uint16_t, TRUE); FETCH_FIELD(hv, conf, kill_wait, uint16_t, TRUE); FETCH_FIELD(hv, conf, licenses, charp, FALSE); FETCH_FIELD(hv, conf, mail_prog, charp, FALSE); FETCH_FIELD(hv, conf, max_array_sz, uint16_t, TRUE); FETCH_FIELD(hv, conf, max_job_cnt, uint16_t, TRUE); FETCH_FIELD(hv, conf, max_mem_per_cpu, uint32_t, TRUE); FETCH_FIELD(hv, conf, max_tasks_per_node, uint16_t, TRUE); FETCH_FIELD(hv, conf, min_job_age, uint16_t, TRUE); FETCH_FIELD(hv, conf, mpi_default, charp, FALSE); FETCH_FIELD(hv, conf, mpi_params, charp, FALSE); FETCH_FIELD(hv, conf, msg_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, next_job_id, uint32_t, TRUE); FETCH_FIELD(hv, conf, node_prefix, charp, FALSE); FETCH_FIELD(hv, conf, over_time_limit, uint16_t, TRUE); FETCH_FIELD(hv, conf, plugindir, charp, FALSE); FETCH_FIELD(hv, conf, plugstack, charp, FALSE); FETCH_FIELD(hv, conf, preempt_mode, uint16_t, TRUE); FETCH_FIELD(hv, conf, preempt_type, charp, FALSE); FETCH_FIELD(hv, conf, priority_decay_hl, uint32_t, TRUE); FETCH_FIELD(hv, conf, priority_favor_small, uint16_t, TRUE); FETCH_FIELD(hv, conf, priority_max_age, uint32_t, TRUE); FETCH_FIELD(hv, conf, priority_reset_period, uint16_t, TRUE); FETCH_FIELD(hv, conf, priority_type, charp, FALSE); FETCH_FIELD(hv, conf, priority_weight_age, uint32_t, TRUE); FETCH_FIELD(hv, conf, priority_weight_fs, uint32_t, TRUE); FETCH_FIELD(hv, conf, priority_weight_js, uint32_t, TRUE); FETCH_FIELD(hv, conf, priority_weight_part, uint32_t, TRUE); FETCH_FIELD(hv, conf, priority_weight_qos, uint32_t, TRUE); FETCH_FIELD(hv, conf, private_data, uint16_t, TRUE); FETCH_FIELD(hv, conf, proctrack_type, charp, FALSE); FETCH_FIELD(hv, conf, prolog, charp, FALSE); FETCH_FIELD(hv, conf, prolog_slurmctld, charp, FALSE); FETCH_FIELD(hv, conf, prolog_flags, uint16_t, TRUE); FETCH_FIELD(hv, conf, propagate_prio_process, uint16_t, TRUE); FETCH_FIELD(hv, conf, propagate_rlimits, charp, FALSE); FETCH_FIELD(hv, conf, propagate_rlimits_except, charp, FALSE); FETCH_FIELD(hv, conf, reconfig_flags, uint16_t, TRUE); FETCH_FIELD(hv, conf, resume_program, charp, FALSE); FETCH_FIELD(hv, conf, resume_rate, uint16_t, TRUE); FETCH_FIELD(hv, conf, resume_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, resv_epilog, charp, FALSE); FETCH_FIELD(hv, conf, resv_over_run, uint16_t, TRUE); FETCH_FIELD(hv, conf, resv_prolog, charp, FALSE); FETCH_FIELD(hv, conf, ret2service, uint16_t, TRUE); FETCH_FIELD(hv, conf, salloc_default_command, charp, FALSE); FETCH_FIELD(hv, conf, sched_logfile, charp, FALSE); FETCH_FIELD(hv, conf, sched_log_level, uint16_t, TRUE); FETCH_FIELD(hv, conf, sched_params, charp, FALSE); FETCH_FIELD(hv, conf, sched_time_slice, uint16_t, TRUE); FETCH_FIELD(hv, conf, schedtype, charp, FALSE); FETCH_FIELD(hv, conf, schedport, uint16_t, TRUE); FETCH_FIELD(hv, conf, schedrootfltr, uint16_t, TRUE); FETCH_FIELD(hv, conf, select_type, charp, FALSE); /* TODO: select_conf_key_pairs */ FETCH_FIELD(hv, conf, select_type_param, uint16_t, TRUE); FETCH_FIELD(hv, conf, slurm_conf, charp, FALSE); FETCH_FIELD(hv, conf, slurm_user_id, uint32_t, TRUE); FETCH_FIELD(hv, conf, slurm_user_name, charp, FALSE); FETCH_FIELD(hv, conf, slurmd_user_id, uint32_t, TRUE); FETCH_FIELD(hv, conf, slurmd_user_name, charp, FALSE); FETCH_FIELD(hv, conf, slurmctld_debug, uint16_t, TRUE); FETCH_FIELD(hv, conf, slurmctld_logfile, charp, FALSE); FETCH_FIELD(hv, conf, slurmctld_pidfile, charp, FALSE); FETCH_FIELD(hv, conf, slurmctld_plugstack, charp, FALSE); FETCH_FIELD(hv, conf, slurmctld_port, uint32_t, TRUE); FETCH_FIELD(hv, conf, slurmctld_port_count, uint16_t, TRUE); FETCH_FIELD(hv, conf, slurmctld_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, slurmd_debug, uint16_t, TRUE); FETCH_FIELD(hv, conf, slurmd_logfile, charp, FALSE); FETCH_FIELD(hv, conf, slurmd_pidfile, charp, FALSE); FETCH_FIELD(hv, conf, slurmd_port, uint32_t, TRUE); FETCH_FIELD(hv, conf, slurmd_spooldir, charp, FALSE); FETCH_FIELD(hv, conf, slurmd_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, srun_epilog, charp, FALSE); FETCH_FIELD(hv, conf, srun_prolog, charp, FALSE); FETCH_FIELD(hv, conf, state_save_location, charp, FALSE); FETCH_FIELD(hv, conf, suspend_exc_nodes, charp, FALSE); FETCH_FIELD(hv, conf, suspend_exc_parts, charp, FALSE); FETCH_FIELD(hv, conf, suspend_program, charp, FALSE); FETCH_FIELD(hv, conf, suspend_rate, uint16_t, TRUE); FETCH_FIELD(hv, conf, suspend_time, uint32_t, TRUE); FETCH_FIELD(hv, conf, suspend_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, switch_type, charp, FALSE); FETCH_FIELD(hv, conf, task_epilog, charp, FALSE); FETCH_FIELD(hv, conf, task_plugin, charp, FALSE); FETCH_FIELD(hv, conf, task_plugin_param, uint16_t, TRUE); FETCH_FIELD(hv, conf, task_prolog, charp, FALSE); FETCH_FIELD(hv, conf, tmp_fs, charp, FALSE); FETCH_FIELD(hv, conf, topology_plugin, charp, FALSE); FETCH_FIELD(hv, conf, track_wckey, uint16_t, TRUE); FETCH_FIELD(hv, conf, tree_width, uint16_t, TRUE); FETCH_FIELD(hv, conf, unkillable_program, charp, FALSE); FETCH_FIELD(hv, conf, unkillable_timeout, uint16_t, TRUE); FETCH_FIELD(hv, conf, use_pam, uint16_t, TRUE); FETCH_FIELD(hv, conf, version, charp, FALSE); FETCH_FIELD(hv, conf, vsize_factor, uint16_t, TRUE); FETCH_FIELD(hv, conf, wait_time, uint16_t, TRUE); return 0; }
/* * convert perl HV to job_info_t */ int hv_to_job_info(HV *hv, job_info_t *job_info) { SV **svp; AV *av; int i, n; memset(job_info, 0, sizeof(job_info_t)); FETCH_FIELD(hv, job_info, account, charp, FALSE); FETCH_FIELD(hv, job_info, alloc_node, charp, FALSE); FETCH_FIELD(hv, job_info, alloc_sid, uint32_t, TRUE); FETCH_FIELD(hv, job_info, batch_flag, uint16_t, TRUE); FETCH_FIELD(hv, job_info, command, charp, FALSE); FETCH_FIELD(hv, job_info, comment, charp, FALSE); FETCH_FIELD(hv, job_info, contiguous, uint16_t, TRUE); FETCH_FIELD(hv, job_info, cpus_per_task, uint16_t, TRUE); FETCH_FIELD(hv, job_info, dependency, charp, FALSE); FETCH_FIELD(hv, job_info, derived_ec, uint32_t, TRUE); FETCH_FIELD(hv, job_info, eligible_time, time_t, TRUE); FETCH_FIELD(hv, job_info, end_time, time_t, TRUE); FETCH_FIELD(hv, job_info, exc_nodes, charp, FALSE); svp = hv_fetch(hv, "exc_node_inx", 12, FALSE); if (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { av = (AV*)SvRV(*svp); n = av_len(av) + 2; /* for trailing -1 */ job_info->exc_node_inx = xmalloc(n * sizeof(int)); for (i = 0; i < n-1; i += 2) { job_info->exc_node_inx[i] = (int)SvIV(*(av_fetch(av, i, FALSE))); job_info->exc_node_inx[i+1] = (int)SvIV(*(av_fetch(av, i+1, FALSE))); } job_info->exc_node_inx[n-1] = -1; } else { /* nothing to do */ } FETCH_FIELD(hv, job_info, exit_code, uint32_t, TRUE); FETCH_FIELD(hv, job_info, features, charp, FALSE); FETCH_FIELD(hv, job_info, gres, charp, FALSE); FETCH_FIELD(hv, job_info, group_id, uint32_t, TRUE); FETCH_FIELD(hv, job_info, job_id, uint32_t, TRUE); FETCH_FIELD(hv, job_info, job_state, uint16_t, TRUE); FETCH_FIELD(hv, job_info, licenses, charp, FALSE); FETCH_FIELD(hv, job_info, max_cpus, uint32_t, TRUE); FETCH_FIELD(hv, job_info, max_nodes, uint32_t, TRUE); FETCH_FIELD(hv, job_info, sockets_per_node, uint16_t, TRUE); FETCH_FIELD(hv, job_info, cores_per_socket, uint16_t, TRUE); FETCH_FIELD(hv, job_info, threads_per_core, uint16_t, TRUE); FETCH_FIELD(hv, job_info, name, charp, FALSE); FETCH_FIELD(hv, job_info, network, charp, FALSE); FETCH_FIELD(hv, job_info, nice, uint16_t, TRUE); FETCH_FIELD(hv, job_info, nodes, charp, FALSE); svp = hv_fetch(hv, "node_inx", 8, FALSE); if (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { av = (AV*)SvRV(*svp); n = av_len(av) + 2; /* for trailing -1 */ job_info->node_inx = xmalloc(n * sizeof(int)); for (i = 0; i < n-1; i += 2) { job_info->node_inx[i] = (int)SvIV(*(av_fetch(av, i, FALSE))); job_info->node_inx[i+1] = (int)SvIV(*(av_fetch(av, i+1, FALSE))); } job_info->node_inx[n-1] = -1; } else { /* nothing to do */ } FETCH_FIELD(hv, job_info, ntasks_per_core, uint16_t, TRUE); FETCH_FIELD(hv, job_info, ntasks_per_node, uint16_t, TRUE); FETCH_FIELD(hv, job_info, ntasks_per_socket, uint16_t, TRUE); FETCH_FIELD(hv, job_info, num_nodes, uint32_t, TRUE); FETCH_FIELD(hv, job_info, num_cpus, uint32_t, TRUE); FETCH_FIELD(hv, job_info, pn_min_memory, uint32_t, TRUE); FETCH_FIELD(hv, job_info, pn_min_cpus, uint16_t, TRUE); FETCH_FIELD(hv, job_info, pn_min_tmp_disk, uint32_t, TRUE); FETCH_FIELD(hv, job_info, partition, charp, FALSE); FETCH_FIELD(hv, job_info, qos, charp, FALSE); FETCH_FIELD(hv, job_info, req_nodes, charp, FALSE); svp = hv_fetch(hv, "req_node_inx", 12, FALSE); if (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { av = (AV*)SvRV(*svp); n = av_len(av) + 2; /* for trailing -1 */ job_info->req_node_inx = xmalloc(n * sizeof(int)); for (i = 0; i < n-1; i += 2) { job_info->req_node_inx[i] = (int)SvIV(*(av_fetch(av, i, FALSE))); job_info->req_node_inx[i+1] = (int)SvIV(*(av_fetch(av, i+1, FALSE))); } job_info->req_node_inx[n-1] = -1; } else { /* nothing to do */ } FETCH_FIELD(hv, job_info, req_switch, uint32_t, FALSE); FETCH_FIELD(hv, job_info, requeue, uint16_t, TRUE); FETCH_FIELD(hv, job_info, resize_time, time_t, TRUE); FETCH_FIELD(hv, job_info, restart_cnt, uint16_t, TRUE); FETCH_FIELD(hv, job_info, resv_name, charp, FALSE); FETCH_PTR_FIELD(hv, job_info, select_jobinfo, "Slurm::dynamic_plugin_data_t", FALSE); FETCH_PTR_FIELD(hv, job_info, job_resrcs, "Slurm::job_resources_t", FALSE); FETCH_FIELD(hv, job_info, shared, uint16_t, TRUE); FETCH_FIELD(hv, job_info, show_flags, uint16_t, TRUE); FETCH_FIELD(hv, job_info, start_time, time_t, TRUE); FETCH_FIELD(hv, job_info, state_desc, charp, FALSE); FETCH_FIELD(hv, job_info, state_reason, uint16_t, TRUE); FETCH_FIELD(hv, job_info, submit_time, time_t, TRUE); FETCH_FIELD(hv, job_info, suspend_time, time_t, TRUE); FETCH_FIELD(hv, job_info, time_limit, uint32_t, TRUE); FETCH_FIELD(hv, job_info, time_min, uint32_t, TRUE); FETCH_FIELD(hv, job_info, wait4switch, uint32_t, FALSE); FETCH_FIELD(hv, job_info, wckey, charp, FALSE); FETCH_FIELD(hv, job_info, work_dir, charp, FALSE); return 0; }
/* * convert perl HV to resv_desc_msg_t. */ int hv_to_update_reservation_msg(HV *hv, resv_desc_msg_t *resv_msg) { slurm_init_resv_desc_msg(resv_msg); FETCH_FIELD(hv, resv_msg, accounts, charp, FALSE); FETCH_FIELD(hv, resv_msg, duration, uint32_t, FALSE); FETCH_FIELD(hv, resv_msg, end_time, time_t, FALSE); FETCH_FIELD(hv, resv_msg, features, charp, FALSE); FETCH_FIELD(hv, resv_msg, flags, uint16_t, FALSE); FETCH_FIELD(hv, resv_msg, licenses, charp, FALSE); FETCH_FIELD(hv, resv_msg, name, charp, FALSE); FETCH_PTR_FIELD(hv, resv_msg, node_cnt, "SLURM::uint32_t", FALSE); FETCH_FIELD(hv, resv_msg, node_list, charp, FALSE); FETCH_FIELD(hv, resv_msg, partition, charp, FALSE); FETCH_FIELD(hv, resv_msg, start_time, time_t, FALSE); FETCH_FIELD(hv, resv_msg, users, charp, FALSE); return 0; }
/* * convert perl HV to reserve_info_t */ int hv_to_reserve_info(HV *hv, reserve_info_t *resv_info) { SV **svp; AV *av; int i, n; memset(resv_info, 0, sizeof(reserve_info_t)); FETCH_FIELD(hv, resv_info, accounts, charp, FALSE); FETCH_FIELD(hv, resv_info, end_time, time_t, TRUE); FETCH_FIELD(hv, resv_info, features, charp, FALSE); FETCH_FIELD(hv, resv_info, flags, uint16_t, TRUE); FETCH_FIELD(hv, resv_info, licenses, charp, FALSE); FETCH_FIELD(hv, resv_info, name, charp, TRUE); FETCH_FIELD(hv, resv_info, node_cnt, uint32_t, TRUE); svp = hv_fetch(hv, "node_inx", 8, FALSE); if (svp && SvROK(*svp) && SvTYPE(SvRV(*svp)) == SVt_PVAV) { av = (AV*)SvRV(*svp); n = av_len(av) + 2; /* for trailing -1 */ resv_info->node_inx = xmalloc(n * sizeof(int)); for (i = 0 ; i < n-1; i += 2) { resv_info->node_inx[i] = (int)SvIV(*(av_fetch(av, i ,FALSE))); resv_info->node_inx[i+1] = (int)SvIV(*(av_fetch(av, i+1 ,FALSE))); } resv_info->node_inx[n-1] = -1; } else { /* nothing to do */ } FETCH_FIELD(hv, resv_info, node_list, charp, FALSE); FETCH_FIELD(hv, resv_info, partition, charp, FALSE); FETCH_FIELD(hv, resv_info, start_time, time_t, TRUE); FETCH_FIELD(hv, resv_info, users, charp, FALSE); return 0; }
/* * convert perl HV to update_part_msg_t */ int hv_to_update_part_msg(HV *hv, update_part_msg_t *part_msg) { slurm_init_part_desc_msg(part_msg); FETCH_FIELD(hv, part_msg, allow_alloc_nodes, charp, FALSE); FETCH_FIELD(hv, part_msg, allow_groups, charp, FALSE); FETCH_FIELD(hv, part_msg, default_time, uint32_t, FALSE); FETCH_FIELD(hv, part_msg, flags, uint16_t, FALSE); FETCH_FIELD(hv, part_msg, max_nodes, uint32_t, FALSE); FETCH_FIELD(hv, part_msg, max_share, uint16_t, FALSE); FETCH_FIELD(hv, part_msg, max_time, uint32_t, FALSE); FETCH_FIELD(hv, part_msg, min_nodes, uint32_t, FALSE); FETCH_FIELD(hv, part_msg, name, charp, TRUE); /*not used node_inx */ FETCH_FIELD(hv, part_msg, nodes, charp, FALSE); FETCH_FIELD(hv, part_msg, priority, uint16_t, FALSE); FETCH_FIELD(hv, part_msg, state_up, uint16_t, FALSE); FETCH_FIELD(hv, part_msg, total_cpus, uint32_t, FALSE); FETCH_FIELD(hv, part_msg, total_nodes, uint32_t, FALSE); return 0; }
int hv_to_job_cond(HV* hv, slurmdb_job_cond_t* job_cond) { AV* element_av; SV** svp; char* str = NULL; int i, elements = 0; time_t start_time = 0; time_t end_time = 0; if ( (svp = hv_fetch (hv, "step_list", strlen("step_list"), FALSE)) ) { char *jobids = (char *) (SvPV_nolen(*svp)); if (!job_cond->step_list) job_cond->step_list = slurm_list_create(slurmdb_destroy_selected_step); slurm_addto_step_list(job_cond->step_list, jobids); } if ( (svp = hv_fetch (hv, "usage_start", strlen("usage_start"), FALSE)) ) { start_time = (time_t) (SV2time_t(*svp)); } if ( (svp = hv_fetch (hv, "usage_end", strlen("usage_end"), FALSE)) ) { end_time = (time_t) (SV2time_t(*svp)); } slurmdb_report_set_start_end_time(&start_time, &end_time); job_cond->usage_start = start_time; job_cond->usage_end = end_time; job_cond->cpus_max = 0; job_cond->cpus_min = 0; job_cond->duplicates = 0; job_cond->nodes_max = 0; job_cond->nodes_min = 0; job_cond->used_nodes = NULL; job_cond->without_steps = 0; job_cond->without_usage_truncation = 0; FETCH_FIELD(hv, job_cond, cpus_max, uint32_t, FALSE); FETCH_FIELD(hv, job_cond, cpus_min, uint32_t, FALSE); FETCH_FIELD(hv, job_cond, duplicates, uint16_t, FALSE); FETCH_FIELD(hv, job_cond, exitcode, int32_t, FALSE); FETCH_FIELD(hv, job_cond, nodes_max, uint32_t, FALSE); FETCH_FIELD(hv, job_cond, nodes_min, uint32_t, FALSE); FETCH_FIELD(hv, job_cond, timelimit_max, uint32_t, FALSE); FETCH_FIELD(hv, job_cond, timelimit_min, uint32_t, FALSE); FETCH_FIELD(hv, job_cond, usage_end, time_t, FALSE); FETCH_FIELD(hv, job_cond, usage_start, time_t, FALSE); FETCH_FIELD(hv, job_cond, used_nodes, charp, FALSE); FETCH_FIELD(hv, job_cond, without_steps, uint16_t, FALSE); FETCH_FIELD(hv, job_cond, without_usage_truncation, uint16_t, FALSE); FETCH_LIST_FIELD(hv, job_cond, acct_list); FETCH_LIST_FIELD(hv, job_cond, associd_list); FETCH_LIST_FIELD(hv, job_cond, cluster_list); FETCH_LIST_FIELD(hv, job_cond, groupid_list); FETCH_LIST_FIELD(hv, job_cond, jobname_list); FETCH_LIST_FIELD(hv, job_cond, partition_list); FETCH_LIST_FIELD(hv, job_cond, qos_list); FETCH_LIST_FIELD(hv, job_cond, resv_list); FETCH_LIST_FIELD(hv, job_cond, resvid_list); FETCH_LIST_FIELD(hv, job_cond, state_list); FETCH_LIST_FIELD(hv, job_cond, userid_list); FETCH_LIST_FIELD(hv, job_cond, wckey_list); return 0; }