/*                                                                     -*-c++-*-

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 "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 "eventqueue.h"

#include <arpa/inet.h>

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

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


/* ================================================================
 * 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;
}

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

static bool
X_initialize_mccmd(const X_init_options& p_options)
{
    return MCsystem->PathFromNative(p_options.argv[0],
                                    MCcmd);
}

static bool
X_initialize_mcappcodepath(const X_init_options& p_options)
{
    if (p_options.app_code_path != nullptr)
    {
        MCappcodepath = MCValueRetain(p_options.app_code_path);
        return true;
    }
    
    return MCU_path_split(MCcmd,
                          &MCappcodepath,
                          nullptr);
}

// Important: This function is on the emterpreter whitelist. If its
// signature function changes, the mangled name must be updated in
// em-whitelist.json
bool
X_init(const X_init_options& p_options)
{
    int argc = p_options.argc;
    MCStringRef *argv = p_options.argv;
    MCStringRef *envp = p_options.envp;

	/* ---------- Set up global variables */
	X_clear_globals();

	/* No blocking during initialization */
	++MCwaitdepth;

	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();
    
    if (!X_initialize_mccmd(p_options))
    {
        goto error_cleanup;
    }

    if (!X_initialize_mcappcodepath(p_options))
    {
        goto error_cleanup;
    }
    
	X_initialize_names();

	if (!MCFontInitialize())
	{
		goto error_cleanup;
	}

	if (!MCLogicalFontTableInitialize())
	{
		goto error_cleanup;
	}

	// Initialize the event queue
	if (!MCEventQueueInitialize())
	{
		goto error_cleanup;
	}
	
	/* ---------- More globals */

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

	kMCSystemLocale = MCS_getsystemlocale();

	if (nil == kMCSystemLocale)
	{
		goto error_cleanup;
	}

	/* ---------- 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())
	{
		goto error_cleanup;
	}

	/* ---------- Continue booting... */
	if (!X_open(argc, argv, envp))
	{
		goto error_cleanup;
	}

	--MCwaitdepth;
	return true;

 error_cleanup:
	--MCwaitdepth;
	return false;
}

/* ================================================================
 * 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;
}