IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6562 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2002-01-09 21:42:01 +00:00
parent 5a80312bb2
commit 4a3dd89550
3 changed files with 20 additions and 10 deletions

4
lib/guile-www/ChangeLog
View File

@ -1,3 +1,7 @@
2002-01-09 Rob Browning <rlb@defaultvalue.org>
* Makefile.am: handle conditional install inclusion of GUILE_WWW.
2001-12-08 Dave Peticolas <dave@krondo.com>
* Makefile.am (Repository): clean .scm-links

25
src/engine/glib-helpers.c
View File

@ -27,7 +27,7 @@
#include <string.h>
#include <glib.h>
#include <g-wrap-runtime-guile.h>
#include <g-wrap-wct.h>
#include "glib-helpers.h"
@ -72,15 +72,16 @@ gnc_scm_list_to_glist(SCM rest)
if (scm_item == SCM_BOOL_F)
{
result = g_list_prepend(result, NULL);
continue;
}
if (!gw_wcp_p(scm_item))
scm_misc_error("gnc_scm_list_to_glist",
"Item in list not a gw:wcp.", scm_item);
item = gw_wcp_get_ptr(scm_item);
result = g_list_prepend(result, item);
else
{
if (!gw_wcp_p(scm_item))
scm_misc_error("gnc_scm_list_to_glist",
"Item in list not a gw:wcp.", scm_item);
item = gw_wcp_get_ptr(scm_item);
result = g_list_prepend(result, item);
}
}
return g_list_reverse(result);
@ -120,6 +121,9 @@ gnc_glist_scm_for_each(SCM wct, SCM thunk, GList *glist)
/********************************************************************
* gnc_glist_string_to_scm
* i.e. (glist-of (<gw:mchars> calee-owned) callee-owned)
* or equivalently
* i.e. (glist-of (<gw:gchars> calee-owned) callee-owned)
********************************************************************/
SCM
gnc_glist_string_to_scm(GList *glist)
@ -138,6 +142,9 @@ gnc_glist_string_to_scm(GList *glist)
/********************************************************************
* gnc_scm_to_glist_string
* i.e. (glist-of (<gw:mchars> calee-owned) callee-owned)
* or equivalently
* i.e. (glist-of (<gw:gchars> calee-owned) callee-owned)
********************************************************************/
GList *

1
src/engine/gnc-engine-util.h
View File

@ -185,7 +185,6 @@ void gnc_set_logfile (FILE *outfile);
#define DEQEPS(x,y,eps) (((((x)+(eps))>(y)) ? 1 : 0) && ((((x)-(eps))<(y)) ? 1 : 0))
#define DEQ(x,y) DEQEPS(x,y,EPS)
#define SAFE_STRCMP(da,db) { \
if ((da) && (db)) { \
int retval = strcmp ((da), (db)); \