*/

#undef BUILD_tk
#undef STATIC_BUILD
#include "tk.h"

#ifdef ANDROID
#include <time.h>
#include <sys/system_properties.h>
#include <jni.h>
#endif

#ifdef TK_TEST
extern Tcl_PackageInitProc Tktest_Init;
#endif /* TK_TEST */

#ifdef PLATFORM_SDL
#include <SDL2/SDL.h>
#ifdef ANDROID
#include <android/log.h>
#undef  main
#define main SDL_main
#endif
#endif

/*
 * The following #if block allows you to change the AppInit function by using

#ifdef TK_LOCAL_MAIN_HOOK
MODULE_SCOPE int TK_LOCAL_MAIN_HOOK(int *argc, char ***argv);
#endif

/* Make sure the stubbed variants of those are never used. */
#undef Tcl_ObjSetVar2
#undef Tcl_NewStringObj


/*
 *----------------------------------------------------------------------
 *
 * AndroidPanic --
 *
 *	Panic proc when running on Android
 *
 *----------------------------------------------------------------------
 */
#ifdef ANDROID
static void
AndroidPanic(const char *fmt, ...)
{
    va_list args;

    va_start(args, fmt);
    __android_log_vprint(ANDROID_LOG_FATAL, "AndroWish", fmt, args);
    va_end(args);
    abort();
}
#endif

/*
 *----------------------------------------------------------------------
 *
 * GetPackageCodePath  --
 *
 *	Retrieve path name of APK file.

{
#if defined(ANDROID) && defined(PLATFORM_SDL)
    const char *path, *temp;
#endif

#ifdef TK_LOCAL_MAIN_HOOK
    TK_LOCAL_MAIN_HOOK(&argc, &argv);
#endif
#ifdef ANDROID
    Tcl_InitSubsystems(AndroidPanic);

    /* workaround to fix mktime(3) issues at DST boundaries */
    if (getenv("TZ") == NULL) {
	static char tzbuf[PROP_VALUE_MAX + 8];

	strcpy(tzbuf, "TZ=");
	if (__system_property_get("persist.sys.timezone", tzbuf + 3) > 0) {
	    putenv(tzbuf);
	    tzset();
	}
    }
#endif
#if defined(ANDROID) && defined(PLATFORM_SDL)
    path = SDL_AndroidGetInternalStoragePath();
    temp = SDL_AndroidGetTempStoragePath();
    if (temp != NULL) {
	/* to be able to write temporary files */
	setenv("TMPDIR", temp, 1);

    path = GetOBBDir();
    if (path != NULL) {
	setenv("OBB_DIR", path, 1);
    }

    /* On Android, argv[0] is not usable. */
    argv[0] = strdup("wish");
#else
    Tcl_FindExecutable(argv[0]);
#endif

    Tk_MainEx(argc, argv, TK_LOCAL_APPINIT, Tcl_CreateInterp());
    return 0;			/* Needed only to prevent compiler warning. */
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_AppInit --

    const char *path, *temp;
#endif

#ifdef TK_LOCAL_MAIN_HOOK
    TK_LOCAL_MAIN_HOOK(&argc, &argv);
#endif
#ifdef ANDROID
    Tcl_InitSubsystems(AndroidPanic);

    /* workaround to fix mktime(3) issues at DST boundaries */
    if (getenv("TZ") == NULL) {
	static char tzbuf[PROP_VALUE_MAX + 8];

	strcpy(tzbuf, "TZ=");
	if (__system_property_get("persist.sys.timezone", tzbuf + 3) > 0) {
	    putenv(tzbuf);

    path = GetOBBDir();
    if (path != NULL) {
	setenv("OBB_DIR", path, 1);
    }

    /* On Android, argv[0] is not usable. */
    argv[0] = strdup("wish");
#else
    Tcl_FindExecutable(argv[0]);
#endif

    Tk_MainEx(argc, argv, TK_LOCAL_APPINIT, Tcl_CreateInterp());
    return 0;			/* Needed only to prevent compiler warning. */
}

/*
 *----------------------------------------------------------------------
 *
 * Tcl_AppInit --

#define Tcl_InitStubs(interp, version, exact) \
    Tcl_PkgInitStubsCheck(interp, version, exact)
#endif

/*
 * TODO - tommath stubs export goes here!
 */

/* Tcl_InitSubsystems, see TIP #414 */

#ifndef USE_TCL_STUBS
EXTERN const char *	Tcl_InitSubsystems(TCL_NORETURN1
			    Tcl_PanicProc *panicProc);
#endif

/*
 * Public functions that are not accessible via the stubs table.
 * Tcl_GetMemoryInfo is needed for AOLserver. [Bug 1868171]
 */

#define Tcl_Main(argc, argv, proc) Tcl_MainEx(argc, argv, proc, \

    return result;
}

/*
 *---------------------------------------------------------------------------
 *
 * Tcl_InitSubsystems/Tcl_FindExecutable --
 *
 *	This function initializes everything needed for the Tcl library
 *	to be able to operate.
 *
 * Results:
 *	None.
 *
 * Side effects:
 *	The absolute pathname for the application is computed and stored to be
 *	returned later by [info nameofexecutable].
 *
 *---------------------------------------------------------------------------
 */
MODULE_SCOPE const TclStubs tclStubs;

static const struct {
    const TclStubs *stubs;
    const char version[12];
} stubInfo = {
    &tclStubs, TCL_PATCH_LEVEL
};

const char *
Tcl_InitSubsystems(TCL_NORETURN1 Tcl_PanicProc *panicProc)
{
    Tcl_SetPanicProc(panicProc);
    TclInitSubsystems();
    return stubInfo.version;
}

#undef Tcl_FindExecutable
void
Tcl_FindExecutable(
    const char *argv0)		/* The value of the application's argv[0]
				 * (native). */
{
    TclInitSubsystems();