source: src/libcfa/iostream.c@ 1048b31

ADT aaron-thesis arm-eh ast-experimental cleanup-dtors ctor deferred_resn demangler enum forall-pointer-decay gc_noraii jacob/cs343-translation jenkins-sandbox memory 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 1048b31 was e945826, checked in by Peter A. Buhr <pabuhr@…>, 9 years ago

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