source: trunk/src/odincrt/initterm.cpp@ 5087

Last change on this file since 5087 was 4818, checked in by bird, 25 years ago

Watcom preparations.
File size: 6.0 KB
Line 
1/* $Id: initterm.cpp,v 1.4 2000-12-16 23:33:37 bird Exp $ */
2
3/*
4 * DLL entry point
5 *
6 * Copyright 1998 Sander van Leeuwen
7 * Copyright 1998 Peter Fitzsimmons
8 *
9 *
10 * Project Odin Software License can be found in LICENSE.TXT
11 *
12 */
13
14/*-------------------------------------------------------------*/
15/* INITERM.C -- Source for a custom dynamic link library */
16/* initialization and termination (_DLL_InitTerm) */
17/* function. */
18/* */
19/* When called to perform initialization, this sample function */
20/* gets storage for an array of integers, and initializes its */
21/* elements with random integers. At termination time, it */
22/* frees the array. Substitute your own special processing. */
23/*-------------------------------------------------------------*/
24
25
26/* Include files */
27#define INCL_DOSMODULEMGR
28#define INCL_DOSPROCESS
29#include <os2wrap.h> //Odin32 OS/2 api wrappers
30#include <stdlib.h>
31#include <stdio.h>
32#include <string.h>
33#include <odin.h>
34#include <misc.h> /*PLF Wed 98-03-18 23:18:15*/
35#include <exitlist.h>
36
37#ifdef __IBMCPP__
38extern "C" {
39/*-------------------------------------------------------------------*/
40/* _CRT_init is the C run-time environment initialization function. */
41/* It will return 0 to indicate success and -1 to indicate failure. */
42/*-------------------------------------------------------------------*/
43int CDECL CRT_init(void);
44/*-------------------------------------------------------------------*/
45/* _CRT_term is the C run-time environment termination function. */
46/* It only needs to be called when the C run-time functions are */
47/* statically linked. */
48/*-------------------------------------------------------------------*/
49void CDECL CRT_term(void);
50void CDECL _ctordtorInit( void );
51void CDECL _ctordtorTerm( void );
52}
53
54/*-------------------------------------------------------------------*/
55/* A clean up routine registered with DosExitList must be used if */
56/* runtime calls are required and the runtime is dynamically linked. */
57/* This will guarantee that this clean up routine is run before the */
58/* library DLL is terminated. */
59/*-------------------------------------------------------------------*/
60static void APIENTRY cleanup(ULONG reason);
61
62
63/****************************************************************************/
64/* _DLL_InitTerm is the function that gets called by the operating system */
65/* loader when it loads and frees this DLL for each process that accesses */
66/* this DLL. However, it only gets called the first time the DLL is loaded */
67/* and the last time it is freed for a particular process. The system */
68/* linkage convention MUST be used because the operating system loader is */
69/* calling this function. */
70/****************************************************************************/
71unsigned long SYSTEM _DLL_InitTerm(unsigned long hModule, unsigned long
72 ulFlag)
73{
74 APIRET rc;
75
76 /*-------------------------------------------------------------------------*/
77 /* If ulFlag is zero then the DLL is being loaded so initialization should */
78 /* be performed. If ulFlag is 1 then the DLL is being freed so */
79 /* termination should be performed. */
80 /*-------------------------------------------------------------------------*/
81
82 switch (ulFlag) {
83 case 0 :
84
85 /*******************************************************************/
86 /* The C run-time environment initialization function must be */
87 /* called before any calls to C run-time functions that are not */
88 /* inlined. */
89 /*******************************************************************/
90
91 if (CRT_init() == -1)
92 return 0UL;
93 _ctordtorInit();
94
95 /*******************************************************************/
96 /* A DosExitList routine must be used to clean up if runtime calls */
97 /* are required and the runtime is dynamically linked. */
98 /*******************************************************************/
99
100 rc = DosExitList(EXITLIST_ODINCRT|EXLST_ADD, cleanup);
101 if(rc)
102 return 0UL;
103 #if 1 /*
104 * Experimental console hack. Sets apptype to PM anyhow.
105 * First Dll to be initiated should now allways be OdinCrt!
106 * So include odincrt first!
107 */
108 PPIB pPIB;
109 PTIB pTIB;
110 rc = DosGetInfoBlocks(&pTIB, &pPIB);
111 if (rc != NO_ERROR)
112 return 0UL;
113 pPIB->pib_ultype = 3;
114 #endif
115 break;
116 case 1 :
117 break;
118 default :
119 return 0UL;
120 }
121
122 /***********************************************************/
123 /* A non-zero value must be returned to indicate success. */
124 /***********************************************************/
125 return 1UL;
126}
127
128
129static void APIENTRY cleanup(ULONG ulReason)
130{
131 _ctordtorTerm();
132 CRT_term();
133 DosExitList(EXLST_EXIT, cleanup);
134 return ;
135}
136
137#elif defined(__WATCOM_CPLUSPLUS__)
138
139/*
140 * Watcom dll init and term routines.
141 */
142
143int __dll_initialize(unsigned long hModule, unsigned long ulFlag)
144{
145 APIRET rc;
146 #if 1 /*
147 * Experimental console hack. Sets apptype to PM anyhow.
148 * First Dll to be initiated should now allways be OdinCrt!
149 * So include odincrt first!
150 */
151 PPIB pPIB;
152 PTIB pTIB;
153 rc = DosGetInfoBlocks(&pTIB, &pPIB);
154 if (rc != NO_ERROR)
155 return 0UL;
156 pPIB->pib_ultype = 3;
157 #endif
158 return 1;
159}
160
161int __dll_terminate(unsigned long hModule, unsigned long ulFlag)
162{
163 return 1;
164}
165
166#else
167#error message("compiler is not supported");
168#endif
169
Note: See TracBrowser for help on using the repository browser.