Plugin *CopyPlugin (const Plugin * const src_p)
{
Plugin *dest_plugin_p = AllocatePlugin (src_p -> pl_name_s, src_p -> pl_path_s);
if (dest_plugin_p)
{
CopyBasePlugin (src_p, dest_plugin_p);
((WindowsPlugin *) dest_plugin_p) -> wp_handle = ((WindowsPlugin *) src_p) -> wp_handle;
}
return dest_plugin_p;
}
extern "C" ASAPI ASErr PluginMain(char* caller, char* selector, void* message)
{
ASErr error = kNoErr;
SPMessageData *msgData = (SPMessageData *)message;
Plugin *plugin = (Plugin *)msgData->globals;
sSPBasic = msgData->basic;
if (strcmp(caller, kSPInterfaceCaller) == 0)
{
if (strcmp( selector, kSPInterfaceStartupSelector) == 0)
{
plugin = AllocatePlugin(msgData->self);
if (plugin)
{
msgData->globals = (void *)plugin;
error = plugin->StartupPlugin((SPInterfaceMessage *)message);
if (error != kNoErr)
{
// Make sure to delete in case startup failed
delete plugin;
plugin = nil;
msgData->globals = nil;
}
}
else
{
error = kOutOfMemoryErr;
}
}
else if (strcmp(selector, kSPInterfaceShutdownSelector) == 0)
{
if (plugin)
{
error = plugin->ShutdownPlugin((SPInterfaceMessage *)message);
delete plugin;
plugin = nil;
msgData->globals = nil;
}
}
}
if (plugin)
{
if (Plugin::IsReloadMsg(caller, selector))
{
// Call this before calling any virtual functions (like Message)
FixupReload(plugin);
error = plugin->ReloadPlugin((SPInterfaceMessage *)message);
}
else
{
// If a load or reload failed because the suites could not be acquired, we released
// any partially acquired suites and returned an error. However, SuitePea still might
// call us, so protect against this situation.
if (plugin->SuitesAcquired())
error = plugin->Message(caller, selector, message);
else
error = kNoErr;
}
if (error == kUnhandledMsgErr)
{
error = kNoErr;
#ifndef NDEBUG
#ifdef MAC_ENV
fprintf(stderr, "Warning: Unhandled plugin message: caller \"%s\" selector \"%s\"\n", caller, selector);
#else
char buf[1024];
sprintf(buf+1, "Warning: Unhandled plugin message: caller \"%s\" selector \"%s\"\n", caller, selector);
OutputDebugStringA(buf+1);
#endif
#endif
}
}
if (error)
{
if (plugin)
plugin->ReportError(error, caller, selector, message);
else
Plugin::DefaultError(msgData->self, error);
}
return error;
}
