From 74162820f547ced9cf09a6deebcb757099d4d3b4 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Mon, 18 Jun 2001 16:47:48 +0000 Subject: [PATCH] * src/scm/depend.scm (gnc:depend): add optional timing facility. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@4731 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/depend.scm | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/src/scm/depend.scm b/src/scm/depend.scm index ffe65d986a..be60648a34 100644 --- a/src/scm/depend.scm +++ b/src/scm/depend.scm @@ -25,7 +25,20 @@ (hash-set! gnc:*_supported-files_* name #t)) (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? #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)))))