X-Git-Url: https://ginac.de/CLN/cln.git//cln.git?a=blobdiff_plain;f=src%2Freal%2Felem%2Fcl_R_compare.cc;h=b881c1df58368d1c59056626eaa6ca40a2de8ab8;hb=c486b78a1a0613f07a10816d6f6ca9e485bc8290;hp=771f1441cb6534bc56aa285e51bf1542f4421a62;hpb=dd9e0f894eec7e2a8cf85078330ddc0a6639090b;p=cln.git

diff --git a/src/real/elem/cl_R_compare.cc b/src/real/elem/cl_R_compare.cc
index 771f144..b881c1d 100644
--- a/src/real/elem/cl_R_compare.cc
+++ b/src/real/elem/cl_R_compare.cc
@@ -1,19 +1,21 @@
-// cl_compare().
+// compare().
 
 // General includes.
 #include "cl_sysdep.h"
 
 // Specification.
-#include "cl_real.h"
+#include "cln/real.h"
 
 
 // Implementation.
 
 #include "cl_R.h"
-#include "cl_rational.h"
-#include "cl_float.h"
+#include "cln/rational.h"
+#include "cln/float.h"
 
-cl_signean cl_compare (const cl_R& x, const cl_R& y)
+namespace cln {
+
+cl_signean compare (const cl_R& x, const cl_R& y)
 {
   // Methode:
   // Beide rational oder beide Floats -> klar.
@@ -24,21 +26,23 @@ cl_signean cl_compare (const cl_R& x, const cl_R& y)
 	realcase2(x
 	,	realcase2(y
 		,	// beides rationale Zahlen
-			return cl_compare(x,y);
+			return compare(x,y);
 		,	// x rational, y Float -> x in Float umwandeln
-			var cl_signean result = cl_compare(cl_float(x,y),y);
+			var cl_signean result = compare(cl_float(x,y),y);
 			if (result != signean_null)
 				return result;
-			return cl_compare(x,rational(y));
+			return compare(x,rational(y));
 		);
 	,	realcase2(y
 		,	// x Float, y rational -> y in Float umwandeln
-			var cl_signean result = cl_compare(x,cl_float(y,x));
+			var cl_signean result = compare(x,cl_float(y,x));
 			if (result != signean_null)
 				return result;
-			return cl_compare(rational(x),y);
+			return compare(rational(x),y);
 		,	// beides Floats
-			return cl_compare(x,y);
+			return compare(x,y);
 		);
 	);
 }
+
+}  // namespace cln