/*                                                                     -*-c++-*-

Copyright (C) 2003-2015 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 "em-dc-mainloop.h"
#include "em-dc.h"
#include "em-standalone.h"
#include "em-util.h"

#include "globals.h"
#include "variable.h"
#include "osspec.h"
#include "tooltip.h"
#include "stacklst.h"
#include "redraw.h"
#include "system.h"
#include "font.h"
#include "util.h"

#include <arpa/inet.h>

/* ================================================================ */

/* Functions that incomprehensibly fail to appear in any header
 * files. */

bool X_open(int argc, MCStringRef argv[], MCStringRef envp[]);
void X_clear_globals(void);
void MCU_initialize_names(void);

/* ================================================================
 * Platform-specific initialisation
 * ================================================================ */

/* FIXME these functions are pretty much the same for every X_init()
 * implementation. */

/* Returns 0 on big-endian platforms, 1 on little-endian */
static Boolean
/*byte_swapped*/MCEmscriptenIsLittleEndian(void)
{
	return (1 != htons(1)) ? 1 : 0;
}

/* Create a $<N> variable for a numbered command-line argument
 * string */
static bool
/*create_var*/MCEmscriptenCreateArgVar(MCStringRef p_arg, uint32_t p_number)
{
	MCAutoStringRef t_name_str;
	MCVariable *t_variable;
	MCNewAutoNameRef t_name;

	if (!MCStringFormat(&t_name_str, "$%d", p_number))
	{
		return false;
	}

	if (!MCNameCreate(*t_name_str, &t_name))
	{
		return false;
	}

	if (!MCVariable::ensureglobal(*t_name, t_variable))
	{
		return false;
	}

	t_variable->setvalueref(p_arg);

	MCU_realloc((char **)&MCstacknames,
	            MCnstacks,
	            MCnstacks + 1,
	            sizeof(MCStringRef));

	MCstacknames[MCnstacks++] = MCValueRetain(p_arg);

	return true;
}

/* Create the $# variable (number of command line arguments) */
static bool
/*create_var*/MCEmscriptenCreateArgCountVar(uint32_t p_number)
{
	MCVariable *t_variable;
	if (!MCVariable::ensureglobal(MCNAME("$#"), t_variable))
	{
		return false;
	}

	t_variable->setnvalue(p_number);

	return true;
}

/* ================================================================ */

bool
X_init(int argc,
       MCStringRef argv[],
       int envc,
       MCStringRef envp[])
{
	/* ---------- Set up global variables */
	X_clear_globals();

	MCswapbytes = MCEmscriptenIsLittleEndian();
	MCtruemcstring = MCtruestring;
	MCfalsemcstring = MCfalsestring;

	/* On Emscripten, we let the engine sleep indefinitely in the
	 * absence on incoming events. */
	MCmaxwait = INFINITY;

	/* ---------- Initialise all the things */
	MCS_init();
	MCU_initialize_names();

	if (!MCFontInitialize())
	{
		return false;
	}

	if (!MCLogicalFontTableInitialize())
	{
		return false;
	}

	/* ---------- More globals */

	/* executable file name */
	if (!MCsystem->PathFromNative(argv[0], MCcmd))
	{
		return false;
	}

	/* Locales */
	if (!MCLocaleCreateWithName(MCSTR("en_US"), kMCBasicLocale))
	{
		return false;
	}

	kMCSystemLocale = MCS_getsystemlocale();

	if (nil == kMCSystemLocale)
	{
		return false;
	}

	/* ---------- argv[] global variables */
	for (int i = 1; i < argc; ++i)
	{
		if (argv[i] != nil)
		{
			MCEmscriptenCreateArgVar(argv[i], i);
		}
	}
	MCEmscriptenCreateArgCountVar(argc);

	/* ---------- Initialise the filesystem */

	/* We have to unpack the standalone data here rather than in
	 * MCDispatch::startup() because we have to have font data
	 * available in the VFS before calling X_open(). */
	if (!MCEmscriptenStandaloneUnpack())
	{
		return false;
	}

	/* ---------- Continue booting... */
	return X_open(argc, argv, envp);
}

/* ================================================================
 * Emscripten platform main loop
 * ================================================================ */

bool
X_main_loop_iteration()
{
	/* Check if the engine is in a runnable state */
	if (!MCscreen->hasmessages() &&
	    MCstacks->isempty() &&
	    0 == MCnsockets)
	{
		MCquit = true;
		return false;
	}

	/* Process pending events */
	MCscreen->wait(MCmaxwait, true, true);

	/* Since the main loop returned to the top level, make sure to
	 * reset any locks and perform any pending redraws.  This can only
	 * be handled here, not in MCScreenDC::wait(). */
	MCU_resetprops(true);
	MCRedrawUpdateScreen();

	MCabortscript = false;

	MCU_cleaninserted();

	MCscreen->siguser();

	MCdefaultstackptr = MCstaticdefaultstackptr;

	MCS_alarm(0);

	return !MCquit;
}