]> www.ginac.de Git - cln.git/blob - include/cln/SV_number.h
2006-04-25 Bruno Haible <bruno@clisp.org>
[cln.git] / include / cln / SV_number.h
1 // Simple vectors of numbers.
2
3 #ifndef _CL_SV_NUMBER_H
4 #define _CL_SV_NUMBER_H
5
6 #include "cln/number.h"
7 #include "cln/SV.h"
8 #include "cln/io.h"
9
10 namespace cln {
11
12 typedef cl_heap_SV<cl_number> cl_heap_SV_number;
13
14 struct cl_SV_number : public cl_SV<cl_number,cl_SV_any> {
15 public:
16         // Constructors.
17         cl_SV_number ();
18         cl_SV_number (const cl_SV_number&);
19         explicit cl_SV_number (uintC len);
20         // Assignment operators.
21         cl_SV_number& operator= (const cl_SV_number&);
22         // Private pointer manipulations.
23         operator cl_heap_SV_number* () const;
24         cl_SV_number (cl_heap_SV_number* p) : cl_SV<cl_number,cl_SV_any> (p) {}
25         cl_SV_number (cl_private_thing p) : cl_SV<cl_number,cl_SV_any> (p) {}
26 };
27 inline cl_SV_number::cl_SV_number (const cl_SV_number& x) : cl_SV<cl_number,cl_SV_any> (as_cl_private_thing(x)) {}
28 CL_DEFINE_ASSIGNMENT_OPERATOR(cl_SV_number,cl_SV_number)
29 // Returns a new simple vector with uninitialized contents.
30 extern cl_heap_SV_number* cl_make_heap_SV_number_uninit (uintC len);
31 // Returns a new simple vector with all elements initialized to 0.
32 extern cl_heap_SV_number* cl_make_heap_SV_number (uintC len);
33 inline cl_SV_number::cl_SV_number (uintC len)
34         : cl_SV<cl_number,cl_SV_any> (cl_make_heap_SV_number(len)) {}
35
36 // Private pointer manipulations. Never throw away a `struct cl_heap_SV_number *'!
37 inline cl_SV_number::operator cl_heap_SV_number* () const
38 {
39         cl_heap_SV_number* hpointer = (cl_heap_SV_number*)pointer;
40         cl_inc_refcount(*this);
41         return hpointer;
42 }
43 extern const cl_SV_number cl_null_SV_number;
44 inline cl_SV_number::cl_SV_number ()
45         : cl_SV<cl_number,cl_SV_any> ((cl_heap_SV_number*) cl_null_SV_number) {}
46 CL_REQUIRE(cl_SV_number)
47
48 // Copy a simple vector.
49 inline const cl_SV_number copy (const cl_SV_number& vector)
50 { return The(cl_SV_number) (copy((const cl_SV_any&) vector)); }
51
52 // Debugging support.
53 #ifdef CL_DEBUG
54 extern int cl_SV_number_debug_module;
55 CL_FORCE_LINK(cl_SV_number_debug_dummy, cl_SV_number_debug_module)
56 #endif
57
58 }  // namespace cln
59
60 #endif /* _CL_SV_NUMBER_H */