source: src/libcfa/iostream.c@ 13099105

ADT aaron-thesis arm-eh ast-experimental cleanup-dtors deferred_resn demangler enum forall-pointer-decay jacob/cs343-translation jenkins-sandbox new-ast new-ast-unique-expr new-env no_list persistent-indexer pthread-emulation qualifiedEnum resolv-new with_gc
Last change on this file since 13099105 was b65a9fc, checked in by Peter A. Buhr <pabuhr@…>, 8 years ago

change colon from closing to opening/closing delimiter

  • Property mode set to 100644
File size: 10.7 KB
RevLine 
[86bd7c1f]1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
[a5a71d0]7// iostream.c --
[86bd7c1f]8//
[90c3b1c]9// Author : Peter A. Buhr
[86bd7c1f]10// Created On : Wed May 27 17:56:53 2015
[e24f13a]11// Last Modified By : Peter A. Buhr
[b65a9fc]12// Last Modified On : Mon May 8 18:24:23 2017
13// Update Count : 369
[86bd7c1f]14//
[51b73452]15
[d3b7937]16#include "iostream"
17
[51b73452]18extern "C" {
19#include <stdio.h>
[839ccbb]20#include <string.h> // strlen
[52f85e0]21#include <float.h> // DBL_DIG, LDBL_DIG
[d3b7937]22#include <complex.h> // creal, cimag
[51b73452]23}
24
25forall( dtype ostype | ostream( ostype ) )
[829c907]26ostype * ?|?( ostype * os, char c ) {
27 fmt( os, "%c", c );
[53ba273]28 sepOff( os );
[90c3b1c]29 return os;
30} // ?|?
31
[1630f18]32forall( dtype ostype | ostream( ostype ) )
[829c907]33ostype * ?|?( ostype * os, signed char c ) {
34 fmt( os, "%hhd", c );
[1630f18]35 sepOff( os );
36 return os;
37} // ?|?
38
39forall( dtype ostype | ostream( ostype ) )
[829c907]40ostype * ?|?( ostype * os, unsigned char c ) {
41 fmt( os, "%hhu", c );
[1630f18]42 sepOff( os );
43 return os;
44} // ?|?
45
[90c3b1c]46forall( dtype ostype | ostream( ostype ) )
[829c907]47ostype * ?|?( ostype * os, short int si ) {
48 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
49 fmt( os, "%hd", si );
[90c3b1c]50 return os;
51} // ?|?
52
53forall( dtype ostype | ostream( ostype ) )
[829c907]54ostype * ?|?( ostype * os, unsigned short int usi ) {
55 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
56 fmt( os, "%hu", usi );
[90c3b1c]57 return os;
[cf16f94]58} // ?|?
[51b73452]59
60forall( dtype ostype | ostream( ostype ) )
[829c907]61ostype * ?|?( ostype * os, int i ) {
62 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
63 fmt( os, "%d", i );
[90c3b1c]64 return os;
[784deab]65} // ?|?
66
67forall( dtype ostype | ostream( ostype ) )
[829c907]68ostype * ?|?( ostype * os, unsigned int ui ) {
69 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
70 fmt( os, "%u", ui );
[90c3b1c]71 return os;
[784deab]72} // ?|?
73
74forall( dtype ostype | ostream( ostype ) )
[829c907]75ostype * ?|?( ostype * os, long int li ) {
76 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
77 fmt( os, "%ld", li );
[90c3b1c]78 return os;
[784deab]79} // ?|?
80
81forall( dtype ostype | ostream( ostype ) )
[829c907]82ostype * ?|?( ostype * os, unsigned long int uli ) {
83 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
84 fmt( os, "%lu", uli );
[90c3b1c]85 return os;
[784deab]86} // ?|?
87
88forall( dtype ostype | ostream( ostype ) )
[829c907]89ostype * ?|?( ostype * os, long long int lli ) {
90 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
91 fmt( os, "%lld", lli );
[90c3b1c]92 return os;
[784deab]93} // ?|?
94
95forall( dtype ostype | ostream( ostype ) )
[829c907]96ostype * ?|?( ostype * os, unsigned long long int ulli ) {
97 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
98 fmt( os, "%llu", ulli );
[90c3b1c]99 return os;
[cf16f94]100} // ?|?
[51b73452]101
[d3b7937]102forall( dtype ostype | ostream( ostype ) )
[829c907]103ostype * ?|?( ostype * os, float f ) {
104 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
105 fmt( os, "%g", f );
[90c3b1c]106 return os;
[d3b7937]107} // ?|?
108
[51b73452]109forall( dtype ostype | ostream( ostype ) )
[829c907]110ostype * ?|?( ostype * os, double d ) {
111 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
112 fmt( os, "%.*lg", DBL_DIG, d );
[90c3b1c]113 return os;
[cf16f94]114} // ?|?
[134b86a]115
116forall( dtype ostype | ostream( ostype ) )
[829c907]117ostype * ?|?( ostype * os, long double ld ) {
118 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
119 fmt( os, "%.*Lg", LDBL_DIG, ld );
[90c3b1c]120 return os;
[cf16f94]121} // ?|?
[51b73452]122
[d3b7937]123forall( dtype ostype | ostream( ostype ) )
[829c907]124ostype * ?|?( ostype * os, float _Complex fc ) {
[90c3b1c]125 os | crealf( fc );
[53ba273]126 _Bool temp = sepDisable( os ); // disable separators within complex value
127 if ( cimagf( fc ) >= 0 ) os | '+'; // negative value prints '-'
128 os | cimagf( fc ) | 'i';
129 sepReset( os, temp ); // reset separator
[90c3b1c]130 return os;
[d3b7937]131} // ?|?
132
133forall( dtype ostype | ostream( ostype ) )
[829c907]134ostype * ?|?( ostype * os, double _Complex dc ) {
[90c3b1c]135 os | creal( dc );
[53ba273]136 _Bool temp = sepDisable( os ); // disable separators within complex value
137 if ( cimag( dc ) >= 0 ) os | '+'; // negative value prints '-'
138 os | cimag( dc ) | 'i';
139 sepReset( os, temp ); // reset separator
[90c3b1c]140 return os;
[d3b7937]141} // ?|?
142
143forall( dtype ostype | ostream( ostype ) )
[829c907]144ostype * ?|?( ostype * os, long double _Complex ldc ) {
[90c3b1c]145 os | creall( ldc );
[53ba273]146 _Bool temp = sepDisable( os ); // disable separators within complex value
147 if ( cimagl( ldc ) >= 0 ) os | '+'; // negative value prints '-'
148 os | cimagl( ldc ) | 'i';
149 sepReset( os, temp ); // reset separator
[90c3b1c]150 return os;
[d3b7937]151} // ?|?
152
[e56cfdb0]153forall( dtype ostype | ostream( ostype ) )
[829c907]154ostype * ?|?( ostype * os, const char * cp ) {
[b63e376]155 enum { Open = 1, Close, OpenClose };
[a4dd728]156 static const unsigned char mask[256] @= {
[c443d1d]157 // opening delimiters, no space after
[b63e376]158 ['('] : Open, ['['] : Open, ['{'] : Open,
[cb91437]159 ['='] : Open, ['$'] : Open, [(unsigned char)'£'] : Open, [(unsigned char)'¥'] : Open,
[e945826]160 [(unsigned char)'¡'] : Open, [(unsigned char)'¿'] : Open, [(unsigned char)'«'] : Open,
[c443d1d]161 // closing delimiters, no space before
[b65a9fc]162 [','] : Close, ['.'] : Close, [';'] : Close, ['!'] : Close, ['?'] : Close,
[53ba273]163 ['%'] : Close, [(unsigned char)'¢'] : Close, [(unsigned char)'»'] : Close,
[829c907]164 [')'] : Close, [']'] : Close, ['}'] : Close,
[c443d1d]165 // opening-closing delimiters, no space before or after
[b65a9fc]166 ['\''] : OpenClose, ['`'] : OpenClose, ['"'] : OpenClose, [':'] : OpenClose,
[e945826]167 [' '] : OpenClose, ['\f'] : OpenClose, ['\n'] : OpenClose, ['\r'] : OpenClose, ['\t'] : OpenClose, ['\v'] : OpenClose, // isspace
[b63e376]168 }; // mask
169
[b72bad4f]170 if ( cp[0] == '\0' ) { sepOff( os ); return os; } // null string => no separator
171
[53ba273]172 // first character IS NOT spacing or closing punctuation => add left separator
173 unsigned char ch = cp[0]; // must make unsigned
174 if ( sepPrt( os ) && mask[ ch ] != Close && mask[ ch ] != OpenClose ) {
[829c907]175 fmt( os, "%s", sepGetCur( os ) );
[90c3b1c]176 } // if
[b72bad4f]177
178 // if string starts line, must reset to determine open state because separator is off
179 sepReset( os ); // reset separator
180
[b63e376]181 // last character IS spacing or opening punctuation => turn off separator for next item
[b72bad4f]182 unsigned int len = strlen( cp ), posn = len - 1;
[53ba273]183 ch = cp[posn]; // must make unsigned
[b72bad4f]184 if ( sepPrt( os ) && mask[ ch ] != Open && mask[ ch ] != OpenClose ) {
[90c3b1c]185 sepOn( os );
[b72bad4f]186 } else {
187 sepOff( os );
[90c3b1c]188 } // if
189 return write( os, cp, len );
[784deab]190} // ?|?
191
192forall( dtype ostype | ostream( ostype ) )
[829c907]193ostype * ?|?( ostype * os, const void * p ) {
194 if ( sepPrt( os ) ) fmt( os, "%s", sepGetCur( os ) );
195 fmt( os, "%p", p );
[90c3b1c]196 return os;
[cf16f94]197} // ?|?
198
199
[c443d1d]200// tuples
201forall( dtype ostype, otype T, ttype Params | ostream( ostype ) | writeable( T ) | { ostype * ?|?( ostype *, Params ); } )
202ostype * ?|?( ostype * os, T arg, Params rest ) {
[829c907]203 sepSetCur( os, sepGetTuple( os ) ); // switch to tuple separator
[0583064b]204 os | arg; // print first argument
205 os | rest; // print remaining arguments
[829c907]206 sepSetCur( os, sepGet( os ) ); // switch to regular separator
[cb91437]207 return os;
[c443d1d]208} // ?|?
209
210
211// manipulators
[a5a71d0]212forall( dtype ostype | ostream( ostype ) )
[4e06c1e]213ostype * ?|?( ostype * os, ostype * (* manip)( ostype * ) ) {
[90c3b1c]214 return manip( os );
215} // ?|?
[cf16f94]216
[a5a71d0]217forall( dtype ostype | ostream( ostype ) )
[cf16f94]218ostype * endl( ostype * os ) {
[90c3b1c]219 os | '\n';
[6ba0659]220 flush( os );
[0583064b]221 sepOff( os ); // prepare for next line
[6ba0659]222 return os;
[cf16f94]223} // endl
[e56cfdb0]224
[a5a71d0]225forall( dtype ostype | ostream( ostype ) )
[90c3b1c]226ostype * sepOn( ostype * os ) {
227 sepOn( os );
228 return os;
229} // sepOn
230
[a5a71d0]231forall( dtype ostype | ostream( ostype ) )
[90c3b1c]232ostype * sepOff( ostype * os ) {
233 sepOff( os );
234 return os;
235} // sepOff
236
[70a06f6]237forall( dtype ostype | ostream( ostype ) )
[53ba273]238ostype * sepEnable( ostype * os ) {
239 sepEnable( os );
240 return os;
241} // sepEnable
242
[70a06f6]243forall( dtype ostype | ostream( ostype ) )
[53ba273]244ostype * sepDisable( ostype * os ) {
245 sepDisable( os );
246 return os;
247} // sepDisable
248
[6ba0659]249//---------------------------------------
250
[4040425]251forall( otype elttype | writeable( elttype ), otype iteratortype | iterator( iteratortype, elttype ), dtype ostype | ostream( ostype ) )
[829c907]252void write( iteratortype begin, iteratortype end, ostype * os ) {
[90c3b1c]253 void print( elttype i ) { os | i; }
[e56cfdb0]254 for_each( begin, end, print );
[cf16f94]255} // ?|?
[e56cfdb0]256
[4040425]257forall( otype elttype | writeable( elttype ), otype iteratortype | iterator( iteratortype, elttype ), dtype ostype | ostream( ostype ) )
[829c907]258void write_reverse( iteratortype begin, iteratortype end, ostype * os ) {
[90c3b1c]259 void print( elttype i ) { os | i; }
[e56cfdb0]260 for_each_reverse( begin, end, print );
[cf16f94]261} // ?|?
[e56cfdb0]262
[6ba0659]263//---------------------------------------
[e56cfdb0]264
[51b73452]265forall( dtype istype | istream( istype ) )
[90c3b1c]266istype * ?|?( istype * is, char * c ) {
[829c907]267 fmt( is, "%c", c );
[90c3b1c]268 return is;
269} // ?|?
270
271forall( dtype istype | istream( istype ) )
272istype * ?|?( istype * is, short int * si ) {
[829c907]273 fmt( is, "%hd", si );
[90c3b1c]274 return is;
275} // ?|?
276
277forall( dtype istype | istream( istype ) )
278istype * ?|?( istype * is, unsigned short int * usi ) {
[829c907]279 fmt( is, "%hu", usi );
[90c3b1c]280 return is;
281} // ?|?
282
283forall( dtype istype | istream( istype ) )
284istype * ?|?( istype * is, int * i ) {
[829c907]285 fmt( is, "%d", i );
[90c3b1c]286 return is;
287} // ?|?
288
289forall( dtype istype | istream( istype ) )
290istype * ?|?( istype * is, unsigned int * ui ) {
[829c907]291 fmt( is, "%u", ui );
[90c3b1c]292 return is;
293} // ?|?
294
295forall( dtype istype | istream( istype ) )
296istype * ?|?( istype * is, long int * li ) {
[829c907]297 fmt( is, "%ld", li );
[90c3b1c]298 return is;
[cf16f94]299} // ?|?
[51b73452]300
301forall( dtype istype | istream( istype ) )
[90c3b1c]302istype * ?|?( istype * is, unsigned long int * ulli ) {
[829c907]303 fmt( is, "%lu", ulli );
[90c3b1c]304 return is;
305} // ?|?
306
307forall( dtype istype | istream( istype ) )
308istype * ?|?( istype * is, long long int * lli ) {
[829c907]309 fmt( is, "%lld", lli );
[90c3b1c]310 return is;
311} // ?|?
312
313forall( dtype istype | istream( istype ) )
314istype * ?|?( istype * is, unsigned long long int * ulli ) {
[829c907]315 fmt( is, "%llu", ulli );
[90c3b1c]316 return is;
317} // ?|?
318
319
320forall( dtype istype | istream( istype ) )
321istype * ?|?( istype * is, float * f ) {
[829c907]322 fmt( is, "%f", f );
[90c3b1c]323 return is;
[cf16f94]324} // ?|?
[86bd7c1f]325
[90c3b1c]326forall( dtype istype | istream( istype ) )
327istype * ?|?( istype * is, double * d ) {
[829c907]328 fmt( is, "%lf", d );
[90c3b1c]329 return is;
330} // ?|?
331
332forall( dtype istype | istream( istype ) )
333istype * ?|?( istype * is, long double * ld ) {
[829c907]334 fmt( is, "%Lf", ld );
[90c3b1c]335 return is;
336} // ?|?
337
338
339forall( dtype istype | istream( istype ) )
340istype * ?|?( istype * is, float _Complex * fc ) {
341 float re, im;
[829c907]342 fmt( is, "%g%gi", &re, &im );
[90c3b1c]343 *fc = re + im * _Complex_I;
344 return is;
345} // ?|?
346
347forall( dtype istype | istream( istype ) )
348istype * ?|?( istype * is, double _Complex * dc ) {
349 double re, im;
[829c907]350 fmt( is, "%lf%lfi", &re, &im );
[90c3b1c]351 *dc = re + im * _Complex_I;
352 return is;
[cf16f94]353} // ?|?
[51b73452]354
355forall( dtype istype | istream( istype ) )
[90c3b1c]356istype * ?|?( istype * is, long double _Complex * ldc ) {
357 long double re, im;
[829c907]358 fmt( is, "%Lf%Lfi", &re, &im );
[90c3b1c]359 *ldc = re + im * _Complex_I;
360 return is;
[cf16f94]361} // ?|?
[86bd7c1f]362
[e24f13a]363_Istream_cstrUC cstr( char * str ) { return (_Istream_cstrUC){ str }; }
[90c3b1c]364forall( dtype istype | istream( istype ) )
[53ba273]365istype * ?|?( istype * is, _Istream_cstrUC cstr ) {
[829c907]366 fmt( is, "%s", cstr.s );
[90c3b1c]367 return is;
[53ba273]368} // cstr
[90c3b1c]369
[e24f13a]370_Istream_cstrC cstr( char * str, int size ) { return (_Istream_cstrC){ str, size }; }
[90c3b1c]371forall( dtype istype | istream( istype ) )
[53ba273]372istype * ?|?( istype * is, _Istream_cstrC cstr ) {
[90c3b1c]373 char buf[16];
[53ba273]374 sprintf( buf, "%%%ds", cstr.size );
[829c907]375 fmt( is, buf, cstr.s );
[90c3b1c]376 return is;
[53ba273]377} // cstr
[90c3b1c]378
[86bd7c1f]379// Local Variables: //
380// tab-width: 4 //
381// compile-command: "cfa iostream.c" //
382// End: //
Note: See TracBrowser for help on using the repository browser.