From 898d0ea35cd07ad13a3f83e7c0f630bdcaa67286 Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@cs.utexas.edu>
Date: Wed, 21 Nov 2001 17:14:48 +0000
Subject: [PATCH] * src/bin/gnucash-run-script.in: moved here from ..

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@5947 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/bin/gnucash-run-script.in | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 src/bin/gnucash-run-script.in

diff --git a/src/bin/gnucash-run-script.in b/src/bin/gnucash-run-script.in
new file mode 100644
index 0000000000..348cb9b048
--- /dev/null
+++ b/src/bin/gnucash-run-script.in
@@ -0,0 +1,32 @@
+#!/bin/sh
+
+export GNC_MODULE_PATH="${GNC_MODULE_PATH}:@-GNC_PKGLIB_INSTALLDIR-@"
+export GUILE_LOAD_PATH="${GUILE_LOAD_PATH}:@-G_WRAP_MODULE_DIR-@:@-GNC_GUILE_MODULE_DIR-@:@-GNC_SCM_INSTALL_DIR-@"
+export LTDL_LIBRARY_PATH="${LTDL_LIBRARY_PATH}:${GNC_MODULE_PATH}:@-GNC_LIB_INSTALLDIR-@"
+export LD_LIBRARY_PATH="${LD_LIBRARY_PATH}:${GNC_MODULE_PATH}:@-GNC_LIB_INSTALLDIR-@"
+
+GUILE="@-GUILE-@"
+if test "${GNC_SCRIPT}"x != x; then
+  GUILE="${GNC_GUILE}"
+fi
+export GUILE
+
+if test "${GNC_SCRIPT}"x != x; then
+  exec ${GNC_SCRIPT} "$@"
+fi
+
+exec ${GUILE} -s "$0" "$@"
+!#
+
+(if (null? (cdr (program-arguments)))
+    (error (string-append "Usage: "
+                          (car (program-arguments))
+                          " script [arg ...]")))
+
+(define guile (getenv "GUILE"))
+
+(apply execlp guile guile "-s" (cdr (program-arguments)))
+
+;; Local Variables:
+;; mode: scheme
+;; End: