9 #include "cl_null_ring.h"
14 #include "cl_integer_class.h"
16 static const _cl_ring_element null_op0 (cl_heap_ring* R)
18 return _cl_ring_element(R, (cl_I)0);
21 static const _cl_ring_element null_op1 (cl_heap_ring* R, const _cl_ring_element& x)
24 return _cl_ring_element(R, (cl_I)0);
27 static const _cl_ring_element null_op2 (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
31 return _cl_ring_element(R, (cl_I)0);
34 static void null_fprint (cl_heap_ring* R, cl_ostream stream, const _cl_ring_element& x)
41 static cl_boolean null_equal (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
49 #define null_zero null_op0
50 static cl_boolean null_zerop (cl_heap_ring* R, const _cl_ring_element& x)
56 #define null_plus null_op2
57 #define null_minus null_op2
58 #define null_uminus null_op1
60 #define null_one null_op0
61 static const _cl_ring_element null_canonhom (cl_heap_ring* R, const cl_I& x)
64 return _cl_ring_element(R, (cl_I)0);
66 #define null_mul null_op2
67 #define null_square null_op1
68 static const _cl_ring_element null_expt_pos (cl_heap_ring* R, const _cl_ring_element& x, const cl_I& y)
72 return _cl_ring_element(R, (cl_I)0);
75 static cl_ring_setops null_setops = {
79 static cl_ring_addops null_addops = {
86 static cl_ring_mulops null_mulops = {
94 extern cl_class cl_class_null_ring;
96 class cl_heap_null_ring : public cl_heap_ring {
97 SUBCLASS_cl_heap_ring()
101 : cl_heap_ring (&null_setops,&null_addops,&null_mulops)
102 { type = &cl_class_null_ring; }
104 ~cl_heap_null_ring () {}
107 static void cl_null_ring_destructor (cl_heap* pointer)
109 (*(cl_heap_null_ring*)pointer).~cl_heap_null_ring();
112 static void cl_null_ring_dprint (cl_heap* pointer)
115 fprint(cl_debugout, "(cl_null_ring) cl_0_ring");
118 cl_class cl_class_null_ring = {
119 cl_null_ring_destructor,
120 cl_class_flags_number_ring,
124 inline cl_null_ring::cl_null_ring ()
125 : cl_ring (new cl_heap_null_ring()) {}
127 const cl_null_ring cl_0_ring;
129 CL_PROVIDE_END(cl_0_ring)