#include "prefix.h"

#include "globdefs.h"

#include "filedefs.h"

#include "objdefs.h"

#include "parsedef.h"

#include "mcio.h"

#include "dispatch.h"

#include "stack.h"

#include "tooltip.h"

#include "card.h"

#include "field.h"

#include "button.h"

#include "image.h"

#include "aclip.h"

#include "vclip.h"

#include "stacklst.h"

#include "mcerror.h"

#include "hc.h"

#include "util.h"

#include "param.h"

#include "debug.h"

#include "statemnt.h"

#include "funcs.h"

#include "magnify.h"

#include "sellst.h"

#include "undolst.h"

#include "styledtext.h"

#include "external.h"

#include "osspec.h"

#include "flst.h"

#include "globals.h"

#include "license.h"

#include "mode.h"

#include "redraw.h"

#include "printer.h"

#include "font.h"

#include "stacksecurity.h"

#include "scriptpt.h"

#include "widget-events.h"

#include "parentscript.h"

#include "exec.h"

#include "exec-interface.h"

#include "graphics_util.h"

#include "stackfileformat.h"

#define UNLICENSED_TIME 6.0

#ifdef _DEBUG_MALLOC_INC

#define LICENSED_TIME 1.0

#else

#define LICENSED_TIME 3.0

#endif

MCImage *MCDispatch::imagecache;

MCPropertyInfo MCDispatch::kProperties[] =

{

DEFINE_RO_OBJ_PROPERTY(P_TEXT_FONT, String, MCDispatch, DefaultTextFont)

DEFINE_RO_OBJ_PROPERTY(P_TEXT_SIZE, UInt32, MCDispatch, DefaultTextSize)

DEFINE_RO_OBJ_ENUM_PROPERTY(P_TEXT_ALIGN, InterfaceTextAlign, MCDispatch, DefaultTextAlign)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_TEXT_STYLE, InterfaceTextStyle, MCDispatch, DefaultTextStyle)

DEFINE_RO_OBJ_PROPERTY(P_TEXT_HEIGHT, UInt32, MCDispatch, DefaultTextHeight)

DEFINE_RO_OBJ_PROPERTY(P_FORE_PIXEL, UInt32, MCDispatch, DefaultForePixel)

DEFINE_RO_OBJ_PROPERTY(P_HILITE_PIXEL, UInt32, MCDispatch, DefaultForePixel)

DEFINE_RO_OBJ_PROPERTY(P_BORDER_PIXEL, UInt32, MCDispatch, DefaultForePixel)

DEFINE_RO_OBJ_PROPERTY(P_BOTTOM_PIXEL, UInt32, MCDispatch, DefaultForePixel)

DEFINE_RO_OBJ_PROPERTY(P_SHADOW_PIXEL, UInt32, MCDispatch, DefaultForePixel)

DEFINE_RO_OBJ_PROPERTY(P_FOCUS_PIXEL, UInt32, MCDispatch, DefaultForePixel)

DEFINE_RO_OBJ_PROPERTY(P_BACK_PIXEL, UInt32, MCDispatch, DefaultBackPixel)

DEFINE_RO_OBJ_PROPERTY(P_TOP_PIXEL, UInt32, MCDispatch, DefaultTopPixel)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_FORE_COLOR, InterfaceNamedColor, MCDispatch, DefaultForeColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_BORDER_COLOR, InterfaceNamedColor, MCDispatch, DefaultForeColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_TOP_COLOR, InterfaceNamedColor, MCDispatch, DefaultForeColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_BOTTOM_COLOR, InterfaceNamedColor, MCDispatch, DefaultForeColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_SHADOW_COLOR, InterfaceNamedColor, MCDispatch, DefaultForeColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_FOCUS_COLOR, InterfaceNamedColor, MCDispatch, DefaultForeColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_BACK_COLOR, InterfaceNamedColor, MCDispatch, DefaultBackColor)

DEFINE_RO_OBJ_CUSTOM_PROPERTY(P_HILITE_COLOR, InterfaceNamedColor, MCDispatch, DefaultBackColor)

DEFINE_RO_OBJ_PROPERTY(P_FORE_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_BACK_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_HILITE_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_BORDER_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_TOP_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_BOTTOM_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_SHADOW_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

DEFINE_RO_OBJ_PROPERTY(P_FOCUS_PATTERN, OptionalUInt32, MCDispatch, DefaultPattern)

};

MCObjectPropertyTable MCDispatch::kPropertyTable =

{

&MCObject::kPropertyTable,

sizeof(kProperties) / sizeof(kProperties[0]),

&kProperties[0],

};

MCDispatch::MCDispatch()

}

MCDispatch::~MCDispatch()

{

delete license;

while (stacks != NULL)

{

MCStack *sptr = stacks->prev()->remove(stacks);

delete sptr;

}

while (imagecache != NULL)

{

MCImage *iptr = imagecache->remove(imagecache);

delete iptr;

}

delete fonts;

MCMemoryDeleteArray(startdir); /* Allocated by MCStringConvertToCString() */

MCMemoryDeleteArray(enginedir); /* Allocated by MCStringConvertToCString() */

delete m_externals;

// AL-2015-02-10: [[ Standalone Inclusions ]] Delete library mapping

MCValueRelease(m_library_mapping);

}

bool MCDispatch::visit_self(MCObjectVisitor* p_visitor)

