Changeset fe68bdf

Timestamp:

Jul 15, 2020, 6:42:22 PM (4 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

791028a

Parents:

21baa40

Message:

add reading for int128 values

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 : Wed Jul 15 13:47:48 2020
+// Update Count     : 1101
 //
 
@@ -970 +970 @@
         } // ?|?
 
+        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;
+        } // ?|?
 
         istype & ?|?( istype & is, float & f ) {