From a2b3291a8e0e389ade19af83e04a64cde264098e Mon Sep 17 00:00:00 2001 From: Dave Peticolas Date: Sat, 15 Sep 2001 07:03:55 +0000 Subject: [PATCH] Simplify startup (remove low-level app init). git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5379 57a11ea4-9604-0410-9ed3-97b8803252fd --- src/scm/main.scm | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/src/scm/main.scm b/src/scm/main.scm index dcb1e6ed9f..d89c53ea21 100644 --- a/src/scm/main.scm +++ b/src/scm/main.scm @@ -20,6 +20,8 @@ (use-modules (srfi srfi-1)) (use-modules (srfi srfi-8)) (use-modules (gnucash gnc-module)) +(use-modules (ice-9 slib)) +(require 'printf) ;; A list of things to do when in batch mode after the initial ;; startup. List items may be strings, in which case they're read and @@ -27,6 +29,20 @@ ;; The items will be done in reverse order. (define gnc:*batch-mode-things-to-do* '()) +(define (gnc:print-unstable-message) + (newline) + (newline) + (display (_ "This is a development version. It may or may not work.")) + (newline) + (display (_ "Report bugs and other problems to gnucash-devel@gnucash.org.")) + (newline) + (display (sprintf #f (_ "The last stable version was %s.") "GnuCash 1.6.2")) + (newline) + (display (sprintf #f (_ "The next stable version will be %s.") + "GnuCash 1.8.0")) + (newline) + (newline)) + (define (append-path pathname val) (let* ((current (getenv pathname)) (new-value (if current @@ -249,8 +265,7 @@ ;; Now the fun begins. (gnc:startup) - (if (not (= (gnc:lowlev-app-init) 0)) - (gnc:shutdown 0)) + (gnc:print-unstable-message) ;; add a hook to shut down the expression parser (gnc:hook-add-dangler gnc:*shutdown-hook* gnc:exp-parser-shutdown)