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; }