Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 1 | |
| 2 | /* Support for dynamic loading of extension modules */ |
| 3 | |
| 4 | #define INCL_DOSERRORS |
| 5 | #define INCL_DOSMODULEMGR |
| 6 | #include <os2.h> |
| 7 | |
| 8 | #include "Python.h" |
| 9 | #include "importdl.h" |
| 10 | |
| 11 | |
Brett Cannon | 2657df4 | 2012-05-04 15:20:40 -0400 | [diff] [blame] | 12 | const char *_PyImport_DynLoadFiletab[] = {".pyd", ".dll", NULL}; |
Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 13 | |
Victor Stinner | 42040fb | 2011-02-22 23:16:19 +0000 | [diff] [blame] | 14 | dl_funcptr _PyImport_GetDynLoadFunc(const char *shortname, |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 15 | const char *pathname, FILE *fp) |
Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 16 | { |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 17 | dl_funcptr p; |
| 18 | APIRET rc; |
| 19 | HMODULE hDLL; |
| 20 | char failreason[256]; |
| 21 | char funcname[258]; |
Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 22 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 23 | rc = DosLoadModule(failreason, |
| 24 | sizeof(failreason), |
| 25 | pathname, |
| 26 | &hDLL); |
Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 27 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 28 | if (rc != NO_ERROR) { |
| 29 | char errBuf[256]; |
| 30 | PyOS_snprintf(errBuf, sizeof(errBuf), |
| 31 | "DLL load failed, rc = %d: %.200s", |
| 32 | rc, failreason); |
| 33 | PyErr_SetString(PyExc_ImportError, errBuf); |
| 34 | return NULL; |
| 35 | } |
Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 36 | |
Antoine Pitrou | f95a1b3 | 2010-05-09 15:52:27 +0000 | [diff] [blame] | 37 | PyOS_snprintf(funcname, sizeof(funcname), "PyInit_%.200s", shortname); |
| 38 | rc = DosQueryProcAddr(hDLL, 0L, funcname, &p); |
| 39 | if (rc != NO_ERROR) |
| 40 | p = NULL; /* Signify Failure to Acquire Entrypoint */ |
| 41 | return p; |
Guido van Rossum | 22a1d36 | 1999-12-20 21:18:49 +0000 | [diff] [blame] | 42 | } |