/**
* @brief
* free_resource_resv - free a resource resv strcture an all of it's ptrs
*
* @param[in] resresv - resource_resv to free
*
* @return nothing
*
*/
void
free_resource_resv(resource_resv *resresv)
{
if (resresv == NULL)
return;
if (resresv->name != NULL)
free(resresv->name);
if (resresv->user != NULL)
free(resresv->user);
if (resresv->group != NULL)
free(resresv->group);
if (resresv->project != NULL)
free(resresv->project);
if (resresv->nodepart_name != NULL)
free(resresv->nodepart_name);
if (resresv->select != NULL)
free_selspec(resresv->select);
if (resresv->execselect != NULL)
free_selspec(resresv->execselect);
if (resresv->place_spec != NULL)
free_place(resresv->place_spec);
if (resresv->resreq != NULL)
free_resource_req_list(resresv->resreq);
if (resresv->ninfo_arr != NULL)
free(resresv->ninfo_arr);
if (resresv->nspec_arr != NULL)
free_nspecs(resresv->nspec_arr);
if (resresv->job != NULL)
free_job_info(resresv->job);
if (resresv->resv != NULL)
free_resv_info(resresv->resv);
if (resresv->aoename != NULL)
free(resresv->aoename);
if (resresv->eoename != NULL)
free(resresv->eoename);
if (resresv->node_set_str != NULL)
free_string_array(resresv->node_set_str);
if (resresv->node_set != NULL)
free(resresv->node_set);
free(resresv);
}
/*
*
* free_prev_job_info - free a prev_job_info struct
*
* pjinfo - prev_job_info to free
*
* returns nothing
*
*/
void free_prev_job_info(prev_job_info *pjinfo)
{
if (pjinfo -> name != NULL)
free(pjinfo -> name);
if (pjinfo -> account != NULL)
free(pjinfo -> account);
free_resource_req_list(pjinfo -> resused);
}
/**
* @brief
* free_chunk - destructor for chunk
*
* @param[in,out] ch - chunk structure to be freed.
*/
void
free_chunk(chunk *ch)
{
if (ch == NULL)
return;
if (ch->str_chunk != NULL)
free(ch->str_chunk);
if (ch->req != NULL)
free_resource_req_list(ch->req);
free(ch);
}
/**
* @brief
* update_resresv_on_end - update a resource_resv structure when
* it ends
*
* @param[out] resresv - the resresv to update
* @param[in] job_state - the new state if resresv is a job
*
* @return nothing
*
*/
void
update_resresv_on_end(resource_resv *resresv, char *job_state)
{
queue_info *resv_queue;
resource_resv *next_occr = NULL;
time_t next_occr_time;
char logbuf[MAX_LOG_SIZE];
int ret;
int i;
if (resresv == NULL)
return;
/* now that it isn't running, it might be runnable again */
resresv->can_not_run = 0;
/* unless of course it's a job and its queue is in an ineligible state */
if (resresv->is_job && resresv->job != NULL &&
!resresv->job->queue->is_ok_to_run)
resresv->can_not_run = 1;
/* no longer running... clear start and end times */
resresv->start = UNSPECIFIED;
resresv->end = UNSPECIFIED;
if (resresv->is_job && resresv->job != NULL) {
set_job_state(job_state, resresv->job);
if (resresv->job->is_suspended) {
#ifndef NAS /* localmod 005 */
int i;
#endif /* localmod 005 */
nspec **ns = resresv->nspec_arr;
resresv->job->is_susp_sched = 1;
for (i = 0; ns[i] != NULL; i++)
ns[i]->ninfo->num_susp_jobs++;
}
resresv->job->is_provisioning = 0;
/* free resources allocated to job since it's now been requeued */
if (resresv->job->is_queued && !resresv->job->is_checkpointed) {
free(resresv->ninfo_arr);
resresv->ninfo_arr = NULL;
free_nspecs(resresv->nspec_arr);
resresv->nspec_arr = NULL;
free_resource_req_list(resresv->job->resused);
resresv->job->resused = NULL;
if (resresv->nodepart_name != NULL) {
free(resresv->nodepart_name);
resresv->nodepart_name = NULL;
}
free_selspec(resresv->execselect);
resresv->execselect = NULL;
}
}
else if (resresv->is_resv && resresv->resv !=NULL) {
resresv->resv->resv_state = RESV_DELETED;
resv_queue = find_queue_info(resresv->server->queues,
resresv->resv->queuename);
if (resv_queue != NULL) {
resv_queue->is_started = 0;
ret = is_ok_to_run_queue(resresv->server->policy, resv_queue);
if (ret == SUCCESS)
resv_queue->is_ok_to_run = 1;
else
resv_queue->is_ok_to_run = 0;
if (resresv->resv->is_standing) {
/* This occurrence is over, move resv pointers of all jobs that are
* left to next occurrence if one exists
*/
if (resresv->resv->resv_idx < resresv->resv->count) {
next_occr_time = get_occurrence(resresv->resv->rrule,
resresv->resv->req_start, resresv->resv->timezone, 2);
if (next_occr_time >= 0) {
next_occr = find_resource_resv_by_time(resresv->server->resvs,
resresv->name, next_occr_time);
if (next_occr != NULL) {
if (resv_queue->jobs != NULL) {
for (i = 0; resv_queue->jobs[i] != NULL; i++) {
if (in_runnable_state(resv_queue->jobs[i]))
resv_queue->jobs[i]->job->resv = next_occr;
}
}
}
else {
snprintf(logbuf, MAX_LOG_SIZE,
"Can't find occurrence of standing reservation at time %ld",
next_occr_time);
schdlog(PBSEVENT_DEBUG, PBS_EVENTCLASS_SERVER, LOG_DEBUG,
resresv->name, logbuf);
}
}
}
}
}
}
}
