* src/bin/gnucash.in: moved here from ../gnucash.sh.in. Now uses

gnucash-env to set up environment.


git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5948 57a11ea4-9604-0410-9ed3-97b8803252fd

src/bin/gnucash.in

@@ -0,0 +1,26 @@
+#!/bin/sh
+exec gnucash-env guile -s $0 "$@"
+!#
+
+(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))))
+
+(use-modules (gnucash bootstrap))
+
+;; 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)
+
+;; Local Variables:
+;; mode: scheme
+;; End: