int koo_process::start_once(int timeout /*= 2000*/)
{
int ret = start_exec();
if (ret == K_OK)
{
if (timeout > 0)
{
#ifdef _WIN32
DWORD result = WaitForSingleObject(m_proc_info.hProcess, timeout);
if (result == WAIT_OBJECT_0)
{
DWORD ec = 0;
if (GetExitCodeProcess(m_proc_info.hProcess, &ec))
{
#ifdef _DEBUG
std::cout << "DEBUG_INFO: KILL Proc returns " << ec << std::endl;
#endif
if (ec == 128)
{
return K_OK;
}
return ec;
}
return K_OK;
}
ret = K_ERR_TIMEOUT;
#endif
}
}
return ret;
}
void start_game(void)
{
start_init();
mikoconfig->rank = rank;
mikoconfig->stage = 0;
start_exec();
}
void start_extra(void)
{
start_init();
mikoconfig->rank = RANK_EXTRA;
mikoconfig->stage = 5;
mikoconfig->rem_lives = 2;
mikoconfig->rem_bombs = 1;
mikoconfig->start_lives = 2;
mikoconfig->start_bombs = 1;
start_exec();
}
void req_commit(
struct batch_request *preq) /* I */
{
job *pj;
pj = locate_new_job(preq->rq_conn, preq->rq_ind.rq_commit);
if (LOGLEVEL >= 6)
{
log_record(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
(pj != NULL) ? pj->ji_qs.ji_jobid : "NULL",
"committing job");
}
if (pj == NULL)
{
req_reject(PBSE_UNKJOBID, 0, preq, NULL, NULL);
return;
}
if (pj->ji_qs.ji_substate != JOB_SUBSTATE_TRANSICM)
{
log_err(errno, "req_commit", "cannot commit job in unexpected state");
req_reject(PBSE_IVALREQ, 0, preq, NULL, NULL);
return;
}
/* move job from new job list to "all" job list, set to running state */
delete_link(&pj->ji_alljobs);
append_link(&svr_alljobs, &pj->ji_alljobs, pj);
/*
** Set JOB_SVFLG_HERE to indicate that this is Mother Superior.
*/
pj->ji_qs.ji_svrflags |= JOB_SVFLG_HERE;
pj->ji_qs.ji_state = JOB_STATE_RUNNING;
pj->ji_qs.ji_substate = JOB_SUBSTATE_PRERUN;
pj->ji_qs.ji_un_type = JOB_UNION_TYPE_MOM;
pj->ji_qs.ji_un.ji_momt.ji_svraddr = get_connectaddr(preq->rq_conn);
pj->ji_qs.ji_un.ji_momt.ji_exitstat = 0;
/* For MOM - start up the job (blocks) */
if (LOGLEVEL >= 6)
{
log_record(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
(pj != NULL) ? pj->ji_qs.ji_jobid : "NULL",
"starting job execution");
}
start_exec(pj);
if (LOGLEVEL >= 6)
{
log_record(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
(pj != NULL) ? pj->ji_qs.ji_jobid : "NULL",
"job execution started");
}
/* if start request fails, reply with failure string */
if (pj->ji_qs.ji_substate == JOB_SUBSTATE_EXITING)
{
char tmpLine[1024];
if ((pj->ji_hosts != NULL) &&
(pj->ji_nodekill >= 0) &&
(pj->ji_hosts[pj->ji_nodekill].hn_host != NULL))
{
sprintf(tmpLine, "start failed on node %s",
pj->ji_hosts[pj->ji_nodekill].hn_host);
}
else
{
sprintf(tmpLine, "start failed on unknown node");
}
if (LOGLEVEL >= 6)
{
log_record(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
(pj != NULL) ? pj->ji_qs.ji_jobid : "NULL",
tmpLine);
}
reply_text(preq, 0, tmpLine);
}
else
{
reply_jobid(preq, pj->ji_qs.ji_jobid, BATCH_REPLY_CHOICE_Commit);
}
job_save(pj, SAVEJOB_FULL);
/* NOTE: we used to flag JOB_ATR_errpath, JOB_ATR_outpath,
* JOB_ATR_session_id, and JOB_ATR_altid as modified at this point to make sure
* pbs_server got these attr values. This worked fine before TORQUE modified
* job launched into an async process. At 2.0.0p6, a new attribute "SEND" flag
* was added to handle this process. */
return;
} /* END req_commit() */
bool VskBase::enter_line(VskString& text, VskLineNo *lineno) {
assert(lineno != NULL);
m_line_pointer_helped = false;
// parse
shared_ptr<VskStmtsNode> stmts;
VskTokenNodes nodes;
if (!parse_line(text, lineno, stmts, nodes)) {
if (m_internal_exec_mode == EXEC_IDLING) {
do_prompt();
}
return false;
}
if (*lineno == 0) {
// direct mode
m_command_line_text = text;
m_command_code = stmts;
// update statements
std::vector<VskControl> stack;
if (!update_stmts_(stmts, 0, stack)) {
return false;
}
if (stack.size() > 0) {
switch (stack.back().m_type) {
case VskControl::FOR:
// FOR without NEXT
do_error(26, stack.back().m_line_number);
do_prompt();
return false;
case VskControl::WHILE:
// WHILE without WEND
do_error(30, stack.back().m_line_number);
do_prompt();
return false;
default:
break;
}
}
// clear context and error
m_context.clear();
m_context_stack.clear();
m_context.m_statements = stmts;
m_editing = false;
start_exec();
} else {
// program code
m_contable = false;
if (text.empty()) {
m_program_list.erase(*lineno);
m_program_nodes.erase(*lineno);
m_program_codes.erase(*lineno);
} else if (is_valid_lineno(*lineno)) {
m_program_list[*lineno] = text;
m_program_nodes[*lineno] = nodes;
m_program_codes[*lineno] = stmts;
m_line_pointer = *lineno;
} else {
// Syntax error
do_error(2, 0);
if (m_internal_exec_mode == EXEC_IDLING) {
do_prompt();
}
return false;
}
}
return true;
} // VskBase::enter_line
void req_commit(
struct batch_request *preq) /* I */
{
unsigned int momport = 0;
int rc;
job *pj = locate_new_job(preq->rq_conn, preq->rq_ind.rq_commit);
if (LOGLEVEL >= 6)
{
log_record(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
(pj != NULL) ? pj->ji_qs.ji_jobid : "NULL",
"committing job");
}
if (pj == NULL)
{
req_reject(PBSE_UNKJOBID, 0, preq, NULL, NULL);
return;
}
if (pj->ji_qs.ji_substate != JOB_SUBSTATE_TRANSICM)
{
log_err(errno, "req_commit", (char *)"cannot commit job in unexpected state");
req_reject(PBSE_IVALREQ, 0, preq, NULL, NULL);
return;
}
/* move job from new job list to "all" job list, set to running state */
delete_link(&pj->ji_alljobs);
alljobs_list.push_back(pj);
/*
** Set JOB_SVFLG_HERE to indicate that this is Mother Superior.
*/
pj->ji_qs.ji_svrflags |= JOB_SVFLG_HERE;
pj->ji_qs.ji_state = JOB_STATE_RUNNING;
pj->ji_qs.ji_substate = JOB_SUBSTATE_PRERUN;
pj->ji_qs.ji_un_type = JOB_UNION_TYPE_MOM;
pj->ji_qs.ji_un.ji_momt.ji_svraddr = get_connectaddr(preq->rq_conn,FALSE);
pj->ji_qs.ji_un.ji_momt.ji_exitstat = 0;
/* For MOM - start up the job (blocks) */
if (LOGLEVEL >= 6)
log_record(PBSEVENT_JOB, PBS_EVENTCLASS_JOB, pj->ji_qs.ji_jobid, "req_commit:starting job execution");
rc = start_exec(pj);
if (LOGLEVEL >= 6)
{
log_record(
PBSEVENT_JOB,
PBS_EVENTCLASS_JOB,
pj->ji_qs.ji_jobid,
"req_commit:job execution started");
}
/* if start request fails, reply with failure string */
if (pj->ji_qs.ji_substate == JOB_SUBSTATE_EXITING)
{
char tmpLine[1024];
if ((pj->ji_hosts != NULL) &&
(pj->ji_nodekill >= 0) &&
(pj->ji_hosts[pj->ji_nodekill].hn_host != NULL))
{
sprintf(tmpLine, "start failed on node %s",
pj->ji_hosts[pj->ji_nodekill].hn_host);
}
else
{
sprintf(tmpLine, "start failed on unknown node");
}
if (LOGLEVEL >= 6)
{
log_record(PBSEVENT_JOB, PBS_EVENTCLASS_JOB, pj->ji_qs.ji_jobid, tmpLine);
}
reply_text(preq, rc, tmpLine);
}
else
{
reply_sid(preq, pj->ji_wattr[JOB_ATR_session_id].at_val.at_long,BATCH_REPLY_CHOICE_Text);
}
if (multi_mom)
{
momport = pbs_rm_port;
}
job_save(pj, SAVEJOB_FULL, momport);
#ifdef NVIDIA_GPUS
/*
* Does this job have a gpuid assigned?
* if so, then update gpu status
*/
if ((use_nvidia_gpu) &&
((pj->ji_wattr[JOB_ATR_exec_gpus].at_flags & ATR_VFLAG_SET) != 0) &&
(pj->ji_wattr[JOB_ATR_exec_gpus].at_val.at_str != NULL))
{
send_update_soon();
}
#endif /* NVIDIA_GPUS */
/* NOTE: we used to flag JOB_ATR_errpath, JOB_ATR_outpath,
* JOB_ATR_session_id, and JOB_ATR_altid as modified at this point to make sure
* pbs_server got these attr values. This worked fine before TORQUE modified
* job launched into an async process. At 2.0.0p6, a new pbs_attribute "SEND" flag
* was added to handle this process. */
return;
} /* END req_commit() */
