Changes in src/libcfa/iostream.c [44574f2:1e6e08de]

File:

• src/libcfa/iostream.c (modified) (4 diffs)

src/libcfa/iostream.c

@@ -10 +10 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jan 25 13:09:28 2018
-// Update Count     : 467
+// Last Modified On : Thu Dec 21 13:55:09 2017
+// Update Count     : 427
 //
 
@@ -19 +19 @@
 #include <stdio.h>
 #include <stdbool.h>                                                                    // true/false
-//#include <string.h>                                                                           // strlen, strcmp
-extern int strcmp (const char *__s1, const char *__s2) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2)));
-extern size_t strlen (const char *__s) __attribute__ ((__nothrow__ , __leaf__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1)));
+#include <string.h>                                                                             // strlen
 #include <float.h>                                                                              // DBL_DIG, LDBL_DIG
 #include <complex.h>                                                                    // creal, cimag
@@ -303 +301 @@
 
 forall( dtype istype | istream( istype ) )
-istype & ?|?( istype & is, _Bool & b ) {
-        char val[6];
-        fmt( is, "%5s", val );
-        if ( strcmp( val, "true" ) == 0 ) b = true;
-        else if ( strcmp( val, "false" ) == 0 ) b = false;
-        else {
-                fprintf( stderr, "invalid _Bool constant\n" );
-                abort();
-        } // if
-        return is;
-} // ?|?
-
-forall( dtype istype | istream( istype ) )
 istype & ?|?( istype & is, char & c ) {
         fmt( is, "%c", &c );                                                            // must pass pointer through varg to fmt
@@ -425 +410 @@
 } // ?|?
 
-forall( dtype istype | istream( istype ) )
-istype & ?|?( istype & is, istype & (* manip)( istype & ) ) {
-        return manip( is );
-} // ?|?
-
-forall( dtype istype | istream( istype ) )
-istype & endl( istype & is ) {
-        fmt( is, "%*[ \t\f\n\r\v]" );                                           // ignore whitespace
-        return is;
-} // endl
-
 _Istream_cstrUC cstr( char * str ) { return (_Istream_cstrUC){ str }; }
 forall( dtype istype | istream( istype ) )