/* Copyright (C) 2003-2013 Runtime Revolution Ltd.

This file is part of LiveCode.

LiveCode is free software; you can redistribute it and/or modify it under

the terms of the GNU General Public License v3 as published by the Free

Software Foundation.

LiveCode is distributed in the hope that it will be useful, but WITHOUT ANY

WARRANTY; without even the implied warranty of MERCHANTABILITY or

FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License

for more details.

You should have received a copy of the GNU General Public License

along with LiveCode. If not see <http://www.gnu.org/licenses/>. */

#include "prefix.h"

#include "globdefs.h"

#include "objdefs.h"

#include "parsedef.h"

#include "filedefs.h"

#include "mcio.h"

#include "dispatch.h"

#include "object.h"

#include "stack.h"

#include "card.h"

#include "aclip.h"

#include "vclip.h"

#include "player.h"

#include "group.h"

#include "scriptpt.h"

#include "execpt.h"

#include "handler.h"

#include "cmds.h"

#include "mcerror.h"

#include "chunk.h"

#include "param.h"

#include "util.h"

#include "date.h"

#include "debug.h"

#include "printer.h"

#include "variable.h"

#include "securemode.h"

#include "osspec.h"

#include "image.h"

#include "font.h"

#include "globals.h"

#include "license.h"

#include "socket.h"

MCAccept::~MCAccept()

{

delete port;

delete message;

}

Parse_stat MCAccept::parse(MCScriptPoint &sp)

{

initpoint(sp);

if (sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_SECURE) == PS_NORMAL)

secure = True;

else if (sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_DATAGRAM) == PS_NORMAL)

datagram = True;

sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_UNDEFINED); // connections

sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_UNDEFINED); // on

sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_UNDEFINED); // port

if (sp.parseexp(False, True, &port) != PS_NORMAL)

{

MCperror->add(PE_ACCEPT_BADEXP, sp);

return PS_ERROR;

}

sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH); // with

sp.skip_token(SP_SUGAR, TT_CHUNK, CT_UNDEFINED); // message

if (sp.parseexp(False, True, &message) != PS_NORMAL)

{

MCperror->add(PE_ACCEPT_BADEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) == PS_NORMAL

&& sp.skip_token(SP_SSL, TT_STATEMENT, SSL_VERIFICATION) != PS_NORMAL)

{

//make error

MCperror->add(PE_OPEN_BADMESSAGE, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_SUGAR, TT_PREP, PT_WITHOUT) == PS_NORMAL

&& sp.skip_token(SP_SSL, TT_STATEMENT, SSL_VERIFICATION) == PS_NORMAL)

secureverify = False;

return PS_NORMAL;

}

Exec_stat MCAccept::exec(MCExecPoint &ep)

{

#ifdef /* MCAccept */ LEGACY_EXEC

// MW-2005-01-28: Fix bug 2412 - accept doesn't clear the result.

MCresult -> clear(False);

if (MCsecuremode & MC_SECUREMODE_NETWORK)

{

MCeerror->add(EE_NETWORK_NOPERM, line, pos);

return ES_ERROR;

}

if (port->eval(ep) != ES_NORMAL || ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_ACCEPT_BADEXP, line, pos);

return ES_ERROR;

}

uint2 port = ep.getuint2();

if (message->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_ACCEPT_BADEXP, line, pos);

return ES_ERROR;

}

MCAutoNameRef t_message_name;

/* UNCHECKED */ ep . copyasnameref(t_message_name);

MCSocket *s = MCS_accept(port, ep.getobj(), t_message_name, datagram, secure, secureverify, NULL);

if (s != NULL)

{

MCU_realloc((char **)&MCsockets, MCnsockets,

MCnsockets + 1, sizeof(MCSocket *));

MCsockets[MCnsockets++] = s;

}

return ES_NORMAL;

#endif /* MCAccept */

}

MCBeep::~MCBeep()

{

delete times;

}

Parse_stat MCBeep::parse(MCScriptPoint &sp)

{

initpoint(sp);

MCScriptPoint oldsp(sp);

MCerrorlock++;

if (sp.parseexp(False, True, &times) != PS_NORMAL)

{

sp = oldsp;

delete times;

times = NULL;

}

MCerrorlock--;

return PS_NORMAL;

}

Exec_stat MCBeep::exec(MCExecPoint &ep)

