git.gag.com Git - debian/gnuradio/blob - gruel/src/lib/pmt/pmt_io.cc

   1 /* -*- c++ -*- */
   2 /*
   3  * Copyright 2006,2009 Free Software Foundation, Inc.
   4  *
   5  * This file is part of GNU Radio
   6  *
   7  * GNU Radio is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 3, or (at your option)
  10  * any later version.
  11  *
  12  * GNU Radio is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License along
  18  * with this program; if not, write to the Free Software Foundation, Inc.,
  19  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20  */
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include <config.h>
  24 #endif
  25 #include <vector>
  26 #include <gruel/pmt.h>
  27 #include "pmt_int.h"
  28 #include <sstream>
  29
  30 namespace pmt {
  31
  32 static void
  33 pmt_write_list_tail(pmt_t obj, std::ostream &port)
  34 {
  35   pmt_write(pmt_car(obj), port); // write the car
  36   obj = pmt_cdr(obj);            // step to cdr
  37
  38   if (pmt_is_null(obj))          // ()
  39     port << ")";
  40
  41   else if (pmt_is_pair(obj)){    // normal list
  42     port << " ";
  43     pmt_write_list_tail(obj, port);
  44   }
  45   else {                         // dotted pair
  46     port << " . ";
  47     pmt_write(obj, port);
  48     port << ")";
  49   }
  50 }
  51
  52 void
  53 pmt_write(pmt_t obj, std::ostream &port)
  54 {
  55   if (pmt_is_bool(obj)){
  56     if (pmt_is_true(obj))
  57       port << "#t";
  58     else
  59       port << "#f";
  60   }
  61   else if (pmt_is_symbol(obj)){
  62     port << pmt_symbol_to_string(obj);
  63   }
  64   else if (pmt_is_number(obj)){
  65     if (pmt_is_integer(obj))
  66       port << pmt_to_long(obj);
  67     else if (pmt_is_uint64(obj))
  68       port << pmt_to_uint64(obj);
  69     else if (pmt_is_real(obj))
  70       port << pmt_to_double(obj);
  71     else if (pmt_is_complex(obj)){
  72       std::complex<double> c = pmt_to_complex(obj);
  73       port << c.real() << '+' << c.imag() << 'i';
  74     }
  75     else
  76       goto error;
  77   }
  78   else if (pmt_is_null(obj)){
  79     port << "()";
  80   }
  81   else if (pmt_is_pair(obj)){
  82     port << "(";
  83     pmt_write_list_tail(obj, port);
  84   }
  85   else if (pmt_is_tuple(obj)){
  86     port << "{";
  87     size_t len = pmt_length(obj);
  88     if (len > 0){
  89       port << pmt_tuple_ref(obj, 0);
  90       for (size_t i = 1; i < len; i++)
  91         port << " " << pmt_tuple_ref(obj, i);
  92     }
  93     port << "}";
  94   }
  95   else if (pmt_is_vector(obj)){
  96     port << "#(";
  97     size_t len = pmt_length(obj);
  98     if (len > 0){
  99       port << pmt_vector_ref(obj, 0);
 100       for (size_t i = 1; i < len; i++)
 101         port << " " << pmt_vector_ref(obj, i);
 102     }
 103     port << ")";
 104   }
 105   else if (pmt_is_dict(obj)){
 106     // FIXME
 107     // port << "#<dict " << obj << ">";
 108     port << "#<dict>";
 109   }
 110   else if (pmt_is_uniform_vector(obj)){
 111     // FIXME
 112     // port << "#<uniform-vector " << obj << ">";
 113     port << "#<uniform-vector>";
 114   }
 115   else {
 116   error:
 117     // FIXME
 118     // port << "#<" << obj << ">";
 119     port << "#<unknown>";
 120   }
 121 }
 122
 123 std::ostream& operator<<(std::ostream &os, pmt_t obj)
 124 {
 125   pmt_write(obj, os);
 126   return os;
 127 }
 128
 129 std::string
 130 pmt_write_string(pmt_t obj)
 131 {
 132   std::ostringstream s;
 133   s << obj;
 134   return s.str();
 135 }
 136
 137 pmt_t
 138 pmt_read(std::istream &port)
 139 {
 140   throw pmt_notimplemented("notimplemented: pmt_read", PMT_NIL);
 141 }
 142
 143 void
 144 pmt_serialize(pmt_t obj, std::ostream &sink)
 145 {
 146   throw pmt_notimplemented("notimplemented: pmt_serialize", obj);
 147 }
 148
 149 /*!
 150  * \brief Create obj from portable byte-serial representation
 151  */
 152 pmt_t
 153 pmt_deserialize(std::istream &source)
 154 {
 155   throw pmt_notimplemented("notimplemented: pmt_deserialize", PMT_NIL);
 156 }
 157
 158 } /* namespace pmt */