1 ////////////////////////////////////////////////////////////////////////////
3 ////////////////////////////////////////////////////////////////////////////
5 static pmt_@TAG@vector *
8 return dynamic_cast<pmt_@TAG@vector*>(x.get());
12 pmt_@TAG@vector::pmt_@TAG@vector(size_t k, @TYPE@ fill)
15 for (size_t i = 0; i < k; i++)
19 pmt_@TAG@vector::pmt_@TAG@vector(size_t k, const @TYPE@ *data)
22 for (size_t i = 0; i < k; i++)
27 pmt_@TAG@vector::ref(size_t k) const
30 throw pmt_out_of_range("pmt_@TAG@vector_ref", pmt_from_long(k));
35 pmt_@TAG@vector::set(size_t k, @TYPE@ x)
38 throw pmt_out_of_range("pmt_@TAG@vector_set", pmt_from_long(k));
43 pmt_@TAG@vector::elements(size_t &len)
50 pmt_@TAG@vector::writable_elements(size_t &len)
57 pmt_@TAG@vector::uniform_elements(size_t &len)
59 len = length() * sizeof(@TYPE@);
64 pmt_@TAG@vector::uniform_writable_elements(size_t &len)
66 len = length() * sizeof(@TYPE@);
71 pmt_is_@TAG@vector(pmt_t obj)
73 return obj->is_@TAG@vector();
77 pmt_make_@TAG@vector(size_t k, @TYPE@ fill)
79 return pmt_t(new pmt_@TAG@vector(k, fill));
83 pmt_init_@TAG@vector(size_t k, const @TYPE@ *data)
85 return pmt_t(new pmt_@TAG@vector(k, data));
89 pmt_@TAG@vector_ref(pmt_t vector, size_t k)
91 if (!vector->is_@TAG@vector())
92 throw pmt_wrong_type("pmt_@TAG@vector_ref", vector);
93 return _@TAG@vector(vector)->ref(k);
97 pmt_@TAG@vector_set(pmt_t vector, size_t k, @TYPE@ obj)
99 if (!vector->is_@TAG@vector())
100 throw pmt_wrong_type("pmt_@TAG@vector_set", vector);
101 _@TAG@vector(vector)->set(k, obj);
105 pmt_@TAG@vector_elements(pmt_t vector, size_t &len)
107 if (!vector->is_@TAG@vector())
108 throw pmt_wrong_type("pmt_@TAG@vector_elements", vector);
109 return _@TAG@vector(vector)->elements(len);
113 pmt_@TAG@vector_writable_elements(pmt_t vector, size_t &len)
115 if (!vector->is_@TAG@vector())
116 throw pmt_wrong_type("pmt_@TAG@vector_writable_elements", vector);
117 return _@TAG@vector(vector)->writable_elements(len);