9 #include "cln/null_ring.h"
14 #include "cln/integer_class.h"
18 static const _cl_ring_element null_op0 (cl_heap_ring* R)
20 return _cl_ring_element(R, (cl_I)0);
23 static const _cl_ring_element null_op1 (cl_heap_ring* R, const _cl_ring_element& x)
26 return _cl_ring_element(R, (cl_I)0);
29 static const _cl_ring_element null_op2 (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
33 return _cl_ring_element(R, (cl_I)0);
36 static void null_fprint (cl_heap_ring* R, cl_ostream stream, const _cl_ring_element& x)
43 static cl_boolean null_equal (cl_heap_ring* R, const _cl_ring_element& x, const _cl_ring_element& y)
51 #define null_zero null_op0
52 static cl_boolean null_zerop (cl_heap_ring* R, const _cl_ring_element& x)
58 #define null_plus null_op2
59 #define null_minus null_op2
60 #define null_uminus null_op1
62 #define null_one null_op0
63 static const _cl_ring_element null_canonhom (cl_heap_ring* R, const cl_I& x)
66 return _cl_ring_element(R, (cl_I)0);
68 #define null_mul null_op2
69 #define null_square null_op1
70 static const _cl_ring_element null_expt_pos (cl_heap_ring* R, const _cl_ring_element& x, const cl_I& y)
74 return _cl_ring_element(R, (cl_I)0);
77 static cl_ring_setops null_setops = {
81 static cl_ring_addops null_addops = {
88 static cl_ring_mulops null_mulops = {
96 extern cl_class cl_class_null_ring;
98 class cl_heap_null_ring : public cl_heap_ring {
99 SUBCLASS_cl_heap_ring()
103 : cl_heap_ring (&null_setops,&null_addops,&null_mulops)
104 { type = &cl_class_null_ring; }
106 ~cl_heap_null_ring () {}
109 static void cl_null_ring_destructor (cl_heap* pointer)
111 (*(cl_heap_null_ring*)pointer).~cl_heap_null_ring();
114 static void cl_null_ring_dprint (cl_heap* pointer)
117 fprint(cl_debugout, "(cl_null_ring) cl_0_ring");
120 cl_class cl_class_null_ring = {
121 cl_null_ring_destructor,
122 cl_class_flags_number_ring,
126 inline cl_null_ring::cl_null_ring ()
127 : cl_ring (new cl_heap_null_ring()) {}
129 const cl_null_ring cl_0_ring;
133 CL_PROVIDE_END(cl_0_ring)