Imported Upstream version 3.2.2
[debian/gnuradio] / pmt / src / lib / pmt_int.h
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
18  * along with GNU Radio; see the file COPYING.  If not, write to
19  * the Free Software Foundation, Inc., 51 Franklin Street,
20  * Boston, MA 02110-1301, USA.
21  */
22 #ifndef INCLUDED_PMT_INT_H
23 #define INCLUDED_PMT_INT_H
24
25 #include <pmt.h>
26 #include <boost/utility.hpp>
27
28 /*
29  * EVERYTHING IN THIS FILE IS PRIVATE TO THE IMPLEMENTATION!
30  *
31  * See pmt.h for the public interface
32  */
33
34 #define PMT_LOCAL_ALLOCATOR 0           // define to 0 or 1
35
36 class pmt_base : boost::noncopyable {
37 protected:
38   pmt_base(){};
39   virtual ~pmt_base();
40
41 public:
42   virtual bool is_bool()    const { return false; }
43   virtual bool is_symbol()  const { return false; }
44   virtual bool is_number()  const { return false; }
45   virtual bool is_integer() const { return false; }
46   virtual bool is_real()    const { return false; }
47   virtual bool is_complex() const { return false; }
48   virtual bool is_null()    const { return false; }
49   virtual bool is_pair()    const { return false; }
50   virtual bool is_vector()  const { return false; }
51   virtual bool is_dict()    const { return false; }
52   virtual bool is_any()     const { return false; }
53
54   virtual bool is_uniform_vector() const { return false; }
55   virtual bool is_u8vector()  const { return false; }
56   virtual bool is_s8vector()  const { return false; }
57   virtual bool is_u16vector() const { return false; }
58   virtual bool is_s16vector() const { return false; }
59   virtual bool is_u32vector() const { return false; }
60   virtual bool is_s32vector() const { return false; }
61   virtual bool is_u64vector() const { return false; }
62   virtual bool is_s64vector() const { return false; }
63   virtual bool is_f32vector() const { return false; }
64   virtual bool is_f64vector() const { return false; }
65   virtual bool is_c32vector() const { return false; }
66   virtual bool is_c64vector() const { return false; }
67
68 # if (PMT_LOCAL_ALLOCATOR)
69   void *operator new(size_t);
70   void operator delete(void *, size_t);
71 #endif
72 };
73
74 class pmt_bool : public pmt_base
75 {
76 public:
77   pmt_bool();
78   //~pmt_bool(){}
79
80   bool is_bool() const { return true; }
81 };
82
83
84 class pmt_symbol : public pmt_base
85 {
86   std::string   d_name;
87   pmt_t         d_next;
88   
89 public:
90   pmt_symbol(const std::string &name);
91   //~pmt_symbol(){}
92
93   bool is_symbol() const { return true; }
94   const std::string name() { return d_name; }
95
96   pmt_t next() { return d_next; }               // symbol table link
97   void set_next(pmt_t next) { d_next = next; }
98 };
99
100 class pmt_integer : public pmt_base
101 {
102   long          d_value;
103
104 public:
105   pmt_integer(long value);
106   //~pmt_integer(){}
107
108   bool is_number()  const { return true; }
109   bool is_integer() const { return true; }
110   long value() const { return d_value; }
111 };
112
113 class pmt_real : public pmt_base
114 {
115   double        d_value;
116
117 public:
118   pmt_real(double value);
119   //~pmt_real(){}
120
121   bool is_number()  const { return true; }
122   bool is_real() const { return true; }
123   double value() const { return d_value; }
124 };
125
126 class pmt_complex : public pmt_base
127 {
128   std::complex<double>  d_value;
129
130 public:
131   pmt_complex(std::complex<double> value);
132   //~pmt_complex(){}
133
134   bool is_number()  const { return true; }
135   bool is_complex() const { return true; }
136   std::complex<double> value() const { return d_value; }
137 };
138
139 class pmt_null  : public pmt_base
140 {
141 public:
142   pmt_null();
143   //~pmt_null(){}
144
145   bool is_null() const { return true; }
146 };
147
148 class pmt_pair : public pmt_base
149 {
150   pmt_t         d_car;
151   pmt_t         d_cdr;
152
153 public:
154   pmt_pair(pmt_t car, pmt_t cdr);
155   //~pmt_pair(){};
156
157   bool is_pair() const { return true; }
158   pmt_t car() const { return d_car; }
159   pmt_t cdr() const { return d_cdr; }
160
161   void set_car(pmt_t car) { d_car = car; }
162   void set_cdr(pmt_t cdr) { d_cdr = cdr; }
163 };
164
165 class pmt_vector : public pmt_base
166 {
167   std::vector<pmt_t>    d_v;
168
169 public:
170   pmt_vector(size_t len, pmt_t fill);
171   //~pmt_vector();
172
173   bool is_vector() const { return true; }
174   pmt_t ref(size_t k) const;
175   void  set(size_t k, pmt_t obj);
176   void  fill(pmt_t fill);
177   size_t length() const { return d_v.size(); }
178
179   pmt_t _ref(size_t k) const { return d_v[k]; }
180 };
181
182 class pmt_dict : public pmt_base
183 {
184   pmt_t         d_alist;        // list of (key . value) pairs
185
186 public:
187   pmt_dict();
188   //~pmt_dict();
189
190   bool  is_dict() const { return true; }
191   void  set(pmt_t key, pmt_t value);
192   pmt_t ref(pmt_t key, pmt_t default_value) const;
193   bool  has_key(pmt_t key) const;
194   pmt_t items() const;
195   pmt_t keys() const;
196   pmt_t values() const;
197 };
198
199 class pmt_any : public pmt_base
200 {
201   boost::any    d_any;
202
203 public:
204   pmt_any(const boost::any &any);
205   //~pmt_any();
206
207   bool is_any() const { return true; }
208   const boost::any &ref() const { return d_any; }
209   void  set(const boost::any &any) { d_any = any; }
210 };
211
212
213 class pmt_uniform_vector : public pmt_base
214 {
215 public:
216   bool is_uniform_vector() const { return true; }
217   virtual const void *uniform_elements(size_t &len) = 0;
218   virtual void *uniform_writable_elements(size_t &len) = 0;
219   virtual size_t length() const = 0;
220 };
221
222 #include "pmt_unv_int.h"
223
224 #endif /* INCLUDED_PMT_INT_H */