2004-01-01 Richard B. Kreckel <kreckel@ginac.de>

[cln.git] / src / polynomial / elem / cl_UP_no_ring.cc

diff --git a/src/polynomial/elem/cl_UP_no_ring.cc b/src/polynomial/elem/cl_UP_no_ring.cc
index 199fcf03286cd80e4a64407f1060fab49eeae41e..f04886e9e37e242d68846290dfefb6bdeb66608c 100644 (file)
--- a/src/polynomial/elem/cl_UP_no_ring.cc
+++ b/src/polynomial/elem/cl_UP_no_ring.cc
@@ -6,29 +6,31 @@
 CL_PROVIDE(cl_UP_no_ring)
 
 // Specification.
-#include "cl_univpoly.h"
+#include "cln/univpoly.h"
 
 
 // Implementation.
 
-#include "cl_io.h"
-#include "cl_abort.h"
+#include "cln/io.h"
+#include "cln/abort.h"
+
+namespace cln {
 
 nonreturning_function(static, uninitialized_ring, (void));
 static void uninitialized_ring ()
 {
-       fprint(cl_stderr, "Uninitialized ring operation called\n");
+       fprint(std::cerr, "Uninitialized ring operation called\n");
        cl_abort();
 }
 
 nonreturning_function(static, uninitialized_error, (const _cl_UP&));
 static void uninitialized_error (const _cl_UP& obj)
 {
-       fprint(cl_stderr, "Uninitialized ring element @0x");
-       fprinthexadecimal(cl_stderr, (unsigned long)(void*)&obj);
-       fprint(cl_stderr, ": 0x");
-        fprinthexadecimal(cl_stderr, (unsigned long)obj.rep.word);
-       fprint(cl_stderr, "\n");
+       fprint(std::cerr, "Uninitialized ring element @0x");
+       fprinthexadecimal(std::cerr, (unsigned long)(void*)&obj);
+       fprint(std::cerr, ": 0x");
+        fprinthexadecimal(std::cerr, (unsigned long)obj.rep.word);
+       fprint(std::cerr, "\n");
        cl_abort();
 }
 
@@ -57,7 +59,7 @@ static const _cl_UP dummy_op2 (cl_heap_univpoly_ring* R, const _cl_UP& x, const
        uninitialized_error(x); uninitialized_error(y); RETDUMMY;
 }
 
-static void dummy_fprint (cl_heap_univpoly_ring* R, cl_ostream stream, const _cl_UP& x)
+static void dummy_fprint (cl_heap_univpoly_ring* R, std::ostream& stream, const _cl_UP& x)
 {
        unused R;
        unused stream;
@@ -107,6 +109,11 @@ static sintL dummy_degree (cl_heap_univpoly_ring* R, const _cl_UP& x)
        unused R;
        uninitialized_error(x); return 0;
 }
+static sintL dummy_ldegree (cl_heap_univpoly_ring* R, const _cl_UP& x)
+{
+       unused R;
+       uninitialized_error(x); return 0;
+}
 static const _cl_UP dummy_monomial (cl_heap_univpoly_ring* R, const cl_ring_element& x, uintL e)
 {
        unused R;
@@ -168,6 +175,7 @@ static cl_univpoly_modulops dummy_modulops = {
 };
 static cl_univpoly_polyops dummy_polyops = {
        dummy_degree,
+       dummy_ldegree,
        dummy_monomial,
        dummy_coeff,
        dummy_create,
@@ -199,4 +207,6 @@ cl_class cl_class_no_univpoly_ring = {
 
 const cl_univpoly_ring cl_no_univpoly_ring = cl_univpoly_ring (new cl_heap_no_univpoly_ring());
 
+}  // namespace cln
+
 CL_PROVIDE_END(cl_UP_no_ring)