Changes in libcfa/src/iostream.cfa [7d9bbef:cadec25]

File:

• libcfa/src/iostream.cfa (modified) (2 diffs)

libcfa/src/iostream.cfa

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Wed Jul  8 22:14:20 2020
-// Update Count     : 1069
+// Last Modified On : Thu Jul 16 07:43:31 2020
+// Update Count     : 1102
 //
 
@@ -970 +970 @@
         } // ?|?
 
+#if defined( __SIZEOF_INT128__ )
+        istype & ?|?( istype & is, int128 & i128 ) {
+                return (istype &)(is | (unsigned int128 &)i128);
+        } // ?|?
+
+        istype & ?|?( istype & is, unsigned int128 & ui128 ) {
+                char s[40];
+                bool sign = false;
+
+                if ( fmt( is, " %[-]", s ) == 1 ) sign = true;  // skip whitespace, negative sign ?
+                // If the input is too large, the value returned is undefined. If there is no input, no value is returned
+                if ( fmt( is, "%39[0-9]%*[0-9]", s ) == 1 ) {   // take first 39 characters, ignore remaining
+                        ui128 = 0;
+                        for ( unsigned int i = 0; s[i] != '\0'; i += 1 ) {
+                                ui128 = ui128 * 10 + s[i] - '0';
+                        } // for
+                        if ( sign ) ui128 = -ui128;
+                } else if ( sign ) ungetc( is, '-' );                   // return minus when no digits
+                return is;
+        } // ?|?
+#endif // __SIZEOF_INT128__
 
         istype & ?|?( istype & is, float & f ) {