mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
83d14e1c1c
It is split into - /libgnucash (for the non-gui bits) - /gnucash (for the gui) - /common (misc source files used by both) - /bindings (currently only holds python bindings) This is the first step in restructuring the code. It will need much more fine tuning later on.
113 lines
3.7 KiB
C
113 lines
3.7 KiB
C
/*********************************************************************
|
|
* test-dynload.c
|
|
* test the ability to dlopen the gnc_module library and initialize
|
|
* it via dlsym
|
|
*********************************************************************/
|
|
/********************************************************************\
|
|
* This program is free software; you can redistribute it and/or *
|
|
* modify it under the terms of the GNU General Public License as *
|
|
* published by the Free Software Foundation; either version 2 of *
|
|
* the License, or (at your option) any later version. *
|
|
* *
|
|
* This program is distributed in the hope that it will be useful, *
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
|
|
* GNU General Public License for more details. *
|
|
* *
|
|
* You should have received a copy of the GNU General Public License*
|
|
* along with this program; if not, contact: *
|
|
* *
|
|
* Free Software Foundation Voice: +1-617-542-5942 *
|
|
* 51 Franklin Street, Fifth Floor Fax: +1-617-542-2652 *
|
|
* Boston, MA 02110-1301, USA gnu@gnu.org *
|
|
* *
|
|
\********************************************************************/
|
|
|
|
|
|
#include "config.h"
|
|
#include <stdio.h>
|
|
#include <gmodule.h>
|
|
#include <libguile.h>
|
|
#include <unittest-support.h>
|
|
|
|
#include "gnc-module.h"
|
|
|
|
static void
|
|
guile_main(void *closure, int argc, char ** argv)
|
|
{
|
|
GModule *gmodule;
|
|
gchar *msg = "Module '../../../libgnucash/gnc-module/test/misc-mods/.libs/libgncmod_futuremodsys.so' requires newer module system\n";
|
|
gchar *logdomain = "gnc.module";
|
|
gchar *modpath;
|
|
guint loglevel = G_LOG_LEVEL_WARNING;
|
|
const char *libdir = g_getenv("LIBDIR");
|
|
TestErrorStruct check = { loglevel, logdomain, msg };
|
|
g_log_set_handler (logdomain, loglevel,
|
|
(GLogFunc)test_checked_handler, &check);
|
|
|
|
if (libdir == NULL)
|
|
{
|
|
libdir = "../.libs";
|
|
}
|
|
|
|
g_test_message(" test-dynload.c: testing dynamic linking of libgnc-module ...");
|
|
#ifdef G_OS_WIN32
|
|
/* MinGW builds libgnc-module-0.dll */
|
|
if (libdir == NULL)
|
|
{
|
|
modpath = g_module_build_path ("../.libs", "gnc-module-0");
|
|
}
|
|
else
|
|
{
|
|
modpath = g_module_build_path (libdir, "gnc-module");
|
|
}
|
|
#elif defined(GNC_PLATFORM_OSX)
|
|
/* We build libgnc-module as a shared library for testing, and on OSX
|
|
* that means that g_module_build_path (), which uses ".so", doesn't
|
|
* build the right path name.
|
|
*/
|
|
if (libdir == NULL)
|
|
{
|
|
modpath = g_build_filename ("..", ".libs", "libgnc-module.dylib", NULL);
|
|
}
|
|
else
|
|
{
|
|
modpath = g_build_filename (libdir, "libgnc-module.dylib", NULL);
|
|
}
|
|
#else /* Regular Unix */
|
|
modpath = g_module_build_path (libdir, "gnc-module");
|
|
#endif
|
|
gmodule = g_module_open(modpath, 0);
|
|
|
|
if (gmodule)
|
|
{
|
|
gpointer ptr;
|
|
if (g_module_symbol(gmodule, "gnc_module_system_init", &ptr))
|
|
{
|
|
void (* fn)(void) = ptr;
|
|
fn();
|
|
printf(" OK\n");
|
|
exit(0);
|
|
}
|
|
else
|
|
{
|
|
printf(" failed to find gnc_module_system_init\n");
|
|
exit(-1);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
printf(" failed to open library.\n");
|
|
printf("%s\n", g_module_error());
|
|
exit(-1);
|
|
}
|
|
}
|
|
|
|
int
|
|
main(int argc, char ** argv)
|
|
{
|
|
scm_boot_guile(argc, argv, guile_main, NULL);
|
|
return 0;
|
|
}
|
|
|