static void i_fg(void)
{
size_t sz_is, sz_pts;
int x, y, w, h;
const bool *m;
INDEX_T *is = NULL;
v2f_t *scrpts = NULL;
v2f_t *texpts = NULL;
w = e.levels[e.i].bmp.w;
h = e.levels[e.i].bmp.h;
m = e.levels[e.i].bmp.m;
er.fg.no_indices = 0;
er.fg.tex = er.fg_tex;
er.fg.scl.x = 2.0f / (float) w;
er.fg.scl.y = 2.0f / (float) h;
er.fg.rot.x = 0; /* sin(0) = 0 */
er.fg.rot.y = 1; /* cos(0) = 1 */
er.fg.mov.x = er.fg.mov.y = -1;
for (y = 0; y < h; ++y)
for (x = 0; x < w; ++x)
add_tile(x, y, w, m, &er.fg.no_indices, &is, &scrpts, &texpts);
add_dest(&er.fg.no_indices, &is, &scrpts, &texpts);
sz_is = er.fg.no_indices * sizeof(*is);
sz_pts= er.fg.no_indices / 6 * 4 * sizeof(*scrpts);
er.fg.indices= mk_vbo(GL_ELEMENT_ARRAY_BUFFER, sz_is, is, GL_STATIC_DRAW);
er.fg.scrpts = mk_vbo(GL_ARRAY_BUFFER, sz_pts, scrpts, GL_STATIC_DRAW);
er.fg.texpts = mk_vbo(GL_ARRAY_BUFFER, sz_pts, texpts, GL_STATIC_DRAW);
free(texpts);
free(scrpts);
free(is);
}
int
default_router(job *jobp, struct pbs_queue *qp, long retry_time)
{
struct array_strings *dest_attr = NULL;
char *destination;
int last;
if (qp->qu_attr[(int)QR_ATR_RouteDestin].at_flags & ATR_VFLAG_SET) {
dest_attr = qp->qu_attr[(int)QR_ATR_RouteDestin].at_val.at_arst;
last = dest_attr->as_usedptr;
} else
last = 0;
/* loop through all possible destinations */
while (1) {
if (jobp->ji_lastdest >= last) {
jobp->ji_lastdest = 0; /* have tried all */
if (jobp->ji_retryok == 0) {
log_event(PBSEVENT_JOB, PBS_EVENTCLASS_JOB,
LOG_DEBUG,
jobp->ji_qs.ji_jobid, msg_routebad);
return (PBSE_ROUTEREJ);
} else {
/* set time to retry job */
jobp->ji_qs.ji_un.ji_routet.ji_rteretry = retry_time;
jobp->ji_retryok = 0;
return (0);
}
}
destination = dest_attr->as_string[jobp->ji_lastdest++];
if (is_bad_dest(jobp, destination))
continue;
switch (svr_movejob(jobp, destination, NULL)) {
case -1: /* permanent failure */
add_dest(jobp);
break;
case 0: /* worked */
case 2: /* deferred */
return (0);
case 1: /* failed, but try destination again */
jobp->ji_retryok = 1;
break;
}
}
}
static void post_routejob(
struct work_task *pwt)
{
int newstate;
int newsub;
int r;
int stat = pwt->wt_aux;
char *id = "post_routejob";
job *jobp = (job *)pwt->wt_parm1;
if (WIFEXITED(stat))
{
r = WEXITSTATUS(stat);
}
else
{
r = 2;
sprintf(log_buffer, msg_badexit,
stat);
strcat(log_buffer, id);
log_event(
PBSEVENT_SYSTEM,
PBS_EVENTCLASS_JOB,
jobp->ji_qs.ji_jobid,
log_buffer);
}
switch (r)
{
case 0: /* normal return, job was routed */
if (jobp->ji_qs.ji_svrflags & JOB_SVFLG_StagedIn)
remove_stagein(jobp);
if (jobp->ji_qs.ji_svrflags & JOB_SVFLG_CHECKPOINT_COPIED)
remove_checkpoint(jobp);
job_purge(jobp); /* need to remove server job struct */
return;
/*NOTREACHED*/
break;
case 1: /* permanent rejection (or signal) */
if (jobp->ji_qs.ji_substate == JOB_SUBSTATE_ABORT)
{
/* job delete in progress, just set to queued status */
svr_setjobstate(jobp, JOB_STATE_QUEUED, JOB_SUBSTATE_ABORT);
return;
}
add_dest(jobp); /* else mark destination as bad */
/* fall through */
default : /* try routing again */
/* force re-eval of job state out of Transit */
svr_evaljobstate(jobp, &newstate, &newsub, 1);
svr_setjobstate(jobp, newstate, newsub);
if ((r = job_route(jobp)) == PBSE_ROUTEREJ)
job_abt(&jobp, pbse_to_txt(PBSE_ROUTEREJ));
else if (r != 0)
job_abt(&jobp, msg_routexceed);
break;
} /* END switch (r) */
return;
} /* END post_routejob() */
int default_router(
job *jobp,
struct pbs_queue *qp,
long retry_time)
{
struct array_strings *dest_attr = NULL;
char *destination;
int last;
int local_errno = 0;
char log_buf[LOCAL_LOG_BUF_SIZE];
if (LOGLEVEL >= 7)
{
sprintf(log_buf, "%s", jobp->ji_qs.ji_jobid);
LOG_EVENT(PBSEVENT_JOB, PBS_EVENTCLASS_JOB, __func__, log_buf);
}
if (qp->qu_attr[QR_ATR_RouteDestin].at_flags & ATR_VFLAG_SET)
{
dest_attr = qp->qu_attr[QR_ATR_RouteDestin].at_val.at_arst;
last = dest_attr->as_usedptr;
}
else
{
last = 0;
}
/* loop through all possible destinations */
jobp->ji_retryok = 0;
while (1)
{
if (jobp->ji_lastdest >= last)
{
jobp->ji_lastdest = 0; /* have tried all */
if (jobp->ji_retryok == 0)
{
log_event(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
jobp->ji_qs.ji_jobid,
pbse_to_txt(PBSE_ROUTEREJ));
return(PBSE_ROUTEREJ);
}
else
{
/* set time to retry job */
jobp->ji_qs.ji_un.ji_routet.ji_rteretry = retry_time;
return(0);
}
}
destination = dest_attr->as_string[jobp->ji_lastdest++];
if (is_bad_dest(jobp, destination))
continue;
switch (svr_movejob(jobp, destination, &local_errno, NULL, TRUE))
{
case ROUTE_PERM_FAILURE: /* permanent failure */
add_dest(jobp);
break;
case ROUTE_SUCCESS: /* worked */
case ROUTE_DEFERRED: /* deferred */
return(0);
/*NOTREACHED*/
break;
case ROUTE_RETRY: /* failed, but try destination again */
jobp->ji_retryok = 1;
break;
}
}
return(-1);
} /* END default_router() */
void finish_routing_processing(
job *pjob,
int status)
{
int newstate;
int newsub;
if (pjob == NULL)
return;
if (LOGLEVEL >= 10)
log_event(PBSEVENT_JOB, PBS_EVENTCLASS_JOB, __func__, pjob->ji_qs.ji_jobid);
switch (status)
{
case LOCUTION_SUCCESS: /* normal return, job was routed */
if (pjob->ji_qs.ji_svrflags & JOB_SVFLG_StagedIn)
remove_stagein(&pjob);
if (pjob != NULL)
{
if (pjob->ji_qs.ji_svrflags & JOB_SVFLG_CHECKPOINT_COPIED)
remove_checkpoint(&pjob);
if (pjob != NULL)
svr_job_purge(pjob); /* need to remove server job struct */
}
break;
case LOCUTION_FAIL: /* permanent rejection (or signal) */
if (pjob->ji_qs.ji_substate == JOB_SUBSTATE_ABORT)
{
/* job delete in progress, just set to queued status */
svr_setjobstate(pjob, JOB_STATE_QUEUED, JOB_SUBSTATE_ABORT, FALSE);
svr_mailowner(pjob, 'a', TRUE, "Couldn't route job to remote server");
unlock_ji_mutex(pjob, __func__, "1", LOGLEVEL);
return;
}
add_dest(pjob); /* else mark destination as bad */
/* fall through */
default: /* try routing again */
svr_mailowner(pjob, 'a', TRUE, "Couldn't route job to remote server");
/* force re-eval of job state out of Transit */
svr_evaljobstate(*pjob, newstate, newsub, 1);
svr_setjobstate(pjob, newstate, newsub, FALSE);
if ((status = job_route(pjob)) == PBSE_ROUTEREJ)
job_abt(&pjob, pbse_to_txt(PBSE_ROUTEREJ));
else if (status != 0)
job_abt(&pjob, msg_routexceed);
else
unlock_ji_mutex(pjob, __func__, "2", LOGLEVEL);
break;
} /* END switch (status) */
return;
} /* END finish_routing_processing() */
/**
* @brief
* post_routejob - clean up action for child started in net_move/send_job
* to "route" a job to another server
* @par
* If route was successfull, delete job.
* @par
* If route didn't work, mark destination not to be tried again for this
* job and call route again.
*
* @param[in] pwt - work task structure
*
* @return none.
*/
static void
post_routejob(struct work_task *pwt)
{
int newstate;
int newsub;
int r;
int stat = pwt->wt_aux;
job *jobp = (job *)pwt->wt_parm2;
if (jobp == NULL) {
log_event(PBSEVENT_ERROR, PBS_EVENTCLASS_JOB, LOG_INFO, "", "post_routejob failed, jobp NULL");
return;
}
if (WIFEXITED(stat)) {
r = WEXITSTATUS(stat);
} else {
r = SEND_JOB_FATAL;
(void)sprintf(log_buffer, msg_badexit, stat);
(void)strcat(log_buffer, __func__);
log_event(PBSEVENT_SYSTEM, PBS_EVENTCLASS_JOB, LOG_NOTICE,
jobp->ji_qs.ji_jobid, log_buffer);
}
switch (r) {
case SEND_JOB_OK: /* normal return, job was routed */
if (jobp->ji_qs.ji_svrflags & JOB_SVFLG_StagedIn)
remove_stagein(jobp);
/*
* If the server is configured to keep job history and the job
* is created here, do not purge the job structure but save
* it for history purpose. No need to check for sub-jobs as
* sub jobs can not be routed.
*/
if (svr_chk_history_conf())
svr_setjob_histinfo(jobp, T_MOV_JOB);
else
job_purge(jobp); /* need to remove server job struct */
return;
case SEND_JOB_FATAL: /* permanent rejection (or signal) */
if (jobp->ji_qs.ji_substate == JOB_SUBSTATE_ABORT) {
/* Job Delete in progress, just set to queued status */
(void)svr_setjobstate(jobp, JOB_STATE_QUEUED,
JOB_SUBSTATE_ABORT);
return;
}
add_dest(jobp); /* else mark destination as bad */
/* fall through */
default : /* try routing again */
/* force re-eval of job state out of Transit */
svr_evaljobstate(jobp, &newstate, &newsub, 1);
(void)svr_setjobstate(jobp, newstate, newsub);
jobp->ji_retryok = 1;
if ((r = job_route(jobp)) == PBSE_ROUTEREJ)
(void)job_abt(jobp, msg_routebad);
else if (r != 0)
(void)job_abt(jobp, msg_routexceed);
break;
}
return;
}
