mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
79352e9683
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1374 57a11ea4-9604-0410-9ed3-97b8803252fd
38 lines
1.3 KiB
Scheme
38 lines
1.3 KiB
Scheme
;;;; startup.scm -*-scheme-*-
|
|
;;
|
|
;; Minimal startup code. This file should just contain enough code to
|
|
;; get the arguments parsed and things like gnc:*load-path* set up.
|
|
;; After that *everything* should be loaded via gnc:load.
|
|
|
|
;; This load should go away when guile gets fixed. as of guile1.3,
|
|
;; it's not. You have to do this manually, unless you call scm_shell,
|
|
;; which we can't.
|
|
(let ((boot-file (if (assoc 'prefix %guile-build-info)
|
|
(string-append (cdr (assoc 'prefix %guile-build-info))
|
|
"/share/guile/"
|
|
(version)
|
|
"/ice-9/boot-9.scm")
|
|
"/usr/share/guile/1.3a/ice-9/boot-9.scm")))
|
|
(primitive-load boot-file))
|
|
|
|
;; Automatically generated defaults...
|
|
(define gnc:_config-dir-default_ "@GNC_RUNTIME_CONFIGDIR@")
|
|
(define gnc:_share-dir-default_ "@GNC_RUNTIME_SHAREDIR@")
|
|
|
|
(let ((lowlev-files
|
|
'("utilities.scm"
|
|
"config-var.scm"
|
|
"path.scm"
|
|
"prefs.scm"
|
|
"command-line.scm"
|
|
"main.scm")))
|
|
|
|
(for-each (lambda (filename)
|
|
(display "loading startup file ")
|
|
(display (string-append gnc:_startup-dir-default_ "/" filename))
|
|
(newline)
|
|
|
|
(primitive-load
|
|
(string-append gnc:_startup-dir-default_ "/" filename)))
|
|
lowlev-files))
|