{

#ifdef /* MCBeep */ LEGACY_EXEC

uint4 i = 1;

if (times != NULL)

{

if (times->eval(ep) != ES_NORMAL || ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_BEEP_BADEXP, line, pos);

return ES_ERROR;

}

i = ep.getuint4();

}

while (i--)

{

MCscreen->beep();

// MW-2010-01-08: [[ Bug 1690 ]] We need a break on all beeps but the last

if (i >= 1)

{

// MW-2008-03-17: [[ Bug 6098 ]] Make sure we check for an abort from wait

if (MCscreen->wait(BEEP_INTERVAL, False, False))

{

MCeerror -> add(EE_WAIT_ABORT, line, pos);

return ES_ERROR;

}

}

}

return ES_NORMAL;

#endif /* MCBeep */

}

Exec_stat MCBreakPoint::exec(MCExecPoint &ep)

{

#ifdef /* MCBreakPoint */ LEGACY_EXEC

MCB_break(ep, getline(), getpos());

return ES_NORMAL;

#endif /* MCBreakPoint */

}

MCCancel::~MCCancel()

{

delete id;

}

Parse_stat MCCancel::parse(MCScriptPoint &sp)

{

initpoint(sp);

if (sp . skip_token(SP_RESET, TT_UNDEFINED, RT_PRINTING) == PS_NORMAL)

{

id = NULL;

}

else if (sp.parseexp(False, True, &id) != PS_NORMAL)

{

MCperror->add(PE_CANCEL_BADEXP, sp);

return PS_ERROR;

}

return PS_NORMAL;

}

Exec_stat MCCancel::exec(MCExecPoint &ep)

{

#ifdef /* MCCancel */ LEGACY_EXEC

if (id == NULL)

{

MCprinter -> Cancel();

if (MCprinter != MCsystemprinter)

{

delete MCprinter;

MCprinter = MCsystemprinter;

}

return ES_NORMAL;

}

if (id->eval(ep) != ES_NORMAL || ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_CANCEL_IDNAN, line, pos);

return ES_ERROR;

}

if (ep.getuint4() != 0)

MCscreen->cancelmessageid(ep.getuint4());

return ES_NORMAL;

#endif /* MCCancel */

}

MCClickCmd::~MCClickCmd()

{

delete button;

delete location;

}

Parse_stat MCClickCmd::parse(MCScriptPoint &sp)

{

initpoint(sp);

sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH);

if (sp.skip_token(SP_FACTOR, TT_CHUNK, CT_BUTTON) == PS_NORMAL)

{

if (sp.parseexp(False, True, &button) != PS_NORMAL)

{

MCperror->add(PE_CLICK_BADBUTTONEXP, sp);

return PS_ERROR;

}

}

if (sp.skip_token(SP_FACTOR, TT_PREP, PT_AT) != PS_NORMAL)

{

MCperror->add(PE_CLICK_NOAT, sp);

return PS_ERROR;

}

if (sp.parseexp(False, True, &location) != PS_NORMAL)

{

MCperror->add(PE_CLICK_BADLOCATIONEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) == PS_NORMAL)

return getmods(sp, mstate);

return PS_NORMAL;

}

Exec_stat MCClickCmd::exec(MCExecPoint &ep)

{

#ifdef /* MCClickCmd */ LEGACY_EXEC

if (button != NULL)

{

if (button->eval(ep) != ES_NORMAL || ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_CLICK_BADBUTTON, line, pos);

return ES_ERROR;

}

which = ep.getuint2();

}

if (location->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_CLICK_BADLOCATION, line, pos);

return ES_ERROR;

}

MCPoint t_clickloc;

if (!MCU_stoi2x2(ep.getsvalue(), t_clickloc.x, t_clickloc.y))

{

MCeerror->add(EE_CLICK_NAP, line, pos, ep.getsvalue());

return ES_ERROR;

}

if (!MCdefaultstackptr->getopened()

|| !MCdefaultstackptr->mode_haswindow())

{

MCeerror->add(EE_CLICK_STACKNOTOPEN, line, pos, ep.getsvalue());

return ES_ERROR;

}

// IM-2013-09-23: [[ FullscreenMode ]] get / set mouseloc & clickloc in view coords

MCPoint t_view_clickloc;

// IM-2014-01-06: [[ Bug 11624 ]] Use MCStack::stacktowindowloc to account for stack scroll

