summaryrefslogtreecommitdiff
path: root/gr-run-waveform/test_xyzzy.cc
diff options
context:
space:
mode:
Diffstat (limited to 'gr-run-waveform/test_xyzzy.cc')
-rw-r--r--gr-run-waveform/test_xyzzy.cc280
1 files changed, 0 insertions, 280 deletions
diff --git a/gr-run-waveform/test_xyzzy.cc b/gr-run-waveform/test_xyzzy.cc
deleted file mode 100644
index cd4cd3283..000000000
--- a/gr-run-waveform/test_xyzzy.cc
+++ /dev/null
@@ -1,280 +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 <cstdio>
-#include <cstdlib>
-#include <string>
-#include <iostream>
-#include <fstream>
-#include <libguile.h>
-#include <boost/cstdint.hpp>
-#include <boost/shared_ptr.hpp>
-#include <boost/shared_array.hpp>
-
-// Include our definitions
-#include "xyzzy.h"
-
-using namespace std;
-
-boost::uint8_t hex2digit(boost::uint8_t digit);
-boost::shared_array<boost::uint8_t> hex2mem(const std::string &str);
-
-static void
-inner_main (void *data, int argc, char **argv)
-{
- fprintf(stderr, "TRACE %s: %d\n", __FUNCTION__, __LINE__);
- scm_xyzzy_init();
-
- string srcdir = SRCDIR;
-
- // Lasd readline, as it makes life on he guile command lne
- string file = srcdir;
- file += "/guile/readline.scm";
- scm_c_primitive_load (file.c_str());
-
- file = srcdir;
- file += "/guile/simple.scm";
- SCM simple = scm_c_primitive_load (file.c_str());
- if (scm_is_true(scm_c_primitive_load (file.c_str()))) {
- fprintf(stderr, "PASSED: loading simple.scm\n");
- } else {
- fprintf(stderr, "FAILED: loading simple.scm\n" );
- }
- SCM s_symbol = scm_c_lookup("result1");
- SCM s_value = scm_variable_ref(s_symbol);
- if (scm_to_locale_string(s_value) == string("/usr/share/guile/1.8/ice-9/boot-9.scm")) {
- fprintf(stderr, "PASSED: search-path from C\n");
- } else {
- fprintf(stderr, "FAILED: search-path from C\n" );
- }
-
- s_symbol = scm_c_lookup("result2");
- s_value = scm_variable_ref(s_symbol);
- if (scm_to_locale_string(s_value) == string("/usr/share/guile/1.8/ice-9/boot-9.scm")) {
- fprintf(stderr, "PASSED: search-path path-with-xyzzy from C\n");
- } else {
- fprintf(stderr, "FAILED: search-path path-with-xyzzy from C\n" );
- }
- s_symbol = scm_c_lookup("result3");
- s_value = scm_variable_ref(s_symbol);
- if (scm_to_locale_string(s_value) == string("/usr/share/guile/1.8/ice-9/boot-9.scm")) {
- fprintf(stderr, "PASSED: xyzzy-search from C\n");
- } else {
- fprintf(stderr, "FAILED: xyzzy-search from C\n" );
- }
- s_symbol = scm_c_lookup("result4");
- s_value = scm_variable_ref(s_symbol);
- if (scm_to_locale_string(s_value) == string("/-xyzzy-/ice-9/boot-9.scm")) {
- fprintf(stderr, "PASSED: xyzzy-search-path path-with-xyzzy from C\n");
- } else {
- fprintf(stderr, "FAILED: xyzzy-search-path path-with-xyzzy from C\n" );
- }
-
- // This test loads a scheme test case that defines a 'cat' function to
- // spew the contents of the file from our fake file system.
- file = srcdir;
- file += "/guile/cat.scm";
- if (scm_is_true(scm_c_primitive_load (file.c_str()))) {
- fprintf(stderr, "PASSED: loading cat.scm\n");
- } else {
- fprintf(stderr, "FAILED: loading cat.scm\n" );
- }
- // It tacky, but the test case defines the name of this input
- // port as 'foo'. So make sure that's what we got...
- s_symbol = scm_c_lookup("foo");
- // Get the handle to the port
- s_value = scm_variable_ref(s_symbol);
- SCM result = scm_input_port_p (s_value);
- if (scm_is_true(result)) {
- fprintf(stderr, "PASSED: make-gnuradio-port()\n");
- } else {
- fprintf(stderr, "FAILED: make-gnuradio-port()\n" );
- }
-
- if (scm_char_ready_p (s_value)) {
- fprintf(stderr, "PASSED: scm_char_ready_p()\n");
- } else {
- fprintf(stderr, "FAILED: scm_char_ready_p()\n" );
- }
-
- char *bar[20];
- if (scm_c_read(s_value, bar, 10)) {
- fprintf(stderr, "PASSED: read from port\n");
- } else {
- fprintf(stderr, "FAILED: read from port\n" );
- }
-
- result = scm_output_port_p (s_value);
- if (scm_is_true(result)) {
- fprintf(stderr, "FAILED: make-gnuradio-port()\n");
- } else {
- fprintf(stderr, "PASSED: make-gnuradio-port()\n" );
- }
-
- scm_flush_all_ports();
- scm_shell (argc, argv);
-}
-
-int
-main(int argc, char *argv[])
-{
- // Test static methods
- string hello("Hello World!");
- boost::uint8_t *hi = reinterpret_cast<boost::uint8_t *>(const_cast<char *>
- (hello.c_str()));
- struct string_entry entry = {
- 12,
- hi
- };
-
- if (XYZZY::read_string(entry) == hello) {
- cout << "PASSED: XYZZY::read_string(struct string_entry &)" << endl;
- } else {
- cout << "FAILED: XYZZY::read_string(struct string_entry &)" << endl;
- }
-
- if (XYZZY::read_string(hi, hello.size()) == hello) {
- cout << "PASSED: XYZZY::read_string(struct string_entry &)" << endl;
- } else {
- cout << "FAILED: XYZZY::read_string(struct string_entry &)" << endl;
- }
-
- // Test other methods
- XYZZY xyzzy;
-
- string fake_magic("-XyZzY-");
- boost::shared_array<boost::uint8_t> fake_header_data = hex2mem(
- "2d 58 79 5a 7a 59 2d 00 00 00 00 1c 00 00 05 e8 00 00 00 bd 00 00 06 04 00 21 ee 58");
- boost::shared_ptr<struct header> head = xyzzy.read_header(fake_header_data.get());
- if ((head->magic == fake_magic)
- && (head->offset_to_directory == 28)
- && (head->size_of_directory == 1512)
- && (head->number_of_dir_entries == 189)
- && (head->offset_to_strings == 1540)
- && (head->size_of_strings == 2223704)) {
- cout << "PASSED: XYZZY::read_header()" << endl;
- } else {
- cout << "FAILED: XYZZY::read_header()" << endl;
- }
-
-#if 0
- if (xyzzy.init()) {
- cout << "PASSED: XYZZY::init()" << endl;
- } else {
- cout << "FAILED: XYZZY::init()" << endl;
- }
-#endif
-
- // Look for a file to exist, which shouldn't as we haven't loaded the data
- if (xyzzy_file_exists("srfi/srfi-35.scm")) {
- cout << "FAILED: xyzzy_file_exists(not yet)" << endl;
- } else {
- cout << "PASSED: xyzzy_file_exists(not yet)" << endl;
- }
-
- // Initialize with the data file produced by gen-xyzzy.
- string fullspec = "./filesystem.dat";
- char *name = const_cast<char *>(fullspec.c_str());
- if (xyzzy_init(name)) {
- cout << "PASSED: xyzzy_init()" << endl;
- } else {
- cout << "FAILED: xyzzy_init()" << endl;
- }
-
- // Does a file with name 'filename' exist in magic filesystem?
- if (xyzzy_file_exists("srfi/srfi-35.scm")) {
- cout << "FAILED: xyzzy_file_exists(shouldn't exist)" << endl;
- } else {
- cout << "PASSED: xyzzy_file_exists(shouldn't exist)" << endl;
- }
-
- // Does a file with name 'filename' exist in magic filesystem?
- if (xyzzy_file_exists("/-xyzzy-/srfi/srfi-35.scm")) {
- cout << "PASSED: xyzzy_file_exists(should exist)" << endl;
- } else {
- cout << "FAILED: xyzzy_file_exists(should exist)" << endl;
- }
-
- // Does a file with name 'filename' exist in magic filesystem?
- if (xyzzy_file_exists("/-xyzzy-/srfi/srfi-99.scm")) {
- cout << "FAILED: xyzzy_file_exists(shouldn't exist)" << endl;
- } else {
- cout << "PASSED: xyzzy_file_exists(shouldn't exist)" << endl;
- }
-
- scm_boot_guile (argc, argv, inner_main, 0);
-}
-
-
-/// \brief Convert a Hex digit into it's decimal value.
-///
-/// @param digit The digit as a hex value
-///
-/// @return The byte as a decimal value.
-boost::uint8_t
-hex2digit (boost::uint8_t digit)
-{
- if (digit == 0)
- return 0;
-
- if (digit >= '0' && digit <= '9')
- return digit - '0';
- if (digit >= 'a' && digit <= 'f')
- return digit - 'a' + 10;
- if (digit >= 'A' && digit <= 'F')
- return digit - 'A' + 10;
-
- // shouldn't ever get this far
- return -1;
-}
-
-/// \brief Encode a Buffer from a hex string.
-///
-/// @param str A hex string, ex... "00 03 05 0a"
-///
-/// @return A reference to a Buffer in host endian format. This is
-/// primary used only for testing to create binary data
-/// from an easy to read and edit format.
-boost::shared_array<boost::uint8_t>
-hex2mem(const std::string &str)
-{
-// GNASH_REPORT_FUNCTION;
- size_t count = str.size();
-
- size_t size = (count/3) + 4;
- boost::uint8_t ch = 0;
-
- boost::shared_array<boost::uint8_t> data(new boost::uint8_t[count]);
-
- size_t j = 0;
- for (size_t i=0; i<count; i++) {
- if (str[i] == ' ') { // skip spaces.
- continue;
- }
- ch = hex2digit(str[i]) << 4;
- ch |= hex2digit(str[i+1]);
- data[j++] = ch;
- i++;
- }
-
- return data;
-}
generated by cgit (git 2.34.1) at 2024-12-21 11:03:32 +0000