/* dll.c - libext+gcc */
/* $Header: /cvsroot/posix2/posix2/libext/dll.c,v 1.6 2000/04/18 12:02:30 veit Exp $ */

	 /* 	Initialize the DLL on instance! 	*/	

#define INCL_DOSFILEMGR
#include <os2.h>

#include <sys/param.h>
#include <sys/ipc.h>
#include <sys/shm.h>
#include <stdio.h>
#include <sys/unistdx.h>
#include <float.h>
#include <errno.h>
#include <sys/errnox.h>
#include "rev.h"

	static const char 
_libExtensions[] = { "\
dll.c - emx/gcc $Id: dll.c,v 1.6 2000/04/18 12:02:30 veit Exp $: " _LIBEXTNS_VPRT };


/* This is the default _DLL_InitTerm() function for dynamic link libraries.
 */
	extern unsigned long
_DLL_InitTerm(unsigned long mod_handle, unsigned long flag)
{
    switch (flag) { /* initialize DLL */

      case 0: {
        const APIRET 
          rc = DosSetMaxFH(OPEN_MAX);
          if (rc) {errno = _rc2Errno(rc); return(0);} /* error! */
          if (_CRT_init() != 0)  /* init C runtime environment */
              return 0;		/* error! */
          _control87(PC_53, MCW_PC); /* is this necessary ? */
          __ctordtorInit(); 	/* construct dll statical objects */
          __SHMx_shmInit(); 	/* cf. shmx.c */
          _initHrTimer(); 	/* cf. usleep.c */
        return(1);
      }
      case 1:
          __SHMx_shmDone();
          _termHrTimer();
          __ctordtorTerm ();  /* destruct statical objects */
#if 0
        _CRT_term(); 	/* for full-blown C runtime DLL: term C env */ 
#endif
        return(1);       /* sucess */

      case (unsigned long)-1:
        if (mod_handle == (unsigned long)-1) {
          printf("%s", _libExtensions);
          return(1);
        }

      default:
        return(0);
    }
    return(1);
}