{

return p_visitor -> OnObject(this);

}

bool MCDispatch::isdragsource(void)

{

return m_drag_source;

}

bool MCDispatch::isdragtarget(void)

{

return m_drag_target;

}

Boolean MCDispatch::cut(Boolean home)

}

Exec_stat MCDispatch::handle(Handler_type htype, MCNameRef mess, MCParameter *params, MCObject *pass_from)

}

bool MCDispatch::getmainstacknames(MCListRef& r_list)

}

void MCDispatch::appendstack(MCStack *sptr)

}

void MCDispatch::removestack(MCStack *sptr)

}

void MCDispatch::destroystack(MCStack *sptr, Boolean needremove)

}

static bool attempt_to_loadfile(IO_handle& r_stream, MCStringRef& r_path, const char *p_path_format, ...)

}

Boolean MCDispatch::openstartup(MCStringRef sname, MCStringRef& outpath, IO_handle &stream)

}

Boolean MCDispatch::openenv(MCStringRef sname, MCStringRef env,

}

IO_stat readheader(IO_handle& stream, uint32_t& r_version)

}

bool MCDispatch::streamstackisscriptonly(IO_handle stream)

}

IO_stat MCDispatch::readstartupstack(IO_handle stream, MCStack*& r_stack)

}

IO_stat MCDispatch::readscriptonlystartupstack(IO_handle stream, uindex_t p_length, MCStack*& r_stack)

}

IO_stat MCDispatch::readfile(MCStringRef p_openpath, MCStringRef p_name, IO_handle &stream, MCStack *&sptr)

}

IO_stat MCDispatch::trytoreadbinarystack(MCStringRef p_openpath,

}

static MCStack* script_only_stack_from_bytes(uint8_t *p_bytes,

uindex_t p_size,

MCStringEncoding p_encoding)

{

MCAutoStringRef t_raw_script_string, t_lc_script_string;

MCStringLineEndingStyle t_line_encoding_style;

if (!MCStringCreateWithBytes(p_bytes, p_size, p_encoding, false,

&t_raw_script_string) ||

!MCStringNormalizeLineEndings(*t_raw_script_string,

kMCStringLineEndingStyleLF,

kMCStringLineEndingOptionNormalizePSToLineEnding |

kMCStringLineEndingOptionNormalizeLSToVT,

&t_lc_script_string,

&t_line_encoding_style))

{

return nullptr;

}

// Now attempt to parse the header line:

// 'script' <string>

MCScriptPoint sp(*t_lc_script_string);

// Parse 'script' token.

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

{

return nullptr;

}

// Parse <string> token.

Symbol_type t_type;

if (sp . next(t_type) != PS_NORMAL || t_type != ST_LIT)

{

return nullptr;

}

MCNewAutoNameRef t_script_name = sp.gettoken_nameref();

// If 'with' is next then parse the behavior reference.

MCNewAutoNameRef t_behavior_name;

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

{

// Ensure 'behavior' is next

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

{

return nullptr;

}

// Read the behavior name

if (sp.next(t_type) != PS_NORMAL || t_type != ST_LIT)

{

return nullptr;

}

t_behavior_name = sp.gettoken_nameref();

}

// Parse end of line.

Parse_stat t_stat;

t_stat = sp . next(t_type);

if (t_stat != PS_EOL && t_stat != PS_EOF)

return nullptr;

// MW-2014-10-23: [[ Bug ]] Make sure we trim the correct number of lines.

// SN-2014-10-16: [[ Merge-6.7.0-rc-3 ]] Update to StringRef

// Now trim the ep down to the remainder of the script.

// Trim the header.

uint32_t t_lines = sp.getline();

uint32_t t_index = 0;

// Jump over the possible lines before the string token

while (MCStringFirstIndexOfChar(*t_lc_script_string, '\n', t_index,

kMCStringOptionCompareExact, t_index)

&& t_lines > 0)

{

t_lines -= 1;

}

// Add one to the index so we include the LF

t_index += 1;

// t_line now has the last LineFeed of the token

MCAutoStringRef t_lc_script_body;

// We copy the body of the stack script

if (!MCStringCopySubstring(*t_lc_script_string,

MCRangeMake(t_index,

MCStringGetLength(*t_lc_script_string)

- t_index), &t_lc_script_body))

{

return nullptr;

}

// Create a stack.

MCStack *t_stack;

if (!MCStackSecurityCreateStack(t_stack))

return nullptr;

// Set it up as script only.

t_stack -> setasscriptonly(*t_lc_script_body);

// Set its name.

t_stack -> setname(*t_script_name);

// Save line endings from raw script string to restore when saving file.

t_stack -> setlineencodingstyle(t_line_encoding_style);

// If we parsed a behavior reference, then set it.

if (*t_behavior_name != nullptr)

{

t_stack->setparentscript_onload(0, *t_behavior_name);

}

return t_stack;

}

IO_stat MCDispatch::trytoreadscriptonlystackofsize(MCStringRef p_openpath,

}

IO_stat MCDispatch::trytoreadscriptonlystack(MCStringRef p_openpath,

}

void MCDispatch::processstack(MCStringRef p_openpath, MCStack* &x_stack)

}

IO_stat MCDispatch::doreadfile(MCStringRef p_openpath, MCStringRef p_name, IO_handle &stream, MCStack* &r_stack)