Changes in libcfa/src/iostream.cfa [fd54fef:467c8b7]

File:

• libcfa/src/iostream.cfa (modified) (19 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 : Mon Aug 24 08:31:35 2020
-// Update Count     : 1130
+// Last Modified On : Sat Jan 16 11:24:50 2021
+// Update Count     : 1131
 //
 
@@ -36 +36 @@
 
 
-forall( ostype & | ostream( ostype ) ) {
+forall( dtype ostype | ostream( ostype ) ) {
         ostype & ?|?( ostype & os, bool b ) {
                 if ( $sepPrt( os ) ) fmt( os, "%s", $sepGetCur( os ) );
@@ -399 +399 @@
                 return os;
         } // nlOff
+
+        ostype & acquire( ostype & os ) {
+                acquire( os );                                                                  // call void returning
+                return os;
+        } // nlOff
 } // distribution
 
 // tuples
-forall( ostype &, T, Params... | writeable( T, ostype ) | { ostype & ?|?( ostype &, Params ); } ) {
+forall( dtype ostype, otype T, ttype Params | writeable( T, ostype ) | { ostype & ?|?( ostype &, Params ); } ) {
         ostype & ?|?( ostype & os, T arg, Params rest ) {
                 (ostype &)(os | arg);                                                   // print first argument
@@ -421 +426 @@
 
 // writes the range [begin, end) to the given stream
-forall( ostype &, elt_type | writeable( elt_type, ostype ), iterator_type | iterator( iterator_type, elt_type ) ) {
+forall( dtype ostype, otype elt_type | writeable( elt_type, ostype ), otype iterator_type | iterator( iterator_type, elt_type ) ) {
         void write( iterator_type begin, iterator_type end, ostype & os ) {
                 void print( elt_type i ) { os | i; }
@@ -442 +447 @@
 // Default prefix for non-decimal prints is 0b, 0, 0x.
 #define IntegralFMTImpl( T, IFMTNP, IFMTP ) \
-forall( ostype & | ostream( ostype ) ) { \
+forall( dtype ostype | ostream( ostype ) ) { \
         ostype & ?|?( ostype & os, _Ostream_Manip(T) f ) { \
                 if ( $sepPrt( os ) ) fmt( os, "%s", $sepGetCur( os ) ); \
@@ -535 +540 @@
 // Default prefix for non-decimal prints is 0b, 0, 0x.
 #define IntegralFMTImpl128( T, SIGNED, CODE, IFMTNP, IFMTP ) \
-forall( ostype & | ostream( ostype ) ) \
+forall( dtype ostype | ostream( ostype ) ) \
 static void base10_128( ostype & os, _Ostream_Manip(T) f ) { \
         if ( f.val > UINT64_MAX ) { \
@@ -552 +557 @@
         } /* if */ \
 } /* base10_128 */ \
-forall( ostype & | ostream( ostype ) ) { \
+forall( dtype ostype | ostream( ostype ) ) { \
         ostype & ?|?( ostype & os, _Ostream_Manip(T) f ) { \
                 if ( $sepPrt( os ) ) fmt( os, "%s", $sepGetCur( os ) ); \
@@ -654 +659 @@
 #if defined( __SIZEOF_INT128__ )
 // Default prefix for non-decimal prints is 0b, 0, 0x.
-forall( ostype & | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) )
 static inline void base_128( ostype & os, unsigned int128 val, unsigned int128 power, _Ostream_Manip(uint64_t) & f, unsigned int maxdig, unsigned int bits, unsigned int cnt = 0 ) {
         int wd = 1;                                                                                     // f.wd is never 0 because 0 implies left-pad
@@ -719 +724 @@
 
 #define IntegralFMTImpl128( T ) \
-forall( ostype & | ostream( ostype ) ) { \
+forall( dtype ostype | ostream( ostype ) ) { \
         ostype & ?|?( ostype & os, _Ostream_Manip(T) f ) { \
                 _Ostream_Manip(uint64_t) fmt; \
@@ -767 +772 @@
 
 #define FloatingPointFMTImpl( T, DFMTNP, DFMTP ) \
-forall( ostype & | ostream( ostype ) ) { \
+forall( dtype ostype | ostream( ostype ) ) { \
         ostype & ?|?( ostype & os, _Ostream_Manip(T) f ) { \
                 if ( $sepPrt( os ) ) fmt( os, "%s", $sepGetCur( os ) ); \
@@ -801 +806 @@
 // *********************************** character ***********************************
 
-forall( ostype & | ostream( ostype ) ) {
+forall( dtype ostype | ostream( ostype ) ) {
         ostype & ?|?( ostype & os, _Ostream_Manip(char) f ) {
                 if ( f.base != 'c' ) {                                                  // bespoke binary/octal/hex format
@@ -834 +839 @@
 // *********************************** C string ***********************************
 
-forall( ostype & | ostream( ostype ) ) {
+forall( dtype ostype | ostream( ostype ) ) {
         ostype & ?|?( ostype & os, _Ostream_Manip(const char *) f ) {
                 if ( ! f.val ) return os;                                               // null pointer ?
@@ -882 +887 @@
 
 
-forall( istype & | istream( istype ) ) {
+forall( dtype istype | istream( istype ) ) {
         istype & ?|?( istype & is, bool & b ) {
                 char val[6];
@@ -1048 +1053 @@
 // *********************************** manipulators ***********************************
 
-forall( istype & | istream( istype ) )
+forall( dtype istype | istream( istype ) )
 istype & ?|?( istype & is, _Istream_Cstr f ) {
         // skip xxx
@@ -1083 +1088 @@
 } // ?|?
 
-forall( istype & | istream( istype ) )
+forall( dtype istype | istream( istype ) )
 istype & ?|?( istype & is, _Istream_Char f ) {
         fmt( is, "%*c" );                                                                       // argument variable unused
@@ -1090 +1095 @@
 
 #define InputFMTImpl( T, CODE ) \
-forall( istype & | istream( istype ) ) \
+forall( dtype istype | istream( istype ) ) \
 istype & ?|?( istype & is, _Istream_Manip(T) f ) { \
         enum { size = 16 }; \
@@ -1119 +1124 @@
 InputFMTImpl( long double, "Lf" )
 
-forall( istype & | istream( istype ) )
+forall( dtype istype | istream( istype ) )
 istype & ?|?( istype & is, _Istream_Manip(float _Complex) fc ) {
         float re, im;
@@ -1130 +1135 @@
 } // ?|?
 
-forall( istype & | istream( istype ) )
+forall( dtype istype | istream( istype ) )
 istype & ?|?( istype & is, _Istream_Manip(double _Complex) dc ) {
         double re, im;
@@ -1141 +1146 @@
 } // ?|?
 
-forall( istype & | istream( istype ) )
+forall( dtype istype | istream( istype ) )
 istype & ?|?( istype & is, _Istream_Manip(long double _Complex) ldc ) {
         long double re, im;