Changeset cb91437 for src/libcfa/iostream.c
- Timestamp:
- Mar 22, 2017, 5:39:46 PM (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:
- 22854f8, 37f9860
- Parents:
- 87d13cd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/libcfa/iostream.c
r87d13cd rcb91437 10 10 // Created On : Wed May 27 17:56:53 2015 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Tue Mar 21 22:05:57201713 // Update Count : 3 4812 // Last Modified On : Wed Mar 22 17:21:23 2017 13 // Update Count : 358 14 14 // 15 15 … … 157 157 // opening delimiters, no space after 158 158 ['('] : Open, ['['] : Open, ['{'] : Open, 159 [' $'] : Open, ['='] : Open, [(unsigned char)'£'] : Open, [(unsigned char)'¥'] : Open,159 ['='] : Open, ['$'] : Open, [(unsigned char)'£'] : Open, [(unsigned char)'¥'] : Open, 160 160 [(unsigned char)'¡'] : Open, [(unsigned char)'¿'] : Open, [(unsigned char)'«'] : Open, 161 161 // closing delimiters, no space before … … 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( ostype * os, T arg, Params rest ) { 204 os | arg; // print first argument 205 os | rest; // print remaining arguments 206 return os; 207 } // prtTuple 203 208 sepSetCur( os, sepGetTuple( os ) ); // switch to tuple separator 204 os | arg; // print first argument 205 os | rest; // print remaining arguments 209 prtTuple( os, arg, rest ); // recursively print tuple 206 210 sepSetCur( os, sepGet( os ) ); // switch to regular separator 211 return os; 207 212 } // ?|? 208 213
Note: See TracChangeset
for help on using the changeset viewer.