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/depend.scm (gnc:depend): add optional timing facility.

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4731 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Rob Browning 2001-06-18 16:47:48 +00:00
parent 5ab671c635
commit 74162820f5
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/scm/depend.scm
View File

@ -25,7 +25,20 @@
(hash-set! gnc:*_supported-files_* name #t)) (hash-set! gnc:*_supported-files_* name #t))
(define (gnc:depend name) (define (gnc:depend name)
(let ((supported? (hash-ref gnc:*_supported-files_* name))) (let ((supported? (hash-ref gnc:*_supported-files_* name))
(time-load? #t))
(if supported? (if supported?
#t #t
(gnc:load name)))) (if time-load?
(let* ((start-time (gettimeofday))
(result (gnc:load name))
(end-time (gettimeofday)))
(simple-format #t
"~A elapsed load time for ~A\n"
(+ (- (car end-time) (car start-time))
(/ (- (cdr end-time) (cdr start-time))
1000000))
name)
result)
(gnc:load name)))))