source: trunk/src/lz32/initterm.cpp@ 537

Last change on this file since 537 was 537, checked in by phaller, 26 years ago

Fix: ODINWRAP, OS2SEL, PROFILE, LZ32

File size: 3.6 KB
Line 
1/* $Id: initterm.cpp,v 1.4 1999-08-17 19:30:49 phaller 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
36/*-------------------------------------------------------------------*/
37/* A clean up routine registered with DosExitList must be used if */
38/* runtime calls are required and the runtime is dynamically linked. */
39/* This will guarantee that this clean up routine is run before the */
40/* library DLL is terminated. */
41/*-------------------------------------------------------------------*/
42static void APIENTRY cleanup(ULONG reason);
43
44
45/****************************************************************************/
46/* _DLL_InitTerm is the function that gets called by the operating system */
47/* loader when it loads and frees this DLL for each process that accesses */
48/* this DLL. However, it only gets called the first time the DLL is loaded */
49/* and the last time it is freed for a particular process. The system */
50/* linkage convention MUST be used because the operating system loader is */
51/* calling this function. */
52/****************************************************************************/
53unsigned long SYSTEM _DLL_InitTerm(unsigned long hModule,
54 unsigned long ulFlag)
55{
56 APIRET rc;
57
58 /*-------------------------------------------------------------------------*/
59 /* If ulFlag is zero then the DLL is being loaded so initialization should */
60 /* be performed. If ulFlag is 1 then the DLL is being freed so */
61 /* termination should be performed. */
62 /*-------------------------------------------------------------------------*/
63
64 switch (ulFlag) {
65 case 0 :
66
67 /*******************************************************************/
68 /* A DosExitList routine must be used to clean up if runtime calls */
69 /* are required and the runtime is dynamically linked. */
70 /*******************************************************************/
71
72 rc = DosExitList(0x0000F000|EXLST_ADD, cleanup);
73 if(rc)
74 return 0UL;
75
76 break;
77 case 1 :
78 break;
79 default :
80 return 0UL;
81 }
82
83 /***********************************************************/
84 /* A non-zero value must be returned to indicate success. */
85 /***********************************************************/
86 return 1UL;
87}
88
89
90static void APIENTRY cleanup(ULONG ulReason)
91{
92 DosExitList(EXLST_EXIT, cleanup);
93 return ;
94}
Note: See TracBrowser for help on using the repository browser.