3 * Copyright 2006 Free Software Foundation, Inc.
5 * This file is part of GNU Radio
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)
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.
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.
22 #ifndef INCLUDED_PMT_INT_H
23 #define INCLUDED_PMT_INT_H
26 #include <boost/utility.hpp>
29 * EVERYTHING IN THIS FILE IS PRIVATE TO THE IMPLEMENTATION!
31 * See pmt.h for the public interface
34 #define PMT_LOCAL_ALLOCATOR 0 // define to 0 or 1
36 class pmt_base : boost::noncopyable {
37 mutable boost::detail::atomic_count count_;
40 pmt_base() : count_(0) {};
44 virtual bool is_bool() const { return false; }
45 virtual bool is_symbol() const { return false; }
46 virtual bool is_number() const { return false; }
47 virtual bool is_integer() const { return false; }
48 virtual bool is_real() const { return false; }
49 virtual bool is_complex() const { return false; }
50 virtual bool is_null() const { return false; }
51 virtual bool is_pair() const { return false; }
52 virtual bool is_vector() const { return false; }
53 virtual bool is_dict() const { return false; }
54 virtual bool is_any() const { return false; }
56 virtual bool is_uniform_vector() const { return false; }
57 virtual bool is_u8vector() const { return false; }
58 virtual bool is_s8vector() const { return false; }
59 virtual bool is_u16vector() const { return false; }
60 virtual bool is_s16vector() const { return false; }
61 virtual bool is_u32vector() const { return false; }
62 virtual bool is_s32vector() const { return false; }
63 virtual bool is_u64vector() const { return false; }
64 virtual bool is_s64vector() const { return false; }
65 virtual bool is_f32vector() const { return false; }
66 virtual bool is_f64vector() const { return false; }
67 virtual bool is_c32vector() const { return false; }
68 virtual bool is_c64vector() const { return false; }
70 friend void intrusive_ptr_add_ref(pmt_base* p);
71 friend void intrusive_ptr_release(pmt_base* p);
73 # if (PMT_LOCAL_ALLOCATOR)
74 void *operator new(size_t);
75 void operator delete(void *, size_t);
79 class pmt_bool : public pmt_base
85 bool is_bool() const { return true; }
89 class pmt_symbol : public pmt_base
95 pmt_symbol(const std::string &name);
98 bool is_symbol() const { return true; }
99 const std::string name() { return d_name; }
101 pmt_t next() { return d_next; } // symbol table link
102 void set_next(pmt_t next) { d_next = next; }
105 class pmt_integer : public pmt_base
110 pmt_integer(long value);
113 bool is_number() const { return true; }
114 bool is_integer() const { return true; }
115 long value() const { return d_value; }
118 class pmt_real : public pmt_base
123 pmt_real(double value);
126 bool is_number() const { return true; }
127 bool is_real() const { return true; }
128 double value() const { return d_value; }
131 class pmt_complex : public pmt_base
133 std::complex<double> d_value;
136 pmt_complex(std::complex<double> value);
139 bool is_number() const { return true; }
140 bool is_complex() const { return true; }
141 std::complex<double> value() const { return d_value; }
144 class pmt_null : public pmt_base
150 bool is_null() const { return true; }
153 class pmt_pair : public pmt_base
159 pmt_pair(const pmt_t& car, const pmt_t& cdr);
162 bool is_pair() const { return true; }
163 pmt_t car() const { return d_car; }
164 pmt_t cdr() const { return d_cdr; }
166 void set_car(pmt_t car) { d_car = car; }
167 void set_cdr(pmt_t cdr) { d_cdr = cdr; }
170 class pmt_vector : public pmt_base
172 std::vector<pmt_t> d_v;
175 pmt_vector(size_t len, pmt_t fill);
178 bool is_vector() const { return true; }
179 pmt_t ref(size_t k) const;
180 void set(size_t k, pmt_t obj);
181 void fill(pmt_t fill);
182 size_t length() const { return d_v.size(); }
184 pmt_t _ref(size_t k) const { return d_v[k]; }
187 class pmt_dict : public pmt_base
189 pmt_t d_alist; // list of (key . value) pairs
195 bool is_dict() const { return true; }
196 void set(pmt_t key, pmt_t value);
197 pmt_t ref(pmt_t key, pmt_t default_value) const;
198 bool has_key(pmt_t key) const;
201 pmt_t values() const;
204 class pmt_any : public pmt_base
209 pmt_any(const boost::any &any);
212 bool is_any() const { return true; }
213 const boost::any &ref() const { return d_any; }
214 void set(const boost::any &any) { d_any = any; }
218 class pmt_uniform_vector : public pmt_base
221 bool is_uniform_vector() const { return true; }
222 virtual const void *uniform_elements(size_t &len) = 0;
223 virtual void *uniform_writable_elements(size_t &len) = 0;
224 virtual size_t length() const = 0;
227 #include "pmt_unv_int.h"
229 #endif /* INCLUDED_PMT_INT_H */