From 48ccae8cdacfdd30d277ba3d70e751bfbd985ce0 Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Tue, 4 Dec 2001 23:03:42 +0000 Subject: [PATCH] * src/scm/depend.scm: deleted. git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6209 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/depend.scm | 44 -------------------------------------------- 1 file changed, 44 deletions(-) delete mode 100644 src/scm/depend.scm diff --git a/src/scm/depend.scm b/src/scm/depend.scm deleted file mode 100644 index be60648a34..0000000000 --- a/src/scm/depend.scm +++ /dev/null @@ -1,44 +0,0 @@ -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 2 of -;; the License, or (at your option) any later version. -;; -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with this program; if not, contact: -;; -;; Free Software Foundation Voice: +1-617-542-5942 -;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 -;; Boston, MA 02111-1307, USA gnu@gnu.org - -(define gnc:*_supported-files_* (make-hash-table 101)) -;; Record of files that have already been loaded. We don't do -;; anything other than record the name that the file tells us (via -;; gnc:support) that it provides. The size of this table should -;; roughly depend on the number of .scm files in the source tree. - -(define (gnc:support name) - (hash-set! gnc:*_supported-files_* name #t)) - -(define (gnc:depend name) - (let ((supported? (hash-ref gnc:*_supported-files_* name)) - (time-load? #t)) - (if supported? - #t - (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)))))