Context Navigation

iostream.hfa @ a82a8f4

ADTarm-ehast-experimentalenumforall-pointer-decayjacob/cs343-translationnew-astnew-ast-unique-exprpthread-emulationqualifiedEnum

Last change on this file since a82a8f4 was cadec25, checked in by Peter A. Buhr <pabuhr@…>, 4 years ago
#ifdef int128 code for reading
Property mode set to `100644`
File size: 19.1 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.hfa --
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 : Thu Jul 16 07:43:32 2020
13	// Update Count : 348
14	//
15
16	#pragma once
17
18	#include "iterator.hfa"
19
20
21	// ********************************* ostream *********************************
22
23
24	trait ostream( dtype ostype ) {
25	// private
26	bool $sepPrt( ostype & ); // get separator state (on/off)
27	void $sepReset( ostype & ); // set separator state to default state
28	void $sepReset( ostype &, bool ); // set separator and default state
29	const char * $sepGetCur( ostype & ); // get current separator string
30	void $sepSetCur( ostype &, const char [] ); // set current separator string
31	bool $getNL( ostype & ); // check newline
32	void $setNL( ostype &, bool ); // saw newline
33	bool $getANL( ostype & ); // get auto newline (on/off)
34	bool $getPrt( ostype & ); // get fmt called in output cascade
35	void $setPrt( ostype &, bool ); // set fmt called in output cascade
36	// public
37	void sepOn( ostype & ); // turn separator state on
38	void sepOff( ostype & ); // turn separator state off
39	bool sepDisable( ostype & ); // set default state to off, and return previous state
40	bool sepEnable( ostype & ); // set default state to on, and return previous state
41	void nlOn( ostype & ); // turn auto-newline state on
42	void nlOff( ostype & ); // turn auto-newline state off
43
44	const char * sepGet( ostype & ); // get separator string
45	void sepSet( ostype &, const char [] ); // set separator to string (15 character maximum)
46	const char * sepGetTuple( ostype & ); // get tuple separator string
47	void sepSetTuple( ostype &, const char [] ); // set tuple separator to string (15 character maximum)
48
49	void ends( ostype & os ); // end of output statement
50	int fail( ostype & );
51	int flush( ostype & );
52	void open( ostype & os, const char name[], const char mode[] );
53	void close( ostype & os );
54	ostype & write( ostype &, const char [], size_t );
55	int fmt( ostype &, const char format[], ... ) __attribute__(( format(printf, 2, 3) ));
56	}; // ostream
57
58	// trait writeable( otype T ) {
59	// forall( dtype ostype \| ostream( ostype ) ) ostype & ?\|?( ostype &, T );
60	// }; // writeable
61
62	trait writeable( otype T, dtype ostype \| ostream( ostype ) ) {
63	ostype & ?\|?( ostype &, T );
64	}; // writeable
65
66	// implement writable for intrinsic types
67
68	forall( dtype ostype \| ostream( ostype ) ) {
69	ostype & ?\|?( ostype &, zero_t );
70	void ?\|?( ostype &, zero_t );
71	ostype & ?\|?( ostype &, one_t );
72	void ?\|?( ostype &, one_t );
73
74	ostype & ?\|?( ostype &, bool );
75	void ?\|?( ostype &, bool );
76
77	ostype & ?\|?( ostype &, char );
78	void ?\|?( ostype &, char );
79	ostype & ?\|?( ostype &, signed char );
80	void ?\|?( ostype &, signed char );
81	ostype & ?\|?( ostype &, unsigned char );
82	void ?\|?( ostype &, unsigned char );
83
84	ostype & ?\|?( ostype &, short int );
85	void ?\|?( ostype &, short int );
86	ostype & ?\|?( ostype &, unsigned short int );
87	void ?\|?( ostype &, unsigned short int );
88	ostype & ?\|?( ostype &, int );
89	void ?\|?( ostype &, int );
90	ostype & ?\|?( ostype &, unsigned int );
91	void ?\|?( ostype &, unsigned int );
92	ostype & ?\|?( ostype &, long int );
93	void ?\|?( ostype &, long int );
94	ostype & ?\|?( ostype &, long long int );
95	void ?\|?( ostype &, long long int );
96	ostype & ?\|?( ostype &, unsigned long int );
97	void ?\|?( ostype &, unsigned long int );
98	ostype & ?\|?( ostype &, unsigned long long int );
99	void ?\|?( ostype &, unsigned long long int );
100	#if defined( __SIZEOF_INT128__ )
101	ostype & ?\|?( ostype &, int128 );
102	void ?\|?( ostype &, int128 );
103	ostype & ?\|?( ostype &, unsigned int128 );
104	void ?\|?( ostype &, unsigned int128 );
105	#endif // __SIZEOF_INT128__
106
107	ostype & ?\|?( ostype &, float );
108	void ?\|?( ostype &, float );
109	ostype & ?\|?( ostype &, double );
110	void ?\|?( ostype &, double );
111	ostype & ?\|?( ostype &, long double );
112	void ?\|?( ostype &, long double );
113
114	ostype & ?\|?( ostype &, float _Complex );
115	void ?\|?( ostype &, float _Complex );
116	ostype & ?\|?( ostype &, double _Complex );
117	void ?\|?( ostype &, double _Complex );
118	ostype & ?\|?( ostype &, long double _Complex );
119	void ?\|?( ostype &, long double _Complex );
120
121	ostype & ?\|?( ostype &, const char [] );
122	void ?\|?( ostype &, const char [] );
123	// ostype & ?\|?( ostype &, const char16_t * );
124	#if ! ( __ARM_ARCH_ISA_ARM == 1 && __ARM_32BIT_STATE == 1 ) // char32_t == wchar_t => ambiguous
125	// ostype & ?\|?( ostype &, const char32_t * );
126	#endif // ! ( __ARM_ARCH_ISA_ARM == 1 && __ARM_32BIT_STATE == 1 )
127	// ostype & ?\|?( ostype &, const wchar_t * );
128	ostype & ?\|?( ostype &, const void * );
129	void ?\|?( ostype &, const void * );
130
131	// manipulators
132	ostype & ?\|?( ostype &, ostype & (*)( ostype & ) );
133	void ?\|?( ostype &, ostype & (*)( ostype & ) );
134	ostype & nl( ostype & );
135	ostype & nonl( ostype & );
136	ostype & sep( ostype & );
137	ostype & sepTuple( ostype & );
138	ostype & sepOn( ostype & );
139	ostype & sepOff( ostype & );
140	ostype & sepDisable( ostype & );
141	ostype & sepEnable( ostype & );
142	ostype & nlOn( ostype & );
143	ostype & nlOff( ostype & );
144	} // distribution
145
146	// tuples
147	forall( dtype ostype, otype T, ttype Params \| writeable( T, ostype ) \| { ostype & ?\|?( ostype &, Params ); } ) {
148	ostype & ?\|?( ostype & os, T arg, Params rest );
149	void ?\|?( ostype & os, T arg, Params rest );
150	} // distribution
151
152	// writes the range [begin, end) to the given stream
153	forall( dtype ostype, otype elt_type \| writeable( elt_type, ostype ), otype iterator_type \| iterator( iterator_type, elt_type ) ) {
154	void write( iterator_type begin, iterator_type end, ostype & os );
155	void write_reverse( iterator_type begin, iterator_type end, ostype & os );
156	} // distribution
157
158	// ********************************* manipulators *********************************
159
160	forall( otype T )
161	struct _Ostream_Manip {
162	T val; // polymorphic base-type
163	unsigned int wd, pc; // width, precision
164	char base; // numeric base / floating-point style
165	union {
166	unsigned char all;
167	struct {
168	unsigned char neg:1; // val is negative
169	unsigned char pc:1; // precision specified
170	unsigned char left:1; // left justify
171	unsigned char nobsdp:1; // base prefix / decimal point
172	unsigned char sign:1; // plus / minus sign
173	unsigned char pad0:1; // zero pad
174	} flags;
175	};
176	}; // _Ostream_Manip
177
178	// ********************************* integral *********************************
179
180	// See 6.7.9. 19) The initialization shall occur in initializer list order, each initializer provided for a particular
181	// subobject overriding any previously listed initializer for the same subobject; ***all subobjects that are not
182	// initialized explicitly shall be initialized implicitly the same as objects that have static storage duration.***
183
184	#define IntegralFMTDecl( T, CODE ) \
185	static inline { \
186	_Ostream_Manip(T) bin( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'b', { .all : 0 } }; } \
187	_Ostream_Manip(T) oct( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'o', { .all : 0 } }; } \
188	_Ostream_Manip(T) hex( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'x', { .all : 0 } }; } \
189	_Ostream_Manip(T) wd( unsigned int w, T val ) { return (_Ostream_Manip(T))@{ val, w, 0, CODE, { .all : 0 } }; } \
190	_Ostream_Manip(T) wd( unsigned int w, unsigned char pc, T val ) { return (_Ostream_Manip(T))@{ val, w, pc, CODE, { .flags.pc : true } }; } \
191	_Ostream_Manip(T) & wd( unsigned int w, _Ostream_Manip(T) & fmt ) { fmt.wd = w; return fmt; } \
192	_Ostream_Manip(T) & wd( unsigned int w, unsigned char pc, _Ostream_Manip(T) & fmt ) { fmt.wd = w; fmt.pc = pc; fmt.flags.pc = true; return fmt; } \
193	_Ostream_Manip(T) & left( _Ostream_Manip(T) & fmt ) { fmt.flags.left = true; return fmt; } \
194	_Ostream_Manip(T) & upcase( _Ostream_Manip(T) & fmt ) { if ( fmt.base == 'x' \|\| fmt.base == 'b' ) fmt.base -= 32; /* upper case */ return fmt; } \
195	_Ostream_Manip(T) & nobase( _Ostream_Manip(T) & fmt ) { fmt.flags.nobsdp = true; return fmt; } \
196	_Ostream_Manip(T) & pad0( _Ostream_Manip(T) & fmt ) { fmt.flags.pad0 = true; return fmt; } \
197	_Ostream_Manip(T) sign( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, CODE, { .flags.sign : true } }; } \
198	_Ostream_Manip(T) & sign( _Ostream_Manip(T) & fmt ) { fmt.flags.sign = true; return fmt; } \
199	} /* distribution */ \
200	forall( dtype ostype \| ostream( ostype ) ) { \
201	ostype & ?\|?( ostype & os, _Ostream_Manip(T) f ); \
202	void ?\|?( ostype & os, _Ostream_Manip(T) f ); \
203	} // ?\|?
204
205	IntegralFMTDecl( signed char, 'd' )
206	IntegralFMTDecl( unsigned char, 'u' )
207	IntegralFMTDecl( signed short int, 'd' )
208	IntegralFMTDecl( unsigned short int, 'u' )
209	IntegralFMTDecl( signed int, 'd' )
210	IntegralFMTDecl( unsigned int, 'u' )
211	IntegralFMTDecl( signed long int, 'd' )
212	IntegralFMTDecl( unsigned long int, 'u' )
213	IntegralFMTDecl( signed long long int, 'd' )
214	IntegralFMTDecl( unsigned long long int, 'u' )
215	#if defined( __SIZEOF_INT128__ )
216	IntegralFMTDecl( int128, 'd' )
217	IntegralFMTDecl( unsigned int128, 'u' )
218	#endif // __SIZEOF_INT128__
219
220	// ********************************* floating point *********************************
221
222	// Default suffix for values with no fraction is "."
223	#define FloatingPointFMTDecl( T ) \
224	static inline { \
225	_Ostream_Manip(T) hex( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'a', { .all : 0 } }; } \
226	_Ostream_Manip(T) sci( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'e', { .all : 0 } }; } \
227	_Ostream_Manip(T) wd( unsigned int w, T val ) { return (_Ostream_Manip(T))@{ val, w, 0, 'f', { .all : 0 } }; } \
228	_Ostream_Manip(T) wd( unsigned int w, unsigned char pc, T val ) { return (_Ostream_Manip(T))@{ val, w, pc, 'f', { .flags.pc : true } }; } \
229	_Ostream_Manip(T) ws( unsigned int w, unsigned char pc, T val ) { return (_Ostream_Manip(T))@{ val, w, pc, 'g', { .flags.pc : true } }; } \
230	_Ostream_Manip(T) & wd( unsigned int w, _Ostream_Manip(T) & fmt ) { fmt.wd = w; return fmt; } \
231	_Ostream_Manip(T) & wd( unsigned int w, unsigned char pc, _Ostream_Manip(T) & fmt ) { fmt.wd = w; fmt.pc = pc; fmt.flags.pc = true; return fmt; } \
232	_Ostream_Manip(T) & left( _Ostream_Manip(T) & fmt ) { fmt.flags.left = true; return fmt; } \
233	_Ostream_Manip(T) upcase( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'G', { .all : 0 } }; } \
234	_Ostream_Manip(T) & upcase( _Ostream_Manip(T) & fmt ) { fmt.base -= 32; /* upper case */ return fmt; } \
235	_Ostream_Manip(T) & pad0( _Ostream_Manip(T) & fmt ) { fmt.flags.pad0 = true; return fmt; } \
236	_Ostream_Manip(T) sign( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'g', { .flags.sign : true } }; } \
237	_Ostream_Manip(T) & sign( _Ostream_Manip(T) & fmt ) { fmt.flags.sign = true; return fmt; } \
238	_Ostream_Manip(T) nodp( T val ) { return (_Ostream_Manip(T))@{ val, 1, 0, 'g', { .flags.nobsdp : true } }; } \
239	_Ostream_Manip(T) & nodp( _Ostream_Manip(T) & fmt ) { fmt.flags.nobsdp = true; return fmt; } \
240	} /* distribution */ \
241	forall( dtype ostype \| ostream( ostype ) ) { \
242	ostype & ?\|?( ostype & os, _Ostream_Manip(T) f ); \
243	void ?\|?( ostype & os, _Ostream_Manip(T) f ); \
244	} // ?\|?
245
246	FloatingPointFMTDecl( double )
247	FloatingPointFMTDecl( long double )
248
249	// ********************************* character *********************************
250
251	static inline {
252	_Ostream_Manip(char) bin( char c ) { return (_Ostream_Manip(char))@{ c, 1, 0, 'b', { .all : 0 } }; }
253	_Ostream_Manip(char) oct( char c ) { return (_Ostream_Manip(char))@{ c, 1, 0, 'o', { .all : 0 } }; }
254	_Ostream_Manip(char) hex( char c ) { return (_Ostream_Manip(char))@{ c, 1, 0, 'x', { .all : 0 } }; }
255	_Ostream_Manip(char) wd( unsigned int w, char c ) { return (_Ostream_Manip(char))@{ c, w, 0, 'c', { .all : 0 } }; }
256	_Ostream_Manip(char) & wd( unsigned int w, _Ostream_Manip(char) & fmt ) { fmt.wd = w; return fmt; }
257	_Ostream_Manip(char) & left( _Ostream_Manip(char) & fmt ) { fmt.flags.left = true; return fmt; }
258	_Ostream_Manip(char) & upcase( _Ostream_Manip(char) & fmt ) { if ( fmt.base == 'x' \|\| fmt.base == 'b' ) fmt.base -= 32; /* upper case */ return fmt; }
259	_Ostream_Manip(char) & nobase( _Ostream_Manip(char) & fmt ) { fmt.flags.nobsdp = true; return fmt; }
260	} // distribution
261	forall( dtype ostype \| ostream( ostype ) ) {
262	ostype & ?\|?( ostype & os, _Ostream_Manip(char) f );
263	void ?\|?( ostype & os, _Ostream_Manip(char) f );
264	} // ?\|?
265
266	// ********************************* C string *********************************
267
268	static inline {
269	_Ostream_Manip(const char ) bin( const char s[] ) { return (_Ostream_Manip(const char ))@{ s, 1, 0, 'b', { .all : 0 } }; }
270	_Ostream_Manip(const char ) oct( const char s[] ) { return (_Ostream_Manip(const char ))@{ s, 1, 0, 'o', { .all : 0 } }; }
271	_Ostream_Manip(const char ) hex( const char s[] ) { return (_Ostream_Manip(const char ))@{ s, 1, 0, 'x', { .all : 0 } }; }
272	_Ostream_Manip(const char ) wd( unsigned int w, const char s[] ) { return (_Ostream_Manip(const char ))@{ s, w, 0, 's', { .all : 0 } }; }
273	_Ostream_Manip(const char ) wd( unsigned int w, unsigned char pc, const char s[] ) { return (_Ostream_Manip(const char ))@{ s, w, pc, 's', { .flags.pc : true } }; }
274	_Ostream_Manip(const char ) & wd( unsigned int w, _Ostream_Manip(const char ) & fmt ) { fmt.wd = w; return fmt; }
275	_Ostream_Manip(const char ) & wd( unsigned int w, unsigned char pc, _Ostream_Manip(const char ) & fmt ) { fmt.wd = w; fmt.pc = pc; fmt.flags.pc = true; return fmt; }
276	_Ostream_Manip(const char ) & left( _Ostream_Manip(const char ) & fmt ) { fmt.flags.left = true; return fmt; }
277	_Ostream_Manip(const char ) & nobase( _Ostream_Manip(const char ) & fmt ) { fmt.flags.nobsdp = true; return fmt; }
278	} // distribution
279	forall( dtype ostype \| ostream( ostype ) ) {
280	ostype & ?\|?( ostype & os, _Ostream_Manip(const char *) f );
281	void ?\|?( ostype & os, _Ostream_Manip(const char *) f );
282	} // ?\|?
283
284
285	// ********************************* istream *********************************
286
287
288	trait istream( dtype istype ) {
289	void nlOn( istype & ); // read newline
290	void nlOff( istype & ); // scan newline
291	bool getANL( istype & ); // get scan newline (on/off)
292	int fail( istype & );
293	int eof( istype & );
294	void open( istype & is, const char name[] );
295	void close( istype & is );
296	istype & read( istype &, char *, size_t );
297	istype & ungetc( istype &, char );
298	int fmt( istype &, const char format[], ... ) __attribute__(( format(scanf, 2, 3) ));
299	}; // istream
300
301	trait readable( otype T ) {
302	forall( dtype istype \| istream( istype ) ) istype & ?\|?( istype &, T );
303	}; // readable
304
305	forall( dtype istype \| istream( istype ) ) {
306	istype & ?\|?( istype &, bool & );
307
308	istype & ?\|?( istype &, char & );
309	istype & ?\|?( istype &, signed char & );
310	istype & ?\|?( istype &, unsigned char & );
311
312	istype & ?\|?( istype &, short int & );
313	istype & ?\|?( istype &, unsigned short int & );
314	istype & ?\|?( istype &, int & );
315	istype & ?\|?( istype &, unsigned int & );
316	istype & ?\|?( istype &, long int & );
317	istype & ?\|?( istype &, unsigned long int & );
318	istype & ?\|?( istype &, long long int & );
319	istype & ?\|?( istype &, unsigned long long int & );
320	#if defined( __SIZEOF_INT128__ )
321	istype & ?\|?( istype &, int128 & );
322	istype & ?\|?( istype &, unsigned int128 & );
323	#endif // __SIZEOF_INT128__
324
325	istype & ?\|?( istype &, float & );
326	istype & ?\|?( istype &, double & );
327	istype & ?\|?( istype &, long double & );
328
329	istype & ?\|?( istype &, float _Complex & );
330	istype & ?\|?( istype &, double _Complex & );
331	istype & ?\|?( istype &, long double _Complex & );
332
333	// istype & ?\|?( istype &, const char [] );
334	istype & ?\|?( istype &, char * );
335
336	// manipulators
337	istype & ?\|?( istype &, istype & (*)( istype & ) );
338	istype & nl( istype & is );
339	istype & nlOn( istype & );
340	istype & nlOff( istype & );
341	} // distribution
342
343	// ********************************* manipulators *********************************
344
345	struct _Istream_Cstr {
346	char * s;
347	const char * scanset;
348	int wd; // width
349	union {
350	unsigned char all;
351	struct {
352	unsigned char ignore:1; // do not change input argument
353	unsigned char inex:1; // include/exclude characters in scanset
354	} flags;
355	};
356	}; // _Istream_Cstr
357
358	static inline {
359	_Istream_Cstr skip( unsigned int n ) { return (_Istream_Cstr){ 0p, 0p, n, { .all : 0 } }; }
360	_Istream_Cstr skip( const char scanset[] ) { return (_Istream_Cstr){ 0p, scanset, -1, { .all : 0 } }; }
361	_Istream_Cstr incl( const char scanset[], char * s ) { return (_Istream_Cstr){ s, scanset, -1, { .flags.inex : false } }; }
362	_Istream_Cstr & incl( const char scanset[], _Istream_Cstr & fmt ) { fmt.scanset = scanset; fmt.flags.inex = false; return fmt; }
363	_Istream_Cstr excl( const char scanset[], char * s ) { return (_Istream_Cstr){ s, scanset, -1, { .flags.inex : true } }; }
364	_Istream_Cstr & excl( const char scanset[], _Istream_Cstr & fmt ) { fmt.scanset = scanset; fmt.flags.inex = true; return fmt; }
365	_Istream_Cstr ignore( const char s[] ) { return (_Istream_Cstr)@{ s, 0p, -1, { .flags.ignore : true } }; }
366	_Istream_Cstr & ignore( _Istream_Cstr & fmt ) { fmt.flags.ignore = true; return fmt; }
367	_Istream_Cstr wdi( unsigned int w, char s[] ) { return (_Istream_Cstr)@{ s, 0p, w, { .all : 0 } }; }
368	_Istream_Cstr & wdi( unsigned int w, _Istream_Cstr & fmt ) { fmt.wd = w; return fmt; }
369	} // distribution
370	forall( dtype istype \| istream( istype ) ) istype & ?\|?( istype & is, _Istream_Cstr f );
371
372	struct _Istream_Char {
373	bool ignore; // do not change input argument
374	}; // _Istream_Char
375
376	static inline {
377	_Istream_Char ignore( const char ) { return (_Istream_Char)@{ true }; }
378	_Istream_Char & ignore( _Istream_Char & fmt ) { fmt.ignore = true; return fmt; }
379	} // distribution
380	forall( dtype istype \| istream( istype ) ) istype & ?\|?( istype & is, _Istream_Char f );
381
382	forall( dtype T \| sized( T ) )
383	struct _Istream_Manip {
384	T & val; // polymorphic base-type
385	int wd; // width
386	bool ignore; // do not change input argument
387	}; // _Istream_Manip
388
389	#define InputFMTDecl( T ) \
390	static inline { \
391	_Istream_Manip(T) ignore( const T & val ) { return (_Istream_Manip(T))@{ (T &)val, -1, true }; } \
392	_Istream_Manip(T) & ignore( _Istream_Manip(T) & fmt ) { fmt.ignore = true; return fmt; } \
393	_Istream_Manip(T) wdi( unsigned int w, T & val ) { return (_Istream_Manip(T))@{ val, w, false }; } \
394	_Istream_Manip(T) & wdi( unsigned int w, _Istream_Manip(T) & fmt ) { fmt.wd = w; return fmt; } \
395	} /* distribution */ \
396	forall( dtype istype \| istream( istype ) ) { \
397	istype & ?\|?( istype & is, _Istream_Manip(T) f ); \
398	} // ?\|?
399
400	InputFMTDecl( signed char )
401	InputFMTDecl( unsigned char )
402	InputFMTDecl( signed short int )
403	InputFMTDecl( unsigned short int )
404	InputFMTDecl( signed int )
405	InputFMTDecl( unsigned int )
406	InputFMTDecl( signed long int )
407	InputFMTDecl( unsigned long int )
408	InputFMTDecl( signed long long int )
409	InputFMTDecl( unsigned long long int )
410
411	InputFMTDecl( float )
412	InputFMTDecl( double )
413	InputFMTDecl( long double )
414
415	InputFMTDecl( float _Complex )
416	InputFMTDecl( double _Complex )
417	InputFMTDecl( long double _Complex )
418
419
420	// ********************************* time *********************************
421
422
423	#include <time_t.hfa> // Duration (constructors) / Time (constructors)
424
425	forall( dtype ostype \| ostream( ostype ) ) {
426	ostype & ?\|?( ostype & os, Duration dur );
427	void ?\|?( ostype & os, Duration dur );
428	ostype & ?\|?( ostype & os, Time time );
429	void ?\|?( ostype & os, Time time );
430	} // distribution
431
432	// Local Variables: //
433	// tab-width: 4 //
434	// End: //

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format