mirror of
https://github.com/Gnucash/gnucash.git
synced 2025-02-25 18:55:30 -06:00
* src/bin/gnucash.in: removed.
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@6111 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
parent
cc5547711f
commit
09aa2bc529
@ -1,26 +0,0 @@
|
||||
#!/bin/sh
|
||||
exec @-GNUCASH_ENV-@ @-GUILE-@ -e main -s $0 "$@"
|
||||
!#
|
||||
|
||||
(use-modules (gnucash bootstrap))
|
||||
|
||||
(define (main args)
|
||||
;; UGLY HACK -- FIXME -- code should be rewritten to not need this.
|
||||
;; In particular, we should be using gnc_scm_lookup where we're using
|
||||
;; gh_lookup or gh_eval_str now.
|
||||
(set-current-module (resolve-module '(gnucash bootstrap)))
|
||||
(gnc:main))
|
||||
|
||||
(let ((lib (if (or (string=? (version) "1.3")
|
||||
(string=? (version) "1.3.4"))
|
||||
(dynamic-link "libgncguile.so")
|
||||
(dynamic-link "libgncguile"))))
|
||||
(if lib
|
||||
(dynamic-call "gnc_setup_gettext" lib)
|
||||
(begin
|
||||
(display "Can't load libgncguile. Aborting.\n")
|
||||
(exit 1))))
|
||||
|
||||
;; Local Variables:
|
||||
;; mode: scheme
|
||||
;; End:
|
Loading…
Reference in New Issue
Block a user