/* Copyright (C) 2003-2015 LiveCode 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 "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 "hndlrlst.h"

#include "globals.h"

#include "license.h"

#include "socket.h"

#include "exec.h"

#include "syntax.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;

Parse_stat t_stat = PS_NORMAL;

if (PS_NORMAL == t_stat)

t_stat = sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_CONNECTIONS);

if (PS_NORMAL == t_stat)

t_stat = sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_ON);

if (PS_NORMAL == t_stat)

t_stat = sp.skip_token(SP_ACCEPT, TT_UNDEFINED, AC_PORT);

if (PS_NORMAL == t_stat)

t_stat = sp.parseexp(False, True, &port);

if (PS_NORMAL == t_stat)

t_stat = sp.skip_token(SP_REPEAT, TT_UNDEFINED, RF_WITH);

if (PS_NORMAL == t_stat)

t_stat = sp.skip_token(SP_SUGAR, TT_CHUNK, CT_UNDEFINED);

if (PS_NORMAL == t_stat)

t_stat = sp.parseexp(False, True, &message);

if (PS_NORMAL != t_stat)

{

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;

}

void MCAccept::exec_ctxt(MCExecContext &ctxt)

{

uinteger_t t_port;

if (!ctxt . EvalExprAsUInt(port, EE_ACCEPT_BADEXP, t_port))

return;

if (t_port > UINT16_MAX)

{

ctxt . LegacyThrow(EE_ACCEPT_BADEXP);

return;

}

MCNewAutoNameRef t_message;

if (!ctxt . EvalExprAsNameRef(message, EE_ACCEPT_BADEXP, &t_message))

return;

if (datagram)

MCNetworkExecAcceptDatagramConnectionsOnPort(ctxt, uint16_t(t_port), *t_message);

else if (secure)

MCNetworkExecAcceptSecureConnectionsOnPort(ctxt, uint16_t(t_port), *t_message, secureverify == True);

else

MCNetworkExecAcceptConnectionsOnPort(ctxt, uint16_t(t_port), *t_message);

}

void MCAccept::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

port -> compile(ctxt);

message -> compile(ctxt);

if (datagram)

MCSyntaxFactoryExecMethod(ctxt, kMCNetworkExecAcceptDatagramConnectionsOnPortMethodInfo);

else if (secure)

{

MCSyntaxFactoryEvalConstantBool(ctxt, secureverify == True);

MCSyntaxFactoryExecMethod(ctxt, kMCNetworkExecAcceptSecureConnectionsOnPortMethodInfo);

}

else

MCSyntaxFactoryExecMethod(ctxt, kMCNetworkExecAcceptConnectionsOnPortMethodInfo);

MCSyntaxFactoryEndStatement(ctxt);

}

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;

}

void MCBeep::exec_ctxt(MCExecContext& ctxt)

{

uinteger_t t_count;

if (!ctxt . EvalOptionalExprAsUInt(times, 1, EE_BEEP_BADEXP, t_count))

return;

MCInterfaceExecBeep(ctxt, t_count);

}

void MCBeep::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

if (times != nil)

times -> compile(ctxt);

else

MCSyntaxFactoryEvalConstantUInt(ctxt, 1);

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecBeepMethodInfo);

MCSyntaxFactoryEndStatement(ctxt);

}

void MCBreakPoint::exec_ctxt(MCExecContext& ctxt)

{

MCDebuggingExecBreakpoint(ctxt, line, pos);

}

void MCBreakPoint::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

MCSyntaxFactoryEvalConstantUInt(ctxt, line);

MCSyntaxFactoryEvalConstantUInt(ctxt, pos);

MCSyntaxFactoryExecMethod(ctxt, kMCDebuggingExecBreakpointMethodInfo);

MCSyntaxFactoryEndStatement(ctxt);

}

MCCancel::~MCCancel()

{

delete m_id;

}

Parse_stat MCCancel::parse(MCScriptPoint &sp)

{

initpoint(sp);

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

{

m_id = NULL;

}

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

{

MCperror->add(PE_CANCEL_BADEXP, sp);

return PS_ERROR;

}

return PS_NORMAL;

}

void MCCancel::exec_ctxt(MCExecContext& ctxt)

{

if (m_id == NULL)

MCPrintingExecCancelPrinting(ctxt);

else

{

integer_t t_id;

if (!ctxt . EvalExprAsInt(m_id, EE_CANCEL_IDNAN, t_id))

return;

MCEngineExecCancelMessage(ctxt, t_id);

}

}

void MCCancel::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

if (m_id == nil)

MCSyntaxFactoryExecMethod(ctxt, kMCPrintingExecCancelPrintingMethodInfo);

else

{

m_id -> compile(ctxt);

MCSyntaxFactoryExecMethod(ctxt, kMCEngineExecCancelMessageMethodInfo);

}

MCSyntaxFactoryEndStatement(ctxt);

}

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;

}

void MCClickCmd::exec_ctxt(MCExecContext& ctxt)

{

uinteger_t t_which;

if (!ctxt . EvalOptionalExprAsUInt(button, which, EE_CLICK_BADBUTTON, t_which))

return;

which = t_which;

MCPoint t_location;

if (!ctxt . EvalExprAsPoint(location, EE_CLICK_BADLOCATION, t_location))

return;

MCInterfaceExecClickCmd(ctxt, which, t_location, mstate);

}

void MCClickCmd::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

if (button != nil)

button -> compile(ctxt);

else

MCSyntaxFactoryEvalConstantUInt(ctxt, which);

location -> compile(ctxt);

MCSyntaxFactoryEvalConstantUInt(ctxt, mstate);

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecClickCmdMethodInfo);

MCSyntaxFactoryEndStatement(ctxt);

}

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;

}

void MCDrag::exec_ctxt(MCExecContext& ctxt)

{

uinteger_t t_which;

if (!ctxt . EvalOptionalExprAsUInt(button, which, EE_DRAG_BADBUTTON, t_which))

return;

which = t_which;

MCPoint t_start;

if (!ctxt . EvalExprAsPoint(startloc, EE_DRAG_BADSTARTLOC, t_start))

return;

MCPoint t_end;

if (!ctxt . EvalExprAsPoint(endloc, EE_DRAG_BADENDLOC, t_end))

return;

MCInterfaceExecDrag(ctxt, which, t_start, t_end, mstate);

}

void MCDrag::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

if (button != nil)

button -> compile(ctxt);

else

MCSyntaxFactoryEvalConstantUInt(ctxt, which);

startloc -> compile(ctxt);

endloc -> compile(ctxt);

MCSyntaxFactoryEvalConstantUInt(ctxt, mstate);

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecDragMethodInfo);

MCSyntaxFactoryEndStatement(ctxt);

}

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 (nothrow) MCChunk(False);

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

{

MCperror->add(PE_FOCUS_BADOBJECT, sp);

return PS_ERROR;

}

}

return PS_NORMAL;

}

void MCFocus::exec_ctxt(MCExecContext &ctxt)

{

if (object == NULL)

MCInterfaceExecFocusOnNothing(ctxt);

else

{

MCObject *optr;

uint4 parid;

if (!object->getobj(ctxt, optr, parid, True) ||

!MCChunkTermIsControl(optr -> gettype()))

{

ctxt . LegacyThrow(EE_FOCUS_BADOBJECT);

return;

}

MCInterfaceExecFocusOn(ctxt, optr);

}

}

void MCFocus::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

if (object == nil)

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecFocusOnNothingMethodInfo);

else

{

object -> compile_object_ptr(ctxt);

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecFocusOnMethodInfo);

}

MCSyntaxFactoryEndStatement(ctxt);

}

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 (nothrow) 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;

}

void MCInsert::exec_ctxt(MCExecContext &ctxt)

{

MCObject *optr;

uint4 parid;

if (!target->getobj(ctxt, optr, parid, True))

{

ctxt . LegacyThrow(EE_INSERT_BADTARGET);

return;

}

MCEngineExecInsertScriptOfObjectInto(ctxt, optr, where == IP_FRONT);

}

void MCInsert::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

target -> compile_object_ptr(ctxt);

MCSyntaxFactoryEvalConstantBool(ctxt, where == IP_FRONT);

MCSyntaxFactoryExecMethod(ctxt, kMCEngineExecInsertScriptOfObjectIntoMethodInfo);

MCSyntaxFactoryEndStatement(ctxt);

}

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

}

// 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 (nothrow) 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;

}

}

return PS_NORMAL;

}

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

void MCDispatchCmd::exec_ctxt(MCExecContext &ctxt)

{

MCNewAutoNameRef t_message;

if (!ctxt . EvalExprAsNameRef(message, EE_DISPATCH_BADMESSAGEEXP, &t_message))

return;

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

MCObjectPtr t_target;

MCObjectPtr *t_target_ptr;

if (target != nil)

{

if (!target->getobj(ctxt, t_target, True))

{

ctxt . LegacyThrow(EE_DISPATCH_BADTARGET);

return;

}

t_target_ptr = &t_target;

}

else

t_target_ptr = nil;

// Evaluate the parameter list

bool t_success, t_can_debug;

MCParameter *tptr = params;

while (tptr != NULL)

{

// AL-2014-08-20: [[ ArrayElementRefParams ]] Use containers for potential reference parameters

MCAutoPointer<MCContainer> t_container = new (nothrow) MCContainer;

if (tptr -> evalcontainer(ctxt, **t_container))

tptr -> set_argument_container(t_container.Release());

else

{

MCExecValue t_value;

tptr -> clear_argument();

do

{

if (!(t_success = tptr->eval_ctxt(ctxt, t_value)))

t_can_debug = MCB_error(ctxt, line, pos, EE_STATEMENT_BADPARAM);

ctxt.IgnoreLastError();

}

while (!t_success && t_can_debug && (MCtrace || MCnbreakpoints) && !MCtrylock && !MClockerrors);

if (!t_success)

{

ctxt . LegacyThrow(EE_STATEMENT_BADPARAM);

return;

}

tptr->give_exec_argument(t_value);

}

tptr = tptr->getnext();

}

ctxt . SetLineAndPos(line, pos);

MCEngineExecDispatch(ctxt, is_function ? HT_FUNCTION : HT_MESSAGE, *t_message, t_target_ptr, params);

// AL-2014-09-17: [[ Bug 13465 ]] Clear parameters after executing dispatch

tptr = params;

while (tptr != NULL)

{

tptr -> clear_argument();

tptr = tptr->getnext();

}

}

Parse_stat MCMessage::parse(MCScriptPoint &sp)

{

initpoint(sp);

MCScriptPoint oldsp(sp);

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

{

MCerrorlock++;

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

{

sp = oldsp;

}

else

{

script = True;

}

MCerrorlock--;

}

if (!script && 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 (nothrow) MCChunk(False);

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

{

MCperror->add(PE_SEND_BADTARGET, sp);

return PS_ERROR;

}

if (script && sp.skip_eol() != PS_NORMAL)

{

MCperror->add(PE_SEND_SCRIPTINTIME, sp);

return PS_ERROR;

}

return gettime(sp, &(&in), units);

}

return PS_NORMAL;

}

void MCMessage::exec_ctxt(MCExecContext &ctxt)

{

if (program)

{

MCAutoStringRef t_message;

if (!ctxt . EvalExprAsStringRef(*message, EE_SEND_BADEXP, &t_message))

return;

MCAutoStringRef t_program;

if (!ctxt . EvalExprAsStringRef(*in, EE_SEND_BADPROGRAMEXP, &t_program))

return;

MCAutoStringRef t_event_type;

if (!ctxt . EvalOptionalExprAsNullableStringRef(*eventtype, EE_SEND_BADEXP, &t_event_type))

return;

MCScriptingExecSendToProgram(ctxt, *t_message, *t_program, *t_event_type, reply == True);

}

else

{

MCAutoStringRef t_message;

if (!ctxt . EvalExprAsStringRef(*message, EE_SEND_BADEXP, &t_message))

return;

MCObjectPtr t_target;

MCObjectPtr *t_target_ptr;

if (*target != nil)

{

if (!target -> getobj(ctxt, t_target, True))

{

ctxt . LegacyThrow(EE_SEND_BADTARGET);

return;

}

t_target_ptr = &t_target;

}

else

t_target_ptr = nil;

if (*in != nil)

{

double t_delay;

if (!ctxt . EvalExprAsDouble(*in, EE_SEND_BADINEXP, t_delay))

return;

MCEngineExecSendInTime(ctxt, *t_message, t_target, t_delay, units);

}

else

{

ctxt . SetLineAndPos(line, pos);

if (!script)

{

if (!send)

MCEngineExecCall(ctxt, *t_message, t_target_ptr);

else

MCEngineExecSend(ctxt, *t_message, t_target_ptr);

}

else

{

MCEngineExecSendScript(ctxt, *t_message, t_target_ptr);

}

}

}

}

void MCMessage::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

if (program)

{

message -> compile(ctxt);

in -> compile(ctxt);

if (*eventtype != nil)

eventtype -> compile(ctxt);

else

MCSyntaxFactoryEvalConstantNil(ctxt);

MCSyntaxFactoryEvalConstantBool(ctxt, reply == True);

MCSyntaxFactoryExecMethod(ctxt, kMCScriptingExecSendToProgramMethodInfo);

}

else

{

message -> compile(ctxt);

if (*target != nil)

target -> compile_object_ptr(ctxt);

else

MCSyntaxFactoryEvalConstantNil(ctxt);

if (*in != nil)

{

in -> compile(ctxt);

MCSyntaxFactoryEvalConstantInt(ctxt, units);

MCSyntaxFactoryExecMethod(ctxt, kMCEngineExecSendInTimeMethodInfo);

}

else

{

if (!send)

MCSyntaxFactoryExecMethod(ctxt, kMCEngineExecCallMethodInfo);

else

MCSyntaxFactoryExecMethod(ctxt, kMCEngineExecSendMethodInfo);

}

}

MCSyntaxFactoryEndStatement(ctxt);

}

MCMove::~MCMove()

{

delete object;

delete startloc;

delete endloc;

delete durationexp;

}

Parse_stat MCMove::parse(MCScriptPoint &sp)

{

initpoint(sp);

object = new (nothrow) MCChunk(False);

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

{

MCperror->add(PE_MOVE_BADOBJECT, sp);

return PS_ERROR;

}

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

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

{

MCperror->add(PE_MOVE_BADSTARTLOCEXP, sp);

return PS_ERROR;

}

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

{

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

{

MCperror->add(PE_MOVE_NOTO, sp);

return PS_ERROR;

}

relative = True;

}

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

{

MCperror->add(PE_MOVE_BADENDLOCEXP, sp);

return PS_ERROR;

}

if (gettime(sp, &durationexp, units) != PS_NORMAL)

return PS_ERROR;

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

{

if (sp.skip_token(SP_MOVE, TT_UNDEFINED, MM_MESSAGES) == PS_NORMAL)

messages = False;

else

if (sp.skip_token(SP_MOVE, TT_UNDEFINED, MM_WAITING) == PS_NORMAL)

waiting = False;

else

{

MCperror->add(PE_MOVE_BADWITHOUT, sp);

return PS_ERROR;

}

}

return PS_NORMAL;

}

void MCMove::exec_ctxt(MCExecContext &ctxt)

{

MCObject *optr;

uint4 parid;

if (!object->getobj(ctxt, optr, parid, True))

{

ctxt . LegacyThrow(EE_MOVE_BADOBJECT);

return;

}

real8 duration;

if (!ctxt . EvalOptionalExprAsDouble(durationexp, 0.0, EE_MOVE_BADDURATION, duration))

return;

if (startloc != NULL)

{

MCPoint t_to, t_from;

if (!ctxt . EvalExprAsPoint(endloc, EE_MOVE_BADENDLOC, t_to))

return;

if (!ctxt . EvalExprAsPoint(startloc, EE_MOVE_BADSTARTLOC, t_from))

return;

MCInterfaceExecMoveObjectBetween(ctxt, optr, t_from, t_to, duration, units, waiting == True, messages == True);

}

else

{

MCAutoArray<MCPoint> t_points;

MCAutoStringRef t_motion;

if (!ctxt . EvalExprAsStringRef(endloc, EE_MOVE_BADENDLOC, &t_motion))

return;

if (!MCU_parsepoints(t_points.PtrRef(), t_points.SizeRef(), *t_motion))

{

ctxt . LegacyThrow(EE_MOVE_ENDNAP);

return;

}

MCInterfaceExecMoveObjectAlong(ctxt, optr, t_points.Ptr(), t_points.Size(), relative == True, duration, units, waiting == True, messages == True);

}

}

void MCMove::compile(MCSyntaxFactoryRef ctxt)

{

MCSyntaxFactoryBeginStatement(ctxt, line, pos);

object -> compile_object_ptr(ctxt);

if (startloc != nil)

{

startloc -> compile(ctxt);

endloc -> compile(ctxt);

if (durationexp != nil)

durationexp -> compile(ctxt);

else

MCSyntaxFactoryEvalConstantDouble(ctxt, 0);

MCSyntaxFactoryEvalConstantInt(ctxt, units);

MCSyntaxFactoryEvalConstantBool(ctxt, waiting == True);

MCSyntaxFactoryEvalConstantBool(ctxt, messages == True);

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecMoveObjectBetweenMethodInfo);

}

else

{

endloc -> compile(ctxt);

MCSyntaxFactoryEvalConstantBool(ctxt, relative == True);

if (durationexp != nil)

durationexp -> compile(ctxt);

else

MCSyntaxFactoryEvalConstantDouble(ctxt, 0);

MCSyntaxFactoryEvalConstantInt(ctxt, units);

MCSyntaxFactoryEvalConstantBool(ctxt, waiting == True);

MCSyntaxFactoryEvalConstantBool(ctxt, messages == True);

MCSyntaxFactoryExecMethod(ctxt, kMCInterfaceExecMoveObjectAlongMethodInfo);

}

MCSyntaxFactoryEndStatement(ctxt);

}

MCMM::~MCMM()

{

delete clip;

delete stack;

delete tempo;

delete loc;

delete options;

}

Parse_stat MCMM::parse(MCScriptPoint &sp)

{

initpoint(sp);