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

[cln.git] / src / complex / elem / cl_C_equal.cc

diff --git a/src/complex/elem/cl_C_equal.cc b/src/complex/elem/cl_C_equal.cc
index e3315e9eee62ebde24db387590a0187153c2463e..b02810637c14c9a087ab7e1c7302d0f5f6be606d 100644 (file)
--- a/src/complex/elem/cl_C_equal.cc
+++ b/src/complex/elem/cl_C_equal.cc
@@ -1,18 +1,20 @@
-// cl_equal().
+// equal().
 
 // General includes.
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_complex.h"
+#include "cln/complex.h"
 
 
 // Implementation.
 
 #include "cl_C.h"
-#include "cl_real.h"
+#include "cln/real.h"
 
-cl_boolean cl_equal (const cl_N& x, const cl_N& y)
+namespace cln {
+
+cl_boolean equal (const cl_N& x, const cl_N& y)
 {
 // Methode:
 // Falls beide reell, klar.
@@ -24,13 +26,13 @@ cl_boolean cl_equal (const cl_N& x, const cl_N& y)
                if (realp(y)) {
                        DeclareType(cl_R,y);
                        // x,y beide reell
-                       return cl_equal(x,y);
+                       return equal(x,y);
                } else {
                        DeclareType(cl_C,y);
                        // x reell, y komplex
                        if (!zerop(imagpart(y)))
                                return cl_false;
-                       return cl_equal(x,realpart(y));
+                       return equal(x,realpart(y));
                }
        } else {
                DeclareType(cl_C,x);
@@ -39,15 +41,17 @@ cl_boolean cl_equal (const cl_N& x, const cl_N& y)
                        // x komplex, y reell
                        if (!zerop(imagpart(x)))
                                return cl_false;
-                       return cl_equal(realpart(x),y);
+                       return equal(realpart(x),y);
                } else {
                        DeclareType(cl_C,y);
                        // x,y beide komplex
-                       if (!cl_equal(realpart(x),realpart(y)))
+                       if (!equal(realpart(x),realpart(y)))
                                return cl_false;
-                       if (!cl_equal(imagpart(x),imagpart(y)))
+                       if (!equal(imagpart(x),imagpart(y)))
                                return cl_false;
                        return cl_true;
                }
        }
 }
+
+}  // namespace cln