Changeset f5e37a4 for libcfa

Timestamp:

Nov 27, 2024, 6:12:44 PM (3 weeks ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

master

Children:

3e2e9b2, 81e768d

Parents:

71f3d45

Message:

small changes to rational

Location:

libcfa/src

Files:

• rational.cfa (modified) (6 diffs)
• rational.hfa (modified) (6 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 : Mon Nov 11 22:37:12 2024
-// Update Count     : 206
+// Last Modified On : Wed Nov 27 18:06:43 2024
+// Update Count     : 208
 //
 
@@ -19 +19 @@
 
 #pragma GCC visibility push(default)
+
+// Arithmetic, Relational
 
 forall( T | arithmetic( T ) ) {
@@ -190 +192 @@
                 return l = l / r;
         } // ?/?
-
-        // I/O
-
-        forall( istype & | istream( istype ) | { istype & ?|?( istype &, T & ); } )
+} // distribution
+
+// I/O
+
+forall( T ) {
+        forall( istype & | istream( istype ) | { istype & ?|?( istype &, T & ); } | arithmetic( T ) )
         istype & ?|?( istype & is, rational(T) & r ) {
                 is | r.numerator | r.denominator;
@@ -201 +205 @@
                 return is;
         } // ?|?
-} // distribution
-
-forall( T ) {
+
         forall( ostype & | ostream( ostype ) | { ostype & ?|?( ostype &, T ); } ) {
         ostype & ?|?( ostype & os, rational(T) r ) {
@@ -212 +214 @@
 } // distribution
 
+// Exponentiation
+
 forall( T | arithmetic( T ) | { T ?\?( T, unsigned long ); } ) {
         rational(T) ?\?( rational(T) x, long int y ) {
@@ -226 +230 @@
 } // distribution
 
-// conversion
+// Conversion
 
 forall( T | arithmetic( T ) | { double convert( T ); } )

libcfa/src/rational.hfa

@@ -12 +12 @@
 // Created On       : Wed Apr  6 17:56:25 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Nov  8 17:02:09 2024
-// Update Count     : 126
+// Last Modified On : Wed Nov 27 18:11:07 2024
+// Update Count     : 128
 //
 
@@ -21 +21 @@
 #include "math.trait.hfa"                                                               // arithmetic
 
-// implementation
+// Implementation
 
 forall( T ) {
@@ -28 +28 @@
         }; // rational
 }
+
+// Arithmetic, Relational
 
 forall( T | arithmetic( T ) ) {
@@ -73 +75 @@
         rational(T) ?/?( rational(T) l, rational(T) r );
         rational(T) ?/=?( rational(T) & l, rational(T) r );
-
-        // I/O
-        forall( istype & | istream( istype ) | { istype & ?|?( istype &, T & ); } )
-        istype & ?|?( istype &, rational(T) & );
 } // distribution
 
+// I/O
+
 forall( T ) {
+        forall( istype & | istream( istype ) | { istype & ?|?( istype &, T & ); } | arithmetic( T ) )
+        istype & ?|?( istype &, rational(T) & );
+
         forall( ostype & | ostream( ostype ) | { ostype & ?|?( ostype &, T ); } ) {
                 ostype & ?|?( ostype &, rational(T) );
@@ -86 +89 @@
 } // distribution
 
+// Exponentiation
+
 forall( T | arithmetic( T ) | { T ?\?( T, unsigned long ); } ) {
         rational(T) ?\?( rational(T) x, long int y );
@@ -91 +96 @@
 } // distribution
 
-// conversion
+// Conversion
+
 forall( T | arithmetic( T ) | { double convert( T ); } )
 double widen( rational(T) r );