source: src/libcfa/iostream.c@ 2e60a1a

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 string with_gc
Last change on this file since 2e60a1a was 4040425, checked in by Peter A. Buhr <pabuhr@…>, 10 years ago

change keyword type to otype and context to trait
  • Property mode set to 100644
File size: 8.4 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 : Wed Mar 2 18:06:35 2016
13// Update Count : 208
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 return os;
30} // ?|?
31
32forall( dtype ostype | ostream( ostype ) )
33ostype * ?|?( ostype *os, short int si ) {
34 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
35 prtfmt( os, "%hd", si );
36 return os;
37} // ?|?
38
39forall( dtype ostype | ostream( ostype ) )
40ostype * ?|?( ostype *os, unsigned short int usi ) {
41 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
42 prtfmt( os, "%hu", usi );
43 return os;
44} // ?|?
45
46forall( dtype ostype | ostream( ostype ) )
47ostype * ?|?( ostype *os, int i ) {
48 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
49 prtfmt( os, "%d", i );
50 return os;
51} // ?|?
52
53forall( dtype ostype | ostream( ostype ) )
54ostype * ?|?( ostype *os, unsigned int ui ) {
55 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
56 prtfmt( os, "%u", ui );
57 return os;
58} // ?|?
59
60forall( dtype ostype | ostream( ostype ) )
61ostype * ?|?( ostype *os, long int li ) {
62 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
63 prtfmt( os, "%ld", li );
64 return os;
65} // ?|?
66
67forall( dtype ostype | ostream( ostype ) )
68ostype * ?|?( ostype *os, unsigned long int uli ) {
69 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
70 prtfmt( os, "%lu", uli );
71 return os;
72} // ?|?
73
74forall( dtype ostype | ostream( ostype ) )
75ostype * ?|?( ostype *os, long long int lli ) {
76 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
77 prtfmt( os, "%lld", lli );
78 return os;
79} // ?|?
80
81forall( dtype ostype | ostream( ostype ) )
82ostype * ?|?( ostype *os, unsigned long long int ulli ) {
83 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
84 prtfmt( os, "%llu", ulli );
85 return os;
86} // ?|?
87
88forall( dtype ostype | ostream( ostype ) )
89ostype * ?|?( ostype *os, float f ) {
90 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
91 prtfmt( os, "%g", f );
92 return os;
93} // ?|?
94
95forall( dtype ostype | ostream( ostype ) )
96ostype * ?|?( ostype *os, double d ) {
97 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
98 prtfmt( os, "%.*lg", DBL_DIG, d );
99 return os;
100} // ?|?
101
102forall( dtype ostype | ostream( ostype ) )
103ostype * ?|?( ostype *os, long double ld ) {
104 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
105 prtfmt( os, "%.*Lg", LDBL_DIG, ld );
106 return os;
107} // ?|?
108
109forall( dtype ostype | ostream( ostype ) )
110ostype * ?|?( ostype *os, float _Complex fc ) {
111 os | crealf( fc );
112 if ( cimagf( fc ) >= 0 ) os | '+';
113 os | "" | cimagf( fc ) | 'i';
114 return os;
115} // ?|?
116
117forall( dtype ostype | ostream( ostype ) )
118ostype * ?|?( ostype *os, double _Complex dc ) {
119 os | creal( dc );
120 if ( cimag( dc ) >= 0 ) os | '+';
121 os | "" | cimag( dc ) | 'i';
122 return os;
123} // ?|?
124
125forall( dtype ostype | ostream( ostype ) )
126ostype * ?|?( ostype *os, long double _Complex ldc ) {
127 os | creall( ldc );
128 if ( cimagl( ldc ) >= 0 ) os | '+';
129 os | "" | cimagl( ldc ) | 'i';
130 return os;
131} // ?|?
132
133forall( dtype ostype | ostream( ostype ) )
134ostype * ?|?( ostype *os, const char *cp ) {
135 int len = strlen( cp );
136 // null string => no separator
137 if ( len == 0 ) { sepOff( os ); return os; }
138 // first character NOT spacing or special punctuation => add left separator
139 if ( sepPrt( os ) && isspace( cp[0] ) == 0 && cp[0] != '.' && cp[0] != ',' ) {
140 prtfmt( os, "%s", sepGet( os ) );
141 } // if
142 // last character is spacing or special punctuation => turn off separator for next item
143 unsigned int posn = len - 1;
144 if ( isspace( cp[posn] ) || cp[posn] == ':' || cp[posn] == '$' ) {
145 sepOff( os );
146 } else {
147 sepOn( os );
148 } // if
149 return write( os, cp, len );
150} // ?|?
151
152forall( dtype ostype | ostream( ostype ) )
153ostype * ?|?( ostype *os, const void *p ) {
154 if ( sepPrt( os ) ) prtfmt( os, "%s", sepGet( os ) ); else sepOn( os );
155 prtfmt( os, "%p", p );
156 return os;
157} // ?|?
158
159
160forall( dtype ostype | ostream( ostype ) )
161ostype * ?|?( ostype *os, ostype * (* manip)( ostype * ) ) {
162 return manip( os );
163} // ?|?
164
165forall( dtype ostype | ostream( ostype ) )
166ostype * endl( ostype * os ) {
167 os | '\n';
168 flush( os );
169 sepOff( os );
170 return os;
171} // endl
172
173forall( dtype ostype | ostream( ostype ) )
174ostype * sepOn( ostype * os ) {
175 sepOn( os );
176 return os;
177} // sepOn
178
179forall( dtype ostype | ostream( ostype ) )
180ostype * sepOff( ostype * os ) {
181 sepOff( os );
182 return os;
183} // sepOff
184
185//---------------------------------------
186
187forall( otype elttype | writeable( elttype ), otype iteratortype | iterator( iteratortype, elttype ), dtype ostype | ostream( ostype ) )
188void write( iteratortype begin, iteratortype end, ostype *os ) {
189 void print( elttype i ) { os | i; }
190 for_each( begin, end, print );
191} // ?|?
192
193forall( otype elttype | writeable( elttype ), otype iteratortype | iterator( iteratortype, elttype ), dtype ostype | ostream( ostype ) )
194void write_reverse( iteratortype begin, iteratortype end, ostype *os ) {
195 void print( elttype i ) { os | i; }
196 for_each_reverse( begin, end, print );
197} // ?|?
198
199//---------------------------------------
200
201forall( dtype istype | istream( istype ) )
202istype * ?|?( istype * is, char * c ) {
203 scanfmt( is, "%c", c );
204 return is;
205} // ?|?
206
207forall( dtype istype | istream( istype ) )
208istype * ?|?( istype * is, short int * si ) {
209 scanfmt( is, "%hd", si );
210 return is;
211} // ?|?
212
213forall( dtype istype | istream( istype ) )
214istype * ?|?( istype * is, unsigned short int * usi ) {
215 scanfmt( is, "%hu", usi );
216 return is;
217} // ?|?
218
219forall( dtype istype | istream( istype ) )
220istype * ?|?( istype * is, int * i ) {
221 scanfmt( is, "%d", i );
222 return is;
223} // ?|?
224
225forall( dtype istype | istream( istype ) )
226istype * ?|?( istype * is, unsigned int * ui ) {
227 scanfmt( is, "%u", ui );
228 return is;
229} // ?|?
230
231forall( dtype istype | istream( istype ) )
232istype * ?|?( istype * is, long int * li ) {
233 scanfmt( is, "%ld", li );
234 return is;
235} // ?|?
236
237forall( dtype istype | istream( istype ) )
238istype * ?|?( istype * is, unsigned long int * ulli ) {
239 scanfmt( is, "%lu", ulli );
240 return is;
241} // ?|?
242
243forall( dtype istype | istream( istype ) )
244istype * ?|?( istype * is, long long int * lli ) {
245 scanfmt( is, "%lld", lli );
246 return is;
247} // ?|?
248
249forall( dtype istype | istream( istype ) )
250istype * ?|?( istype * is, unsigned long long int * ulli ) {
251 scanfmt( is, "%llu", ulli );
252 return is;
253} // ?|?
254
255
256forall( dtype istype | istream( istype ) )
257istype * ?|?( istype * is, float * f ) {
258 scanfmt( is, "%f", f );
259 return is;
260} // ?|?
261
262forall( dtype istype | istream( istype ) )
263istype * ?|?( istype * is, double * d ) {
264 scanfmt( is, "%lf", d );
265 return is;
266} // ?|?
267
268forall( dtype istype | istream( istype ) )
269istype * ?|?( istype * is, long double * ld ) {
270 scanfmt( is, "%Lf", ld );
271 return is;
272} // ?|?
273
274
275forall( dtype istype | istream( istype ) )
276istype * ?|?( istype * is, float _Complex * fc ) {
277 float re, im;
278 scanfmt( is, "%g%gi", &re, &im );
279 *fc = re + im * _Complex_I;
280 return is;
281} // ?|?
282
283forall( dtype istype | istream( istype ) )
284istype * ?|?( istype * is, double _Complex * dc ) {
285 double re, im;
286 scanfmt( is, "%lf%lfi", &re, &im );
287 *dc = re + im * _Complex_I;
288 return is;
289} // ?|?
290
291forall( dtype istype | istream( istype ) )
292istype * ?|?( istype * is, long double _Complex * ldc ) {
293 long double re, im;
294 scanfmt( is, "%Lf%Lfi", &re, &im );
295 *ldc = re + im * _Complex_I;
296 return is;
297} // ?|?
298
299_Istream_str1 str( char * s ) { _Istream_str1 s = { s }; return s; }
300forall( dtype istype | istream( istype ) )
301istype * ?|?( istype * is, _Istream_str1 str ) {
302 scanfmt( is, "%s", str.s );
303 return is;
304} // str
305
306_Istream_str2 str( char * s, int size ) { _Istream_str2 s = { s, size }; return s; }
307forall( dtype istype | istream( istype ) )
308istype * ?|?( istype * is, _Istream_str2 str ) {
309 char buf[16];
310 sprintf( buf, "%%%ds", str.size );
311 scanfmt( is, buf, str.s );
312 return is;
313} // str
314
315// Local Variables: //
316// tab-width: 4 //
317// compile-command: "cfa iostream.c" //
318// End: //
Note: See TracBrowser for help on using the repository browser.