* 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:
Rob Browning 2001-11-28 22:51:46 +00:00
parent cc5547711f
commit 09aa2bc529

View File

@ -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: