1 

     2 /* Support for dynamic loading of extension modules */

     3 

     4 #include "Python.h"

     5 #include "importdl.h"

     6 

     7 #include <sys/types.h>

     8 #include <sys/stat.h>

     9 

    10 #if defined(__NetBSD__)

    11 #include <sys/param.h>

    12 #if (NetBSD < 199712)

    13 #include <nlist.h>

    14 #include <link.h>

    15 #define dlerror() "error in dynamic linking"

    16 #endif

    17 #endif /* NetBSD */

    18 

    19 #ifdef HAVE_DLFCN_H

    20 #include <dlfcn.h>

    21 #else

    22 #if defined(PYOS_OS2) && defined(PYCC_GCC)

    23 #include "dlfcn.h"

    24 #endif

    25 #endif

    26 

    27 #if (defined(__OpenBSD__) || defined(__NetBSD__)) && !defined(__ELF__)

    28 #define LEAD_UNDERSCORE "_"

    29 #else

    30 #define LEAD_UNDERSCORE ""

    31 #endif

    32 

    33 

    34 const struct filedescr _PyImport_DynLoadFiletab[] = {

    35 #ifdef __CYGWIN__

    36 	{".dll", "rb", C_EXTENSION},

    37 	{"module.dll", "rb", C_EXTENSION},

    38 #else

    39 #if defined(PYOS_OS2) && defined(PYCC_GCC)

    40 	{".pyd", "rb", C_EXTENSION},

    41 	{".dll", "rb", C_EXTENSION},

    42 #else

    43 #ifdef __VMS

    44         {".exe", "rb", C_EXTENSION},

    45         {".EXE", "rb", C_EXTENSION},

    46         {"module.exe", "rb", C_EXTENSION},

    47         {"MODULE.EXE", "rb", C_EXTENSION},

    48 #else

    49 	{".so", "rb", C_EXTENSION},

    50 	{"module.so", "rb", C_EXTENSION},

    51 #endif

    52 #endif

    53 #endif

    54 	{0, 0}

    55 };

    56 

    57 static struct {

    58 	dev_t dev;

    59 #ifdef __VMS

    60 	ino_t ino[3];

    61 #else

    62 	ino_t ino;

    63 #endif

    64 	void *handle;

    65 } handles[128];

    66 static int nhandles = 0;

    67 

    68 

    69 dl_funcptr _PyImport_GetDynLoadFunc(const char *fqname, const char *shortname,

    70 				    const char *pathname, FILE *fp)

    71 {

    72 	dl_funcptr p;

    73 	void *handle;

    74 	char funcname[258];

    75 	char pathbuf[260];

    76         int dlopenflags=0;

    77 

    78 	if (strchr(pathname, '/') == NULL) {

    79 		/* Prefix bare filename with "./" */

    80 		PyOS_snprintf(pathbuf, sizeof(pathbuf), "./%-.255s", pathname);

    81 		pathname = pathbuf;

    82 	}

    83 

    84 	PyOS_snprintf(funcname, sizeof(funcname), 

    85 		      LEAD_UNDERSCORE "init%.200s", shortname);

    86 

    87 	if (fp != NULL) {

    88 		int i;

    89 		struct stat statb;

    90 		fstat(fileno(fp), &statb);

    91 		for (i = 0; i < nhandles; i++) {

    92 			if (statb.st_dev == handles[i].dev &&

    93 			    statb.st_ino == handles[i].ino) {

    94 				p = (dl_funcptr) dlsym(handles[i].handle,

    95 						       funcname);

    96 				return p;

    97 			}

    98 		}

    99 		if (nhandles < 128) {

   100 			handles[nhandles].dev = statb.st_dev;

   101 #ifdef __VMS

   102 			handles[nhandles].ino[0] = statb.st_ino[0];

   103 			handles[nhandles].ino[1] = statb.st_ino[1];

   104 			handles[nhandles].ino[2] = statb.st_ino[2];

   105 #else

   106 			handles[nhandles].ino = statb.st_ino;

   107 #endif

   108 		}

   109 	}

   110 

   111 #if !(defined(PYOS_OS2) && defined(PYCC_GCC))

   112         dlopenflags = PyThreadState_GET()->interp->dlopenflags;

   113 #endif

   114 

   115 	if (Py_VerboseFlag)

   116 		PySys_WriteStderr("dlopen(\"%s\", %x);\n", pathname, 

   117 				  dlopenflags);

   118 

   119 #ifdef __VMS

   120 	/* VMS currently don't allow a pathname, use a logical name instead */

   121 	/* Concatenate 'python_module_' and shortname */

   122 	/* so "import vms.bar" will use the logical python_module_bar */

   123 	/* As C module use only one name space this is probably not a */

   124 	/* important limitation */

   125 	PyOS_snprintf(pathbuf, sizeof(pathbuf), "python_module_%-.200s", 

   126 		      shortname);

   127 	pathname = pathbuf;

   128 #endif

   129 

   130 	handle = dlopen(pathname, dlopenflags);

   131 

   132 	if (handle == NULL) {

   133 		const char *error = dlerror();

   134 		if (error == NULL)

   135 			error = "unknown dlopen() error";

   136 		PyErr_SetString(PyExc_ImportError, error);

   137 		return NULL;

   138 	}

   139 	if (fp != NULL && nhandles < 128)

   140 		handles[nhandles++].handle = handle;

   141 	p = (dl_funcptr) dlsym(handle, funcname);

   142 	return p;

   143 }