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

* src/scm/report/taxtxf.scm: don't use deprecated calls

Browse Source 
* src/guile/gnc.gwp: wrap xaccAccountGetSplitList

	* src/engine/Query-xml-parser-v1.c
	(qrestore_datepred_start_handler): use g_new0 instead of bzero --
	more portable


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@3910 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2001-04-09 06:07:07 +00:00
parent 3836c9f117
commit 31abed7557
3 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,5 +1,9 @@
2001-04-08 Dave Peticolas <dave@krondo.com> 2001-04-08 Dave Peticolas <dave@krondo.com>
* src/scm/report/taxtxf.scm: don't use deprecated calls
* src/guile/gnc.gwp: wrap xaccAccountGetSplitList
* src/engine/Query-xml-parser-v1.c * src/engine/Query-xml-parser-v1.c
(qrestore_datepred_start_handler): use g_new0 instead of bzero -- (qrestore_datepred_start_handler): use g_new0 instead of bzero --
more portable more portable

2
src/engine/sixtp-xml-write-utils.c
View File

@ -21,7 +21,7 @@
* * * *
********************************************************************/ ********************************************************************/
#include <config.h> #include "config.h"
#define _GNU_SOURCE #define _GNU_SOURCE

14
src/scm/report/taxtxf.scm
View File

@ -47,17 +47,9 @@
;; This and the next function are the same as in transaction-report.scm ;; This and the next function are the same as in transaction-report.scm
(define (make-split-list account split-filter-pred) (define (make-split-list account split-filter-pred)
(let ((num-splits (gnc:account-get-split-count account))) (filter split-filter-pred
(let loop ((index 0) (gnc:glist->list (gnc:account-get-split-list account)
(split (gnc:account-get-split account 0)) <gnc:Split*>)))
(slist '()))
(if (= index num-splits)
(reverse slist)
(loop (+ index 1)
(gnc:account-get-split account (+ index 1))
(if (split-filter-pred split)
(cons split slist)
slist))))))
;; returns a predicate that returns true only if a split is ;; returns a predicate that returns true only if a split is
;; between early-date and late-date ;; between early-date and late-date