Index: libcfa/src/iostream.cfa
===================================================================
--- libcfa/src/iostream.cfa	(revision 21baa40251ae71f7ccebd524a956b0b2060f9e32)
+++ libcfa/src/iostream.cfa	(revision fe68bdff3d53f8717a5ad1f9a58b58df7db71d0f)
@@ -10,6 +10,6 @@
 // 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,4 +970,23 @@
 	} // ?|?
 
+	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 ) {