source: tests/bitmanip.cfa@ 2a35f14

ADT arm-eh ast-experimental enum forall-pointer-decay jacob/cs343-translation new-ast new-ast-unique-expr pthread-emulation qualifiedEnum
Last change on this file since 2a35f14 was c5fdebf, checked in by Peter A. Buhr <pabuhr@…>, 6 years ago

update indentation
  • Property mode set to 100644
File size: 9.0 KB
Line 
1#include <fstream.hfa>
2#include <bitmanip.hfa>
3
4int main() {
5 signed char sc;
6 unsigned char usc;
7 short int si;
8 unsigned short int usi;
9 int i;
10 unsigned int ui;
11 long int li;
12 unsigned long int uli;
13 long long int lli;
14 unsigned long long int ulli;
15
16 sout | nlOff;
17
18 //============================================================
19
20 sout | "cl0" | nl;
21
22 sc = 0;
23 sout | sc | cl0( sc ) | ",";
24 for ( sc = 1; sc != 0; sc <<= 1 ) {
25 sout | sc | cl0( sc ) | ",";
26 } // for
27 sout | nl;
28 usc = 0;
29 sout | usc | cl0( usc ) | ",";
30 for ( usc = 1; usc != 0; usc <<= 1 ) {
31 sout | usc | cl0( usc ) | ",";
32 } // for
33 sout | nl;
34
35 si = 0;
36 sout | si | cl0( si ) | ",";
37 for ( si = 1; si != 0; si <<= 1 ) {
38 sout | si | cl0( si ) | ",";
39 } // for
40 sout | nl;
41 usi = 0;
42 sout | usi | cl0( usi ) | ",";
43 for ( usi = 1; usi != 0; usi <<= 1 ) {
44 sout | usi | cl0( usi ) | ",";
45 } // for
46 sout | nl;
47
48 i = 0;
49 sout | i | cl0( i ) | ",";
50 for ( i = 1; i != 0; i <<= 1 ) {
51 sout | i | cl0( i ) | ",";
52 } // for
53 sout | nl;
54 ui = 0;
55 sout | ui | cl0( ui ) | ",";
56 for ( ui = 1; ui != 0; ui <<= 1 ) {
57 sout | ui | cl0( ui ) | ",";
58 } // for
59 sout | nl;
60
61 li = 0;
62 sout | li | cl0( li ) | ",";
63 for ( li = 1; li != 0; li <<= 1 ) {
64 sout | li | cl0( li ) | ",";
65 } // for
66 sout | nl;
67 uli = 0;
68 sout | uli | cl0( uli ) | ",";
69 for ( uli = 1; uli != 0; uli <<= 1 ) {
70 sout | uli | cl0( uli ) | ",";
71 } // for
72 sout | nl;
73
74 lli = 0;
75 sout | lli | cl0( lli ) | ",";
76 for ( lli = 1; lli != 0; lli <<= 1 ) {
77 sout | lli | cl0( lli ) | ",";
78 } // for
79 sout | nl;
80 ulli = 0;
81 sout | ulli | cl0( ulli ) | ",";
82 for ( ulli = 1; ulli != 0; ulli <<= 1 ) {
83 sout | ulli | cl0( ulli ) | ",";
84 } // for
85 sout | nl;
86
87 //============================================================
88
89 sout | nl | "ct0" | nl;
90
91 sc = 0;
92 sout | sc | ct0( sc ) | ",";
93 for ( sc = 1; sc != 0; sc <<= 1 ) {
94 sout | sc | ct0( sc ) | ",";
95 } // for
96 sout | nl;
97 usc = 0;
98 sout | usc | ct0( usc ) | ",";
99 for ( usc = 1; usc != 0; usc <<= 1 ) {
100 sout | usc | ct0( usc ) | ",";
101 } // for
102 sout | nl;
103
104 si = 0;
105 sout | si | ct0( si ) | ",";
106 for ( si = 1; si != 0; si <<= 1 ) {
107 sout | si | ct0( si ) | ",";
108 } // for
109 sout | nl;
110 usi = 0;
111 sout | usi | ct0( usi ) | ",";
112 for ( usi = 1; usi != 0; usi <<= 1 ) {
113 sout | usi | ct0( usi ) | ",";
114 } // for
115 sout | nl;
116
117 i = 0;
118 sout | i | ct0( i ) | ",";
119 for ( i = 1; i != 0; i <<= 1 ) {
120 sout | i | ct0( i ) | ",";
121 } // for
122 sout | nl;
123 ui = 0;
124 sout | ui | ct0( ui ) | ",";
125 for ( ui = 1; ui != 0; ui <<= 1 ) {
126 sout | ui | ct0( ui ) | ",";
127 } // for
128 sout | nl;
129
130 li = 0;
131 sout | li | ct0( li ) | ",";
132 for ( li = 1; li != 0; li <<= 1 ) {
133 sout | li | ct0( li ) | ",";
134 } // for
135 sout | nl;
136 uli = 0;
137 sout | uli | ct0( uli ) | ",";
138 for ( uli = 1; uli != 0; uli <<= 1 ) {
139 sout | uli | ct0( uli ) | ",";
140 } // for
141 sout | nl;
142
143 lli = 0;
144 sout | lli | ct0( lli ) | ",";
145 for ( lli = 1; lli != 0; lli <<= 1 ) {
146 sout | lli | ct0( lli ) | ",";
147 } // for
148 sout | nl;
149 ulli = 0;
150 sout | ulli | ct0( ulli ) | ",";
151 for ( ulli = 1; ulli != 0; ulli <<= 1 ) {
152 sout | ulli | ct0( ulli ) | ",";
153 } // for
154 sout | nl;
155
156 //============================================================
157
158 sout | nl | "ca1" | nl;
159
160 sc = 0;
161 for ( int p = 0; p < sizeof(sc) * __CHAR_BIT__ + 1; p += 1, sc = (sc << 1) + 1 ) {
162 sout | sc | ca1( sc ) | ",";
163 } // for
164 sout | nl;
165 usc = 0;
166 for ( int p = 0; p < sizeof(sc) * __CHAR_BIT__ + 1; p += 1, usc = (usc << 1) + 1 ) {
167 sout | usc | ca1( usc ) | ",";
168 } // for
169 sout | nl;
170
171 si = 0;
172 for ( int p = 0; p < sizeof(si) * __CHAR_BIT__ + 1; p += 1, si = (si << 1) + 1 ) {
173 sout | si | ca1( si ) | ",";
174 } // for
175 sout | nl;
176 usi = 0;
177 for ( int p = 0; p < sizeof(usi) * __CHAR_BIT__ + 1; p += 1, usi = (usi << 1) + 1 ) {
178 sout | usi | ca1( usi ) | ",";
179 } // for
180 sout | nl;
181
182 i = 0;
183 for ( int p = 0; p < sizeof(i) * __CHAR_BIT__ + 1; p += 1, i = (i << 1) + 1 ) {
184 sout | i | ca1( i ) | ",";
185 } // for
186 sout | nl;
187 ui = 0;
188 for ( int p = 0; p < sizeof(ui) * __CHAR_BIT__ + 1; p += 1, ui = (ui << 1) + 1 ) {
189 sout | ui | ca1( ui ) | ",";
190 } // for
191 sout | nl;
192
193 li = 0;
194 for ( int p = 0; i < sizeof(li) * __CHAR_BIT__ + 1; p += 1, li = (li << 1) + 1 ) {
195 sout | li | ca1( li ) | ",";
196 } // for
197 sout | nl;
198 uli = 0;
199 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, uli = (uli << 1) + 1 ) {
200 sout | uli | ca1( uli ) | ",";
201 } // for
202 sout | nl;
203
204 lli = 0;
205 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, lli = (lli << 1) + 1 ) {
206 sout | lli | ca1( lli ) | ",";
207 } // for
208 sout | nl;
209 ulli = 0;
210 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, ulli = (ulli << 1) + 1 ) {
211 sout | ulli | ca1( ulli ) | ",";
212 } // for
213 sout | nl;
214
215 //============================================================
216
217 sout | nl | "ca0" | nl;
218
219 sc = 0;
220 for ( int p = 0; p < sizeof(sc) * __CHAR_BIT__ + 1; p += 1, sc = (sc << 1) + 1 ) {
221 sout | sc | ca0( sc ) | ",";
222 } // for
223 sout | nl;
224 usc = 0;
225 for ( int p = 0; p < sizeof(sc) * __CHAR_BIT__ + 1; p += 1, usc = (usc << 1) + 1 ) {
226 sout | usc | ca0( usc ) | ",";
227 } // for
228 sout | nl;
229
230 si = 0;
231 for ( int p = 0; p < sizeof(si) * __CHAR_BIT__ + 1; p += 1, si = (si << 1) + 1 ) {
232 sout | si | ca0( si ) | ",";
233 } // for
234 sout | nl;
235 usi = 0;
236 for ( int p = 0; p < sizeof(si) * __CHAR_BIT__ + 1; p += 1, usi = (usi << 1) + 1 ) {
237 sout | usi | ca0( usi ) | ",";
238 } // for
239 sout | nl;
240
241 i = 0;
242 for ( int p = 0; p < sizeof(i) * __CHAR_BIT__ + 1; p += 1, i = (i << 1) + 1 ) {
243 sout | i | ca0( i ) | ",";
244 } // for
245 sout | nl;
246 ui = 0;
247 for ( int p = 0; p < sizeof(ui) * __CHAR_BIT__ + 1; p += 1, ui = (ui << 1) + 1 ) {
248 sout | ui | ca0( ui ) | ",";
249 } // for
250 sout | nl;
251
252 li = 0;
253 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, li = (li << 1) + 1 ) {
254 sout | li | ca0( li ) | ",";
255 } // for
256 sout | nl;
257 uli = 0;
258 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, uli = (uli << 1) + 1 ) {
259 sout | uli | ca0( uli ) | ",";
260 } // for
261 sout | nl;
262
263 lli = 0;
264 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, lli = (lli << 1) + 1 ) {
265 sout | lli | ca0( lli ) | ",";
266 } // for
267 sout | nl;
268 ulli = 0;
269 for ( int p = 0; p < sizeof(li) * __CHAR_BIT__ + 1; p += 1, ulli = (ulli << 1) + 1 ) {
270 sout | ulli | ca0( ulli ) | ",";
271 } // for
272 sout | nl;
273
274 //============================================================
275
276 sout | nl | "fls" | nl;
277
278 sc = 0;
279 sout | sc | fls( sc ) | ",";
280 for ( sc = 1; sc != 0; sc <<= 1 ) {
281 sout | sc | fls( sc ) | ",";
282 } // for
283 sout | nl;
284 usc = 0;
285 sout | usc | fls( usc ) | ",";
286 for ( usc = 1; usc != 0; usc <<= 1 ) {
287 sout | usc | fls( usc ) | ",";
288 } // for
289 sout | nl;
290
291 si = 0;
292 sout | si | fls( si ) | ",";
293 for ( si = 1; si != 0; si <<= 1 ) {
294 sout | si | fls( si ) | ",";
295 } // for
296 sout | nl;
297 usi = 0;
298 sout | usi | fls( usi ) | ",";
299 for ( usi = 1; usi != 0; usi <<= 1 ) {
300 sout | usi | fls( usi ) | ",";
301 } // for
302 sout | nl;
303
304 i = 0;
305 sout | i | fls( i ) | ",";
306 for ( i = 1; i != 0; i <<= 1 ) {
307 sout | i | fls( i ) | ",";
308 } // for
309 sout | nl;
310 ui = 0;
311 sout | ui | fls( ui ) | ",";
312 for ( ui = 1; ui != 0; ui <<= 1 ) {
313 sout | ui | fls( ui ) | ",";
314 } // for
315 sout | nl;
316
317 li = 0;
318 sout | li | fls( li ) | ",";
319 for ( li = 1; li != 0; li <<= 1 ) {
320 sout | li | fls( li ) | ",";
321 } // for
322 sout | nl;
323 uli = 0;
324 sout | uli | fls( uli ) | ",";
325 for ( uli = 1; uli != 0; uli <<= 1 ) {
326 sout | uli | fls( uli ) | ",";
327 } // for
328 sout | nl;
329
330 lli = 0;
331 sout | lli | fls( lli ) | ",";
332 for ( lli = 1; lli != 0; lli <<= 1 ) {
333 sout | lli | fls( lli ) | ",";
334 } // for
335 sout | nl;
336 ulli = 0;
337 sout | ulli | fls( ulli ) | ",";
338 for ( ulli = 1; ulli != 0; ulli <<= 1 ) {
339 sout | ulli | fls( ulli ) | ",";
340 } // for
341 sout | nl;
342
343 //============================================================
344
345 sout | nl | "fms" | nl;
346
347 sc = 0;
348 sout | sc | fms( sc ) | ",";
349 for ( sc = 1; sc != 0; sc <<= 1 ) {
350 sout | sc | fms( sc ) | ",";
351 } // for
352 sout | nl;
353 usc = 0;
354 sout | usc | fms( usc ) | ",";
355 for ( usc = 1; usc != 0; usc <<= 1 ) {
356 sout | usc | fms( usc ) | ",";
357 } // for
358 sout | nl;
359
360 si = 0;
361 sout | si | fms( si ) | ",";
362 for ( si = 1; si != 0; si <<= 1 ) {
363 sout | si | fms( si ) | ",";
364 } // for
365 sout | nl;
366 usi = 0;
367 sout | usi | fms( usi ) | ",";
368 for ( usi = 1; usi != 0; usi <<= 1 ) {
369 sout | usi | fms( usi ) | ",";
370 } // for
371 sout | nl;
372
373 i = 0;
374 sout | i | fms( i ) | ",";
375 for ( i = 1; i != 0; i <<= 1 ) {
376 sout | i | fms( i ) | ",";
377 } // for
378 sout | nl;
379 ui = 0;
380 sout | ui | fms( ui ) | ",";
381 for ( ui = 1; ui != 0; ui <<= 1 ) {
382 sout | ui | fms( ui ) | ",";
383 } // for
384 sout | nl;
385
386 li = 0;
387 sout | li | fms( li ) | ",";
388 for ( li = 1; li != 0; li <<= 1 ) {
389 sout | li | fms( li ) | ",";
390 } // for
391 sout | nl;
392 uli = 0;
393 sout | uli | fms( uli ) | ",";
394 for ( uli = 1; uli != 0; uli <<= 1 ) {
395 sout | uli | fms( uli ) | ",";
396 } // for
397 sout | nl;
398
399 lli = 0;
400 sout | lli | fms( lli ) | ",";
401 for ( lli = 1; lli != 0; lli <<= 1 ) {
402 sout | lli | fms( lli ) | ",";
403 } // for
404 sout | nl;
405 ulli = 0;
406 sout | ulli | fms( ulli ) | ",";
407 for ( ulli = 1; ulli != 0; ulli <<= 1 ) {
408 sout | ulli | fms( ulli ) | ",";
409 } // for
410 sout | nl;
411} // main
412
413// Local Variables: //
414// tab-width: 4 //
415// compile-command: "cfa bitmanip.cfa" //
416// End: //
Note: See TracBrowser for help on using the repository browser.