source: trunk/src/kernel32/initterm.cpp@ 5655

Last change on this file since 5655 was 5451, checked in by sandervl, 24 years ago

codepage updates

File size: 7.9 KB
Line 
1/*
2 * KERNEL32 DLL entry point
3 *
4 * Copyright 1998 Sander van Leeuwen
5 * Copyright 1998 Peter Fitzsimmons
6 *
7 *
8 * Project Odin Software License can be found in LICENSE.TXT
9 *
10 */
11
12/*-------------------------------------------------------------*/
13/* INITERM.C -- Source for a custom dynamic link library */
14/* initialization and termination (_DLL_InitTerm) */
15/* function. */
16/* */
17/* When called to perform initialization, this sample function */
18/* gets storage for an array of integers, and initializes its */
19/* elements with random integers. At termination time, it */
20/* frees the array. Substitute your own special processing. */
21/*-------------------------------------------------------------*/
22
23
24/* Include files */
25#define INCL_DOSMODULEMGR
26#define INCL_DOSMISC
27#define INCL_DOSPROCESS
28#define INCL_DOSSEMAPHORES
29#include <os2wrap.h> //Odin32 OS/2 api wrappers
30#include <stdlib.h>
31#include <stdio.h>
32#include <string.h>
33#include <misc.h>
34#include <wprocess.h>
35#include "handlemanager.h"
36#include "profile.h"
37#include <options.h>
38#include "initterm.h"
39#include <win32type.h>
40#include <odinlx.h>
41#include "oslibmisc.h"
42#include <heapshared.h>
43#include <heapcode.h>
44#include "mmap.h"
45#include "directory.h"
46#include "hmdevio.h"
47#include <windllbase.h>
48#include "winexepe2lx.h"
49#include <exitlist.h>
50#include "oslibdos.h"
51#include <cpuhlp.h>
52#include <Win32k.h>
53#include <initdll.h>
54#include <codepage.h>
55
56#define DBG_LOCALLOG DBG_initterm
57#include "dbglocal.h"
58
59
60/*-------------------------------------------------------------------*/
61/* A clean up routine registered with DosExitList must be used if */
62/* runtime calls are required and the runtime is dynamically linked. */
63/* This will guarantee that this clean up routine is run before the */
64/* library DLL is terminated. */
65/*-------------------------------------------------------------------*/
66static void APIENTRY cleanup(ULONG reason);
67
68extern "C" {
69 //Win32 resource table (produced by wrc)
70 extern DWORD _Resource_PEResTab;
71}
72
73//Global DLL Data
74#pragma data_seg(_GLOBALDATA)
75int globLoadNr = 0;
76#pragma data_seg()
77
78/* Tue 03.03.1998: knut */
79ULONG flAllocMem = 0; /* flag to optimize DosAllocMem to use all the memory on SMP machines */
80ULONG ulMaxAddr = 0x20000000; /* end of user address space. */
81int loadNr = 0;
82char kernel32Path[CCHMAXPATH] = "";
83static HMODULE dllHandle = 0;
84
85/****************************************************************************/
86/* _DLL_InitTerm is the function that gets called by the operating system */
87/* loader when it loads and frees this DLL for each process that accesses */
88/* this DLL. However, it only gets called the first time the DLL is loaded */
89/* and the last time it is freed for a particular process. The system */
90/* linkage convention MUST be used because the operating system loader is */
91/* calling this function. */
92/****************************************************************************/
93ULONG DLLENTRYPOINT_CCONV DLLENTRYPOINT_NAME(ULONG hModule, ULONG ulFlag)
94{
95 size_t i;
96 APIRET rc;
97 ULONG ulSysinfo;
98
99 /*-------------------------------------------------------------------------*/
100 /* If ulFlag is zero then the DLL is being loaded so initialization should */
101 /* be performed. If ulFlag is 1 then the DLL is being freed so */
102 /* termination should be performed. */
103 /*-------------------------------------------------------------------------*/
104
105 switch (ulFlag)
106 {
107 case 0 :
108 {
109 libWin32kInit();
110
111 ParseLogStatus();
112
113 loadNr = globLoadNr++;
114
115 strcpy(kernel32Path, OSLibGetDllName(hModule));
116 char *endofpath = strrchr(kernel32Path, '\\');
117 *(endofpath+1) = 0;
118 dprintf(("kernel32 init %s %s (%x)", __DATE__, __TIME__, DLLENTRYPOINT_NAME));
119 ctordtorInit();
120
121 CheckVersionFromHMOD(PE2LX_VERSION, hModule); /*PLF Wed 98-03-18 05:28:48*/
122
123 OpenPrivateLogFiles();
124
125 if (InitializeSharedHeap() == FALSE)
126 return 0UL;
127
128 if (InitializeCodeHeap() == FALSE)
129 return 0UL;
130
131 PROFILE_LoadOdinIni();
132 dllHandle = RegisterLxDll(hModule, 0, (PVOID)&_Resource_PEResTab);
133 if (dllHandle == 0)
134 return 0UL;
135
136 //SvL: Kernel32 is a special case; pe.exe loads it, so increase
137 // the reference count here
138 Win32DllBase *module = Win32DllBase::findModule(dllHandle);
139 if (module)
140 {
141 module->AddRef();
142 module->DisableUnload();
143 }
144
145 /*******************************************************************/
146 /* A DosExitList routine must be used to clean up if runtime calls */
147 /* are required and the runtime is dynamically linked. */
148 /*******************************************************************/
149
150 rc = DosExitList(EXITLIST_KERNEL32|EXLST_ADD, cleanup);
151 if (rc)
152 return 0UL;
153
154 /* knut: check for high memory support */
155 rc = DosQuerySysInfo(QSV_VIRTUALADDRESSLIMIT, QSV_VIRTUALADDRESSLIMIT, &ulSysinfo, sizeof(ulSysinfo));
156 if (rc == 0 && ulSysinfo > 512) //VirtualAddresslimit is in MB
157 {
158 flAllocMem = PAG_ANY; // high memory support. Let's use it!
159 ulMaxAddr = ulSysinfo * (1024*1024);
160 OSLibInitWSeBFileIO();
161 if(PROFILE_GetOdinIniInt(ODINSYSTEM_SECTION, HIGHMEM_KEY, 1) == 0) {
162 dprintf(("WARNING: OS/2 kernel supports high memory, but support is DISABLED because of HIGHMEM odin.ini key"));
163 flAllocMem = 0;
164 }
165 }
166 else
167 flAllocMem = 0; // no high memory support
168
169 OSLibDosSetInitialMaxFileHandles(ODIN_DEFAULT_MAX_FILEHANDLES);
170
171 //SvL: Do it here instead of during the exe object creation
172 //(std handles can be used in win32 dll initialization routines
173 HMInitialize(); /* store standard handles within HandleManager */
174 InitDirectories(); //Must be done before InitializeTIB (which loads NTDLL -> USER32)
175 InitializeTIB(TRUE); //Must be done after HMInitialize!
176 RegisterDevices();
177 Win32DllBase::setDefaultRenaming();
178 rc = DosQuerySysInfo(QSV_NUMPROCESSORS, QSV_NUMPROCESSORS, &ulSysinfo, sizeof(ulSysinfo));
179 if (rc != 0)
180 ulSysinfo = 1;
181
182 /* Setup codepage info */
183 CODEPAGE_Init();
184
185 InitSystemInfo(ulSysinfo);
186 //Set up environment as found in NT
187 InitEnvironment(ulSysinfo);
188
189 //InitDynamicRegistry creates/changes keys that may change (i.e. odin.ini
190 //keys that affect windows version)
191 InitDynamicRegistry();
192 break;
193 }
194
195 case 1 :
196 if (dllHandle)
197 {
198 UnregisterLxDll(dllHandle);
199 }
200 break;
201
202 default :
203 return 0UL;
204 }
205
206 /***********************************************************/
207 /* A non-zero value must be returned to indicate success. */
208 /***********************************************************/
209 return 1UL;
210}
211
212
213static void APIENTRY cleanup(ULONG ulReason)
214{
215 dprintf(("kernel32 exit %d\n", ulReason));
216 //Flush and delete all open memory mapped files
217 Win32MemMap::deleteAll();
218 WinExe = NULL;
219
220 WriteOutProfiles();
221 DestroyTIB();
222 DestroySharedHeap();
223 DestroyCodeHeap();
224 ctordtorTerm();
225
226 //NOTE: Must be done after DestroyTIB
227 ClosePrivateLogFiles();
228 CloseLogFile();
229
230 DosExitList(EXLST_EXIT, cleanup);
231 return ;
232}
Note: See TracBrowser for help on using the repository browser.