source: trunk/src/oleaut32/initterm.cpp@ 2325

Last change on this file since 2325 was 2325, checked in by davidr, 26 years ago

Added LHashValOfNameSys(A) APIs

File size: 4.4 KB
Line 
1/* $Id: initterm.cpp,v 1.4 2000-01-05 18:29:53 davidr 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 <win32type.h>
35#include <odinlx.h>
36#include <misc.h> /*PLF Wed 98-03-18 23:18:15*/
37
38extern "C" {
39void CDECL _ctordtorInit( void );
40void CDECL _ctordtorTerm( void );
41}
42
43//Global DLL Data
44#pragma data_seg(_GLOBALDATA)
45int globLoadNr = 0;
46#pragma data_seg()
47
48char oleaut32Path[CCHMAXPATH] = "";
49int loadNr = 0;
50
51void Hash_Initialise(void);
52
53/*-------------------------------------------------------------------*/
54/* A clean up routine registered with DosExitList must be used if */
55/* runtime calls are required and the runtime is dynamically linked. */
56/* This will guarantee that this clean up routine is run before the */
57/* library DLL is terminated. */
58/*-------------------------------------------------------------------*/
59static void APIENTRY cleanup(ULONG reason);
60
61
62/****************************************************************************/
63/* _DLL_InitTerm is the function that gets called by the operating system */
64/* loader when it loads and frees this DLL for each process that accesses */
65/* this DLL. However, it only gets called the first time the DLL is loaded */
66/* and the last time it is freed for a particular process. The system */
67/* linkage convention MUST be used because the operating system loader is */
68/* calling this function. */
69/****************************************************************************/
70unsigned long SYSTEM _DLL_InitTerm(unsigned long hModule, unsigned long
71 ulFlag)
72{
73 size_t i;
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 loadNr = globLoadNr++;
86
87#if 0
88 strcpy(oleaut32Path, OSLibGetDllName(hModule));
89 char *endofpath = strrchr(oleaut32Path, '\\');
90 *(endofpath+1) = 0;
91#endif
92
93 _ctordtorInit();
94
95 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
96
97 /*******************************************************************/
98 /* A DosExitList routine must be used to clean up if runtime calls */
99 /* are required and the runtime is dynamically linked. */
100 /*******************************************************************/
101
102 if(RegisterLxDll(hModule, 0, 0) == FALSE)
103 return 0UL;
104
105 rc = DosExitList(0x0000F000|EXLST_ADD, cleanup);
106 if(rc)
107 return 0UL;
108
109 OpenPrivateLogFiles();
110
111 Hash_Initialise();
112
113
114 break;
115 }
116 case 1 :
117 UnregisterLxDll(hModule);
118 break;
119 default :
120 return 0UL;
121 }
122
123 /***********************************************************/
124 /* A non-zero value must be returned to indicate success. */
125 /***********************************************************/
126 return 1UL;
127}
128
129
130static void APIENTRY cleanup(ULONG ulReason)
131{
132 _ctordtorTerm();
133 ClosePrivateLogFiles();
134 DosExitList(EXLST_EXIT, cleanup);
135 return ;
136}
Note: See TracBrowser for help on using the repository browser.