t_view_clickloc = MCdefaultstackptr->stacktowindowloc(t_clickloc);

uint2 oldmstate = MCmodifierstate;

uint2 oldbstate = MCbuttonstate;

MCStack *t_old_mousestack;

MCPoint t_old_mouseloc;

MCscreen->getmouseloc(t_old_mousestack, t_old_mouseloc);

MCscreen->setmouseloc(MCdefaultstackptr, t_view_clickloc);

MCmodifierstate = mstate;

MCbuttonstate |= 0x1L << (which - 1);

MCdispatcher->wmfocus_stack(MCdefaultstackptr, t_view_clickloc.x, t_view_clickloc.y);

MCmodifierstate = mstate;

MCbuttonstate |= 0x1L << (which - 1);

MCdispatcher->wmdown_stack(MCdefaultstackptr, which);

// **** NULL POINTER FIX

if (MCmousestackptr != NULL)

MCscreen->sync(MCmousestackptr->getw());

Boolean abort = MCscreen->wait(CLICK_INTERVAL, False, False);

MCscreen->setclickloc(MCdefaultstackptr, t_view_clickloc);

MCmodifierstate = mstate;

MCbuttonstate &= ~(0x1L << (which - 1));

MCdispatcher->wmup_stack(MCdefaultstackptr, which);

MCmodifierstate = oldmstate;

MCbuttonstate = oldbstate;

MCControl *mfocused = MCdefaultstackptr->getcard()->getmfocused();

if (mfocused != NULL

&& (mfocused->gettype() == CT_GRAPHIC

&& mfocused->getstate(CS_CREATE_POINTS)

|| (mfocused->gettype() == CT_IMAGE && mfocused->getstate(CS_DRAW)

&& MCdefaultstackptr->gettool(mfocused) == T_POLYGON)))

mfocused->doubleup(1); // cancel polygon create

if (t_old_mousestack == NULL || t_old_mousestack->getmode() != 0)

{

MCscreen->setmouseloc(t_old_mousestack, t_old_mouseloc);

if (t_old_mousestack != NULL)

MCdispatcher->wmfocus_stack(t_old_mousestack, t_old_mouseloc.x, t_old_mouseloc.y);

}

if (abort)

{

MCeerror->add(EE_CLICK_ABORT, line, pos);

return ES_ERROR;

}

return ES_NORMAL;

#endif /* MCClickCmd */

}

MCDrag::~MCDrag()

{

delete button;

delete startloc;

delete endloc;

}

Parse_stat MCDrag::parse(MCScriptPoint &sp)

{

initpoint(sp);

sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH);

if (sp.skip_token(SP_FACTOR, TT_CHUNK, CT_BUTTON) == PS_NORMAL)

{

if (sp.parseexp(False, True, &button) != PS_NORMAL)

{

MCperror->add(PE_DRAG_BADBUTTONEXP, sp);

return PS_ERROR;

}

}

if (sp.skip_token(SP_FACTOR, TT_FROM, PT_FROM) != PS_NORMAL)

{

MCperror->add(PE_DRAG_NOFROM, sp);

return PS_ERROR;

}

if (sp.parseexp(False, True, &startloc) != PS_NORMAL)

{

MCperror->add(PE_DRAG_BADSTARTLOCEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_FACTOR, TT_TO, PT_TO) != PS_NORMAL)

{

MCperror->add(PE_DRAG_NOTO, sp);

return PS_ERROR;

}

if (sp.parseexp(False, True, &endloc) != PS_NORMAL)

{

MCperror->add(PE_DRAG_BADENDLOCEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) == PS_NORMAL)

return getmods(sp, mstate);

return PS_NORMAL;

}

Exec_stat MCDrag::exec(MCExecPoint &ep)

{

#ifdef /* MCDrag */ LEGACY_EXEC

if (button != NULL)

{

if (button->eval(ep) != ES_NORMAL || ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_DRAG_BADBUTTON, line, pos);

return ES_ERROR;

}

which = ep.getuint2();

}

if (startloc->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_DRAG_BADSTARTLOC, line, pos);

return ES_ERROR;

}

int2 sx, sy;

if (!MCU_stoi2x2(ep.getsvalue(), sx, sy))

{

MCeerror->add(EE_DRAG_STARTNAP, line, pos, ep.getsvalue());

return ES_ERROR;

}

