Changes in src/libcfa/iostream.c [e24f13a:e945826]

File:

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

src/libcfa/iostream.c

@@ -5 +5 @@
 // file "LICENCE" distributed with Cforall.
 //
-// iostream.c --
+// iostream.c -- 
 //
 // Author           : Peter A. Buhr
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu May 26 10:08:31 2016
-// Update Count     : 305
+// Last Modified On : Sat Apr 30 14:00:53 2016
+// Update Count     : 302
 //
 
@@ -21 +21 @@
 #include <float.h>                                                                              // DBL_DIG, LDBL_DIG
 #include <complex.h>                                                                    // creal, cimag
+#include <ctype.h>                                                                              // isspace, ispunct
 }
 
@@ -183 +184 @@
 } // ?|?
 
-
-forall( dtype ostype | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) ) 
 ostype * ?|?( ostype *os, ostype * (* manip)( ostype * ) ) {
         return manip( os );
 } // ?|?
 
-forall( dtype ostype | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) ) 
 ostype * endl( ostype * os ) {
         os | '\n';
@@ -197 +197 @@
 } // endl
 
-forall( dtype ostype | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) ) 
 ostype * sepOn( ostype * os ) {
         sepOn( os );
@@ -203 +203 @@
 } // sepOn
 
-forall( dtype ostype | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) ) 
 ostype * sepOff( ostype * os ) {
         sepOff( os );
@@ -209 +209 @@
 } // sepOff
 
-forall( dtype ostype | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) ) 
 ostype * sepEnable( ostype * os ) {
         sepEnable( os );
@@ -215 +215 @@
 } // sepEnable
 
-forall( dtype ostype | ostream( ostype ) )
+forall( dtype ostype | ostream( ostype ) ) 
 ostype * sepDisable( ostype * os ) {
         sepDisable( os );
@@ -335 +335 @@
 } // ?|?
 
-_Istream_cstrUC cstr( char * str ) { return (_Istream_cstrUC){ str }; }
+_Istream_cstrUC cstr( char * s ) { _Istream_cstrUC s = { s }; return s; }
 forall( dtype istype | istream( istype ) )
 istype * ?|?( istype * is, _Istream_cstrUC cstr ) {
@@ -342 +342 @@
 } // cstr
 
-_Istream_cstrC cstr( char * str, int size ) { return (_Istream_cstrC){ str, size }; }
+_Istream_cstrC cstr( char * s, int size ) { _Istream_cstrC s = { s, size }; return s; }
 forall( dtype istype | istream( istype ) )
 istype * ?|?( istype * is, _Istream_cstrC cstr ) {