1 files changed, 0 insertions, 89 deletions
diff --git a/gr-run-waveform/test_embed.cc b/gr-run-waveform/test_embed.cc
deleted file mode 100644
index 93c5272a7..000000000
--- a/gr-run-waveform/test_embed.cc
+++ /dev/null
@@ -1,89 +0,0 @@
-/* -*- 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
-}