diff options
| author | Rob Savoye <rob@welcomehome.org> | 2010-11-28 19:06:56 -0700 |
|---|---|---|
| committer | Rob Savoye <rob@welcomehome.org> | 2010-11-28 19:06:56 -0700 |
| commit | 35a0021f1a77824d6b15d5efa04c28bdc1ed13a9 (patch) | |
| tree | df04c0d5ac4e9c5711b2f00ade23a7e3fdbf887c | |
| parent | 98f42ab8cfe4fa9fd69c584aa48bdaf0215fbad0 (diff) | |
add an init function to initialize the scm_xyzzy_* fucntions
| -rw-r--r-- | gr-run-waveform/xyzzy-load.c | 7 | ||||
| -rw-r--r-- | gr-run-waveform/xyzzy.h | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/gr-run-waveform/xyzzy-load.c b/gr-run-waveform/xyzzy-load.c index 919b47702f..695dba8f09 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 7661538359..2a01dd25a0 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); |