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

Simplify startup (remove low-level app init).

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5379 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas
2001-09-15 07:03:55 +00:00
parent 9e4a0d94a0
commit a2b3291a8e
1 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/scm/main.scm
View File

@@ -20,6 +20,8 @@
(use-modules (srfi srfi-1)) (use-modules (srfi srfi-1))
(use-modules (srfi srfi-8)) (use-modules (srfi srfi-8))
(use-modules (gnucash gnc-module)) (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 ;; 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 ;; 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. ;; The items will be done in reverse order.
(define gnc:*batch-mode-things-to-do* '()) (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) (define (append-path pathname val)
(let* ((current (getenv pathname)) (let* ((current (getenv pathname))
(new-value (if current (new-value (if current
@@ -249,8 +265,7 @@
;; Now the fun begins. ;; Now the fun begins.
(gnc:startup) (gnc:startup)
(if (not (= (gnc:lowlev-app-init) 0)) (gnc:print-unstable-message)
(gnc:shutdown 0))
;; add a hook to shut down the expression parser ;; add a hook to shut down the expression parser
(gnc:hook-add-dangler gnc:*shutdown-hook* gnc:exp-parser-shutdown) (gnc:hook-add-dangler gnc:*shutdown-hook* gnc:exp-parser-shutdown)