| |
| /* Support for dynamic loading of extension modules */ |
| |
| #include "Python.h" |
| #include "importdl.h" |
| |
| #include <sys/types.h> |
| #include <sys/stat.h> |
| |
| #if defined(__NetBSD__) |
| #include <sys/param.h> |
| #if (NetBSD < 199712) |
| #include <nlist.h> |
| #include <link.h> |
| #define dlerror() "error in dynamic linking" |
| #endif |
| #endif /* NetBSD */ |
| |
| #ifdef HAVE_DLFCN_H |
| #include <dlfcn.h> |
| #else |
| #if defined(PYOS_OS2) && defined(PYCC_GCC) |
| #include "dlfcn.h" |
| #endif |
| #endif |
| |
| #if (defined(__OpenBSD__) || defined(__NetBSD__)) && !defined(__ELF__) |
| #define LEAD_UNDERSCORE "_" |
| #else |
| #define LEAD_UNDERSCORE "" |
| #endif |
| |
| |
| const struct filedescr _PyImport_DynLoadFiletab[] = { |
| #ifdef __CYGWIN__ |
| {".dll", "rb", C_EXTENSION}, |
| {"module.dll", "rb", C_EXTENSION}, |
| #else |
| #if defined(PYOS_OS2) && defined(PYCC_GCC) |
| {".pyd", "rb", C_EXTENSION}, |
| {".dll", "rb", C_EXTENSION}, |
| #else |
| #ifdef __VMS |
| {".exe", "rb", C_EXTENSION}, |
| {".EXE", "rb", C_EXTENSION}, |
| {"module.exe", "rb", C_EXTENSION}, |
| {"MODULE.EXE", "rb", C_EXTENSION}, |
| #else |
| {".so", "rb", C_EXTENSION}, |
| {"module.so", "rb", C_EXTENSION}, |
| #endif |
| #endif |
| #endif |
| {0, 0} |
| }; |
| |
| static struct { |
| dev_t dev; |
| #ifdef __VMS |
| ino_t ino[3]; |
| #else |
| ino_t ino; |
| #endif |
| void *handle; |
| } handles[128]; |
| static int nhandles = 0; |
| |
| |
| dl_funcptr _PyImport_GetDynLoadFunc(const char *fqname, const char *shortname, |
| const char *pathname, FILE *fp) |
| { |
| dl_funcptr p; |
| void *handle; |
| char funcname[258]; |
| char pathbuf[260]; |
| int dlopenflags=0; |
| |
| if (strchr(pathname, '/') == NULL) { |
| /* Prefix bare filename with "./" */ |
| PyOS_snprintf(pathbuf, sizeof(pathbuf), "./%-.255s", pathname); |
| pathname = pathbuf; |
| } |
| |
| PyOS_snprintf(funcname, sizeof(funcname), |
| LEAD_UNDERSCORE "init%.200s", shortname); |
| |
| if (fp != NULL) { |
| int i; |
| struct stat statb; |
| fstat(fileno(fp), &statb); |
| for (i = 0; i < nhandles; i++) { |
| if (statb.st_dev == handles[i].dev && |
| statb.st_ino == handles[i].ino) { |
| p = (dl_funcptr) dlsym(handles[i].handle, |
| funcname); |
| return p; |
| } |
| } |
| if (nhandles < 128) { |
| handles[nhandles].dev = statb.st_dev; |
| #ifdef __VMS |
| handles[nhandles].ino[0] = statb.st_ino[0]; |
| handles[nhandles].ino[1] = statb.st_ino[1]; |
| handles[nhandles].ino[2] = statb.st_ino[2]; |
| #else |
| handles[nhandles].ino = statb.st_ino; |
| #endif |
| } |
| } |
| |
| #if !(defined(PYOS_OS2) && defined(PYCC_GCC)) |
| dlopenflags = PyThreadState_GET()->interp->dlopenflags; |
| #endif |
| |
| if (Py_VerboseFlag) |
| PySys_WriteStderr("dlopen(\"%s\", %x);\n", pathname, |
| dlopenflags); |
| |
| #ifdef __VMS |
| /* VMS currently don't allow a pathname, use a logical name instead */ |
| /* Concatenate 'python_module_' and shortname */ |
| /* so "import vms.bar" will use the logical python_module_bar */ |
| /* As C module use only one name space this is probably not a */ |
| /* important limitation */ |
| PyOS_snprintf(pathbuf, sizeof(pathbuf), "python_module_%-.200s", |
| shortname); |
| pathname = pathbuf; |
| #endif |
| |
| handle = dlopen(pathname, dlopenflags); |
| |
| if (handle == NULL) { |
| char *error = dlerror(); |
| if (error == NULL) |
| error = "unknown dlopen() error"; |
| PyErr_SetString(PyExc_ImportError, error); |
| return NULL; |
| } |
| if (fp != NULL && nhandles < 128) |
| handles[nhandles++].handle = handle; |
| p = (dl_funcptr) dlsym(handle, funcname); |
| return p; |
| } |