From fe47016415028ee265e8451a779d8e1d8ec98923 Mon Sep 17 00:00:00 2001 From: Derek Atkins Date: Sat, 14 Sep 2002 18:24:15 +0000 Subject: [PATCH] Add more startup reporting.. show the modules loading git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@7210 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/main.scm | 40 ++++++++++++++++++++++++---------------- 1 file changed, 24 insertions(+), 16 deletions(-) diff --git a/src/scm/main.scm b/src/scm/main.scm index 166701d1eb..70618178c8 100644 --- a/src/scm/main.scm +++ b/src/scm/main.scm @@ -393,28 +393,35 @@ string and 'directories' must be a list of strings." (let ((original-module (current-module)) (bootstrap (resolve-module '(gnucash main)))) + (define (load-module name vers optional?) + (let ((str (string-append "Loading modules... " name))) + (gnc:update-splash-screen str) + (if optional? + (gnc:module-load-optional name vers) + (gnc:module-load name vers)))) + (set-current-module bootstrap) ;; right now we have to statically load all these at startup time. ;; Hopefully we can gradually make them autoloading. (gnc:update-splash-screen "Loading modules...") - (gnc:module-load "gnucash/engine" 0) + (load-module "gnucash/engine" 0 #f) - (gnc:module-load "gnucash/app-file" 0) - (gnc:module-load "gnucash/register/ledger-core" 0) - (gnc:module-load "gnucash/register/register-core" 0) - (gnc:module-load "gnucash/register/register-gnome" 0) - (gnc:module-load "gnucash/import-export/binary-import" 0) - (gnc:module-load "gnucash/import-export/qif-import" 0) - (gnc:module-load-optional "gnucash/import-export/ofx" 0) - (gnc:module-load-optional "gnucash/import-export/hbci" 0) - (gnc:module-load "gnucash/report/report-system" 0) - (gnc:module-load "gnucash/report/stylesheets" 0) - (gnc:module-load "gnucash/report/standard-reports" 0) - (gnc:module-load "gnucash/report/utility-reports" 0) - (gnc:module-load "gnucash/report/locale-specific/us" 0) - (gnc:module-load "gnucash/report/report-gnome" 0) - (gnc:module-load "gnucash/business-gnome" 0) + (load-module "gnucash/app-file" 0 #f) + (load-module "gnucash/register/ledger-core" 0 #f) + (load-module "gnucash/register/register-core" 0 #f) + (load-module "gnucash/register/register-gnome" 0 #f) + (load-module "gnucash/import-export/binary-import" 0 #f) + (load-module "gnucash/import-export/qif-import" 0 #f) + (load-module "gnucash/import-export/ofx" 0 #t) + (load-module "gnucash/import-export/hbci" 0 #t) + (load-module "gnucash/report/report-system" 0 #f) + (load-module "gnucash/report/stylesheets" 0 #f) + (load-module "gnucash/report/standard-reports" 0 #f) + (load-module "gnucash/report/utility-reports" 0 #f) + (load-module "gnucash/report/locale-specific/us" 0 #f) + (load-module "gnucash/report/report-gnome" 0 #f) + (load-module "gnucash/business-gnome" 0 #t) ;; files we should be able to load from the top-level because ;; they're "well behaved" (these should probably be in modules @@ -425,6 +432,7 @@ string and 'directories' must be a list of strings." ;; +jsled - 2002.07.08 (load-from-path "fin.scm") + (gnc:update-splash-screen "Loading tip-of-the-day...") (gnc:initialize-tip-of-the-day) (gnc:use-guile-module-here! '(gnucash price-quotes))