int
report_assoc_rec_to_hv(slurmdb_report_assoc_rec_t* rec, HV* hv)
{
AV* my_av;
HV* rh;
slurmdb_tres_rec_t *tres_rec = NULL;
ListIterator itr = NULL;
STORE_FIELD(hv, rec, acct, charp);
STORE_FIELD(hv, rec, cluster, charp);
STORE_FIELD(hv, rec, parent_acct, charp);
my_av = (AV*)sv_2mortal((SV*)newAV());
if (rec->tres_list) {
itr = slurm_list_iterator_create(rec->tres_list);
while ((tres_rec = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (tres_rec_to_hv(tres_rec, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a tres_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(my_av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "tres_list", newRV((SV*)my_av));
STORE_FIELD(hv, rec, user, charp);
return 0;
}
int
report_job_grouping_to_hv(slurmdb_report_job_grouping_t* rec, HV* hv)
{
AV* my_av;
HV* rh;
slurmdb_tres_rec_t *tres_rec = NULL;
ListIterator itr = NULL;
/* FIX ME: include the job list here (is is not NULL, as
* previously thought) */
STORE_FIELD(hv, rec, min_size, uint32_t);
STORE_FIELD(hv, rec, max_size, uint32_t);
STORE_FIELD(hv, rec, count, uint32_t);
my_av = (AV*)sv_2mortal((SV*)newAV());
if (rec->tres_list) {
itr = slurm_list_iterator_create(rec->tres_list);
while ((tres_rec = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (tres_rec_to_hv(tres_rec, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a tres_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(my_av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "tres_list", newRV((SV*)my_av));
return 0;
}
/*
* convert job_step_stat_response_msg_t to perl HV
*/
int
job_step_stat_response_msg_to_hv(job_step_stat_response_msg_t *stat_msg, HV *hv)
{
int i = 0;
ListIterator itr;
job_step_stat_t *stat;
AV *av;
HV *hv_stat;
STORE_FIELD(hv, stat_msg, job_id, uint32_t);
STORE_FIELD(hv, stat_msg, step_id, uint32_t);
av = newAV();
itr = slurm_list_iterator_create(stat_msg->stats_list);
while((stat = (job_step_stat_t *)slurm_list_next(itr))) {
hv_stat = newHV();
if(job_step_stat_to_hv(stat, hv_stat) < 0) {
Perl_warn(aTHX_ "failed to convert job_step_stat_t to hv for job_step_stat_response_msg_t");
SvREFCNT_dec(hv_stat);
SvREFCNT_dec(av);
return -1;
}
av_store(av, i++, newRV_noinc((SV*)hv_stat));
}
slurm_list_iterator_destroy(itr);
hv_store_sv(hv, "stats_list", newRV_noinc((SV*)av));
return 0;
}
int
cluster_rec_to_hv(slurmdb_cluster_rec_t* rec, HV* hv)
{
AV* my_av;
HV* rh;
ListIterator itr = NULL;
slurmdb_cluster_accounting_rec_t* ar = NULL;
my_av = (AV*)sv_2mortal((SV*)newAV());
if (rec->accounting_list) {
itr = slurm_list_iterator_create(rec->accounting_list);
while ((ar = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (cluster_accounting_rec_to_hv(ar, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a cluster_accounting_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(my_av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "accounting_list", newRV((SV*)my_av));
STORE_FIELD(hv, rec, classification, uint16_t);
STORE_FIELD(hv, rec, control_host, charp);
STORE_FIELD(hv, rec, control_port, uint32_t);
STORE_FIELD(hv, rec, dimensions, uint16_t);
STORE_FIELD(hv, rec, flags, uint32_t);
STORE_FIELD(hv, rec, name, charp);
STORE_FIELD(hv, rec, nodes, charp);
STORE_FIELD(hv, rec, plugin_id_select, uint32_t);
/* slurmdb_assoc_rec_t* root_assoc; */
STORE_FIELD(hv, rec, rpc_version, uint16_t);
STORE_FIELD(hv, rec, tres_str, charp);
return 0;
}
int
report_cluster_rec_list_to_av(List list, AV* av)
{
HV* rh;
ListIterator itr = NULL;
slurmdb_report_cluster_rec_t* rec = NULL;
if (list) {
itr = slurm_list_iterator_create(list);
while ((rec = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (report_cluster_rec_to_hv(rec, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a report_cluster_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
return 0;
}
int
job_rec_to_hv(slurmdb_job_rec_t* rec, HV* hv)
{
slurmdb_step_rec_t *step;
ListIterator itr = NULL;
AV* steps_av = (AV*)sv_2mortal((SV*)newAV());
HV* stats_hv = (HV*)sv_2mortal((SV*)newHV());
HV* step_hv;
stats_to_hv(&rec->stats, stats_hv);
hv_store_sv(hv, "stats", newRV((SV*)stats_hv));
if (rec->steps) {
itr = slurm_list_iterator_create(rec->steps);
while ((step = slurm_list_next(itr))) {
step_hv = (HV*)sv_2mortal((SV*)newHV());
step_rec_to_hv(step, step_hv);
av_push(steps_av, newRV((SV*)step_hv));
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "steps", newRV((SV*)steps_av));
STORE_FIELD(hv, rec, account, charp);
STORE_FIELD(hv, rec, alloc_gres, charp);
STORE_FIELD(hv, rec, alloc_nodes, uint32_t);
STORE_FIELD(hv, rec, array_job_id, uint32_t);
STORE_FIELD(hv, rec, array_max_tasks, uint32_t);
STORE_FIELD(hv, rec, array_task_id, uint32_t);
STORE_FIELD(hv, rec, array_task_str, charp);
STORE_FIELD(hv, rec, associd, uint32_t);
STORE_FIELD(hv, rec, blockid, charp);
STORE_FIELD(hv, rec, cluster, charp);
STORE_FIELD(hv, rec, derived_ec, uint32_t);
STORE_FIELD(hv, rec, derived_es, charp);
STORE_FIELD(hv, rec, elapsed, uint32_t);
STORE_FIELD(hv, rec, eligible, time_t);
STORE_FIELD(hv, rec, end, time_t);
STORE_FIELD(hv, rec, exitcode, uint32_t);
/*STORE_FIELD(hv, rec, first_step_ptr, void*);*/
STORE_FIELD(hv, rec, gid, uint32_t);
STORE_FIELD(hv, rec, jobid, uint32_t);
STORE_FIELD(hv, rec, jobname, charp);
STORE_FIELD(hv, rec, lft, uint32_t);
STORE_FIELD(hv, rec, partition, charp);
STORE_FIELD(hv, rec, nodes, charp);
STORE_FIELD(hv, rec, priority, uint32_t);
STORE_FIELD(hv, rec, qosid, uint32_t);
STORE_FIELD(hv, rec, req_cpus, uint32_t);
STORE_FIELD(hv, rec, req_gres, charp);
STORE_FIELD(hv, rec, req_mem, uint32_t);
STORE_FIELD(hv, rec, requid, uint32_t);
STORE_FIELD(hv, rec, resvid, uint32_t);
STORE_FIELD(hv, rec, resv_name, charp);
STORE_FIELD(hv, rec, show_full, uint32_t);
STORE_FIELD(hv, rec, start, time_t);
STORE_FIELD(hv, rec, state, uint32_t);
STORE_FIELD(hv, rec, submit, time_t);
STORE_FIELD(hv, rec, suspended, uint32_t);
STORE_FIELD(hv, rec, sys_cpu_sec, uint32_t);
STORE_FIELD(hv, rec, sys_cpu_usec, uint32_t);
STORE_FIELD(hv, rec, timelimit, uint32_t);
STORE_FIELD(hv, rec, tot_cpu_sec, uint32_t);
STORE_FIELD(hv, rec, tot_cpu_usec, uint32_t);
STORE_FIELD(hv, rec, track_steps, uint16_t);
STORE_FIELD(hv, rec, tres_alloc_str, charp);
STORE_FIELD(hv, rec, uid, uint32_t);
STORE_FIELD(hv, rec, used_gres, charp);
STORE_FIELD(hv, rec, user, charp);
STORE_FIELD(hv, rec, user_cpu_sec, uint32_t);
STORE_FIELD(hv, rec, user_cpu_usec, uint32_t);
STORE_FIELD(hv, rec, wckey, charp);
STORE_FIELD(hv, rec, wckeyid, uint32_t);
return 0;
}
int
report_cluster_rec_to_hv(slurmdb_report_cluster_rec_t* rec, HV* hv)
{
AV* my_av;
HV* rh;
slurmdb_report_assoc_rec_t* ar = NULL;
slurmdb_report_user_rec_t* ur = NULL;
slurmdb_tres_rec_t *tres_rec = NULL;
ListIterator itr = NULL;
/* FIXME: do the accounting_list (add function to parse
* slurmdb_accounting_rec_t) */
my_av = (AV*)sv_2mortal((SV*)newAV());
if (rec->assoc_list) {
itr = slurm_list_iterator_create(rec->assoc_list);
while ((ar = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (report_assoc_rec_to_hv(ar, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a report_assoc_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(my_av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "assoc_list", newRV((SV*)my_av));
STORE_FIELD(hv, rec, name, charp);
my_av = (AV*)sv_2mortal((SV*)newAV());
if (rec->tres_list) {
itr = slurm_list_iterator_create(rec->tres_list);
while ((tres_rec = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (tres_rec_to_hv(tres_rec, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a tres_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(my_av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "tres_list", newRV((SV*)my_av));
my_av = (AV*)sv_2mortal((SV*)newAV());
if (rec->user_list) {
itr = slurm_list_iterator_create(rec->user_list);
while ((ur = slurm_list_next(itr))) {
rh = (HV*)sv_2mortal((SV*)newHV());
if (report_user_rec_to_hv(ur, rh) < 0) {
Perl_warn(aTHX_ "Failed to convert a report_user_rec to a hv");
slurm_list_iterator_destroy(itr);
return -1;
} else {
av_push(my_av, newRV((SV*)rh));
}
}
slurm_list_iterator_destroy(itr);
}
hv_store_sv(hv, "user_list", newRV((SV*)my_av));
return 0;
}
