source: src/libcfa/iostream.c@ b4cd03b7

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 b4cd03b7 was 5721a6d, checked in by Peter A. Buhr <pabuhr@…>, 10 years ago

correctly set type for complex constants, consolidate function name tables, add offsetof, refactor printing complex constants to use basic types
  • Property mode set to 100644
File size: 4.5 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 : Richard C. Bilson
10// Created On : Wed May 27 17:56:53 2015
11// Last Modified By : Peter A. Buhr
12// Last Modified On : Mon Feb 1 14:20:30 2016
13// Update Count : 60
14//
15
16#include "iostream"
17
18extern "C" {
19#include <stdio.h>
20#include <string.h> // strlen
21#include <complex.h> // creal, cimag
22}
23
24forall( dtype ostype | ostream( ostype ) )
25ostype * ?|?( ostype *os, char c ) {
26 return write( os, &c, 1 );
27} // ?|?
28
29forall( dtype ostype | ostream( ostype ) )
30ostype * ?|?( ostype *os, int i ) {
31 char buffer[32];
32 return write( os, buffer, sprintf( buffer, "%d", i ) );
33} // ?|?
34
35forall( dtype ostype | ostream( ostype ) )
36ostype * ?|?( ostype *os, unsigned int i ) {
37 char buffer[32];
38 return write( os, buffer, sprintf( buffer, "%u", i ) );
39} // ?|?
40
41forall( dtype ostype | ostream( ostype ) )
42ostype * ?|?( ostype *os, long int i ) {
43 char buffer[32];
44 return write( os, buffer, sprintf( buffer, "%ld", i ) );
45} // ?|?
46
47forall( dtype ostype | ostream( ostype ) )
48ostype * ?|?( ostype *os, long long int i ) {
49 char buffer[32];
50 return write( os, buffer, sprintf( buffer, "%lld", i ) );
51} // ?|?
52
53forall( dtype ostype | ostream( ostype ) )
54ostype * ?|?( ostype *os, unsigned long int i ) {
55 char buffer[32];
56 return write( os, buffer, sprintf( buffer, "%lu", i ) );
57} // ?|?
58
59forall( dtype ostype | ostream( ostype ) )
60ostype * ?|?( ostype *os, unsigned long long int i ) {
61 char buffer[32];
62 return write( os, buffer, sprintf( buffer, "%llu", i ) );
63} // ?|?
64
65forall( dtype ostype | ostream( ostype ) )
66ostype * ?|?( ostype *os, float f ) {
67 char buffer[32];
68 return write( os, buffer, sprintf( buffer, "%g", f ) );
69} // ?|?
70
71forall( dtype ostype | ostream( ostype ) )
72ostype * ?|?( ostype *os, double d ) {
73 char buffer[32];
74 return write( os, buffer, sprintf( buffer, "%g", d ) );
75} // ?|?
76
77forall( dtype ostype | ostream( ostype ) )
78ostype * ?|?( ostype *os, long double d ) {
79 char buffer[32];
80 return write( os, buffer, sprintf( buffer, "%Lg", d ) );
81} // ?|?
82
83forall( dtype ostype | ostream( ostype ) )
84ostype * ?|?( ostype *os, float _Complex c ) {
85 return os | crealf( c ) | (cimagf( c ) < 0 ? "" : "+") | cimagf( c ) | 'i';
86} // ?|?
87
88forall( dtype ostype | ostream( ostype ) )
89ostype * ?|?( ostype *os, double _Complex c ) {
90 return os | creal( c ) | (cimag( c ) < 0 ? "" : "+") | cimag( c ) | 'i';
91} // ?|?
92
93forall( dtype ostype | ostream( ostype ) )
94ostype * ?|?( ostype *os, long double _Complex c ) {
95 return os | creall( c ) | (cimagl( c ) < 0 ? "" : "+") | cimagl( c ) | 'i';
96} // ?|?
97
98forall( dtype ostype | ostream( ostype ) )
99ostype * ?|?( ostype *os, const void *p ) {
100 char buffer[32];
101 return write( os, buffer, sprintf( buffer, "%p", p ) );
102} // ?|?
103
104forall( dtype ostype | ostream( ostype ) )
105ostype * ?|?( ostype *os, const char *cp ) {
106 return write( os, cp, strlen( cp ) );
107} // ?|?
108
109
110forall( dtype ostype, dtype retostype | ostream( ostype ) | ostream( retostype ) )
111retostype * ?|?( ostype *os, retostype * (*manip)(ostype*) ) {
112 return manip(os);
113}
114
115forall( dtype ostype | ostream( ostype ) )
116ostype * endl( ostype * os ) {
117 os | "\n";
118 // flush
119 return os;
120} // endl
121
122forall( type elt_type | writeable( elt_type ),
123 type iterator_type | iterator( iterator_type, elt_type ),
124 dtype os_type | ostream( os_type ) )
125void write( iterator_type begin, iterator_type end, os_type *os ) {
126 void print( elt_type i ) {
127 os | i | ' ';
128 }
129 for_each( begin, end, print );
130} // ?|?
131
132forall( type elt_type | writeable( elt_type ),
133 type iterator_type | iterator( iterator_type, elt_type ),
134 dtype os_type | ostream( os_type ) )
135void write_reverse( iterator_type begin, iterator_type end, os_type *os ) {
136 void print( elt_type i ) { os | i | ' '; }
137 for_each_reverse( begin, end, print );
138} // ?|?
139
140
141forall( dtype istype | istream( istype ) )
142istype * ?|?( istype *is, char *cp ) {
143 return read( is, cp, 1 );
144} // ?|?
145
146forall( dtype istype | istream( istype ) )
147istype * ?|?( istype *is, int *ip ) {
148 char cur;
149
150 // skip some whitespace
151 do {
152 is | &cur;
153 if ( fail( is ) || eof( is ) ) return is;
154 } while ( !( cur >= '0' && cur <= '9' ) );
155
156 // accumulate digits
157 *ip = 0;
158 while ( cur >= '0' && cur <= '9' ) {
159 *ip = *ip * 10 + ( cur - '0' );
160 is | &cur;
161 if ( fail( is ) || eof( is ) ) return is;
162 }
163
164 unread( is, cur );
165 return is;
166} // ?|?
167
168// Local Variables: //
169// tab-width: 4 //
170// compile-command: "cfa iostream.c" //
171// End: //
Note: See TracBrowser for help on using the repository browser.