Boolean MCScreenDC::wait(real8 duration, Boolean dispatch, Boolean anyevent)
{
MCwaitdepth++;
real8 curtime = MCS_time();
if (duration < 0.0)
duration = 0.0;
real8 exittime = curtime + duration;
Boolean abort = False;
Boolean reset = False;
modalclosed = False;
Boolean done = False;
Boolean donepending = False;
do
{
real8 eventtime = exittime;
donepending = handlepending(curtime, eventtime, dispatch);
siguser();
real8 waittime = donepending ? 0.0 : eventtime - curtime;
MCModeQueueEvents();
if (MCquit)
{
abort = True;
break;
}
if (MCnsockets > 0)
waittime = waittime < 0.025 ? waittime: 0.025;
//calls handle() in macdcmac.cpp
if (modalclosed ||
(dispatch && MCEventQueueDispatch() ||
handle(waittime, dispatch, anyevent, abort, reset) ||
donepending) && anyevent ||
abort)
break;
if (MCquit)
{
abort = True;
break;
}
// MW-2012-09-19: [[ Bug 10218 ]] Make sure we update the screen in case
// any engine event handling methods need us to.
MCRedrawUpdateScreen();
curtime = MCS_time();
}
while (curtime < exittime);
MCwaitdepth--;
// MW-2012-09-19: [[ Bug 10218 ]] Make sure we update the screen in case
// any engine event handling methods need us to.
MCRedrawUpdateScreen();
return abort;
}
bool MCWidgetPopupAtLocationWithProperties(MCNameRef p_kind, const MCPoint &p_at, MCArrayRef p_properties, MCValueRef &r_result)
{
MCPoint t_at;
t_at = MCmousestackptr->stacktogloballoc(p_at);
MCWidgetPopup *t_popup;
t_popup = nil;
t_popup = new (nothrow) MCWidgetPopup();
if (t_popup == nil)
{
// TODO - throw memory error
return false;
}
MCWidgetPopup *t_old_popup;
t_old_popup = s_widget_popup;
s_widget_popup = t_popup;
t_popup -> setparent(MCdispatcher);
MCdispatcher -> add_transient_stack(t_popup);
if (!t_popup->openpopup(p_kind, t_at, p_properties))
{
t_popup->close();
delete t_popup;
s_widget_popup = t_old_popup;
return false;
}
while (t_popup->getopened() && !MCquit)
{
MCU_resetprops(True);
// MW-2011-09-08: [[ Redraw ]] Make sure we flush any updates.
MCRedrawUpdateScreen();
MCscreen->siguser();
MCscreen->wait(REFRESH_INTERVAL, True, True);
}
MCValueRef t_result;
t_result = MCValueRetain(t_popup->getpopupresult());
MCerrorlock++;
if (t_popup->del(false))
t_popup->scheduledelete();
MCerrorlock--;
s_widget_popup = t_old_popup;
r_result = t_result;
return true;
}
void MCRedrawDoUpdateScreen(void)
{
if (MClockscreen != 0)
return;
if (!s_screen_is_dirty)
return;
if (s_screen_updates_disabled)
return;
MCStacknode *t_stacks;
t_stacks = MCstacks -> topnode();
if (t_stacks == nil)
return;
MCStacknode *tptr = t_stacks->prev();
do
{
MCStack *sptr = tptr->getstack();
if (sptr->getstate(CS_NEED_RESIZE))
{
sptr->setgeom();
sptr->openrect(sptr->getrect(), WM_LAST, NULL, WP_DEFAULT, OP_NONE);
MCRedrawUpdateScreen();
return;
}
sptr -> applyupdates();
tptr = tptr->prev();
}
while (tptr != t_stacks->prev());
s_screen_is_dirty = false;
MCredrawupdatescreenneeded = MClockscreen == 0 && s_screen_is_dirty && !s_screen_updates_disabled;
}
extern "C" MC_DLLEXPORT_DEF MCStringRef MCWidgetExecPopupMenuAtLocation(MCStringRef p_menu, MCCanvasPointRef p_at)
{
if (!MCWidgetEnsureCurrentWidget())
return nil;
MCButton *t_button;
t_button = nil;
t_button = (MCButton*)MCtemplatebutton->clone(True, OP_NONE, true);
if (t_button == nil)
{
MCErrorThrowOutOfMemory();
return nil;
}
MCPopupMenuHandler t_handler;
MCExecContext ctxt;
t_button->setmenuhandler(&t_handler);
t_button->SetStyle(ctxt, F_MENU);
t_button->SetMenuMode(ctxt, WM_POPUP);
t_button->SetText(ctxt, p_menu);
MCPoint t_at;
MCPoint *t_at_ptr;
t_at_ptr = nil;
if (p_at != nil)
{
MCGPoint t_point;
MCCanvasPointGetMCGPoint(p_at, t_point);
t_at = MCGPointToMCPoint(MCWidgetMapPointToGlobal(MCcurrentwidget, t_point));
t_at_ptr = &t_at;
}
MCInterfaceExecPopupButton(ctxt, t_button, t_at_ptr);
while (t_button->menuisopen() && !MCquit)
{
MCU_resetprops(True);
// MW-2011-09-08: [[ Redraw ]] Make sure we flush any updates.
MCRedrawUpdateScreen();
MCscreen->siguser();
MCscreen->wait(REFRESH_INTERVAL, True, True);
}
t_button->SetVisible(ctxt, 0, false);
MCerrorlock++;
if (t_button->del(false))
t_button->scheduledelete();
MCerrorlock--;
MCAutoStringRef t_string;
if (t_handler.GetPick() != nil)
ctxt.ConvertToString(t_handler.GetPick(), &t_string);
return t_string.Take();
}
Exec_stat MCRepeat::exec(MCExecPoint &ep)
{
real8 endn = 0.0;
int4 count = 0;
MCExecPoint ep2(ep);
MCScriptPoint *sp = NULL;
Parse_stat ps;
const char *sptr;
uint4 l;
MCVariableValue *tvar = NULL;
MCHashentry *hptr = NULL;
uint4 kindex = 0;
Boolean donumeric = False;
Exec_stat stat;
switch (form)
{
case RF_FOR:
if (loopvar != NULL)
{
while ((stat = endcond->eval(ep2)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep2, getline(), getpos(), EE_REPEAT_BADFORCOND);
if (stat != ES_NORMAL)
{
MCeerror->add(EE_REPEAT_BADFORCOND, line, pos);
return ES_ERROR;
}
if (each == FU_ELEMENT)
{
tvar = ep2.getarray();
if (tvar != NULL && tvar -> is_array())
{
l = 1;
kindex = 0;
donumeric = tvar -> get_array() -> isnumeric();
hptr = tvar -> get_array() -> getnextelement(kindex, hptr, donumeric, ep);
if (hptr == NULL)
{
kindex = 0;
donumeric = False;
hptr = tvar -> get_array() -> getnextelement(kindex, hptr, donumeric, ep);
}
}
else
l = 0;
}
else if (each == FU_KEY)
{
tvar = ep2.getarray();
if (tvar != NULL && tvar -> is_array())
{
l = 1;
kindex = 0;
donumeric = False;
hptr = tvar -> get_array() -> getnextkey(kindex, hptr);
// [[ Bug 3871 ]] : If hptr is NULL then we are done already (this can happen
// with an empty custom property set).
if (hptr == NULL)
l = 0;
}
else
l = 0;
}
else
{
sptr = ep2.getsvalue().getstring();
l = ep2.getsvalue().getlength();
if (each == FU_WORD)
MCU_skip_spaces(sptr, l);
else
if (each == FU_TOKEN)
{
sp = new MCScriptPoint(ep2);
ps = sp->nexttoken();
if (ps == PS_ERROR || ps == PS_EOF)
l = 0;
}
}
}
else
{
while (((stat = endcond->eval(ep)) != ES_NORMAL
|| (stat = ep.ton()) != ES_NORMAL) && (MCtrace || MCnbreakpoints)
&& !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADFORCOND);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADFORCOND, line, pos);
return ES_ERROR;
}
count = MCU_max(ep.getint4(), 0);
}
break;
case RF_WITH:
if (step != NULL)
{
while (((stat = step->eval(ep)) != ES_NORMAL
|| (stat = ep.ton()) != ES_NORMAL) && (MCtrace || MCnbreakpoints)
&& !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWITHSTEP);
stepval = ep.getnvalue();
if (stat != ES_NORMAL || stepval == 0.0)
{
MCeerror->add
(EE_REPEAT_BADWITHSTEP, line, pos);
return ES_ERROR;
}
}
while (((stat = startcond->eval(ep)) != ES_NORMAL
|| (stat = ep.ton()) != ES_NORMAL) && (MCtrace || MCnbreakpoints)
&& !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWITHSTART);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADWITHSTART, line, pos);
return ES_ERROR;
}
ep.setnvalue(ep.getnvalue() - stepval);
while ((stat = loopvar->set
(ep)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWITHVAR);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADWITHVAR, line, pos);
return ES_ERROR;
}
while (((stat = endcond->eval(ep)) != ES_NORMAL
|| (stat = ep.ton()) != ES_NORMAL)
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWITHEND);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADWITHEND, line, pos);
return ES_ERROR;
}
endn = ep.getnvalue();
break;
default:
break;
}
MCString s;
Boolean done = False;
bool t_first;
t_first = false;
while (True)
{
switch (form)
{
case RF_FOREVER:
break;
case RF_FOR:
if (loopvar != NULL)
{
if (l == 0)
{
done = True;
// OK-2007-12-05 : Bug 5605. If there has been at least one iteration, set the loop variable to
// whatever the value was in the last iteration.
if (!t_first)
{
// MW-2011-02-08: [[ Bug ]] Make sure we don't use 's' if the repeat type is 'key' or
// 'element'.
if (each != FU_ELEMENT && each != FU_KEY)
{
ep.setsvalue(s);
loopvar->set(ep);
}
}
}
else
{
const char *startptr; // = sptr;
switch (each)
{
case FU_KEY:
// MW-2010-12-15: [[ Bug 9218 ]] Make a copy of the key so that it can't be mutated
// accidentally.
ep . setstaticcstring(hptr -> string);
loopvar -> set(ep);
hptr = tvar -> get_array() -> getnextkey(kindex, hptr);
if (hptr == NULL)
l = 0;
break;
case FU_ELEMENT:
hptr -> value . fetch(ep);
loopvar -> set(ep);
hptr = tvar -> get_array() -> getnextelement(kindex, hptr, donumeric, ep);
if (hptr == NULL)
l = 0;
break;
case FU_LINE:
startptr = sptr;
if (!MCU_strchr(sptr, l, ep.getlinedel()))
{
sptr += l;
l = 0;
}
s.set(startptr, sptr - startptr);
MCU_skip_char(sptr, l);
break;
case FU_ITEM:
startptr = sptr;
if (!MCU_strchr(sptr, l, ep.getitemdel()))
{
sptr += l;
l = 0;
}
s.set(startptr, sptr - startptr);
MCU_skip_char(sptr, l);
break;
case FU_WORD:
startptr = sptr;
if (*sptr == '\"')
{
MCU_skip_char(sptr, l);
while (l && *sptr != '\"' && *sptr != '\n')
MCU_skip_char(sptr, l);
MCU_skip_char(sptr, l);
}
else
while (l && !isspace((uint1)*sptr))
MCU_skip_char(sptr, l);
s.set(startptr, sptr - startptr);
MCU_skip_spaces(sptr, l);
break;
case FU_TOKEN:
s = sp->gettoken();
ps = sp->nexttoken();
if (ps == PS_ERROR || ps == PS_EOF)
l = 0;
break;
case FU_CHARACTER:
default:
startptr = sptr;
s.set(startptr, 1);
MCU_skip_char(sptr, l);
}
// MW-2010-12-15: [[ Bug 9218 ]] Added KEY to the type of repeat that already
// copies the value.
if (each != FU_ELEMENT && each != FU_KEY)
{
if (MCtrace)
{
ep.setsvalue(s);
loopvar->set(ep);
}
else
loopvar->sets(s);
}
}
}
else
done = count-- == 0;
break;
case RF_UNTIL:
while ((stat = endcond->eval(ep)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADUNTILCOND);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADUNTILCOND, line, pos);
return ES_ERROR;
}
done = ep.getsvalue() == MCtruemcstring;
break;
case RF_WHILE:
while ((stat = endcond->eval(ep)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWHILECOND);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADWHILECOND, line, pos);
return ES_ERROR;
}
done = ep.getsvalue() != MCtruemcstring;
break;
case RF_WITH:
while (((stat = loopvar->eval(ep)) != ES_NORMAL
|| (stat = ep.ton()) != ES_NORMAL)
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWITHVAR);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADWITHVAR, line, pos);
return ES_ERROR;
}
if (stepval < 0)
{
if (ep.getnvalue() <= endn)
done = True;
}
else
if (ep.getnvalue() >= endn)
done = True;
if (!done)
{
ep.setnvalue(ep.getnvalue() + stepval);
while ((stat = loopvar->set
(ep)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_REPEAT_BADWITHVAR);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_REPEAT_BADWITHVAR, line, pos);
return ES_ERROR;
}
}
break;
default:
break;
}
if (done)
break;
Exec_stat stat;
MCStatement *tspr = statements;
while (tspr != NULL)
{
if (MCtrace || MCnbreakpoints)
{
MCB_trace(ep, tspr->getline(), tspr->getpos());
if (MCexitall)
break;
}
ep.setline(tspr->getline());
stat = tspr->exec(ep);
// MW-2011-08-17: [[ Redraw ]] Flush any screen updates.
MCRedrawUpdateScreen();
switch(stat)
{
case ES_NORMAL:
if (MCexitall)
{
// OK-2007-12-05 : Bug 5605 : If exiting loop, set the loop variable to the value it had
// in the last iteration.
// MW-2011-02-08: [[ Bug ]] Make sure we don't use 's' if the repeat type is 'key' or
// 'element'.
if (form == RF_FOR && loopvar != NULL && each != FU_ELEMENT && each != FU_KEY)
{
ep.setsvalue(s);
loopvar->set(ep);
}
delete sp;
return ES_NORMAL;
}
tspr = tspr->getnext();
break;
case ES_NEXT_REPEAT:
tspr = NULL;
break;
case ES_EXIT_REPEAT:
// OK-2007-12-05 : Bug 5605 : If exiting loop, set the loop variable to the value it had
// in the last iteration.
// MW-2011-02-08: [[ Bug ]] Make sure we don't use 's' if the repeat type is 'key' or
// 'element'.
if (form == RF_FOR && loopvar != NULL && each != FU_ELEMENT && each != FU_KEY)
{
ep.setsvalue(s);
loopvar->set(ep);
}
delete sp;
return ES_NORMAL;
case ES_ERROR:
if ((MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
do
{
MCB_error(ep, tspr->getline(), tspr->getpos(),
EE_REPEAT_BADSTATEMENT);
}
while (MCtrace && (stat = tspr->exec(ep)) != ES_NORMAL);
if (stat == ES_ERROR)
{
// OK-2007-12-05 : Bug 5605 : If exiting loop, set the loop variable to the value it had
// in the last iteration.
// MW-2011-02-08: [[ Bug ]] Make sure we don't use 's' if the repeat type is 'key' or
// 'element'.
if (form == RF_FOR && loopvar != NULL && each != FU_ELEMENT && each != FU_KEY)
{
ep.setsvalue(s);
loopvar->set(ep);
}
delete sp;
if (MCexitall)
return ES_NORMAL;
else
{
MCeerror->add(EE_REPEAT_BADSTATEMENT, line, pos);
return ES_ERROR;
}
}
else
tspr = tspr->getnext();
break;
default:
// OK-2007-12-05 : Bug 5605 : If exiting loop, set the loop variable to the value it had
// in the last iteration.
// MW-2011-02-08: [[ Bug ]] Make sure we don't use 's' if the repeat type is 'key' or
// 'element'.
if (form == RF_FOR && loopvar != NULL && each != FU_ELEMENT && each != FU_KEY)
{
ep.setsvalue(s);
loopvar->set(ep);
}
delete sp;
return stat;
}
}
if (MCscreen->abortkey())
{
// OK-2007-12-05 : Bug 5605 : If exiting loop, set the loop variable to the value it had
// in the last iteration.
// MW-2011-02-08: [[ Bug ]] Make sure we don't use 's' if the repeat type is 'key' or
// 'element'.
if (form == RF_FOR && loopvar != NULL && each != FU_ELEMENT && each != FU_KEY)
{
ep.setsvalue(s);
loopvar->set(ep);
}
delete sp;
MCeerror->add(EE_REPEAT_ABORT, line, pos);
return ES_ERROR;
}
if (MCtrace || MCnbreakpoints)
{
MCB_trace(ep, getline(), getpos());
if (MCexitall)
break;
}
t_first = false;
}
delete sp;
return ES_NORMAL;
}
Exec_stat MCIf::exec(MCExecPoint &ep)
{
Exec_stat stat;
while ((stat = cond->eval(ep)) != ES_NORMAL && (MCtrace || MCnbreakpoints)
&& !MCtrylock && !MClockerrors)
MCB_error(ep, getline(), getpos(), EE_IF_BADCOND);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_IF_BADCOND, line, pos);
return ES_ERROR;
}
Boolean then = ep.getsvalue() == MCtruemcstring;
MCStatement *tspr;
if (then)
tspr = thenstatements;
else
tspr = elsestatements;
while (tspr != NULL)
{
if (MCtrace || MCnbreakpoints)
{
MCB_trace(ep, tspr->getline(), tspr->getpos());
if (MCexitall)
break;
}
ep.setline(tspr->getline());
stat = tspr->exec(ep);
// MW-2011-08-17: [[ Redraw ]] Flush any screen updates.
MCRedrawUpdateScreen();
switch(stat)
{
case ES_NORMAL:
if (MCexitall)
return ES_NORMAL;
tspr = tspr->getnext();
break;
case ES_ERROR:
if ((MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
do
{
MCB_error(ep, tspr->getline(), tspr->getpos(), EE_IF_BADSTATEMENT);
}
while (MCtrace && (stat = tspr->exec(ep)) != ES_NORMAL);
if (stat == ES_ERROR)
if (MCexitall)
return ES_NORMAL;
else
{
MCeerror->add(EE_IF_BADSTATEMENT, line, pos);
return ES_ERROR;
}
else
tspr = tspr->getnext();
break;
default:
return stat;
}
}
return ES_NORMAL;
}
Exec_stat MCTry::exec(MCExecPoint &ep)
{
Try_state state = TS_TRY;
MCStatement *tspr = trystatements;
Exec_stat stat;
Exec_stat retcode = ES_NORMAL;
MCtrylock++;
while (tspr != NULL)
{
if (MCtrace || MCnbreakpoints)
{
MCB_trace(ep, tspr->getline(), tspr->getpos());
if (MCexitall)
break;
}
ep.setline(tspr->getline());
stat = tspr->exec(ep);
// MW-2011-08-17: [[ Redraw ]] Flush any screen updates.
MCRedrawUpdateScreen();
switch(stat)
{
case ES_NORMAL:
tspr = tspr->getnext();
if (MCexitall)
{
retcode = ES_NORMAL;
tspr = NULL;
}
if (tspr == NULL && state != TS_FINALLY)
{
if (state == TS_CATCH)
MCeerror->clear();
tspr = finallystatements;
state = TS_FINALLY;
}
break;
case ES_ERROR:
if ((MCtrace || MCnbreakpoints) && state != TS_TRY)
do
{
MCB_error(ep, tspr->getline(), tspr->getpos(), EE_TRY_BADSTATEMENT);
}
while(MCtrace && (stat = tspr->exec(ep)) != ES_NORMAL);
if (stat == ES_ERROR)
{
if (MCexitall)
{
retcode = ES_NORMAL;
tspr = NULL;
}
else
if (state != TS_TRY)
{
MCtrylock--;
MCeerror->add(EE_TRY_BADSTATEMENT, line, pos);
return ES_ERROR;
}
else
{
if (errorvar != NULL)
errorvar->evalvar(ep)->copysvalue(MCeerror->getsvalue());
// MW-2007-09-04: At this point we need to clear the execution error
// stack so that errors inside the catch statements are reported
// correctly.
MCeerror->clear();
MCperror->clear();
tspr = catchstatements;
state = TS_CATCH;
// MW-2007-07-03: [[ Bug 3029 ]] - If there is no catch clause
// we end up skipping the finally as the loop terminates
// before a state transition is made, thus we force it here.
if (catchstatements == NULL)
{
MCeerror -> clear();
tspr = finallystatements;
state = TS_FINALLY;
}
}
}
else
tspr = tspr->getnext();
break;
case ES_PASS:
if (state == TS_CATCH)
{
errorvar->evalvar(ep)->fetch(ep);
MCeerror->copysvalue(ep.getsvalue(), False);
MCeerror->add(EE_TRY_BADSTATEMENT, line, pos);
stat = ES_ERROR;
}
default:
if (state == TS_FINALLY)
{
MCeerror->clear();
retcode = ES_NORMAL;
tspr = NULL;
}
else
{
retcode = stat;
tspr = finallystatements;
state = TS_FINALLY;
}
}
}
if (state == TS_CATCH)
MCeerror->clear();
MCtrylock--;
return retcode;
}
Exec_stat MCSwitch::exec(MCExecPoint &ep)
{
MCExecPoint ep2(ep);
Exec_stat stat;
if (cond != NULL)
{
while ((stat = cond->eval(ep2)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep2, getline(), getpos(), EE_SWITCH_BADCOND);
if (stat != ES_NORMAL)
{
MCeerror->add(EE_SWITCH_BADCOND, line, pos);
return ES_ERROR;
}
}
else
ep2.setboolean(true);
int2 match = defaultcase;
uint2 i;
for (i = 0 ; i < ncases ; i++)
{
while ((stat = cases[i]->eval(ep)) != ES_NORMAL
&& (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
MCB_error(ep2, getline(), getpos(), EE_SWITCH_BADCASE);
if (stat != ES_NORMAL)
{
MCeerror->add
(EE_SWITCH_BADCASE, line, pos);
return ES_ERROR;
}
uint4 l1 = ep.getsvalue().getlength();
uint4 l2 = ep2.getsvalue().getlength();
if (l1 == l2)
{
const char *s1 = ep.getsvalue().getstring();
const char *s2 = ep2.getsvalue().getstring();
if (ep.getcasesensitive() && !strncmp(s1, s2, l1)
|| !ep.getcasesensitive() && !MCU_strncasecmp(s1, s2, l1))
{
match = caseoffsets[i];
break;
}
}
}
if (match >= 0)
{
MCStatement *tspr = statements;
while (match--)
tspr = tspr->getnext();
Exec_stat stat;
while (tspr != NULL)
{
if (MCtrace || MCnbreakpoints)
{
MCB_trace(ep, tspr->getline(), tspr->getpos());
if (MCexitall)
break;
}
ep.setline(tspr->getline());
stat = tspr->exec(ep);
// MW-2011-08-17: [[ Redraw ]] Flush any screen updates.
MCRedrawUpdateScreen();
switch(stat)
{
case ES_NORMAL:
if (MCexitall)
return ES_NORMAL;
tspr = tspr->getnext();
break;
case ES_ERROR:
if ((MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)
do
{
MCB_error(ep, tspr->getline(), tspr->getpos(),
EE_SWITCH_BADSTATEMENT);
}
while (MCtrace && (stat = tspr->exec(ep)) != ES_NORMAL);
if (stat == ES_ERROR)
if (MCexitall)
return ES_NORMAL;
else
{
MCeerror->add
(EE_SWITCH_BADSTATEMENT, line, pos);
return ES_ERROR;
}
else
tspr = tspr->getnext();
break;
case ES_EXIT_SWITCH:
return ES_NORMAL;
default:
return stat;
}
}
}
return ES_NORMAL;
}
