* include/cln/number.h (As): Fix it in namespace by suffixing `_As'

          to the appropiate method instead of prefixing `as_'.
        * src/complex/misc/cl_N_as.cc (cl_N_As): Likewise.
        * src/real/misc/cl_R_as.cc (cl_R_As): Likewise.
        * src/rational/misc/cl_RA_as.cc (cl_RA_As): Likewise.
        * src/integer/misc/cl_I_as.cc (cl_I_As): Likewise.
        * src/float/misc/cl_F_as.cc (cl_F_As): Likewise.
        * src/float/sfloat/misc/cl_SF_as.cc (cl_SF_As): Likewise.
        * src/float/lfloat/misc/cl_LF_as.cc (cl_LF_As): Likewise.
        * src/float/ffloat/misc/cl_FF_as.cc (cl_FF_As): Likewise.
        * src/float/dfloat/misc/cl_DF_as.cc (cl_DF_As): Likewise.

diff --git a/ChangeLog b/ChangeLog
index b71d9433bedc5a0e3845a18847a40e6c388475de..d396aed7017e4414a46855e0607535b6f903888f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2000-09-05  Richard Kreckel  <kreckel@ginac.de>
+
+        * include/cln/number.h (As): Fix it in namespace by suffixing `_As'
+          to the appropiate method instead of prefixing `as_'.
+        * src/complex/misc/cl_N_as.cc (cl_N_As): Likewise.
+        * src/real/misc/cl_R_as.cc (cl_R_As): Likewise.
+        * src/rational/misc/cl_RA_as.cc (cl_RA_As): Likewise.
+        * src/integer/misc/cl_I_as.cc (cl_I_As): Likewise.
+        * src/float/misc/cl_F_as.cc (cl_F_As): Likewise.
+        * src/float/sfloat/misc/cl_SF_as.cc (cl_SF_As): Likewise.
+        * src/float/lfloat/misc/cl_LF_as.cc (cl_LF_As): Likewise.
+        * src/float/ffloat/misc/cl_FF_as.cc (cl_FF_As): Likewise.
+        * src/float/dfloat/misc/cl_DF_as.cc (cl_DF_As): Likewise.
+
 2000-09-05  Richard Kreckel  <kreckel@ginac.de>
 
         * src/complex/transcendental/cl_C_expt_C.cc (expt): fix logic for

diff --git a/include/cln/number.h b/include/cln/number.h
index 2467d38aa0c49861f7de69155aa510cee3965420..a8c9677d9f87fd3d2a588c329c2d66543765e3e4 100644 (file)
--- a/include/cln/number.h
+++ b/include/cln/number.h
@@ -225,16 +225,16 @@ inline const type& the(const cl_number& x)
 // As(cl_I)(x) returns x as a cl_I. It first checks that x is a cl_I
 // and then returns it without change of representation.
 #if 0 // no debug information  
-  #define As(type)  as_##type
+  #define As(type)  type##_As
   #define CL_DEFINE_AS_CONVERSION(_class_)                             \
-    extern const _class_& as_##_class_ (const cl_number& x);           \
-    inline const _class_& as_##_class_ (const _class_& x) { return x; }
+    extern const _class_& _class_##_As (const cl_number& x);           \
+    inline const _class_& _class_##_As (const _class_& x) { return x; }
 #else // Line number information for ease of debugging.
-  #define As(type)  as_##type cl_as_aux
+  #define As(type)  type##_As cl_as_aux
   #define cl_as_aux(expr)  (expr,__FILE__,__LINE__)
   #define CL_DEFINE_AS_CONVERSION(_class_)                             \
-    extern const _class_& as_##_class_ (const cl_number& x, const char * filename, int line); \
-    inline const _class_& as_##_class_ (const _class_& x, const char * filename, int line) { (void)filename; (void)line; return x; }
+    extern const _class_& _class_##_As (const cl_number& x, const char * filename, int line); \
+    inline const _class_& _class_##_As (const _class_& x, const char * filename, int line) { (void)filename; (void)line; return x; }
 #endif
 
 // Mutable(type,x);