if (endloc->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_DRAG_BADENDLOC, line, pos);

return ES_ERROR;

}

int2 ex, ey;

if (!MCU_stoi2x2(ep.getsvalue(), ex, ey))

{

MCeerror->add(EE_DRAG_ENDNAP, line, pos, ep.getsvalue());

return ES_ERROR;

}

uint2 oldmstate = MCmodifierstate;

uint2 oldbstate = MCbuttonstate;

int2 oldx = MCmousex;

int2 oldy = MCmousey;

MCmodifierstate = mstate;

MCbuttonstate = 0x1 << (which - 1);

MCmousex = sx;

MCmousey = sy;

//MCdragging = True;

MCscreen->setlockmods(True);

MCdefaultstackptr->mfocus(sx, sy);

MCdefaultstackptr->mdown(which);

if (MCdragspeed == 0)

{

MCmousex = ex;

MCmousey = ey;

MCdefaultstackptr->mfocus(ex, ey);

MCdefaultstackptr->mup(which);

MCscreen->setlockmods(False);

MCmodifierstate = oldmstate;

MCbuttonstate = oldbstate;

MCmousex = oldx;

MCmousey = oldy;

return ES_NORMAL;

}

MCscreen->sync(MCdefaultstackptr->getw());

real8 dx = MCU_abs(ex - sx);

real8 dy = MCU_abs(ey - sy);

real8 ix = 0.0;

if (dx != 0.0)

ix = dx / (ex - sx);

real8 iy = 0.0;

if (dy != 0.0)

iy = dy / (ey - sy);

real8 starttime = MCS_time();

real8 curtime = starttime;

real8 duration = 0.0;

if (MCdragspeed != 0)

duration = sqrt((double)(dx * dx + dy * dy)) / (real8)MCdragspeed;

real8 endtime = starttime + duration;

Boolean abort = False;

MCdragging = True;

int2 x = sx;

int2 y = sy;

while (x != ex || y != ey)

{

int2 oldx = x;

int2 oldy = y;

x = sx + (int2)(ix * (dx * (curtime - starttime) / duration));

y = sy + (int2)(iy * (dy * (curtime - starttime) / duration));

if (MCscreen->wait((real8)MCsyncrate / 1000.0, False, True))

{

abort = True;

break;

}

curtime = MCS_time();

if (curtime >= endtime)

{

x = ex;

y = ey;

curtime = endtime;

}

if (x != oldx || y != oldy)

MCdefaultstackptr->mfocus(x, y);

}

MCdefaultstackptr->mup(which);

MCmodifierstate = oldmstate;

MCbuttonstate = oldbstate;

MCmousex = oldx;

MCmousey = oldy;

MCscreen->setlockmods(False);

MCdragging = False;

if (abort)

{

MCeerror->add(EE_DRAG_ABORT, line, pos);

return ES_ERROR;

}

return ES_NORMAL;

#endif /* MCDrag */

}

MCFocus::~MCFocus()

{

delete object;

}

Parse_stat MCFocus::parse(MCScriptPoint &sp)

{

initpoint(sp);

sp.skip_token(SP_FACTOR, TT_OF, PT_ON);

// MW-2008-01-30: [[ Bug 5676 ]] Add "focus on nothing" to allow unfocusing

// all objects on a card.

if (sp.skip_token(SP_SUGAR, TT_UNDEFINED, SG_NOTHING) == PS_NORMAL)

object = NULL;

else

{

object = new MCChunk(False);

if (object->parse(sp, False) != PS_NORMAL)

{

MCperror->add(PE_FOCUS_BADOBJECT, sp);

return PS_ERROR;

}

}

return PS_NORMAL;

}

Exec_stat MCFocus::exec(MCExecPoint &ep)

{

#ifdef /* MCFocus */ LEGACY_EXEC

MCObject *optr;

uint4 parid;

if (object == NULL)

{

if (MCfocusedstackptr != NULL && MCfocusedstackptr -> getcard() != NULL)

MCfocusedstackptr -> getcard() -> kunfocus();

#ifdef _MOBILE

// Make sure the IME is forced closed if explicitly asked to be.

MCscreen -> closeIME();

#endif

}

else

{

if (object->getobj(ep, optr, parid, True) != ES_NORMAL

|| optr->gettype() < CT_BUTTON || !optr->getflag(F_TRAVERSAL_ON))

{

MCeerror->add(EE_FOCUS_BADOBJECT, line, pos);

return ES_ERROR;

}

optr->getstack()->kfocusset((MCControl *)optr);

}

return ES_NORMAL;

#endif /* MCFocus */

}

