src/rational/elem/cl_RA_equal.cc

   1 // equal().
   2
   3 // General includes.
   4 #include "cl_sysdep.h"
   5
   6 // Specification.
   7 #include "cln/rational.h"
   8
   9
  10 // Implementation.
  11
  12 #include "cl_RA.h"
  13 #include "cln/integer.h"
  14
  15 namespace cln {
  16
  17 cl_boolean equal (const cl_RA& r, const cl_RA& s)
  18 {
  19 // Methode:
  20 // r,s Integer -> klar
  21 // r Integer, s Ratio: verschieden.
  22 // r Ratio, s Integer: verschieden.
  23 // r,s Ratios: r=a/b, s=c/d. Vergleiche a mit c und b mit d.
  24         if (integerp(r))
  25                 if (integerp(s)) {
  26                         // r,s beide Integer
  27                         DeclareType(cl_I,r);
  28                         DeclareType(cl_I,s);
  29                         return equal(r,s);
  30                 } else
  31                         // r Integer, s Ratio
  32                         return cl_false;
  33         else
  34                 if (integerp(s))
  35                         // r Ratio, s Integer
  36                         return cl_false;
  37                 else {
  38                         DeclareType(cl_RT,r);
  39                         DeclareType(cl_RT,s);
  40                         // r,s Ratios
  41                         if (!equal(numerator(r),numerator(s)))
  42                                 return cl_false;
  43                         if (!equal(denominator(r),denominator(s)))
  44                                 return cl_false;
  45                         return cl_true;
  46                 }
  47 }
  48
  49 }  // namespace cln