Changes in src/libcfa/iostream.c [e945826:e24f13a]
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/libcfa/iostream.c
re945826 re24f13a 5 5 // file "LICENCE" distributed with Cforall. 6 6 // 7 // iostream.c -- 7 // iostream.c -- 8 8 // 9 9 // Author : Peter A. Buhr 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Sat Apr 30 14:00:53201613 // Update Count : 30 212 // Last Modified On : Thu May 26 10:08:31 2016 13 // Update Count : 305 14 14 // 15 15 … … 21 21 #include <float.h> // DBL_DIG, LDBL_DIG 22 22 #include <complex.h> // creal, cimag 23 #include <ctype.h> // isspace, ispunct24 23 } 25 24 … … 184 183 } // ?|? 185 184 186 forall( dtype ostype | ostream( ostype ) ) 185 186 forall( dtype ostype | ostream( ostype ) ) 187 187 ostype * ?|?( ostype *os, ostype * (* manip)( ostype * ) ) { 188 188 return manip( os ); 189 189 } // ?|? 190 190 191 forall( dtype ostype | ostream( ostype ) ) 191 forall( dtype ostype | ostream( ostype ) ) 192 192 ostype * endl( ostype * os ) { 193 193 os | '\n'; … … 197 197 } // endl 198 198 199 forall( dtype ostype | ostream( ostype ) ) 199 forall( dtype ostype | ostream( ostype ) ) 200 200 ostype * sepOn( ostype * os ) { 201 201 sepOn( os ); … … 203 203 } // sepOn 204 204 205 forall( dtype ostype | ostream( ostype ) ) 205 forall( dtype ostype | ostream( ostype ) ) 206 206 ostype * sepOff( ostype * os ) { 207 207 sepOff( os ); … … 209 209 } // sepOff 210 210 211 forall( dtype ostype | ostream( ostype ) ) 211 forall( dtype ostype | ostream( ostype ) ) 212 212 ostype * sepEnable( ostype * os ) { 213 213 sepEnable( os ); … … 215 215 } // sepEnable 216 216 217 forall( dtype ostype | ostream( ostype ) ) 217 forall( dtype ostype | ostream( ostype ) ) 218 218 ostype * sepDisable( ostype * os ) { 219 219 sepDisable( os ); … … 335 335 } // ?|? 336 336 337 _Istream_cstrUC cstr( char * s ) { _Istream_cstrUC s = { s }; return s; }337 _Istream_cstrUC cstr( char * str ) { return (_Istream_cstrUC){ str }; } 338 338 forall( dtype istype | istream( istype ) ) 339 339 istype * ?|?( istype * is, _Istream_cstrUC cstr ) { … … 342 342 } // cstr 343 343 344 _Istream_cstrC cstr( char * s , int size ) { _Istream_cstrC s = { s, size }; return s; }344 _Istream_cstrC cstr( char * str, int size ) { return (_Istream_cstrC){ str, size }; } 345 345 forall( dtype istype | istream( istype ) ) 346 346 istype * ?|?( istype * is, _Istream_cstrC cstr ) {
Note:
See TracChangeset
for help on using the changeset viewer.