Changeset 0583064b for src/libcfa/iostream.c
- Timestamp:
- Mar 23, 2017, 10:39:30 AM (7 years ago)
- Branches:
- ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc
- Children:
- 6013bd7, 7895d46
- Parents:
- 89e1b16
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/libcfa/iostream.c
r89e1b16 r0583064b 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Wed Mar 22 17:46:06201713 // Update Count : 3 5912 // Last Modified On : Thu Mar 23 08:20:40 2017 13 // Update Count : 367 14 14 // 15 15 … … 201 201 forall( dtype ostype, otype T, ttype Params | ostream( ostype ) | writeable( T ) | { ostype * ?|?( ostype *, Params ); } ) 202 202 ostype * ?|?( ostype * os, T arg, Params rest ) { 203 forall( ttype Params ) ostype * prtTuple( T arg, Params rest ) {204 os | arg; // print first argument205 os | rest; // print remaining arguments206 return os;207 } // prtTuple208 203 sepSetCur( os, sepGetTuple( os ) ); // switch to tuple separator 209 prtTuple( arg, rest ); // recursively print tuple 204 os | arg; // print first argument 205 os | rest; // print remaining arguments 210 206 sepSetCur( os, sepGet( os ) ); // switch to regular separator 211 207 return os; … … 223 219 os | '\n'; 224 220 flush( os ); 225 sepOff( os ); 221 sepOff( os ); // prepare for next line 226 222 return os; 227 223 } // endl
Note: See TracChangeset
for help on using the changeset viewer.