PrologServiceClass * load_plugin_service_class (char * directory, char * name) {
char command [256];
#ifdef LINUX_OPERATING_SYSTEM
#ifdef MAC_OPERATING_SYSTEM
sprintf (command, "%s%s.mdll", directory, name);
#else
sprintf (command, "%s%s.so", directory, name);
#endif
#endif
#ifdef WINDOWS_OPERATING_SYSTEM
sprintf (command, "%s%s.dll", directory, name);
#endif
THREAD dll = DLL_OPEN (command);
if (dll == NULL) return NULL;
service_class_creator create_service_class = (service_class_creator) GET_SYMBOL (dll, "create_service_class");
if (! create_service_class) {
DLL_CLOSE (dll);
return NULL;
}
return create_service_class ();
}
Plugin* plugin_open(const char* filename)
{
Plugin* plugin;
Plugin_Info* info;
Plugin_Event_Table* events;
void** procs;
int init_flag = 1;
//ShowDebug("plugin_open(%s)\n", filename);
// Check if the plugin has been loaded before
plugin = plugin_head;
while (plugin) {
// returns handle to the already loaded plugin
if( plugin->state && strcmpi(plugin->filename, filename) == 0 ){
ShowWarning("plugin_open: not loaded (duplicate) : '"CL_WHITE"%s"CL_RESET"'\n", filename);
return plugin;
}
plugin = plugin->next;
}
CREATE(plugin, Plugin, 1);
plugin->state = -1; // not loaded
plugin->dll = DLL_OPEN(filename);
if( !plugin->dll ){
ShowWarning("plugin_open: not loaded (invalid file) : '"CL_WHITE"%s"CL_RESET"'\n", filename);
plugin_unload(plugin);
return NULL;
}
// Retrieve plugin information
plugin->state = 0; // initialising
info = (Plugin_Info*)DLL_SYM(plugin->dll, "plugin_info");
// For high priority plugins (those that are explicitly loaded from the conf file)
// we'll ignore them even (could be a 3rd party dll file)
if( !info )
{// foreign plugin
//ShowDebug("plugin_open: plugin_info not found\n");
if( load_priority == 0 )
{// not requested
//ShowDebug("plugin_open: not loaded (not requested) : '"CL_WHITE"%s"CL_RESET"'\n", filename);
plugin_unload(plugin);
return NULL;
}
} else if( !plugin_iscompatible(info->req_version) )
{// incompatible version
ShowWarning("plugin_open: not loaded (incompatible version '%s' -> '%s') : '"CL_WHITE"%s"CL_RESET"'\n", info->req_version, PLUGIN_VERSION, filename);
plugin_unload(plugin);
return NULL;
} else if( (info->type != PLUGIN_ALL && info->type != PLUGIN_CORE && info->type != SERVER_TYPE) ||
(info->type == PLUGIN_CORE && SERVER_TYPE != PLUGIN_LOGIN && SERVER_TYPE != PLUGIN_CHAR && SERVER_TYPE != PLUGIN_MAP) )
{// not for this server
//ShowDebug("plugin_open: not loaded (incompatible) : '"CL_WHITE"%s"CL_RESET"'\n", filename);
plugin_unload(plugin);
return NULL;
}
plugin->info = ( info != NULL ? info : &default_info );
plugin->filename = aStrdup(filename);
// Initialise plugin call table (For exporting procedures)
procs = (void**)DLL_SYM(plugin->dll, "plugin_call_table");
if( procs )
*procs = plugin_call_table;
//else ShowDebug("plugin_open: plugin_call_table not found\n");
// Register plugin events
events = (Plugin_Event_Table*)DLL_SYM(plugin->dll, "plugin_event_table");
if( events ){
int i = 0;
//ShowDebug("plugin_open: parsing plugin_event_table\n");
while( events[i].func_name ){
if( strcmpi(events[i].event_name, EVENT_PLUGIN_TEST) == 0 ){
Plugin_Test_Func* test_func;
test_func = (Plugin_Test_Func*)DLL_SYM(plugin->dll, events[i].func_name);
//ShowDebug("plugin_open: invoking "EVENT_PLUGIN_TEST" with %s()\n", events[i].func_name);
if( test_func && test_func() == 0 ){
// plugin has failed test, disabling
//ShowDebug("plugin_open: disabled (failed test) : %s\n", filename);
init_flag = 0;
}
} else {
Plugin_Event_Func* func;
func = (Plugin_Event_Func*)DLL_SYM(plugin->dll, events[i].func_name);
if (func)
register_plugin_event(func, events[i].event_name);
}
i++;
}
}
//else ShowDebug("plugin_open: plugin_event_table not found\n");
plugin->next = plugin_head;
plugin_head = plugin;
plugin->state = init_flag; // fully loaded
ShowStatus("Done loading plugin '"CL_WHITE"%s"CL_RESET"'\n", (info) ? plugin->info->name : filename);
return plugin;
}
HDLL
_iodbcdm_dllopen (char FAR * path)
{
return (HDLL) DLL_OPEN (path);
}
/* Changed ... Have to implement the same for translators */
void
adddrivers_to_list (ControlRef widget, WindowRef dlg, BOOL addNotify)
{
wchar_t drvdesc[1024], drvattrs[1024], driver[1024];
DataBrowserItemID item = DBITEM_ID + 1;
DataBrowserCallbacks dbCallbacks;
ThemeDrawingState outState = NULL;
UInt16 colSize[5] = { 150, 150, 100, 50 , 50};
void *handle;
SInt16 outBaseline;
Point ioBound;
struct stat _stat;
SQLSMALLINT len, len1;
SQLRETURN ret;
HENV henv, drv_henv;
HDBC drv_hdbc;
pSQLGetInfoFunc funcHdl;
pSQLAllocHandle allocHdl;
pSQLAllocEnv allocEnvHdl = NULL;
pSQLAllocConnect allocConnectHdl = NULL;
pSQLFreeHandle freeHdl;
pSQLFreeEnv freeEnvHdl;
pSQLFreeConnect freeConnectHdl;
char *_drv_u8 = NULL;
int i;
if (!widget)
return;
GetThemeDrawingState (&outState);
/* Install an event handler on the component databrowser */
dbCallbacks.version = kDataBrowserLatestCallbacks;
InitDataBrowserCallbacks (&dbCallbacks);
if (addNotify)
dbCallbacks.u.v1.itemNotificationCallback =
NewDataBrowserItemNotificationUPP (drivers_notification_item);
/* On Mac OS X 10.0.x : clientDataCallback */
dbCallbacks.u.v1.itemDataCallback =
NewDataBrowserItemDataUPP (drivers_getset_item);
SetDataBrowserCallbacks (widget, &dbCallbacks);
/* Begin the draw of the data browser */
SetDataBrowserTarget (widget, DBITEM_ID);
/* Make the clean up */
for (i = 0; i < Drivers_nrows; i++, item++)
{
CFRelease (Drivers_array[0][i]);
Drivers_array[0][i] = NULL;
CFRelease (Drivers_array[1][i]);
Drivers_array[1][i] = NULL;
CFRelease (Drivers_array[2][i]);
Drivers_array[2][i] = NULL;
CFRelease (Drivers_array[3][i]);
Drivers_array[3][i] = NULL;
CFRelease (Drivers_array[4][i]);
Drivers_array[4][i] = NULL;
RemoveDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
}
/* Global Initialization */
Drivers_nrows = 0;
item = DBITEM_ID + 1;
/* Create a HENV to get the list of drivers then */
ret = SQLAllocHandle (SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto end;
}
/* Set the version ODBC API to use */
SQLSetEnvAttr (henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3,
SQL_IS_UINTEGER);
/* Get the list of drivers */
ret =
SQLDriversW (henv, SQL_FETCH_FIRST, drvdesc, sizeof (drvdesc)/sizeof(wchar_t),
&len, drvattrs, sizeof (drvattrs)/sizeof(wchar_t), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO && ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto error;
}
while (ret != SQL_NO_DATA)
{
Drivers_array[0][Drivers_nrows] = convert_wchar_to_CFString(drvdesc);
/* Get the driver library name */
SQLSetConfigMode (ODBC_BOTH_DSN);
SQLGetPrivateProfileStringW (drvdesc, L"Driver", L"", driver,
sizeof (driver)/sizeof(wchar_t), L"odbcinst.ini");
if (driver[0] == L'\0')
SQLGetPrivateProfileStringW (L"Default", L"Driver", L"", driver,
sizeof (driver)/sizeof(wchar_t), L"odbcinst.ini");
if (driver[0] == L'\0')
{
if (Drivers_array[0][Drivers_nrows])
{
CFRelease (Drivers_array[0][Drivers_nrows]);
Drivers_array[0][Drivers_nrows] = NULL;
}
goto skip;
}
Drivers_array[1][Drivers_nrows] = convert_wchar_to_CFString(driver);
/* Alloc a connection handle */
drv_hdbc = NULL;
drv_henv = NULL;
_drv_u8 = (char *) dm_SQL_WtoU8((SQLWCHAR*)driver, SQL_NTS);
if (_drv_u8 == NULL)
goto skip;
if ((handle = DLL_OPEN(_drv_u8)) != NULL)
{
if ((allocHdl = (pSQLAllocHandle)DLL_PROC(handle, "SQLAllocHandle")) != NULL)
{
ret = allocHdl(SQL_HANDLE_ENV, SQL_NULL_HANDLE, &drv_henv);
if (ret == SQL_ERROR) goto nodriverver;
ret = allocHdl(SQL_HANDLE_DBC, drv_henv, &drv_hdbc);
if (ret == SQL_ERROR) goto nodriverver;
}
else
{
if ((allocEnvHdl = (pSQLAllocEnv)DLL_PROC(handle, "SQLAllocEnv")) != NULL)
{
ret = allocEnvHdl(&drv_henv);
if (ret == SQL_ERROR) goto nodriverver;
}
else goto nodriverver;
if ((allocConnectHdl = (pSQLAllocConnect)DLL_PROC(handle, "SQLAllocConnect")) != NULL)
{
ret = allocConnectHdl(drv_henv, &drv_hdbc);
if (ret == SQL_ERROR) goto nodriverver;
}
else goto nodriverver;
}
/*
* Use SQLGetInfoA for Unicode drivers
* and SQLGetInfo for ANSI drivers
*/
funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfoA");
if (!funcHdl)
funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfo");
if (funcHdl)
{
/* Retrieve some informations */
ret = funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs, sizeof(drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
char *p = drvattrs;
/* Find the description if one provided */
for (; *p ; p++)
{
if (*p == ' ')
{
*p++ = '\0';
break;
}
}
/*
* Store Version
*/
Drivers_array[2][Drivers_nrows] = CFStringCreateWithCString(NULL, (char *)drvattrs, kCFStringEncodingUTF8);
}
else goto nodriverver;
}
else if ((funcHdl = (pSQLGetInfoFunc)DLL_PROC(handle, "SQLGetInfoW")) != NULL)
{
/* Retrieve some informations */
ret = funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs, sizeof(drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
wchar_t *p = drvattrs;
/* Find the description if one provided */
for (; *p ; p++)
{
if (*p == L' ')
{
*p++ = L'\0';
break;
}
}
/*
* Store Version
*/
Drivers_array[2][Drivers_nrows] = convert_wchar_to_CFString(drvattrs);
}
else goto nodriverver;
}
else goto nodriverver;
}
else
{
nodriverver:
Drivers_array[2][Drivers_nrows] = CFStringCreateWithCString(NULL,
"##.##", kCFStringEncodingUTF8);
}
if(drv_hdbc || drv_henv)
{
if(allocConnectHdl &&
(freeConnectHdl = (pSQLFreeConnect)DLL_PROC(handle, "SQLFreeConnect")) != NULL)
{ freeConnectHdl(drv_hdbc); drv_hdbc = NULL; }
if(allocEnvHdl &&
(freeEnvHdl = (pSQLFreeEnv)DLL_PROC(handle, "SQLFreeEnv")) != NULL)
{ freeEnvHdl(drv_henv); drv_henv = NULL; }
}
if ((drv_hdbc || drv_henv) &&
(freeHdl = (pSQLFreeHandle)DLL_PROC(handle, "SQLFreeHandle")) != NULL)
{
if(drv_hdbc) freeHdl(SQL_HANDLE_DBC, drv_hdbc);
if(drv_henv) freeHdl(SQL_HANDLE_ENV, drv_henv);
}
DLL_CLOSE(handle);
/* Get the size and date of the driver */
if (!stat (_drv_u8, &_stat))
{
CFStringRef strRef;
struct tm drivertime;
char buf[100];
Drivers_array[3][Drivers_nrows] =
CFStringCreateWithFormat(NULL, NULL,
strRef = CFStringCreateWithCString(NULL, "%d Kb", kCFStringEncodingUTF8),
(int) (_stat.st_size / 1024));
CFRelease(strRef);
localtime_r (&_stat.st_mtime, &drivertime);
strftime (buf, sizeof (buf), "%c", &drivertime);
Drivers_array[4][Drivers_nrows] = CFStringCreateWithCString(NULL,
buf, kCFStringEncodingUTF8);
}
else
{
Drivers_array[3][Drivers_nrows] = CFStringCreateWithCString(NULL,
"-", kCFStringEncodingUTF8);
Drivers_array[4][Drivers_nrows] = CFStringCreateWithCString(NULL,
"-", kCFStringEncodingUTF8);
}
for(i = 0 ; i < 5 ; i++)
{
GetThemeTextDimensions (Drivers_array[i][Drivers_nrows], kThemeSystemFont,
kThemeStateActive, false, &ioBound, &outBaseline);
if(colSize[i] < ioBound.h) colSize[i] = ioBound.h;
}
AddDataBrowserItems (widget, DBITEM_ID, 1, &item, DBNAME_ID);
item++;
Drivers_nrows++;
/* Process next one */
skip:
MEM_FREE (_drv_u8);
_drv_u8 = NULL;
ret = SQLDriversW (henv, SQL_FETCH_NEXT, drvdesc,
sizeof (drvdesc)/sizeof(wchar_t), &len, drvattrs,
sizeof (drvattrs)/sizeof(wchar_t), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO && ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE,
SQL_NULL_HANDLE);
goto error;
}
}
error:
/* Clean all that */
SQLFreeHandle (SQL_HANDLE_ENV, henv);
end:
ActivateControl (widget);
/* Resize the columns to have a good look */
SetDataBrowserTableViewNamedColumnWidth (widget, DBNAME_ID, colSize[0] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBFILE_ID, colSize[1] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBVERSION_ID, colSize[2] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBSIZE_ID, colSize[3] + 20);
SetDataBrowserTableViewNamedColumnWidth (widget, DBDATE_ID, colSize[4] + 20);
DrawOneControl (widget);
/* Remove the DataBrowser callback */
SetDataBrowserCallbacks (NULL, &dbCallbacks);
if(outState) DisposeThemeDrawingState (outState);
}
void
adddrivers_to_list (GtkWidget *widget, GtkWidget *dlg)
{
SQLCHAR drvdesc[1024], drvattrs[1024], driver[1024], size[64];
SQLCHAR *data[4];
void *handle;
struct stat _stat;
SQLSMALLINT len, len1;
SQLRETURN ret;
HENV henv, drv_henv;
HDBC drv_hdbc;
pSQLGetInfoFunc funcHdl;
pSQLAllocHandle allocHdl;
pSQLAllocEnv allocEnvHdl = NULL;
pSQLAllocConnect allocConnectHdl = NULL;
pSQLFreeHandle freeHdl;
pSQLFreeEnv freeEnvHdl;
pSQLFreeConnect freeConnectHdl;
if (!GTK_IS_CLIST (widget))
return;
gtk_clist_clear (GTK_CLIST (widget));
/* Create a HENV to get the list of drivers then */
ret = SQLAllocHandle (SQL_HANDLE_ENV, SQL_NULL_HANDLE, &henv);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto end;
}
/* Set the version ODBC API to use */
SQLSetEnvAttr (henv, SQL_ATTR_ODBC_VERSION, (SQLPOINTER) SQL_OV_ODBC3,
SQL_IS_INTEGER);
/* Get the list of drivers */
ret =
SQLDrivers (henv, SQL_FETCH_FIRST, drvdesc,
sizeof (drvdesc) / sizeof (SQLTCHAR), &len, drvattrs,
sizeof (drvattrs) / sizeof (SQLTCHAR), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO
&& ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE, SQL_NULL_HANDLE);
goto error;
}
while (ret != SQL_NO_DATA)
{
data[0] = drvdesc;
/* Get the driver library name */
SQLSetConfigMode (ODBC_BOTH_DSN);
SQLGetPrivateProfileString (drvdesc, "Driver", "", driver,
sizeof (driver) / sizeof (SQLTCHAR), "odbcinst.ini");
if (driver[0] == '\0')
SQLGetPrivateProfileString ("Default", "Driver", "", driver,
sizeof (driver) / sizeof (SQLTCHAR), "odbcinst.ini");
if (driver[0] == '\0')
{
data[0] = NULL;
goto skip;
}
data[1] = driver;
drv_hdbc = NULL;
drv_henv = NULL;
if ((handle = (void *) DLL_OPEN (driver)) != NULL)
{
if ((allocHdl =
(pSQLAllocHandle) DLL_PROC (handle,
"SQLAllocHandle")) != NULL)
{
ret = allocHdl (SQL_HANDLE_ENV, SQL_NULL_HANDLE, &drv_henv);
if (ret == SQL_ERROR)
goto nodriverver;
ret = allocHdl (SQL_HANDLE_DBC, drv_henv, &drv_hdbc);
if (ret == SQL_ERROR)
goto nodriverver;
}
else
{
if ((allocEnvHdl =
(pSQLAllocEnv) DLL_PROC (handle,
"SQLAllocEnv")) != NULL)
{
ret = allocEnvHdl (&drv_henv);
if (ret == SQL_ERROR)
goto nodriverver;
}
else
goto nodriverver;
if ((allocConnectHdl =
(pSQLAllocConnect) DLL_PROC (handle,
"SQLAllocConnect")) != NULL)
{
ret = allocConnectHdl (drv_henv, &drv_hdbc);
if (ret == SQL_ERROR)
goto nodriverver;
}
else
goto nodriverver;
}
if ((funcHdl =
(pSQLGetInfoFunc) DLL_PROC (handle, "SQLGetInfo")) != NULL)
{
/* Retrieve some information */
ret =
funcHdl (drv_hdbc, SQL_DRIVER_VER, drvattrs,
sizeof (drvattrs), &len);
if (ret == SQL_SUCCESS || ret == SQL_SUCCESS_WITH_INFO)
{
unsigned int z;
/* Drop the description if one provided */
for (z = 0; ((char *) drvattrs)[z]; z++)
if (((char *) drvattrs)[z] == ' ')
((char *) drvattrs)[z] = '\0';
data[2] = drvattrs;
}
else
goto nodriverver;
}
else
goto nodriverver;
}
else
{
nodriverver:
data[2] = "##.##";
}
if (drv_hdbc || drv_henv)
{
if (allocConnectHdl &&
(freeConnectHdl =
(pSQLFreeConnect) DLL_PROC (handle,
"SQLFreeConnect")) != NULL)
{
freeConnectHdl (drv_hdbc);
drv_hdbc = NULL;
}
if (allocEnvHdl &&
(freeEnvHdl =
(pSQLFreeEnv) DLL_PROC (handle, "SQLFreeEnv")) != NULL)
{
freeEnvHdl (drv_henv);
drv_henv = NULL;
}
}
if ((drv_hdbc || drv_henv) &&
(freeHdl =
(pSQLFreeHandle) DLL_PROC (handle, "SQLFreeHandle")) != NULL)
{
if (drv_hdbc)
freeHdl (SQL_HANDLE_DBC, drv_hdbc);
if (drv_henv)
freeHdl (SQL_HANDLE_ENV, drv_henv);
}
if (handle)
DLL_CLOSE (handle);
/* Get the size of the driver */
if (!stat (driver, &_stat))
{
sprintf (size, "%d Kb", (int) (_stat.st_size / 1024));
data[3] = size;
}
else
data[3] = "-";
gtk_clist_append (GTK_CLIST (widget), data);
skip:
ret = SQLDrivers (henv, SQL_FETCH_NEXT, drvdesc,
sizeof (drvdesc) / sizeof (SQLTCHAR), &len, drvattrs,
sizeof (drvattrs) / sizeof (SQLTCHAR), &len1);
if (ret != SQL_SUCCESS && ret != SQL_SUCCESS_WITH_INFO
&& ret != SQL_NO_DATA)
{
_iodbcdm_nativeerrorbox (dlg, henv, SQL_NULL_HANDLE,
SQL_NULL_HANDLE);
goto error;
}
}
error:
/* Clean all that */
SQLFreeHandle (SQL_HANDLE_ENV, henv);
end:
if (GTK_CLIST (widget)->rows > 0)
{
gtk_clist_columns_autosize (GTK_CLIST (widget));
gtk_clist_sort (GTK_CLIST (widget));
}
}