1 files changed, 89 insertions, 0 deletions
diff --git a/gr-run-waveform/test_embed.cc b/gr-run-waveform/test_embed.cc
new file mode 100644
index 000000000..93c5272a7
--- /dev/null
+++ b/gr-run-waveform/test_embed.cc
@@ -0,0 +1,89 @@
+/* -*- c++ -*- */
+/*
+ * Copyright 2010 Free Software Foundation, Inc.
+ * 
+ * This file is part of GNU Radio
+ * 
+ * GNU Radio is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3, or (at your option)
+ * any later version.
+ * 
+ * GNU Radio is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ * 
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Radio; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 51 Franklin Street,
+ * Boston, MA 02110-1301, USA.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <libguile.h>
+
+#include "xyzzy.h"
+
+/*
+ * Test our embedded version of guile
+ */
+
+static bool
+prepend_to_env(const char *name, const char *value)
+{
+  char *c_old = getenv(name);
+  std::string new_val;
+  if (c_old)
+    new_val = std::string(value) + std::string(":") + std::string(c_old);
+  else
+    new_val = std::string(value);
+
+  return setenv(name, new_val.c_str(), 1) == 0;
+}
+
+static const char *code = "\
+;;(set! %load-verbosely #t)				\n\
+							\n\
+(save-module-excursion					\n\
+ (lambda ()						\n\
+   (set-current-module (resolve-module '(guile)))	\n\
+   (set! primitive-load xyzzy-primitive-load)		\n\
+   (set! primitive-load-path xyzzy-primitive-load-path)	\n\
+   (set! search-path xyzzy-search-path)			\n\
+   (set! %search-load-path %xyzzy-search-load-path)))	\n\
+";
+
+static void
+inner_main (void *data, int argc, char **argv)
+{
+  // Load pseudo filesystem
+  if (!xyzzy_init("./filesystem.dat"))
+    exit(1);
+
+  // Initialize our gsubrs
+  scm_xyzzy_init();
+
+  // Override standard code with our gsubrs
+  scm_c_eval_string(code);
+
+  // REPL
+  scm_shell (argc, argv);
+}
+
+int
+main(int argc, char *argv[])
+{
+    // kill warnings
+    setenv("GUILE_WARN_DEPRECATED", "no", 1);
+
+    // where to find our files and libraries
+    prepend_to_env("GUILE_LOAD_PATH", "/-xyzzy-");
+    prepend_to_env("LTDL_LIBRARY_PATH", LIBDIR);
+    prepend_to_env("DYLD_LIBRARY_PATH", LIBDIR);
+
+    scm_boot_guile (argc, argv, inner_main, 0);
+
+    return 0; // never reached
+}