source: src/libcfa/iostream @ 8f610e85

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decaygc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newstringwith_gc
Last change on this file since 8f610e85 was 90c3b1c, checked in by Peter A. Buhr <pabuhr@…>, 8 years ago

compile CFA with C++11, further update refrat with lstlisting macros, support varags, enumeration initialization, add implicit separators to output streams, update example programs that print
  • Property mode set to 100644
File size: 5.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 --
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 16:44:32 2016
13// Update Count     : 81
14//
15
16#ifndef __IOSTREAM_H__
17#define __IOSTREAM_H__
18
19#include "iterator"
20
21context ostream( dtype ostype ) {
22        _Bool sepPrt( ostype * );
23        void sepOn( ostype * );
24        void sepOff( ostype * );
25        void sepSet( ostype *, const char * );
26        const char * sepGet( ostype * );
27        void sepDisable( ostype * );
28        void sepEnable( ostype * );
29        int fail( ostype * );
30        int flush( ostype * );
31        void open( ostype * os, const char * name, const char * mode );
32        void close( ostype * os );
33        ostype * write( ostype *, const char *, unsigned long int );
34        int prtfmt( ostype *, const char fmt[], ... );
35};
36
37context writeable( type T ) {
38        forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, T );
39};
40
41// implement writable for some intrinsic types
42
43forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, char );
44
45forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, short int );
46forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned short int );
47forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, int );
48forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned int );
49forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long int );
50forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long long int );
51forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned long int );
52forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, unsigned long long int );
53
54forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, float ); // FIX ME: should not be required
55forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, double );
56forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long double );
57
58forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, float _Complex );
59forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, double _Complex );
60forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, long double _Complex );
61
62forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, const char * );
63forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, const void * );
64
65forall( dtype ostype | ostream( ostype ) ) ostype * ?|?( ostype *, ostype * (*)( ostype * ) );
66forall( dtype ostype | ostream( ostype ) ) ostype * endl( ostype * );
67forall( dtype ostype | ostream( ostype ) ) ostype * sepOn( ostype * );
68forall( dtype ostype | ostream( ostype ) ) ostype * sepOff( ostype * );
69
70// writes the range [begin, end) to the given stream
71forall( type elt_type | writeable( elt_type ), type iterator_type | iterator( iterator_type, elt_type ), dtype os_type | ostream( os_type ) )
72void write( iterator_type begin, iterator_type end, os_type *os );
73
74forall( type elt_type | writeable( elt_type ), type iterator_type | iterator( iterator_type, elt_type ), dtype os_type | ostream( os_type ) )
75void write_reverse( iterator_type begin, iterator_type end, os_type *os );
76
77//---------------------------------------
78
79context istream( dtype istype ) {
80        int fail( istype * );
81        int eof( istype * );
82        void open( istype * is, const char * name, const char * mode );
83        void close( istype * is );
84        istype * read( istype *, char *, unsigned long int );
85        istype * ungetc( istype *, char );
86        int scanfmt( istype *, const char fmt[], ... );
87};
88
89context readable( type T ) {
90        forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, T );
91};
92
93forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, char * );
94
95forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, short int * );
96forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, unsigned short int * );
97forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, int * );
98forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, unsigned int * );
99forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, long int * );
100forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, long long int * );
101forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, unsigned long int * );
102forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, unsigned long long int * );
103
104forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, float * );
105forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, double * );
106forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, long double * );
107
108forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, float _Complex * );
109forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, double _Complex * );
110forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, long double _Complex * );
111
112struct _Istream_str1 { char * s; };
113_Istream_str1 str( char * );
114forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, _Istream_str1 );
115
116struct _Istream_str2 { char * s; int size; };
117_Istream_str2 str( char *, int size );
118forall( dtype istype | istream( istype ) ) istype * ?|?( istype *, _Istream_str2 );
119
120#endif // __IOSTREAM_H__
121
122// Local Variables: //
123// mode: c //
124// tab-width: 4 //
125// End: //
Note: See TracBrowser for help on using the repository browser.