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