source: src/examples/iostream.h @ 86bd7c1f

aaron-thesisarm-ehcleanup-dtorsctordeferred_resndemanglergc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerresolv-newstringwith_gc
Last change on this file since 86bd7c1f was 86bd7c1f, checked in by Peter A. Buhr <pabuhr@…>, 7 years ago

licencing: eighth groups of files

  • Property mode set to 100644
File size: 1.6 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.h --
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 : Wed May 27 18:18:46 2015
13// Update Count     : 1
14//
15
16#ifndef IOSTREAM_H
17#define IOSTREAM_H
18
19typedef unsigned long streamsize_type;
20
21context ostream( dtype ostype ) {
22        ostype *write( ostype *, const char *, streamsize_type );
23        int fail( ostype * );
24};
25
26context writeable( type T ) {
27        forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, T );
28};
29
30// implement writable for some intrinsic types
31
32forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, char );
33forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, int );
34forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, double );
35forall( dtype ostype | ostream( ostype ) ) ostype * ?<<?( ostype *, const char * );
36
37
38context istream( dtype istype ) {
39        istype *read( istype *, char *, streamsize_type );
40        istype *unread( istype *, char );
41        int fail( istype * );
42        int eof( istype * );
43};
44
45context readable( type T ) {
46        forall( dtype istype | istream( istype ) ) istype * ?<<?( istype *, T );
47};
48
49forall( dtype istype | istream( istype ) )
50istype * ?>>?( istype *, char * );
51
52forall( dtype istype | istream( istype ) )
53istype * ?>>?( istype *, int * );
54
55#endif // IOSTREAM_H
56
57// Local Variables: //
58// tab-width: 4 //
59// compile-command: "cfa iostream.c" //
60// End: //
Note: See TracBrowser for help on using the repository browser.