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

cash-flow.scm: Use a hashtable instead of a list.

Browse Source 
This removes O(n^2) behaviour in the number of splits.
This commit is contained in:
Peter Broadbery 2015-11-09 20:53:19 +00:00
parent 5ff205d41f
commit cca9cc7c22
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/report/standard-reports/cash-flow.scm
View File

@ -407,9 +407,15 @@
(all-splits (gnc:account-get-trans-type-splits-interval accounts '() from-date-tp to-date-tp))
(splits-to-do (length all-splits))
(seen-split-list '())
(splits-seen-table (make-hash-table))
(work-done 0))
(define (split-seen? split)
(if (split-hashtable-ref splits-seen-table split) #t
(begin
(split-hashtable-set! splits-seen-table split #t)
#f)))
(define (work-per-split split)
(set! work-done (+ 1 work-done))
(if (= (modulo work-done 100) 0)
@ -441,9 +447,8 @@
(not (null? s-account)) ;; any dangling splits
(or include-trading-accounts (not (eq? s-account-type ACCT-TYPE-TRADING)))
(not (account-in-list? s-account accounts)))
(if (not (split-in-list? s seen-split-list))
(if (not (split-seen? s))
(begin
(set! seen-split-list (cons s seen-split-list))
(if (gnc-numeric-negative-p s-value)
(let ((pair (account-in-alist s-account money-in-alist)))
;(gnc:debug "in:" (gnc-commodity-get-printname s-commodity)