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;
}
