Changes in src/libcfa/rational.c [45161b4d:d1ab5331]

File:

• src/libcfa/rational.c (modified) (5 diffs)

src/libcfa/rational.c

@@ -11 +11 @@
 // Created On       : Wed Apr  6 17:54:28 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Tue Apr 12 21:26:42 2016
-// Update Count     : 21
+// Last Modified On : Wed May  4 14:16:14 2016
+// Update Count     : 25
 // 
 
@@ -18 +18 @@
 #include "fstream"
 #include "stdlib"
+#include "math"                                                                                 // floor
 
 
@@ -52 +53 @@
 // constructors
 
-Rational rational() {
-    return (Rational){ 0, 1 };
+void ?{}( Rational * r ) {
+    r{ 0, 1 };
 } // rational
 
-Rational rational( long int n ) {
-    return (Rational){ n, 1 };
+void ?{}( Rational * r, long int n ) {
+    r{ n, 1 };
 } // rational
 
-Rational rational( long int n, long int d ) {
+void ?{}( Rational * r, long int n, long int d ) {
     long int t = simplify( &n, &d );                                    // simplify
-    return (Rational){ n / t, d / t };
+    r->numerator = n / t;
+        r->denominator = d / t;
 } // rational
 
@@ -171 +173 @@
 Rational narrow( double f, long int md ) {
         if ( md <= 1 ) {                                                                        // maximum fractional digits too small?
-                Rational t = rational( f, 1 );                                  // truncate fraction
-                return t;
+                return (Rational){ f, 1};                                               // truncate fraction
         } // if
 
@@ -198 +199 @@
                 k[2] = x * k[1] + k[0]; k[0] = k[1]; k[1] = k[2];
         } // for
-        Rational t = rational( neg ? -h[1] : h[1], k[1] );
-        return t;
+        return (Rational){ neg ? -h[1] : h[1], k[1] };
 } // narrow