source: vendor/python/2.5/PC/os2emx/dlfcn.c

Last change on this file was 3225, checked in by bird, 18 years ago

Python 2.5
File size: 5.4 KB
Line 
1/* -*- C -*- ***********************************************
2Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
3The Netherlands.
4
5 All Rights Reserved
6
7Permission to use, copy, modify, and distribute this software and its
8documentation for any purpose and without fee is hereby granted,
9provided that the above copyright notice appear in all copies and that
10both that copyright notice and this permission notice appear in
11supporting documentation, and that the names of Stichting Mathematisch
12Centrum or CWI or Corporation for National Research Initiatives or
13CNRI not be used in advertising or publicity pertaining to
14distribution of the software without specific, written prior
15permission.
16
17While CWI is the initial source for this software, a modified version
18is made available by the Corporation for National Research Initiatives
19(CNRI) at the Internet address ftp://ftp.python.org.
20
21STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
22REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
23MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
24CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
25DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
26PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
27TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
28PERFORMANCE OF THIS SOFTWARE.
29
30******************************************************************/
31
32/* This library implements dlopen() - Unix-like dynamic linking
33 * emulation functions for OS/2 using DosLoadModule() and company.
34 */
35
36#define INCL_DOS
37#define INCL_DOSERRORS
38#define INCL_DOSSESMGR
39#define INCL_WINPROGRAMLIST
40#define INCL_WINFRAMEMGR
41#include <os2.h>
42
43#include <stdio.h>
44#include <stdlib.h>
45#include <string.h>
46#include <malloc.h>
47
48typedef struct _track_rec {
49 char *name;
50 HMODULE handle;
51 void *id;
52 struct _track_rec *next;
53} tDLLchain, *DLLchain;
54
55static DLLchain dlload = NULL; /* A simple chained list of DLL names */
56static char dlerr [256]; /* last error text string */
57static void *last_id;
58
59static DLLchain find_id(void *id)
60{
61 DLLchain tmp;
62
63 for (tmp = dlload; tmp; tmp = tmp->next)
64 if (id == tmp->id)
65 return tmp;
66
67 return NULL;
68}
69
70/* load a dynamic-link library and return handle */
71void *dlopen(char *filename, int flags)
72{
73 HMODULE hm;
74 DLLchain tmp;
75 char err[256];
76 char *errtxt;
77 int rc = 0, set_chain = 0;
78
79 for (tmp = dlload; tmp; tmp = tmp->next)
80 if (strnicmp(tmp->name, filename, 999) == 0)
81 break;
82
83 if (!tmp)
84 {
85 tmp = (DLLchain) malloc(sizeof(tDLLchain));
86 if (!tmp)
87 goto nomem;
88 tmp->name = strdup(filename);
89 tmp->next = dlload;
90 set_chain = 1;
91 }
92
93 switch (rc = DosLoadModule((PSZ)&err, sizeof(err), filename, &hm))
94 {
95 case NO_ERROR:
96 tmp->handle = hm;
97 if (set_chain)
98 {
99 do
100 last_id++;
101 while ((last_id == 0) || (find_id(last_id)));
102 tmp->id = last_id;
103 dlload = tmp;
104 }
105 return tmp->id;
106 case ERROR_FILE_NOT_FOUND:
107 case ERROR_PATH_NOT_FOUND:
108 errtxt = "module `%s' not found";
109 break;
110 case ERROR_TOO_MANY_OPEN_FILES:
111 case ERROR_NOT_ENOUGH_MEMORY:
112 case ERROR_SHARING_BUFFER_EXCEEDED:
113nomem:
114 errtxt = "out of system resources";
115 break;
116 case ERROR_ACCESS_DENIED:
117 errtxt = "access denied";
118 break;
119 case ERROR_BAD_FORMAT:
120 case ERROR_INVALID_SEGMENT_NUMBER:
121 case ERROR_INVALID_ORDINAL:
122 case ERROR_INVALID_MODULETYPE:
123 case ERROR_INVALID_EXE_SIGNATURE:
124 case ERROR_EXE_MARKED_INVALID:
125 case ERROR_ITERATED_DATA_EXCEEDS_64K:
126 case ERROR_INVALID_MINALLOCSIZE:
127 case ERROR_INVALID_SEGDPL:
128 case ERROR_AUTODATASEG_EXCEEDS_64K:
129 case ERROR_RELOCSRC_CHAIN_EXCEEDS_SEGLIMIT:
130 errtxt = "invalid module format";
131 break;
132 case ERROR_INVALID_NAME:
133 errtxt = "filename doesn't match module name";
134 break;
135 case ERROR_SHARING_VIOLATION:
136 case ERROR_LOCK_VIOLATION:
137 errtxt = "sharing violation";
138 break;
139 case ERROR_INIT_ROUTINE_FAILED:
140 errtxt = "module initialization failed";
141 break;
142 default:
143 errtxt = "cause `%s', error code = %d";
144 break;
145 }
146 snprintf(dlerr, sizeof(dlerr), errtxt, &err, rc);
147 if (tmp)
148 {
149 if (tmp->name)
150 free(tmp->name);
151 free(tmp);
152 }
153 return 0;
154}
155
156/* return a pointer to the `symbol' in DLL */
157void *dlsym(void *handle, char *symbol)
158{
159 int rc = 0;
160 PFN addr;
161 char *errtxt;
162 int symord = 0;
163 DLLchain tmp = find_id(handle);
164
165 if (!tmp)
166 goto inv_handle;
167
168 if (*symbol == '#')
169 symord = atoi(symbol + 1);
170
171 switch (rc = DosQueryProcAddr(tmp->handle, symord, symbol, &addr))
172 {
173 case NO_ERROR:
174 return (void *)addr;
175 case ERROR_INVALID_HANDLE:
176inv_handle:
177 errtxt = "invalid module handle";
178 break;
179 case ERROR_PROC_NOT_FOUND:
180 case ERROR_INVALID_NAME:
181 errtxt = "no symbol `%s' in module";
182 break;
183 default:
184 errtxt = "symbol `%s', error code = %d";
185 break;
186 }
187 snprintf(dlerr, sizeof(dlerr), errtxt, symbol, rc);
188 return NULL;
189}
190
191/* free dynamicaly-linked library */
192int dlclose(void *handle)
193{
194 int rc;
195 DLLchain tmp = find_id(handle);
196
197 if (!tmp)
198 goto inv_handle;
199
200 switch (rc = DosFreeModule(tmp->handle))
201 {
202 case NO_ERROR:
203 free(tmp->name);
204 dlload = tmp->next;
205 free(tmp);
206 return 0;
207 case ERROR_INVALID_HANDLE:
208inv_handle:
209 strcpy(dlerr, "invalid module handle");
210 return -1;
211 case ERROR_INVALID_ACCESS:
212 strcpy(dlerr, "access denied");
213 return -1;
214 default:
215 return -1;
216 }
217}
218
219/* return a string describing last occurred dl error */
220char *dlerror()
221{
222 return dlerr;
223}
Note: See TracBrowser for help on using the repository browser.