Context Navigation

manipulatorsInput.cfa @ 2137eb7

Last change on this file since 2137eb7 was 74c6748, checked in by Peter A. Buhr <pabuhr@…>, 17 months ago
change test programs to reflect input changes for C strings
Property mode set to `100644`
File size: 5.1 KB

Line
1	//
2	// Cforall Version 1.0.0 Copyright (C) 2019 University of Waterloo
3	//
4	// manipulatorsInput.cfa --
5	//
6	// Author : Peter A. Buhr
7	// Created On : Sat Jun 8 17:58:54 2019
8	// Last Modified By : Peter A. Buhr
9	// Last Modified On : Wed Aug 9 17:23:21 2023
10	// Update Count : 59
11	//
12
13	#include <fstream.hfa>
14	#include <stdio.h> // scanf
15
16	int main() {
17	{
18	char s[] = "yyyyyyyyyyyyyyyyyyyy";
19	const char sk[] = "abc";
20	scanf( "abc " ); scanf( sk ); for ( 5 ) scanf( "%*c" ); printf( "1 %s\n", s );
21	scanf( "%s", s ); printf( "2 %s\n", s );
22	scanf( "%*s" ); printf( "3 %s\n", s );
23	scanf( "%8s", s ); printf( "4 %s\n", s );
24	scanf( "%*8s" ); printf( "5 %s\n", s );
25
26	scanf( "%[abc]", s ); printf( "6 %s\n", s );
27	scanf( "%[^abc]", s ); printf( "7 %s\n", s );
28	scanf( "%*[abc]" ); printf( "8 %s\n", s );
29	scanf( "%*[^abc]" ); printf( "9 %s\n", s );
30	scanf( "%8[abc]", s ); printf( "10 %s\n", s );
31	scanf( "%8[^abc]", s ); printf( "11 %s\n", s );
32	scanf( "%*8[abc]" ); printf( "12 %s\n", s );
33	scanf( "%*8[^abc]" ); printf( "13 %s\n", s );
34	}
35	{
36	char s[] = "yyyyyyyyyyyyyyyyyyyy";
37	char sk[] = "abc";
38	sin /\| "abc "/ \| skip( sk ) \| skip( 5 ); sout \| "1" \| s;
39	sin \| wdi( sizeof(s), s ); sout \| "2" \| s;
40	sin \| ignore( s ); sout \| "3" \| s;
41	sin \| wdi( 8, s ); sout \| "4" \| s;
42	sin \| ignore( wdi( 8, s ) ); sout \| "5" \| s;
43
44	sin \| incl( "abc", wdi( sizeof(s), s ) ); sout \| "6" \| s;
45	sin \| excl( "abc", wdi( sizeof(s), s ) ); sout \| "7" \| s;
46	sin \| ignore( incl( "abc", wdi( sizeof(s), s ) ) ); sout \| "8" \| s;
47	sin \| ignore( excl( "abc", wdi( sizeof(s), s ) ) ); sout \| "9" \| s;
48	sin \| incl( "abc", wdi( 8, s ) ); sout \| "10" \| s;
49	sin \| excl( "abc", wdi( 8, s ) ); sout \| "11" \| s;
50	sin \| ignore( incl( "abc", wdi( 8, s ) ) ); sout \| "12" \| s;
51	sin \| ignore( excl( "abc", wdi( 8, s ) ) ); sout \| "13" \| s;
52	}
53	{
54	char c;
55	sin \| c; sout \| c;
56	sin \| ignore( c ); sout \| c;
57
58	signed char sc;
59	sin \| sc; sout \| sc;
60	sin \| wdi( 3, sc ); sout \| sc;
61	sin \| ignore( sc ); sout \| sc;
62	sin \| ignore( wdi( 3, sc ) ); sout \| sc;
63
64	unsigned char usc;
65	sin \| usc; sout \| usc;
66	sin \| wdi( 3, usc ); sout \| usc;
67	sin \| ignore( usc ); sout \| usc;
68	sin \| ignore( wdi( 3, usc ) ); sout \| usc;
69
70	signed short int ssi;
71	sin \| ssi; sout \| ssi;
72	sin \| wdi( 3, ssi ); sout \| ssi;
73	sin \| ignore( ssi ); sout \| ssi;
74	sin \| ignore( wdi( 3, ssi ) ); sout \| ssi;
75
76	unsigned short int usi;
77	sin \| usi; sout \| usi;
78	sin \| wdi( 3, usi ); sout \| usi;
79	sin \| ignore( usi ); sout \| usi;
80	sin \| ignore( wdi( 3, usi ) ); sout \| usi;
81
82	signed int si;
83	sin \| si; sout \| si;
84	sin \| wdi( 3, si ); sout \| si;
85	sin \| ignore( si ); sout \| si;
86	sin \| ignore( wdi( 3, si ) ); sout \| si;
87
88	unsigned int ui;
89	sin \| ui; sout \| ui;
90	sin \| wdi( 3, ui ); sout \| ui;
91	sin \| ignore( ui ); sout \| ui;
92	sin \| ignore( wdi( 3, ui ) ); sout \| ui;
93
94	signed long int sli;
95	sin \| sli; sout \| sli;
96	sin \| wdi( 3, sli ); sout \| sli;
97	sin \| ignore( sli ); sout \| sli;
98	sin \| ignore( wdi( 3, sli ) ); sout \| sli;
99
100	unsigned long int uli;
101	sin \| uli; sout \| uli;
102	sin \| wdi( 3, uli ); sout \| uli;
103	sin \| ignore( uli ); sout \| uli;
104	sin \| ignore( wdi( 3, uli ) ); sout \| uli;
105
106	signed long long int slli;
107	sin \| slli; sout \| slli;
108	sin \| wdi( 3, slli ); sout \| slli;
109	sin \| ignore( slli ); sout \| slli;
110	sin \| ignore( wdi( 3, slli ) ); sout \| slli;
111
112	unsigned long long int ulli;
113	sin \| ulli; sout \| ulli;
114	sin \| wdi( 3, ulli ); sout \| ulli;
115	sin \| ignore( ulli ); sout \| ulli;
116	sin \| ignore( wdi( 3, ulli ) ); sout \| ulli;
117
118	float f;
119	sin \| f; sout \| f;
120	sin \| wdi( 8, f ); sout \| f;
121	sin \| ignore( f ); sout \| f;
122	sin \| ignore( wdi( 8, f ) ); sout \| f;
123
124	double d;
125	sin \| d; sout \| d;
126	sin \| wdi( 8, d ); sout \| d;
127	sin \| ignore( d ); sout \| d;
128	sin \| ignore( wdi( 8, d ) ); sout \| d;
129
130	long double ld;
131	sin \| ld; sout \| ld;
132	sin \| wdi( 8, ld ); sout \| ld;
133	sin \| ignore( ld ); sout \| ld;
134	sin \| ignore( wdi( 8, ld ) ); sout \| ld;
135
136	float _Complex fc;
137	sin \| fc; sout \| fc;
138	sin \| wdi( 8, fc ); sout \| fc;
139	sin \| ignore( fc ); sout \| fc;
140	sin \| ignore( wdi( 8, fc ) ); sout \| fc;
141
142	double _Complex dc;
143	sin \| dc; sout \| dc;
144	sin \| wdi( 8, dc ); sout \| dc;
145	sin \| ignore( dc ); sout \| dc;
146	sin \| ignore( wdi( 8, dc ) ); sout \| dc;
147
148	long double _Complex ldc;
149	sin \| ldc; sout \| ldc;
150	sin \| wdi( 8, ldc ); sout \| ldc;
151	sin \| ignore( ldc ); sout \| ldc;
152	sin \| ignore( wdi( 8, ldc ) ); sout \| ldc;
153	}
154	#if defined( __SIZEOF_INT128__ )
155	{
156	int128 val;
157	for ( 15 ) {
158	sin \| val;
159	sout \| val;
160	}
161	}
162	#endif // __SIZEOF_INT128__
163	} // main
164
165	// Local Variables: //
166	// tab-width: 4 //
167	// compile-command: "cfa -Wall -Wextra manipulatorsInput.cfa" //
168	// End: //

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

Download in other formats:

Original Format