MCInsert::~MCInsert()

{

delete target;

}

Parse_stat MCInsert::parse(MCScriptPoint &sp)

{

Symbol_type type;

const LT *te;

initpoint(sp);

sp.skip_token(SP_FACTOR, TT_THE);

if (sp.skip_token(SP_FACTOR, TT_PROPERTY, P_SCRIPT) != PS_NORMAL

|| sp.skip_token(SP_FACTOR, TT_OF) != PS_NORMAL)

{

MCperror->add(PE_INSERT_NOSCRIPT, sp);

return PS_ERROR;

}

target = new MCChunk(False);

if (target->parse(sp, False) != PS_NORMAL)

{

MCperror->add(PE_INSERT_BADOBJECT, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_FACTOR, TT_PREP, PT_INTO) != PS_NORMAL)

{

MCperror->add(PE_INSERT_NOINTO, sp);

return PS_ERROR;

}

if (sp.next(type) != PS_NORMAL

|| sp.lookup(SP_INSERT, te) != PS_NORMAL)

{

MCperror->add(PE_INSERT_NOPLACE, sp);

return PS_ERROR;

}

where = (Insert_point)te->which;

return PS_NORMAL;

}

Exec_stat MCInsert::exec(MCExecPoint &ep)

{

#ifdef /* MCInsert */ LEGACY_EXEC

MCObject *optr;

uint4 parid;

if (target->getobj(ep, optr, parid, True) != ES_NORMAL

|| !optr->parsescript(True))

{

MCeerror->add(EE_INSERT_BADTARGET, line, pos);

return ES_ERROR;

}

MCObjectList *&listptr = where == IP_FRONT ? MCfrontscripts : MCbackscripts;

optr->removefrom(listptr);

uint4 count = 0;

if (listptr != NULL)

{

MCObjectList *olptr = listptr;

do

{

if (!olptr->getremoved())

count++;

olptr = olptr->next();

}

while (olptr != listptr);

}

if (MClicenseparameters . insert_limit > 0 && count >= MClicenseparameters . insert_limit)

{

MCeerror->add(EE_INSERT_NOTLICENSED, line, pos);

return ES_ERROR;

}

MCObjectList *olptr = new MCObjectList(optr);

olptr->insertto(listptr);

return ES_NORMAL;

#endif /* MCInsert */

}

// MW-2008-11-05: [[ Dispatch Command ]] Implementation for the dispatch command.

MCDispatchCmd::~MCDispatchCmd(void)

{

while(params != NULL)

{

MCParameter *t_param;

t_param = params;

params = params -> getnext();

delete t_param;

}

delete target;

delete message;

delete it;

}

// Syntax is:

// dispatch [ command | function ] <message: Expression> [ with <parameters: ParamList> ]

// dispatch [ command | function ] <message: Expression> [ to <target: Chunk> ] [ with <parameters: ParamList> ]

Parse_stat MCDispatchCmd::parse(MCScriptPoint& sp)

{

initpoint(sp);

// MW-2009-09-11: Added support for command/function specification

if (sp . skip_token(SP_HANDLER, TT_HANDLER, HT_FUNCTION) == PS_NORMAL)

is_function = true;

else

sp . skip_token(SP_HANDLER, TT_HANDLER, HT_MESSAGE);

if (sp . parseexp(False, True, &message) != PS_NORMAL)

{

MCperror->add(PE_DISPATCH_BADMESSAGE, sp);

return PS_ERROR;

}

// MW-2008-12-04: Added 'to <target>' form to the syntax

if (sp.skip_token(SP_FACTOR, TT_TO) == PS_NORMAL)

{

target = new MCChunk(False);

if (target -> parse(sp, False) != PS_NORMAL)

{

MCperror->add(PE_DISPATCH_BADTARGET, sp);

return PS_ERROR;

}

}

if (sp . skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) == PS_NORMAL)

{

if (getparams(sp, &params) != PS_NORMAL)

{

MCperror -> add(PE_DISPATCH_BADPARAMS, sp);

return PS_ERROR;

}

}

