← Back to branch summary

~ubuntu-branches/ubuntu/trusty/gnuradio/trusty-updates

« back to all changes in this revision

Viewing changes to pmt/src/lib/pmt_io.cc

  • Committer: Package Import Robot
  • Author(s): A. Maitland Bottoms
  • Date: 2012-02-26 21:26:16 UTC
  • mfrom: (1.1.4)
  • Revision ID: package-import@ubuntu.com-20120226212616-vsfkbi1158xshdql
Tags: 3.5.1-1
http://bugs.debian.org/642716
http://bugs.debian.org/645332
http://bugs.debian.org/394849
http://bugs.debian.org/616832
http://bugs.debian.org/590048
http://bugs.debian.org/642580
* new upstream version, re-packaged from scratch with modern tools
    closes: #642716, #645332, #394849, #616832, #590048, #642580,
    #647018, #557050, #559640, #631863
* CMake build

Show diffs side-by-side

added added

removed removed

Lines of Context:
pmt/src/lib/pmt_io.cc
1
 
/* -*- c++ -*- */
2
 
/*
3
 
 * Copyright 2006 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 <pmt.h>
27
 
#include "pmt_int.h"
28
 
#include <sstream>
29
 
 
30
 
static void
31
 
pmt_write_list_tail(pmt_t obj, std::ostream &port)
32
 
{
33
 
  pmt_write(pmt_car(obj), port); // write the car
34
 
  obj = pmt_cdr(obj);            // step to cdr
35
 
 
36
 
  if (pmt_is_null(obj))          // ()
37
 
    port << ")";
38
 
 
39
 
  else if (pmt_is_pair(obj)){    // normal list
40
 
    port << " ";
41
 
    pmt_write_list_tail(obj, port);
42
 
  }
43
 
  else {                         // dotted pair
44
 
    port << " . ";
45
 
    pmt_write(obj, port);
46
 
    port << ")";
47
 
  }
48
 
}
49
 
 
50
 
void
51
 
pmt_write(pmt_t obj, std::ostream &port)
52
 
{
53
 
  if (pmt_is_bool(obj)){
54
 
    if (pmt_is_true(obj))
55
 
      port << "#t";
56
 
    else
57
 
      port << "#f";
58
 
  }
59
 
  else if (pmt_is_symbol(obj)){
60
 
    port << pmt_symbol_to_string(obj);
61
 
  }
62
 
  else if (pmt_is_number(obj)){
63
 
    if (pmt_is_integer(obj))
64
 
      port << pmt_to_long(obj);
65
 
    else if (pmt_is_real(obj))
66
 
      port << pmt_to_double(obj);
67
 
    else if (pmt_is_complex(obj)){
68
 
      std::complex<double> c = pmt_to_complex(obj);
69
 
      port << c.real() << '+' << c.imag() << 'i';
70
 
    }
71
 
    else
72
 
      goto error;
73
 
  }
74
 
  else if (pmt_is_null(obj)){
75
 
    port << "()";
76
 
  }
77
 
  else if (pmt_is_pair(obj)){
78
 
    port << "(";
79
 
    pmt_write_list_tail(obj, port);
80
 
  }
81
 
  else if (pmt_is_dict(obj)){
82
 
    // FIXME
83
 
    // port << "#<dict " << obj << ">";
84
 
    port << "#<dict>";
85
 
  }
86
 
  else if (pmt_is_vector(obj)){
87
 
    // FIXME
88
 
    // port << "#<vector " << obj << ">";
89
 
    port << "#<vector>";
90
 
  }
91
 
  else if (pmt_is_uniform_vector(obj)){
92
 
    // FIXME
93
 
    // port << "#<uniform-vector " << obj << ">";
94
 
    port << "#<uniform-vector>";
95
 
  }
96
 
  else {
97
 
  error:
98
 
    // FIXME
99
 
    // port << "#<" << obj << ">";
100
 
    port << "#<unknown>";
101
 
  }
102
 
}
103
 
 
104
 
std::ostream& operator<<(std::ostream &os, pmt_t obj)
105
 
{
106
 
  pmt_write(obj, os);
107
 
  return os;
108
 
}
109
 
 
110
 
std::string 
111
 
pmt_write_string(pmt_t obj)
112
 
{
113
 
  std::ostringstream s;
114
 
  s << obj;
115
 
  return s.str();
116
 
}
117
 
 
118
 
pmt_t
119
 
pmt_read(std::istream &port)
120
 
{
121
 
  throw pmt_notimplemented("notimplemented: pmt_read", PMT_NIL);
122
 
}
123
 
 
124
 
void
125
 
pmt_serialize(pmt_t obj, std::ostream &sink)
126
 
{
127
 
  throw pmt_notimplemented("notimplemented: pmt_serialize", obj);
128
 
}
129
 
 
130
 
/*!
131
 
 * \brief Create obj from portable byte-serial representation
132
 
 */
133
 
pmt_t 
134
 
pmt_deserialize(std::istream &source)
135
 
{
136
 
  throw pmt_notimplemented("notimplemented: pmt_deserialize", PMT_NIL);
137
 
}
138