/* Halt the process similar to op_halt but allow a return code to be specified. If no return code
* is specified, return code 0 is used as a default (making it identical to op_halt).
*/
int m_zhalt(void)
{
triple *triptr;
oprtype ot;
int status;
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
/* Let m_halt() handle the case of the missing return code */
if ((TK_SPACE == TREF(window_token)) || (TK_EOL == TREF(window_token)))
return m_halt();
switch (status = expr(&ot, MUMPS_NUM)) /* NOTE assignment */
{
case EXPR_FAIL:
return FALSE;
case EXPR_GOOD:
triptr = newtriple(OC_ZHALT);
triptr->operand[0] = ot;
return TRUE;
case EXPR_INDR:
make_commarg(&ot, indir_zhalt);
return TRUE;
default:
assertpro(FALSE);
}
return FALSE; /* This should never get executed, added to make compiler happy */
}
int m_hcmd(void)
{
DCL_THREADGBL_ACCESS;
SETUP_THREADGBL_ACCESS;
if ((TK_SPACE == TREF(window_token)) || (TK_EOL == TREF(window_token)))
return m_halt();
return m_hang();
}
int m_hcmd(void)
{
if (window_token == TK_SPACE || window_token == TK_EOL)
return m_halt();
return m_hang();
}
