PyObject *
PyModule_FromDefAndSpec2(struct PyModuleDef* def, PyObject *spec, int module_api_version)
{
PyModuleDef_Slot* cur_slot;
PyObject *(*create)(PyObject *, PyModuleDef*) = NULL;
PyObject *nameobj;
PyObject *m = NULL;
int has_execution_slots = 0;
const char *name;
int ret;
PyModuleDef_Init(def);
nameobj = PyObject_GetAttrString(spec, "name");
if (nameobj == NULL) {
return NULL;
}
name = PyUnicode_AsUTF8(nameobj);
if (name == NULL) {
goto error;
}
if (!check_api_version(name, module_api_version)) {
goto error;
}
if (def->m_size < 0) {
PyErr_Format(
PyExc_SystemError,
"module %s: m_size may not be negative for multi-phase initialization",
name);
goto error;
}
for (cur_slot = def->m_slots; cur_slot && cur_slot->slot; cur_slot++) {
if (cur_slot->slot == Py_mod_create) {
if (create) {
PyErr_Format(
PyExc_SystemError,
"module %s has multiple create slots",
name);
goto error;
}
create = cur_slot->value;
} else if (cur_slot->slot < 0 || cur_slot->slot > _Py_mod_LAST_SLOT) {
PyErr_Format(
PyExc_SystemError,
"module %s uses unknown slot ID %i",
name, cur_slot->slot);
goto error;
} else {
has_execution_slots = 1;
}
}
if (create) {
m = create(spec, def);
if (m == NULL) {
if (!PyErr_Occurred()) {
PyErr_Format(
PyExc_SystemError,
"creation of module %s failed without setting an exception",
name);
}
goto error;
} else {
if (PyErr_Occurred()) {
PyErr_Format(PyExc_SystemError,
"creation of module %s raised unreported exception",
name);
goto error;
}
}
} else {
m = PyModule_NewObject(nameobj);
if (m == NULL) {
goto error;
}
}
if (PyModule_Check(m)) {
((PyModuleObject*)m)->md_state = NULL;
((PyModuleObject*)m)->md_def = def;
} else {
if (def->m_size > 0 || def->m_traverse || def->m_clear || def->m_free) {
PyErr_Format(
PyExc_SystemError,
"module %s is not a module object, but requests module state",
name);
goto error;
}
if (has_execution_slots) {
PyErr_Format(
PyExc_SystemError,
"module %s specifies execution slots, but did not create "
"a ModuleType instance",
name);
goto error;
}
}
if (def->m_methods != NULL) {
ret = _add_methods_to_object(m, nameobj, def->m_methods);
if (ret != 0) {
goto error;
}
}
if (def->m_doc != NULL) {
ret = PyModule_SetDocString(m, def->m_doc);
if (ret != 0) {
goto error;
}
}
Py_DECREF(nameobj);
return m;
error:
Py_DECREF(nameobj);
Py_XDECREF(m);
return NULL;
}
static Handle_Type *dynamic_link_module (SLFUTURE_CONST char *module)
{
Handle_Type *h;
VOID_STAR handle;
SLFUTURE_CONST char *err;
char filebuf[1024];
char *save_file;
char *save_err;
int api_version;
int *api_version_ptr;
#define MAX_MODULE_NAME_SIZE 256
char module_so[MAX_MODULE_NAME_SIZE + 32];
char *module_name;
char *file, *pathfile;
if (strlen (module) >= MAX_MODULE_NAME_SIZE)
{
_pSLang_verror (SL_LimitExceeded_Error, "module name too long");
return NULL;
}
SLsnprintf (module_so, sizeof(module_so), "%s-module.%s", module, SO_SUFFIX);
if (Module_Path != NULL)
pathfile = SLpath_find_file_in_path (Module_Path, module_so);
else pathfile = NULL;
if ((pathfile == NULL)
&& (NULL != (pathfile = _pSLsecure_getenv (MODULE_PATH_ENV_NAME))))
pathfile = SLpath_find_file_in_path (pathfile, module_so);
if (pathfile == NULL)
pathfile = SLpath_find_file_in_path (MODULE_INSTALL_DIR, module_so);
if (pathfile != NULL)
file = pathfile;
else
file = module_so;
save_err = NULL;
save_file = file;
while (1)
{
#ifndef RTLD_GLOBAL
# define RTLD_GLOBAL 0
#endif
#ifdef RTLD_NOW
handle = (VOID_STAR) dlopen (file, RTLD_NOW | RTLD_GLOBAL);
#else
handle = (VOID_STAR) dlopen (file, RTLD_LAZY | RTLD_GLOBAL);
#endif
if (handle != NULL)
{
if (_pSLang_Load_File_Verbose & SLANG_LOAD_MODULE_VERBOSE)
SLang_vmessage ("Importing %s", file);
if (save_err != NULL)
SLfree (save_err);
break;
}
/* Purify reports that dlerror returns a pointer that generates UMR
* errors. There is nothing that I can do about that....
*/
if ((NULL == strchr (file, '/'))
&& (strlen(file) < sizeof(filebuf)))
{
err = (char *) dlerror ();
if (err != NULL)
save_err = SLmake_string (err);
SLsnprintf (filebuf, sizeof (filebuf), "./%s", file);
file = filebuf;
continue;
}
if ((NULL == (err = save_err))
&& (NULL == (err = (char *) dlerror ())))
err = "UNKNOWN";
_pSLang_verror (SL_Import_Error,
"Error linking to %s: %s", save_file, err);
if (save_err != NULL)
SLfree (save_err);
if (pathfile != NULL)
SLfree (pathfile);
return NULL;
}
/* Using SLpath_basename allows, e.g., import ("/path/to/module"); */
module_name = SLpath_basename (module);
api_version_ptr = (int *) do_dlsym (handle, file, 0, "SLmodule_%s_api_version", module_name);
if (api_version_ptr == NULL)
api_version_ptr = (int *) do_dlsym (handle, file, 0, "_SLmodule_%s_api_version", module_name);
if (api_version_ptr == NULL)
api_version = 0;
else
api_version = *api_version_ptr;
if ((-1 == check_api_version (file, api_version))
|| (NULL == (h = allocate_handle_type (module, handle))))
{
SLfree (pathfile); /* NULL ok */
dlclose (handle);
return NULL;
}
if (NULL == (h->ns_init_fun = (int (*)(SLCONST char *)) do_dlsym (handle, file, 1, "init_%s_module_ns", module_name)))
{
SLfree (pathfile);
free_handle_type (h);
dlclose (handle);
return NULL;
}
h->deinit_fun = (void (*)(void)) do_dlsym (handle, file, 0, "deinit_%s_module", module_name);
SLfree (pathfile); /* NULL ok */
h->next = Handle_List;
Handle_List = h;
return h;
}
PyObject *
PyModule_Create2(struct PyModuleDef* module, int module_api_version)
{
const char* name;
PyModuleObject *m;
PyInterpreterState *interp = PyThreadState_Get()->interp;
if (interp->modules == NULL)
Py_FatalError("Python import machinery not initialized");
if (!PyModuleDef_Init(module))
return NULL;
name = module->m_name;
if (!check_api_version(name, module_api_version)) {
return NULL;
}
if (module->m_slots) {
PyErr_Format(
PyExc_SystemError,
"module %s: PyModule_Create is incompatible with m_slots", name);
return NULL;
}
/* Make sure name is fully qualified.
This is a bit of a hack: when the shared library is loaded,
the module name is "package.module", but the module calls
PyModule_Create*() with just "module" for the name. The shared
library loader squirrels away the true name of the module in
_Py_PackageContext, and PyModule_Create*() will substitute this
(if the name actually matches).
*/
if (_Py_PackageContext != NULL) {
const char *p = strrchr(_Py_PackageContext, '.');
if (p != NULL && strcmp(module->m_name, p+1) == 0) {
name = _Py_PackageContext;
_Py_PackageContext = NULL;
}
}
if ((m = (PyModuleObject*)PyModule_New(name)) == NULL)
return NULL;
if (module->m_size > 0) {
m->md_state = PyMem_MALLOC(module->m_size);
if (!m->md_state) {
PyErr_NoMemory();
Py_DECREF(m);
return NULL;
}
memset(m->md_state, 0, module->m_size);
}
if (module->m_methods != NULL) {
if (PyModule_AddFunctions((PyObject *) m, module->m_methods) != 0) {
Py_DECREF(m);
return NULL;
}
}
if (module->m_doc != NULL) {
if (PyModule_SetDocString((PyObject *) m, module->m_doc) != 0) {
Py_DECREF(m);
return NULL;
}
}
m->md_def = module;
return (PyObject*)m;
}
