mirror of
https://github.com/Gnucash/gnucash.git
synced 2024-11-22 08:57:17 -06:00
88706e5657
Emit appropriate deprecation warnings in case code tries to invoke the removed functions. Only for gnc:module-load a more elaborate compat function has been written which should allow code using this obsolete function to continue to function. The emitted deprecation warning will guide the user to update his/her code for future compatibility.
50 lines
2.0 KiB
C
50 lines
2.0 KiB
C
/*********************************************************************
|
|
* gnc-guile-bindings.c
|
|
* library to enable guile bindings for libgnucash
|
|
*
|
|
* Copyright (c) 2019 GnuCash Development Team
|
|
*********************************************************************/
|
|
/********************************************************************\
|
|
* 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 <libguile.h>
|
|
|
|
void gnc_guile_bindings_init(void);
|
|
|
|
static int is_initialized = 0;
|
|
|
|
extern SCM scm_init_sw_core_utils_module (void);
|
|
extern SCM scm_init_sw_engine_module (void);
|
|
|
|
void
|
|
gnc_guile_bindings_init(void)
|
|
{
|
|
if (!is_initialized)
|
|
{
|
|
/* Do what's necessary to initialize the bindings */
|
|
scm_init_sw_core_utils_module();
|
|
scm_init_sw_engine_module();
|
|
|
|
is_initialized = 1;
|
|
}
|
|
}
|