getit(sp, it);

return PS_NORMAL;

}

// This method follows along the same lines as MCComref::exec

Exec_stat MCDispatchCmd::exec(MCExecPoint& ep)

{

#ifdef /* MCDispatchCmd */ LEGACY_EXEC

if (MCscreen->abortkey())

{

MCeerror->add(EE_HANDLER_ABORT, line, pos);

return ES_ERROR;

}

if (message -> eval(ep) != ES_NORMAL)

{

MCeerror -> add(EE_DISPATCH_BADMESSAGEEXP, line, pos);

return ES_ERROR;

}

MCAutoNameRef t_message;

/* UNCHECKED */ ep . copyasnameref(t_message);

// Evaluate the target object (if we parsed a 'target' chunk).

MCObject *t_object;

uint4 t_object_part_id;

if (target == NULL)

t_object = ep.getobj();

else if (target->getobj(ep, t_object, t_object_part_id, True) != ES_NORMAL)

{

MCeerror->add(EE_DISPATCH_BADTARGET, line, pos);

return ES_ERROR;

}

// Evaluate the parameter list

Exec_stat stat;

MCParameter *tptr = params;

while (tptr != NULL)

{

// Get the pointer to the variable this parameter maps to or NULL

// if it is an expression.

MCVariable* t_var;

t_var = tptr -> evalvar(ep);

if (t_var == NULL)

{

tptr -> clear_argument();

while ((stat = tptr->eval(ep)) != ES_NORMAL && (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors)

if (!MCB_error(ep, line, pos, EE_STATEMENT_BADPARAM))

break;

if (stat != ES_NORMAL)

{

MCeerror->add(EE_STATEMENT_BADPARAM, line, pos);

return ES_ERROR;

}

tptr->set_argument(ep);

}

else

tptr->set_argument_var(t_var);

tptr = tptr->getnext();

}

// Fetch current default stack and target settings

MCStack *t_old_stack;

t_old_stack = MCdefaultstackptr;

MCObject *t_old_target;

t_old_target = MCtargetptr;

// Cache the current 'this stack' (used to see if we should switch back

// the default stack).

MCStack *t_this_stack;

t_this_stack = t_object -> getstack();

// Retarget this stack and the target to be relative to the target object

MCdefaultstackptr = t_this_stack;

MCtargetptr = t_object;

// MW-2012-10-30: [[ Bug 10478 ]] Turn off lockMessages before dispatch.

Boolean t_old_lock;

t_old_lock = MClockmessages;

MClockmessages = False;

// Add a new entry in the execution contexts

MCExecPoint *oldep = MCEPptr;

MCEPptr = &ep;

stat = ES_NOT_HANDLED;

Boolean added = False;

if (MCnexecutioncontexts < MAX_CONTEXTS)

{

ep.setline(line);

MCexecutioncontexts[MCnexecutioncontexts++] = &ep;

added = True;

}

// Dispatch the message

stat = MCU_dofrontscripts(is_function ? HT_FUNCTION : HT_MESSAGE, t_message, params);

Boolean olddynamic = MCdynamicpath;

MCdynamicpath = MCdynamiccard != NULL;

if (stat == ES_PASS || stat == ES_NOT_HANDLED)

switch(stat = t_object->handle(is_function ? HT_FUNCTION : HT_MESSAGE, t_message, params, t_object))

{

case ES_ERROR:

MCeerror -> add(EE_DISPATCH_BADCOMMAND, line, pos, t_message);

break;

default:

break;

}

// Set 'it' appropriately

switch(stat)

{

case ES_NOT_HANDLED:

case ES_NOT_FOUND:

it -> sets(MCString("unhandled"));

stat = ES_NORMAL;

break;

case ES_PASS:

it -> sets(MCString("passed"));

stat = ES_NORMAL;

break;

case ES_EXIT_HANDLER:

case ES_NORMAL:

it -> sets(MCString("handled"));

stat = ES_NORMAL;

break;

default:

it -> clear();

break;

}

// Reset the default stack pointer and target - note that we use 'send'esque

// semantics here. i.e. If the default stack has been changed, the change sticks.

if (MCdefaultstackptr == t_this_stack)

MCdefaultstackptr = t_old_stack;

// Reset target pointer

MCtargetptr = t_old_target;

MCdynamicpath = olddynamic;

// MW-2012-10-30: [[ Bug 10478 ]] Restore lockMessages.

MClockmessages = t_old_lock;

// Remove our entry from the contexts list

MCEPptr = oldep;

if (added)

MCnexecutioncontexts--;

return stat;

#endif /* MCDispatchCmd */

}

MCMessage::~MCMessage()

{

delete message;

delete eventtype;

delete target;

delete in;

}

Parse_stat MCMessage::parse(MCScriptPoint &sp)

{

initpoint(sp);

h = sp.gethandler();

if (sp.parseexp(False, True, &message) != PS_NORMAL)

{

MCperror->add(PE_SEND_BADEXP, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_FACTOR, TT_TO) != PS_NORMAL

&& sp.skip_token(SP_FACTOR, TT_OF) != PS_NORMAL)

return PS_NORMAL;

if (sp.skip_token(SP_ASK, TT_UNDEFINED, AT_PROGRAM) == PS_NORMAL)

{

program = True;

if (sp.parseexp(False, True, &in) != PS_NORMAL)

{

MCperror->add(PE_SEND_BADTARGET, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH) == PS_NORMAL

&& sp.skip_token(SP_COMMAND, TT_STATEMENT, S_REPLY) != PS_NORMAL)

if (sp.parseexp(False, True, &eventtype) != PS_NORMAL)

{

MCperror->add(PE_SEND_BADEVENTTYPE, sp);

return PS_ERROR;

}

if (sp.skip_token(SP_SUGAR, TT_PREP, PT_WITHOUT) == PS_NORMAL)

{

sp.skip_token(SP_COMMAND, TT_STATEMENT, S_REPLY);

sp.skip_token(SP_MOVE, TT_UNDEFINED, MM_WAITING);

reply = False;

}

}

else

{

target = new MCChunk(False);

if (target->parse(sp, False) != PS_NORMAL)

{

MCperror->add(PE_SEND_BADTARGET, sp);

return PS_ERROR;

}

return gettime(sp, &in, units);

}

return PS_NORMAL;

}

Exec_stat MCMessage::exec(MCExecPoint &ep)

{

#ifdef /* MCMessage */ LEGACY_EXEC

if (program)

{

if (MCsecuremode & MC_SECUREMODE_PROCESS)

{

MCeerror->add(EE_PROCESS_NOPERM, line, pos);

return ES_ERROR;

}

if (in->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_SEND_BADPROGRAMEXP, line, pos);

return ES_ERROR;

}

char *pname = ep.getsvalue().clone();

char *etstring = NULL;

if (eventtype != NULL)

{

if (eventtype->eval(ep) != ES_NORMAL || ep.getsvalue().getlength() != 8)

{

MCeerror->add(EE_SEND_BADEXP, line, pos);

return ES_ERROR;

}

etstring = ep.getsvalue().clone();

}

if (message->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_SEND_BADEXP, line, pos);

delete pname;

delete etstring;

return ES_ERROR;

}

MCS_send(ep.getsvalue(), pname, etstring, reply);

delete pname;

delete etstring;

return ES_NORMAL;

}

MCObject *optr;

uint4 parid;

if (target == NULL)

optr = ep.getobj();

else

if (target->getobj(ep, optr, parid, True) != ES_NORMAL)

{

MCeerror->add(EE_SEND_BADTARGET, line, pos);

return ES_ERROR;

}

real8 delay = 0.0;

if (in != NULL)

{

if (in->eval(ep) != ES_NORMAL || ep.ton() != ES_NORMAL)

{

MCeerror->add(EE_SEND_BADINEXP, line, pos);

return ES_ERROR;

}

delay = ep.getnvalue();

switch (units)

{

case F_MILLISECS:

delay /= 1000.0;

break;

case F_TICKS:

delay /= 60.0;

break;

default:

break;

}

}

if (message->eval(ep) != ES_NORMAL)

{

MCeerror->add(EE_SEND_BADEXP, line, pos);

return ES_ERROR;

}

char *mptr = ep.getsvalue().clone();

MCParameter *params = NULL;

MCParameter *tparam = NULL;

char *sptr = mptr;

while (*sptr && !isspace((uint1)*sptr))

sptr++;

MCerrorlock++;

if (*sptr)

{

*sptr++ = '\0';

char *startptr = sptr;

while (*startptr)