Changes in libcfa/src/rational.cfa [8a25be9:ef346f7c]

File:

• libcfa/src/rational.cfa (modified) (9 diffs)

libcfa/src/rational.cfa

@@ -10 +10 @@
 // Created On       : Wed Apr  6 17:54:28 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Mar 28 17:33:03 2019
-// Update Count     : 181
+// Last Modified On : Sun Dec 23 22:56:49 2018
+// Update Count     : 170
 //
 
@@ -35 +35 @@
         static RationalImpl simplify( RationalImpl & n, RationalImpl & d ) {
                 if ( d == (RationalImpl){0} ) {
-                        abort( "Invalid rational number construction: denominator cannot be equal to 0.\n" );
+                        serr | "Invalid rational number construction: denominator cannot be equal to 0.";
+                        exit( EXIT_FAILURE );
                 } // exit
                 if ( d < (RationalImpl){0} ) { d = -d; n = -n; } // move sign to numerator
@@ -53 +54 @@
         void ?{}( Rational(RationalImpl) & r, RationalImpl n, RationalImpl d ) {
                 RationalImpl t = simplify( n, d );                              // simplify
-                r.[numerator, denominator] = [n / t, d / t];
+                r.numerator = n / t;
+                r.denominator = d / t;
         } // rational
 
@@ -76 +78 @@
                 RationalImpl prev = r.numerator;
                 RationalImpl t = gcd( abs( n ), r.denominator ); // simplify
-                r.[numerator, denominator] = [n / t, r.denominator / t];
+                r.numerator = n / t;
+                r.denominator = r.denominator / t;
                 return prev;
         } // numerator
@@ -83 +86 @@
                 RationalImpl prev = r.denominator;
                 RationalImpl t = simplify( r.numerator, d );    // simplify
-                r.[numerator, denominator] = [r.numerator / t, d / t];
+                r.numerator = r.numerator / t;
+                r.denominator = d / t;
                 return prev;
         } // denominator
@@ -116 +120 @@
 
         Rational(RationalImpl) +?( Rational(RationalImpl) r ) {
-                return (Rational(RationalImpl)){ r.numerator, r.denominator };
+                Rational(RationalImpl) t = { r.numerator, r.denominator };
+                return t;
         } // +?
 
         Rational(RationalImpl) -?( Rational(RationalImpl) r ) {
-                return (Rational(RationalImpl)){ -r.numerator, r.denominator };
+                Rational(RationalImpl) t = { -r.numerator, r.denominator };
+                return t;
         } // -?
 
         Rational(RationalImpl) ?+?( Rational(RationalImpl) l, Rational(RationalImpl) r ) {
                 if ( l.denominator == r.denominator ) {                 // special case
-                        return (Rational(RationalImpl)){ l.numerator + r.numerator, l.denominator };
+                        Rational(RationalImpl) t = { l.numerator + r.numerator, l.denominator };
+                        return t;
                 } else {
-                        return (Rational(RationalImpl)){ l.numerator * r.denominator + l.denominator * r.numerator, l.denominator * r.denominator };
+                        Rational(RationalImpl) t = { l.numerator * r.denominator + l.denominator * r.numerator, l.denominator * r.denominator };
+                        return t;
                 } // if
         } // ?+?
@@ -133 +141 @@
         Rational(RationalImpl) ?-?( Rational(RationalImpl) l, Rational(RationalImpl) r ) {
                 if ( l.denominator == r.denominator ) {                 // special case
-                        return (Rational(RationalImpl)){ l.numerator - r.numerator, l.denominator };
+                        Rational(RationalImpl) t = { l.numerator - r.numerator, l.denominator };
+                        return t;
                 } else {
-                        return (Rational(RationalImpl)){ l.numerator * r.denominator - l.denominator * r.numerator, l.denominator * r.denominator };
+                        Rational(RationalImpl) t = { l.numerator * r.denominator - l.denominator * r.numerator, l.denominator * r.denominator };
+                        return t;
                 } // if
         } // ?-?
 
         Rational(RationalImpl) ?*?( Rational(RationalImpl) l, Rational(RationalImpl) r ) {
-                return (Rational(RationalImpl)){ l.numerator * r.numerator, l.denominator * r.denominator };
+                Rational(RationalImpl) t = { l.numerator * r.numerator, l.denominator * r.denominator };
+                return t;
         } // ?*?
 
         Rational(RationalImpl) ?/?( Rational(RationalImpl) l, Rational(RationalImpl) r ) {
                 if ( r.numerator < (RationalImpl){0} ) {
-                        r.[numerator, denominator] = [-r.numerator, -r.denominator];
+                        r.numerator = -r.numerator;
+                        r.denominator = -r.denominator;
                 } // if
-                return (Rational(RationalImpl)){ l.numerator * r.denominator, l.denominator * r.numerator };
+                Rational(RationalImpl) t = { l.numerator * r.denominator, l.denominator * r.numerator };
+                return t;
         } // ?/?
 
@@ -154 +167 @@
         forall( dtype istype | istream( istype ) | { istype & ?|?( istype &, RationalImpl & ); } )
         istype & ?|?( istype & is, Rational(RationalImpl) & r ) {
+                RationalImpl t;
                 is | r.numerator | r.denominator;
-                RationalImpl t = simplify( r.numerator, r.denominator );
+                t = simplify( r.numerator, r.denominator );
                 r.numerator /= t;
                 r.denominator /= t;
@@ -171 +185 @@
         } // distribution
 } // distribution
-
-forall( otype RationalImpl | arithmetic( RationalImpl ) | { RationalImpl ?\?( RationalImpl, unsigned long ); } )
-Rational(RationalImpl) ?\?( Rational(RationalImpl) x, long int y ) {
-        if ( y < 0 ) {
-                return (Rational(RationalImpl)){ x.denominator \ -y, x.numerator \ -y };
-        } else {
-                return (Rational(RationalImpl)){ x.numerator \ y, x.denominator \ y };
-        } // if
-}
 
 // conversion