/*
findAndLoadModule:
Find the module with the given name by,
* first looking it up in some (external) shared library
* then, by trying to find pluginName_setInterpreter.
If the module is found and the initialisers work, add it
to the list of loaded modules and return the new module.
If anything goes wrong make sure the module is unloaded
(WITHOUT calling shutdownModule()) and return NULL.
*/
static ModuleEntry *findAndLoadModule(char *pluginName, int ffiLoad)
{
void *handle;
ModuleEntry *module;
dprintf(("Looking for plugin %s\n", (pluginName ? pluginName : "<intrinsic>")));
/* Try to load the module externally */
handle = ioLoadModule(pluginName);
if(ffiLoad) {
/* When dealing with the FFI, don't attempt to mess around internally */
if(!handle) return NULL;
return addToModuleList(pluginName, handle, ffiLoad);
}
/* NOT ffiLoad */
if(!handle) {
/* might be internal, so go looking for setInterpreter() */
if(findInternalFunctionIn("setInterpreter", pluginName))
handle = squeakModule->handle;
else
return NULL; /* PluginName_setInterpreter() not found */
}
module = addToModuleList(pluginName, handle, ffiLoad);
if(!callInitializersIn(module)) {
/* Initializers failed */
if(handle != squeakModule->handle) {
/* physically unload module */
ioFreeModule(handle);
}
removeFromList(module); /* remove list entry */
free(module); /* give back space */
module = NULL;
}
return module;
}
/* findOrLoadModule:
Look if the given module is already loaded.
If so, return it's handle, otherwise try to load it.
*/
static ModuleEntry *findOrLoadModule(const char *pluginName, sqInt ffiLoad)
{
ModuleEntry *module;
if(!squeakModule) {
/* Load intrinsics (if possible) */
squeakModule = addToModuleList("", NULL, 1);
firstModule = NULL; /* drop off module list - will never be unloaded */
}
/* see if the module was already loaded */
module = findLoadedModule(pluginName);
if(!module) {
/* if not try loading it */
module = findAndLoadModule(pluginName, ffiLoad);
}
return module; /* module not found */
}
