mirror of https://github.com/Gnucash/gnucash
gnc_option_db_lookup_invoice_option used only once, so moved its guts there. The others weren't used at all.pull/1191/head
John Ralls
7 years ago
parent
ade7fc8b6e
commit
d2655d3fb0
@ -1,92 +0,0 @@
|
||||
/*
|
||||
* business-options.c -- Non-GUI Option Utilities for GNC Business Objects
|
||||
*
|
||||
* Written By: Derek Atkins <warlord@MIT.EDU>
|
||||
* Copyright (C) 2003 Derek Atkins
|
||||
*
|
||||
* 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 "business-options.h"
|
||||
#include "swig-runtime.h"
|
||||
#include "guile-mappings.h"
|
||||
|
||||
#define FUNC_NAME G_STRFUNC
|
||||
|
||||
#define LOOKUP_OPTION(fcn) \
|
||||
GNCOption *option; \
|
||||
SCM getter; \
|
||||
SCM value; \
|
||||
\
|
||||
option = gnc_option_db_get_option_by_name (odb, section, name); \
|
||||
\
|
||||
if (option == NULL) \
|
||||
return default_value; \
|
||||
\
|
||||
getter = gnc_option_getter (option); \
|
||||
if (getter == SCM_UNDEFINED) \
|
||||
return default_value; \
|
||||
\
|
||||
value = scm_call_0 (getter); \
|
||||
if (value == SCM_BOOL_F) \
|
||||
return NULL; \
|
||||
SWIG_GetModule(NULL); /* Work-around for SWIG bug. */ \
|
||||
if (!SWIG_IsPointer(value)) \
|
||||
scm_misc_error(fcn, "SCM is not a wrapped pointer.", value)
|
||||
|
||||
GncTaxTable*
|
||||
gnc_option_db_lookup_taxtable_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncTaxTable * default_value)
|
||||
{
|
||||
LOOKUP_OPTION("gnc_option_db_lookup_taxtable_option");
|
||||
return SWIG_MustGetPtr(value, SWIG_TypeQuery("_p__gncTaxTable"), 1, 0);
|
||||
}
|
||||
|
||||
GncInvoice*
|
||||
gnc_option_db_lookup_invoice_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncInvoice * default_value)
|
||||
{
|
||||
LOOKUP_OPTION("gnc_option_db_lookup_invoice_option");
|
||||
return SWIG_MustGetPtr(value, SWIG_TypeQuery("_p__gncInvoice"), 1, 0);
|
||||
}
|
||||
|
||||
GncCustomer*
|
||||
gnc_option_db_lookup_customer_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncCustomer * default_value)
|
||||
{
|
||||
LOOKUP_OPTION("gnc_option_db_lookup_customer_option");
|
||||
return SWIG_MustGetPtr(value, SWIG_TypeQuery("_p__gncCustomer"), 1, 0);
|
||||
}
|
||||
|
||||
GncVendor*
|
||||
gnc_option_db_lookup_vendor_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncVendor * default_value)
|
||||
{
|
||||
LOOKUP_OPTION("gnc_option_db_lookup_vendor_option");
|
||||
return SWIG_MustGetPtr(value, SWIG_TypeQuery("_p__gncVendor"), 1, 0);
|
||||
}
|
||||
@ -1,56 +0,0 @@
|
||||
/*
|
||||
* business-options.h -- non-GUI Option Utilities for GNC Business Objects
|
||||
*
|
||||
* Written By: Derek Atkins <warlord@MIT.EDU>
|
||||
* Copyright (C) 2003 Derek Atkins <warlord@MIT.EDU>
|
||||
*
|
||||
* 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
|
||||
*/
|
||||
|
||||
#ifndef GNC_BUSINESS_OPTIONS_UTILS_H_
|
||||
#define GNC_BUSINESS_OPTIONS_UTILS_H_
|
||||
|
||||
#include "option-util.h"
|
||||
#include "gncTaxTable.h"
|
||||
#include "gncInvoice.h"
|
||||
#include "gncCustomer.h"
|
||||
#include "gncVendor.h"
|
||||
|
||||
|
||||
GncTaxTable* gnc_option_db_lookup_taxtable_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncTaxTable * default_value);
|
||||
|
||||
GncInvoice* gnc_option_db_lookup_invoice_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncInvoice * default_value);
|
||||
|
||||
GncCustomer* gnc_option_db_lookup_customer_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncCustomer * default_value);
|
||||
|
||||
GncVendor* gnc_option_db_lookup_vendor_option(GNCOptionDB *odb,
|
||||
const char *section,
|
||||
const char *name,
|
||||
GncVendor * default_value);
|
||||
|
||||
|
||||
#endif /* GNC_BUSINESS_OPTIONS_UTILS_H_ */
|
||||
Loading…
Reference in new issue