|
1190
|
1 /*
|
|
|
2 SDL - Simple DirectMedia Layer
|
|
|
3 Copyright (C) 1997-2004 Sam Lantinga
|
|
|
4
|
|
|
5 This library is free software; you can redistribute it and/or
|
|
|
6 modify it under the terms of the GNU Library General Public
|
|
|
7 License as published by the Free Software Foundation; either
|
|
|
8 version 2 of the License, or (at your option) any later version.
|
|
|
9
|
|
|
10 This library is distributed in the hope that it will be useful,
|
|
|
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
13 Library General Public License for more details.
|
|
|
14
|
|
|
15 You should have received a copy of the GNU Library General Public
|
|
|
16 License along with this library; if not, write to the Free
|
|
|
17 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
|
18
|
|
|
19 Sam Lantinga
|
|
|
20 slouken@libsdl.org
|
|
|
21 */
|
|
|
22
|
|
|
23 #ifdef SAVE_RCSID
|
|
|
24 static char rcsid =
|
|
|
25 "@(#) $Id$";
|
|
|
26 #endif
|
|
|
27
|
|
|
28 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
29 /* System dependent library loading routines */
|
|
|
30
|
|
|
31 #if !SDL_INTERNAL_BUILDING_LOADSO
|
|
|
32 #error Do not compile directly...compile src/SDL_loadso.c instead!
|
|
|
33 #endif
|
|
|
34
|
|
|
35 #if !defined(__OS2__)
|
|
|
36 #error Compiling for the wrong platform?
|
|
|
37 #endif
|
|
|
38
|
|
|
39 #include <stdio.h>
|
|
|
40 #define INCL_DOSERRORS
|
|
|
41 #define INCL_DOSMODULEMGR
|
|
|
42 #include <os2.h>
|
|
|
43
|
|
|
44 #include "SDL_types.h"
|
|
|
45 #include "SDL_error.h"
|
|
|
46 #include "SDL_loadso.h"
|
|
|
47
|
|
|
48 void *SDL_LoadObject(const char *sofile)
|
|
|
49 {
|
|
|
50 HMODULE handle = NULL;
|
|
|
51 char buf[512];
|
|
|
52 APIRET ulrc = DosLoadModule(buf, sizeof (buf), (char *) sofile, &handle);
|
|
|
53
|
|
|
54 /* Generate an error message if all loads failed */
|
|
|
55 if ((ulrc != NO_ERROR) || (handle == NULL))
|
|
|
56 SDL_SetError("Failed loading %s: %s", sofile, buf);
|
|
|
57
|
|
|
58 return((void *) handle);
|
|
|
59 }
|
|
|
60
|
|
|
61 void *SDL_LoadFunction(void *handle, const char *name)
|
|
|
62 {
|
|
|
63 const char *loaderror = "Unknown error";
|
|
|
64 void *symbol = NULL;
|
|
|
65 APIRET ulrc = DosQueryProcAddr((HMODULE)handle, 0, (char *)name, &symbol);
|
|
|
66 if (ulrc == ERROR_INVALID_HANDLE)
|
|
|
67 loaderror = "Invalid module handle";
|
|
|
68 else if (ulrc == ERROR_INVALID_NAME)
|
|
|
69 loaderror = "Symbol not found";
|
|
|
70
|
|
|
71 if (symbol == NULL)
|
|
|
72 SDL_SetError("Failed loading %s: %s", name, loaderror);
|
|
|
73
|
|
|
74 return(symbol);
|
|
|
75 }
|
|
|
76
|
|
|
77 void SDL_UnloadObject(void *handle)
|
|
|
78 {
|
|
|
79 if ( handle != NULL )
|
|
|
80 DosFreeModule((HMODULE) handle);
|
|
|
81 }
|
|
|
82
|
