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@2107 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-03-23 22:22:43 +00:00
parent 8849492dc4
commit 2537fff208
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/scm/report/average-balance.scm
View File

@ -273,28 +273,32 @@
(gnuplot-reduced-list (cdr list)))))
;; Pull a scheme list of splits from a C array
(define (gnc:convert-split-list slist)
(let loop ((index 0)
(split (gnc:ith-split slist 0)))
(if (pointer-token-null? split)
'()
(cons split (loop (+ index 1)
(gnc:ith-split slist (+ index 1)))))))
(define (gnc:convert-split-list split-array)
(let ((slist '()))
(let loop ((index 0)
(split (gnc:ith-split split-array 0)))
(if (pointer-token-null? split)
(reverse slist)
(begin
(set! slist (cons split slist))
(loop (+ index 1)
(gnc:ith-split split-array (+ index 1))))))))
;; Pull a scheme list of accounts (including subaccounts) from group grp
(define (gnc:group-get-account-list grp)
(if (pointer-token-null? grp)
'()
(let ((account-array (gnc:get-accounts grp)))
(let loop
((index 0)
(account (gnc:account-nth-account account-array 0)))
(let ((account-list '())
(account-array (gnc:get-accounts grp)))
(let loop ((index 0)
(account (gnc:account-nth-account account-array 0)))
(if (pointer-token-null? account)
'()
(cons account
(loop (+ index 1)
(gnc:account-nth-account account-array
(+ index 1)))))))))
(reverse account-list)
(begin
(set! account-list (cons account account-list))
(loop (+ index 1)
(gnc:account-nth-account account-array
(+ index 1)))))))))
(define (accumvects x y)
(cond