From 35a0021f1a77824d6b15d5efa04c28bdc1ed13a9 Mon Sep 17 00:00:00 2001
From: Rob Savoye
Date: Sun, 28 Nov 2010 19:06:56 -0700
Subject: add an init function to initialize the scm_xyzzy_* fucntions

---
 gr-run-waveform/xyzzy-load.c | 7 +++++++
 gr-run-waveform/xyzzy.h      | 2 ++
 2 files changed, 9 insertions(+)

diff --git a/gr-run-waveform/xyzzy-load.c b/gr-run-waveform/xyzzy-load.c
index 919b47702..695dba8f0 100644
--- a/gr-run-waveform/xyzzy-load.c
+++ b/gr-run-waveform/xyzzy-load.c
@@ -289,3 +289,10 @@ SCM_DEFINE (scm_xyzzy_search_path, "xyyzy-search-path", 2, 1, 0,
   return result;
 }
 #undef FUNC_NAME
+
+void
+scm_xyzzy_init (void)
+{
+    scm_c_define_gsubr ("xyzzy-search-path", 2, 1, 0, (SCM (*)()) scm_xyzzy_search_path);
+}
+
diff --git a/gr-run-waveform/xyzzy.h b/gr-run-waveform/xyzzy.h
index 766153835..2a01dd25a 100644
--- a/gr-run-waveform/xyzzy.h
+++ b/gr-run-waveform/xyzzy.h
@@ -121,6 +121,8 @@ int  xyzzy_fill_input (SCM port);
 void xyzzy_write (SCM port, const void *data, size_t size);
 void xyzzy_flush (SCM port);
 int  xyzzy_close (SCM port);
+
+void scm_xyzzy_init (void);
     
 // Initialize with the data file produced by gen-xyzzy.
 int xyzzy_init(char *filename);
-- 
cgit