From 9386a4035eb495e600b1fc1465cbf6a536c5f66d Mon Sep 17 00:00:00 2001
From: Linas Vepstas <linas@linas.org>
Date: Wed, 9 Sep 1998 05:49:00 +0000
Subject: [PATCH] new files from Rob Browning

git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@1123 57a11ea4-9604-0410-9ed3-97b8803252fd
---
 src/swig/guile/gnucash-guile.c | 54 ++++++++++++++++++++++++++++++++++
 src/swig/guile/gnucash-guile.h |  6 ++++
 2 files changed, 60 insertions(+)
 create mode 100644 src/swig/guile/gnucash-guile.c
 create mode 100644 src/swig/guile/gnucash-guile.h

diff --git a/src/swig/guile/gnucash-guile.c b/src/swig/guile/gnucash-guile.c
new file mode 100644
index 0000000000..ba30147618
--- /dev/null
+++ b/src/swig/guile/gnucash-guile.c
@@ -0,0 +1,54 @@
+#include <stdio.h>
+#include <readline.h>
+#include <history.h>
+#include <guile/gh.h>
+#include <FileIO.h>
+
+static void
+guile_entry_point(int argc, char *argv[]) {
+  char *input;
+  gnucash_swig_init();
+  
+  input = readline("gnucash> ");
+  while(input) {
+    SCM result = gh_eval_str(input);
+    gh_display(result);
+    gh_newline();
+    add_history(input);
+    free(input);
+    input = readline("gnucash> ");
+  }
+}
+
+int
+main(int argc, char *argv[]) {
+  gh_enter(argc, argv, guile_entry_point);
+  return 0;
+}
+#include <stdio.h>
+#include <readline.h>
+#include <history.h>
+#include <guile/gh.h>
+#include <FileIO.h>
+
+static void
+guile_entry_point(int argc, char *argv[]) {
+  char *input;
+  xacc();
+  
+  input = readline("xacc> ");
+  while(input) {
+    SCM result = gh_eval_str(input);
+    gh_display(result);
+    gh_newline();
+    add_history(input);
+    free(input);
+    input = readline("xacc> ");
+  }
+}
+
+int
+main(int argc, char *argv[]) {
+  gh_enter(argc, argv, guile_entry_point);
+  return 0;
+}
diff --git a/src/swig/guile/gnucash-guile.h b/src/swig/guile/gnucash-guile.h
new file mode 100644
index 0000000000..aa5d0f0f1f
--- /dev/null
+++ b/src/swig/guile/gnucash-guile.h
@@ -0,0 +1,6 @@
+
+/* SWIG insists that the entry function to the module be gnucash(), so
+   we redirect the name */
+
+void
+gnucash_guile_init();