diff --git a/src/complex/misc/cl_N_as.cc b/src/complex/misc/cl_N_as.cc
index 8740088481c34a9a7875af8474068d0ef88ec6a7..1b8f41f729c7f319d8db950f8c82dd4735c5780b 100644 (file)
--- a/src/complex/misc/cl_N_as.cc
+++ b/src/complex/misc/cl_N_as.cc
@@ -1,4 +1,4 @@
-// as_cl_N().
+// cl_N_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -34,7 +34,7 @@ inline cl_boolean cl_N_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_N& as_cl_N (const cl_number& x, const char * filename, int line)
+const cl_N& cl_N_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_N_p(x)) {
                DeclareType(cl_N,x);

diff --git a/src/float/dfloat/misc/cl_DF_as.cc b/src/float/dfloat/misc/cl_DF_as.cc
index 6590a5fa3c83c9db5ad36b41fd8ff231dc5c3cd6..d3efc2ddf0337324873f697410a2a549f901491e 100644 (file)
--- a/src/float/dfloat/misc/cl_DF_as.cc
+++ b/src/float/dfloat/misc/cl_DF_as.cc
@@ -1,4 +1,4 @@
-// as_cl_DF().
+// cl_DF_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -21,7 +21,7 @@ inline cl_boolean cl_DF_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_DF& as_cl_DF (const cl_number& x, const char * filename, int line)
+const cl_DF& cl_DF_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_DF_p(x)) {
                DeclareType(cl_DF,x);

diff --git a/src/float/ffloat/misc/cl_FF_as.cc b/src/float/ffloat/misc/cl_FF_as.cc
index 5ac42dd5bb3216fc9d693189f5539b1ab30008c3..e22057fdf141af6f2d08cf4b9dfe95dec29b864d 100644 (file)
--- a/src/float/ffloat/misc/cl_FF_as.cc
+++ b/src/float/ffloat/misc/cl_FF_as.cc
@@ -1,4 +1,4 @@
-// as_cl_FF().
+// cl_FF_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -27,7 +27,7 @@ inline cl_boolean cl_FF_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_FF& as_cl_FF (const cl_number& x, const char * filename, int line)
+const cl_FF& cl_FF_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_FF_p(x)) {
                DeclareType(cl_FF,x);

diff --git a/src/float/lfloat/misc/cl_LF_as.cc b/src/float/lfloat/misc/cl_LF_as.cc
index 0ce126b05e2ce4c73b3481fbf17302539b91713b..8f84e7a71e20ac3b1cee6fa6bdc8bed966facc93 100644 (file)
--- a/src/float/lfloat/misc/cl_LF_as.cc
+++ b/src/float/lfloat/misc/cl_LF_as.cc
@@ -1,4 +1,4 @@
-// as_cl_LF().
+// cl_LF_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -21,7 +21,7 @@ inline cl_boolean cl_LF_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_LF& as_cl_LF (const cl_number& x, const char * filename, int line)
+const cl_LF& cl_LF_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_LF_p(x)) {
                DeclareType(cl_LF,x);

diff --git a/src/float/misc/cl_F_as.cc b/src/float/misc/cl_F_as.cc
index 8301c8d1256c4dbefaa3ba83583e9099d908b154..1f3dfffa84d2bf5e05a2eff1b4019fd36fb8c96b 100644 (file)
--- a/src/float/misc/cl_F_as.cc
+++ b/src/float/misc/cl_F_as.cc
@@ -1,4 +1,4 @@
-// as_cl_F().
+// cl_F_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -29,7 +29,7 @@ inline cl_boolean cl_F_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_F& as_cl_F (const cl_number& x, const char * filename, int line)
+const cl_F& cl_F_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_F_p(x)) {
                DeclareType(cl_F,x);

diff --git a/src/float/sfloat/misc/cl_SF_as.cc b/src/float/sfloat/misc/cl_SF_as.cc
index bcbe9ac7765439279cd4e8a207dd028befd0eba8..2f9146a248d20b1426c1f61df1bee513c82ee969 100644 (file)
--- a/src/float/sfloat/misc/cl_SF_as.cc
+++ b/src/float/sfloat/misc/cl_SF_as.cc
@@ -1,4 +1,4 @@
-// as_cl_SF().
+// cl_SF_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -21,7 +21,7 @@ inline cl_boolean cl_SF_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_SF& as_cl_SF (const cl_number& x, const char * filename, int line)
+const cl_SF& cl_SF_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_SF_p(x)) {
                DeclareType(cl_SF,x);

diff --git a/src/integer/misc/cl_I_as.cc b/src/integer/misc/cl_I_as.cc
index 0a90bc842dfe2b93f8aceb24e9a589f669f5009a..6759c13fbcbb6022b538bc5cc6c7256b6bb1fb4a 100644 (file)
--- a/src/integer/misc/cl_I_as.cc
+++ b/src/integer/misc/cl_I_as.cc
@@ -1,4 +1,4 @@
-// as_cl_I().
+// cl_I_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -30,7 +30,7 @@ inline cl_boolean cl_I_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_I& as_cl_I (const cl_number& x, const char * filename, int line)
+const cl_I& cl_I_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_I_p(x)) {
                DeclareType(cl_I,x);

diff --git a/src/rational/misc/cl_RA_as.cc b/src/rational/misc/cl_RA_as.cc
index 57c8783d54e9cc0674c3576b3e780a074cdc94ea..d9bdea5461d70f7947534234392ff5125c68145a 100644 (file)
--- a/src/rational/misc/cl_RA_as.cc
+++ b/src/rational/misc/cl_RA_as.cc
@@ -1,4 +1,4 @@
-// as_cl_RA().
+// cl_RA_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -30,7 +30,7 @@ inline cl_boolean cl_RA_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_RA& as_cl_RA (const cl_number& x, const char * filename, int line)
+const cl_RA& cl_RA_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_RA_p(x)) {
                DeclareType(cl_RA,x);

diff --git a/src/real/misc/cl_R_as.cc b/src/real/misc/cl_R_as.cc
index 5b3cf5586f281cb0c994ed01ea26d2e1f7a9f9a2..fa662005c571970a45e8a61b317ed40fb472a3c8 100644 (file)
--- a/src/real/misc/cl_R_as.cc
+++ b/src/real/misc/cl_R_as.cc
@@ -1,4 +1,4 @@
-// as_cl_R().
+// cl_R_As().
 
 // General includes.
 #include "cl_sysdep.h"
@@ -34,7 +34,7 @@ inline cl_boolean cl_R_p (const cl_number& x)
        return cl_false;
 }
 
-const cl_R& as_cl_R (const cl_number& x, const char * filename, int line)
+const cl_R& cl_R_As (const cl_number& x, const char * filename, int line)
 {
        if (cl_R_p(x)) {
                DeclareType(cl_R,x);