dynload_hpux.c

/* Support for dynamic loading of extension modules */

#include"dl.h"
#include<errno.h>

#include"Python.h"
#include"importdl.h"

#if defined(__hp9000s300)
#defineFUNCNAME_PATTERN "_%.20s_%.200s"
#else
#defineFUNCNAME_PATTERN "%.20s_%.200s"
#endif

constchar*_PyImport_DynLoadFiletab[] = {SHLIB_EXT, NULL};

dl_funcptr_PyImport_FindSharedFuncptr(constchar*prefix,
constchar*shortname,
constchar*pathname, FILE*fp)
{
dl_funcptrp;
shl_tlib;
intflags;
charfuncname[258];

flags=BIND_FIRST | BIND_DEFERRED;
if (Py_VerboseFlag) {
flags=BIND_FIRST | BIND_IMMEDIATE |
BIND_NONFATAL | BIND_VERBOSE;
printf("shl_load %s\n",pathname);
 }
lib=shl_load(pathname, flags, 0);
/* XXX Chuck Blake once wrote that 0 should be BIND_NOSTART? */
if (lib==NULL) {
charbuf[256];
PyObject*pathname_ob=NULL;
PyObject*buf_ob=NULL;
PyObject*shortname_ob=NULL;

if (Py_VerboseFlag)
perror(pathname);
PyOS_snprintf(buf, sizeof(buf), "Failed to load %.200s",
pathname);
buf_ob=PyUnicode_FromString(buf);
shortname_ob=PyUnicode_FromString(shortname);
pathname_ob=PyUnicode_FromString(pathname);
PyErr_SetImportError(buf_ob, shortname_ob, pathname_ob);
Py_DECREF(buf_ob);
Py_DECREF(shortname_ob);
Py_DECREF(pathname_ob);
returnNULL;
 }
PyOS_snprintf(funcname, sizeof(funcname), FUNCNAME_PATTERN,
prefix, shortname);
if (Py_VerboseFlag)
printf("shl_findsym %s\n", funcname);
if (shl_findsym(&lib, funcname, TYPE_UNDEFINED, (void*) &p) ==-1) {
shl_unload(lib);
p=NULL;
 }
if (p==NULL&&Py_VerboseFlag)
perror(funcname);

returnp;
}