#ifdef  CRTDLL
/***
*crtlib.c - CRT DLL initialization and termination routine (Win32, Dosx32)
*
*       Copyright (c) 1991-1993, Microsoft Corporation. All rights reserved.
*
*Purpose:
*       This module contains initialization entry point for the CRT DLL in
*       Win32 and Dosx32 environments. It also contains some of the supporting
*       initialization and termination code.
*
*Revision History:
*       08-12-91  GJF   Module created. Sort of.
*       01-17-92  GJF   Return exception code value for RTEs corresponding
*                       to exceptions.
*       01-29-92  GJF   Support for wildcard expansion in filenames on the
*                       command line.
*       02-14-92  GJF   Moved file inheritance stuff to ioinit.c. Call to
*                       inherit() is replace by call to _ioinit().
*	08-26-92  SKS	Add _osver, _winver, _winmajor, _winminor
*	09-04-92  GJF	Replaced _CALLTYPE3 with WINAPI.
*	09-30-92  SRW	Call _heap_init before _mtinit
*	10-19-92  SKS	Add "dowildcard" parameter to GetMainArgs()
*			Prepend a second "_" to name since it is internal-only
*	04-16-93  SKS	Change call to _mtdeletelocks to _mtterm.  _mtterm
*			calls _mtdeletelocks and also frees up the TLS index.
*	04-27-93  GJF	Removed support for _RT_STACK, _RT_INTDIV,
*			_RT_INVALDISP and _RT_NONCONT.
*	05-11-93  SKS	Change _CRTDLL_INIT to fail loading on failure to
*			initialize/clean up, rather than calling _amsg_exit().
*	06-03-93  GJF	Added __proc_attached flag.
*	06-07-93  GJF	Incorporated SteveWo's code to call LoadLibrary, from
*			crtdll.c.
*	12-14-93  SKS	Add _freeptd(), which frees up the per-thread data
*			maintained by the C run-time library.
*
*******************************************************************************/

#include <cruntime.h>
#include <oscalls.h>
#include <dos.h>
#include <internal.h>
#include <os2dll.h>
#include <process.h>
#include <rterr.h>
#include <stdlib.h>
#include <string.h>

/*
 * flag set iff _CRTDLL_INIT was called with DLL_PROCESS_ATTACH
 */
static int __proc_attached = 0;

/*
 * command line, environment, and a few other globals
 */
char *_acmdln;          /* points to command line */
char *_aenvptr;         /* points to environment block */

void (_CALLTYPE1 * _aexit_rtn)(int) = _exit;   /* RT message return procedure */

static void _CALLTYPE4 inherit(void);  /* local function */


/***
*void __GetMainArgs(pargc, pargv, penvp, dowildcard) - get values for args to main()
*
*Purpose:
*       This function invokes the command line parsing and copies the args
*       to main back through the passsed pointers. The reason for doing
*       this here, rather than having _CRTDLL_INIT do the work and exporting
*       the __argc and __argv, is to support the linked-in option to have
*       wildcard characters in filename arguments expanded.
*
*Entry:
*       int *pargc      - pointer to argc
*       char ***pargv   - pointer to argv
*       char ***penvp   - pointer to envp
*	int dowildcard  - flag (true means expand wildcards in cmd line)
*
*Exit:
*       No return value. Values for the arguments to main() are copied through
*       the passed pointers.
*
*******************************************************************************/


void _CALLTYPE1 __GetMainArgs (
        int *pargc,
        char ***pargv,
        char ***penvp,
	int dowildcard)
{
        if ( dowildcard )
                __setargv();	/* do wildcard expansion after parsing args */
        else
                _setargv();	/* NO wildcard expansion; just parse args */

        *pargc = __argc;
        *pargv = __argv;
        *penvp = _environ;
}


/***
*BOOL _CRTDLL_INIT(hDllHandle, dwReason, lpreserved) - C DLL initialization.
*
*Purpose:
*       This routine does the C runtime initialization.
*
*Entry:
*
*Exit:
*
*******************************************************************************/

