/* libfb initialization */

#include "fb.h"
#include <locale.h>
#include "fb_private_thread.h"

FB_RTLIB_CTX __fb_ctx /* not initialized */;
static int __fb_is_inicnt = 0;

/* called from fbrt0 */
void fb_hRtInit( void )
{
	/* already initialized? */
	++__fb_is_inicnt;
	if( __fb_is_inicnt != 1 )
		return;

	/* initialize context */
	memset( &__fb_ctx, 0, sizeof( FB_RTLIB_CTX ) );
    
	/* os-dep initialization */
	fb_hInit( );

#ifdef ENABLE_MT
	fb_TlsInit( );
#endif
	fb_AllocateMainFBThread();

	/**
	 * With the default "C" locale (which is just plain 7-bit ASCII),
	 * our mbstowcs() calls (from fb_wstr_ConvFromA()) fail to convert
	 * zstrings specific to the user's locale to Unicode wstrings.
	 *
	 * To fix this we must tell the CRT to use the user's locale setting,
	 * i.e. the locale given by LC_* or LANG environment variables.
	 *
	 * We should change the LC_CTYPE setting only, to affect the behaviour
	 * of the codepage <-> Unicode conversion functions, but not for
	 * example LC_NUMERIC, which would affect things like the decimal
	 * separator used by float <-> string conversion functions.
	 * Users should call setlocale() manually if they want localisation.
	 *
	 * Don't bother doing it under DJGPP - there we don't really support
	 * wstrings anyways, and the setlocale() reference increases .exe size.
	 */
#ifndef HOST_DOS
	setlocale( LC_CTYPE, "" );
#endif
}

/* called from fbrt0 */
void fb_hRtExit( void )
{
	--__fb_is_inicnt;
	if( __fb_is_inicnt != 0 )
		return;

	/* Doing clean-up here in the rtlib's global dtor, instead of using
	   atexit().

	   FB supports global ctors/dtors, and thus FB programs can call FB
	   functions from there. Hence the rtlib/gfxlib2 initialization should
	   be the first global ctor, and the clean-up should be the last global
	   dtor. This is done by fbrt0.c. We can't rely on atexit() for this,
	   because sometimes the atexit handlers can be called before the global
	   dtors, sometimes after.

	   However, on Windows it's not safe to do certain things such as
	   waiting for a thread to finish from inside a global
	   constructor/destructor due to the loader lock. (A lock is acquired
	   to synchronize calls to DllMain() etc., so waiting for a thread from
	   inside a global destructor may cause a dead-lock, as that thread
	   needs to acquire the same lock to be able to exit.) Because of this,
	   gfxlib2 clean-up can't be done during a global dtor, at least not on
	   Windows, because its win32 backends use a background thread. So the
	   gfxlib clean-up must be done during fb_End() instead.

	   Some observations about atexit() behaviour: it depends on context,
	   e.g. whether it's called from a global ctor or global dtor or main(),
	   or whether it's a shared lib/DLL or executable,
	   and it depends on the platform (e.g. GNU/Linux vs MinGW-w64).
	   Thus it can't be used reliably. */

	fb_FileReset( );

	/* os-dep termination */
	fb_hEnd( 0 );

	fb_DevScrnEnd( FB_HANDLE_SCREEN );

	/* Free main thread's TLS contexts */
	fb_TlsFreeCtxTb( );

#ifdef ENABLE_MT
	fb_TlsExit( );
#endif

	/* If an error message was stored, print it now, after the console was
	   cleaned up. At least the DOS gfxlib clears the console on exit,
	   thus any error messages must be printed after that or they would
	   not be visible. */
	if( __fb_ctx.errmsg )
		fputs( __fb_ctx.errmsg, stderr );
}

/* called by FB program */
FBCALL void fb_Init( int argc, char **argv, int lang )
{
	__fb_ctx.argc = argc;
	__fb_ctx.argv = argv;
	__fb_ctx.lang = lang;

#ifdef HOST_ANDROID
	/*
	 * Android loads the shared object and runs its constructors on the
	 * activity thread, while the FreeBASIC program itself runs on the
	 * NativeActivity program thread.  Bind that program thread as the
	 * FreeBASIC main thread so ThreadSelf(), ThreadWait() and ThreadDetach()
	 * see the same model as normal executable targets.
	 */
	fb_AllocateMainFBThread();
#endif

#ifdef HOST_JS
    // global constructors and destructors are not supported by emscripten
    fb_hRtInit();
#endif // HOST_JS
}

/* called by FB program,
   or fb_Die() in case of assert() failure or runtime error */
FBCALL void fb_End( int errlevel )
{
	if( __fb_ctx.exit_sfxlib )
		__fb_ctx.exit_sfxlib( );

	if( __fb_ctx.exit_gfxlib2 )
		__fb_ctx.exit_gfxlib2( );

#ifdef HOST_JS
    // global constructors and destructors are not supported by emscripten
    fb_hRtExit();
#endif // HOST_JS

	exit( errlevel );
}