BOOL WINAPI _CRTDLL_INIT(
        HANDLE  hDllHandle,
        DWORD   dwReason,
        LPVOID  lpreserved
        )
{
	char szDllName[ MAX_PATH ];

	if ( dwReason == DLL_PROCESS_ATTACH ) {

		/*
		 * Increment flag indicating process attach notification
		 * has been received.
		 */
		__proc_attached++;

		/*
		 * Pin ourselves in memory since we dont clean up if we
		 * unload.
		 */
		if ( !GetModuleFileName( hDllHandle,
					 szDllName,
					 sizeof(szDllName))
		   )
		{
                    strcpy(szDllName, "CRTDLL");
                }
		LoadLibrary(szDllName);
	}
	else if ( dwReason == DLL_PROCESS_DETACH ) {
		/*
		 * if this is a process detach notification, make sure there
		 * has been a prior process attach notification.
		 */
		if ( __proc_attached > 0 )
			__proc_attached--;
		else
			/* no prior process attach, just return */
			return FALSE;
	}
	else if ( dwReason == DLL_THREAD_DETACH )
	{
		_freeptd(NULL); 	/* free up per-thread CRT data */
	}
  

        /*
         * Only do initialization when a client process attaches to
         * the DLL.
         */
        if ( dwReason != DLL_PROCESS_ATTACH ) {
                /*
                 * if a client process is detaching, make sure minimal
                 * runtime termination is performed and clean up our
                 * 'locks' (i.e., delete critical sections).
                 */
		if ( dwReason == DLL_PROCESS_DETACH ) {

			if ( _C_Termination_Done == FALSE )
				_c_exit();
#ifdef MTHREAD
			_mtterm();  /* free TLS index, call _mtdeletelocks() */
#endif
		}

                return TRUE;
	}

        _acmdln = (char *)GetCommandLine();
        _aenvptr = (char *)GetEnvironmentStrings();

        /*
         * Get the full Win32 version
         */
        _osversion =                    /* OBSOLETE */
        _osver = GetVersion();

        _winminor = (_osver >> 8) & 0x00FF ;
        _winmajor = _osver & 0x00FF ;
        _winver = (_winmajor << 8) + _winminor;
        _osver = (_osver >> 16) & 0x00FFFF ;

        /* --------- The following block is OBSOLETE --------- */

        /*
         * unpack base version info
         */
        _baseversion = (_osversion & 0xFFFF0000) >> 16;
        _baseminor = _baseversion & 0x00FF;
        _basemajor = (_baseversion & 0xFF00) >> 8;

        /*
         * unpack top-level version info (Windows version)
         */
        _osversion &= 0x0000FFFF;
        _osmajor = _osversion & 0x00FF;
        _osminor = (_osversion & 0xFF00) >> 8;

        /* --------- The preceding block is OBSOLETE --------- */

        _heap_init();                           /* initialize heap */
#ifdef MTHREAD
	if(!_mtinit())				/* initialize multi-thread */
		return FALSE;			/* fail DLL load on failure */
#endif
        _ioinit();                              /* inherit file info */
        _setenvp();                             /* get environ info */

        _cinit();                               /* do C data initialize */

        return TRUE;
}

/***
*_amsg_exit(rterrnum) - Fast exit fatal errors
*
*Purpose:
*       Exit the program with error code of 255 and appropriate error
*       message.
*
*Entry:
*       int rterrnum - error message number (amsg_exit only).
*
*Exit:
*       Calls exit() (for integer divide-by-0) or _exit() indirectly
*       through _aexit_rtn [amsg_exit].
*       For multi-thread: calls _exit() function
*
*Exceptions:
*
*******************************************************************************/

void _CALLTYPE1 _amsg_exit (
        int rterrnum
        )
{
        _FF_MSGBANNER();                        /* write run-time error banner */
        _NMSG_WRITE(rterrnum);                  /* write message */

        _aexit_rtn(255);                        /* normally _exit(255) */
}
#endif  /* CRTDLL */