Context Navigation

manipulatorsOutput1.cfa @ d24b1985

ADTast-experimental

Last change on this file since d24b1985 was 0effb6a, checked in by Peter A. Buhr <pabuhr@…>, 4 years ago
update tests and expected output for manipulator tests
Property mode set to `100644`
File size: 7.1 KB

Rev	Line
[ca8824d]	1	//
	2	// Cforall Version 1.0.0 Copyright (C) 2019 University of Waterloo
	3	//
	4	// manipulatorsOutput1.cfa --
	5	//
	6	// Author : Peter A. Buhr
	7	// Created On : Sat Jun 8 18:04:11 2019
	8	// Last Modified By : Peter A. Buhr
[0effb6a]	9	// Last Modified On : Sat Apr 10 08:42:15 2021
	10	// Update Count : 18
[ca8824d]	11	//
	12
	13	#include <fstream.hfa>
	14
	15	int main() {
	16	sout \| "signed char";
	17	signed char sc = -12;
	18	printf( "%hhd %2hhd %5.2hhd %-5.2hhd %hho %#hho %hhx %#hhx %#8hhx %#8.10hhx %#8.3hhX %+-8.3hhd %08hhd\n", sc, sc, sc, sc, sc, sc, sc, sc, sc, sc, sc, sc, sc );
[d6566c1]	19	sout \| sc \| wd(2,sc) \| wd(5,2,sc) \| left(wd(5,2,sc)) \| nobase(oct(sc)) \| oct(sc) \| nonl;
	20	sout \| nobase(hex(sc)) \| hex(sc) \| wd(8,hex(sc)) \| wd(8,10,hex(sc)) \| upcase(wd(8,3,hex(sc))) \| nonl;
	21	sout \| left(sign(upcase(wd(8,3,sc)))) \| pad0(wd(8,sc));
[ca8824d]	22
	23	sout \| "unsigned char";
	24	unsigned char usc = 12;
	25	printf( "%hhu %2hhu %5.2hhu %-5.2hhu %hho %#hho %hhx %#hhx %#8hhx %#8.10hhx %#8.3hhX %-8.3hhu %08hhu\n", usc, usc, usc, usc, usc, usc, usc, usc, usc, usc, usc, usc, usc );
[d6566c1]	26	sout \| usc \| wd(2,usc) \| wd(5,2,usc) \| left(wd(5,2,usc)) \| nobase(oct(usc)) \| oct(usc) \| nonl;
	27	sout \| nobase(hex(usc)) \| hex(usc) \| wd(8,hex(usc)) \| wd(8,10,hex(usc)) \| upcase(wd(8,3,hex(usc))) \| nonl;
	28	sout \| left(upcase(wd(8,3,usc))) \| pad0(wd(8,usc));
[ca8824d]	29
	30	sout \| "signed short int";
	31	signed short int si = -12;
	32	printf( "%hd %2hd %5.2hd %-5.2hd %ho %#ho %hx %#hx %#8hx %#8.10hx %#8.3hX %+-8.3hd %08hd\n", si, si, si, si, si, si, si, si, si, si, si, si, si );
[d6566c1]	33	sout \| si \| wd(2,si) \| wd(5,2,si) \| left(wd(5,2,si)) \| nobase(oct(si)) \| oct(si) \| nonl;
	34	sout \| nobase(hex(si)) \| hex(si) \| wd(8,hex(si)) \| wd(8,10,hex(si)) \| upcase(wd(8,3,hex(si))) \| nonl;
	35	sout \| left(sign(upcase(wd(8,3,si)))) \| pad0(wd(8,si));
[ca8824d]	36
	37	sout \| "unsigned short int";
	38	unsigned short int usi = 12;
	39	printf( "%hu %2hu %5.2hu %-5.2hu %ho %#ho %hx %#hx %#8hx %#8.10hx %#8.3hX %-8.3hu %08hu\n", usi, usi, usi, usi, usi, usi, usi, usi, usi, usi, usi, usi, usi );
[d6566c1]	40	sout \| usi \| wd(2,usi) \| wd(5,2,usi) \| left(wd(5,2,usi)) \| nobase(oct(usi)) \| oct(usi) \| nonl;
	41	sout \| nobase(hex(usi)) \| hex(usi) \| wd(8,hex(usi)) \| wd(8,10,hex(usi)) \| upcase(wd(8,3,hex(usi))) \| nonl;
	42	sout \| left(upcase(wd(8,3,usi))) \| pad0(wd(8,usi));
[ca8824d]	43
	44	sout \| "signed int";
	45	signed int i = -12;
	46	printf( "%d %2d %5.2d %-5.2d %o %#o %x %#x %#8x %#8.10x %#8.3X %+-8.3d %08d\n", i, i, i, i, i, i, i, i, i, i, i, i, i );
[d6566c1]	47	sout \| i \| wd(2,i) \| wd(5,2,i) \| left(wd(5,2,i)) \| nobase(oct(i)) \| oct(i) \| nonl;
	48	sout \| nobase(hex(i)) \| hex(i) \| wd(8,hex(i)) \| wd(8,10,hex(i)) \| upcase(wd(8,3,hex(i))) \| nonl;
	49	sout \| left(sign(upcase(wd(8,3,i)))) \| pad0(wd(8,i));
[ca8824d]	50
	51	sout \| "unsigned int";
	52	unsigned int ui = 12;
	53	printf( "%u %2u %5.2u %-5.2u %o %#o %x %#x %#8x %#8.10x %#8.3X %-8.3u %08u\n", ui, ui, ui, ui, ui, ui, ui, ui, ui, ui, ui, ui, ui );
[d6566c1]	54	sout \| ui \| wd(2,ui) \| wd(5,2,ui) \| left(wd(5,2,ui)) \| nobase(oct(ui)) \| oct(ui) \| nonl;
	55	sout \| nobase(hex(ui)) \| hex(ui) \| wd(8,hex(ui)) \| wd(8,10,hex(ui)) \| upcase(wd(8,3,hex(ui))) \| nonl;
	56	sout \| left(upcase(wd(8,3,ui))) \| pad0(wd(8,ui));
[ca8824d]	57
	58	sout \| "signed long long int";
	59	signed long long int lli = -12;
	60	printf( "%lld %2lld %5.2lld %-5.2lld %llo %#llo %llx %#llx %#8llx %#8.10llx %#8.3llX %+-8.3lld %08lld\n", lli, lli, lli, lli, lli, lli, lli, lli, lli, lli, lli, lli, lli );
[d6566c1]	61	sout \| lli \| wd(2,lli) \| wd(5,2,lli) \| left(wd(5,2,lli)) \| nobase(oct(lli)) \| oct(lli) \| nonl;
	62	sout \| nobase(hex(lli)) \| hex(lli) \| wd(8,hex(lli)) \| wd(8,10,hex(lli)) \| upcase(wd(8,3,hex(lli))) \| nonl;
	63	sout \| left(sign(upcase(wd(8,3,lli)))) \| pad0(wd(8,lli));
[ca8824d]	64
	65	sout \| "unsigned long long int";
	66	unsigned long long int ulli = 12;
	67	printf( "%llu %2llu %5.2llu %-5.2llu %llo %#llo %llx %#llx %#8llx %#8.10llx %#8.3llX %-8.3llu %08llu\n", ulli, ulli, ulli, ulli, ulli, ulli, ulli, ulli, ulli, ulli, ulli, ulli, ulli );
[d6566c1]	68	sout \| ulli \| wd(2,ulli) \| wd(5,2,ulli) \| left(wd(5,2,ulli)) \| nobase(oct(ulli)) \| oct(ulli) \| nonl;
	69	sout \| nobase(hex(ulli)) \| hex(ulli) \| wd(8,hex(ulli)) \| wd(8,10,hex(ulli)) \| upcase(wd(8,3,hex(ulli))) \| nonl;
	70	sout \| left(upcase(wd(8,3,ulli))) \| pad0(wd(8,ulli));
[ca8824d]	71
	72	sout \| nl \| "binary integral";
[d6566c1]	73	sout \| bin(0) \| bin(13) \| upcase(bin(13)) \| nobase(bin(13)) \| left(wd(8,bin(13))) \| wd(8,bin(13)) \| nonl;
	74	sout \| pad0(left(wd(8,bin(13)))) \| pad0(wd(8,bin(13))) \| pad0(wd(8,10,bin(13))) \| pad0(wd(8,6,bin(13)));
[ca8824d]	75
	76
	77	sout \| nl \| "float";
	78	float f = 3.537;
	79	printf( "%g %8g %#8g %g %8g %8.0g %#8.0g %8.2g %#8.2g %-8.2g %-8.2g %-#8.2g %-+8.2g %-+#8.2g %08.2g %8.2E %8.2a %#8.2A %#8.2e\n",
	80	0.0,3.0F,3.0F, f, f, f, f, f, f, 3.0F, f, f, f, f, f, f, f, f, f );
[d6566c1]	81	sout \| 0.0 \| wd(8, 3.0F) \| nodp(wd(8, 3.0F)) \| f \| wd(8, f) \| ws(8,0, f) \| nodp(ws(8,0, f)) \| ws(8,2, f) \| nodp(ws(8,2, f)) \| nonl;
	82	sout \| left(ws(8,2, 3.0F)) \| left(ws(8,2, f)) \| left(nodp(ws(8,2, f))) \| left(sign(ws(8,2, f))) \| left(sign(nodp(ws(8,2, f)))) \| nonl;
	83	sout \| pad0(ws(8,2, f)) \| upcase(wd(8,2, sci(f))) \| wd(8,2, hex(f)) \| upcase(wd(8,2, hex(f))) \| nodp(wd(8,2, sci(f)));
[ca8824d]	84
	85	sout \| "double";
	86	double d = 3.537;
[0effb6a]	87	printf( "%g %8g %#8g %g %8g %8.0g %#8.0g %8.2g %#8.2g %-8.2g %-8.2g %-#8.2g %-+8.2g %-+#8.2g %08.2g %8.2E %8.2a %#8.2A %#8.2e\n",
	88	0.0, 3.0, 3.0, d, d, d, d, d, d, 3.0, d, d, d, d, d, d, d, d, d );
	89	sout \| 0.0 \| wd(8, 3.0) \| nodp(wd(8, 3.0)) \| d \| wd(8, d) \| ws(8,0, d) \| nodp(ws(8,0, d)) \| ws(8,2, d) \| nodp(ws(8,2, d)) \| nonl;
	90	sout \| left(ws(8,2, 3.0)) \| left(ws(8,2, d)) \| left(nodp(ws(8,2, d))) \| left(sign(ws(8,2, d))) \| left(sign(nodp(ws(8,2, d)))) \| nonl;
	91	sout \| pad0(ws(8,2, d)) \| upcase(wd(8,2, sci(d))) \| wd(8,2, hex(d)) \| upcase(wd(8,2, hex(d))) \| nodp(wd(8,2, sci(d)));
[ca8824d]	92
	93	sout \| "long double";
	94	long double ld = 3.537;
[0effb6a]	95	printf( "%Lg %8Lg %#8Lg %Lg %8Lg %8.0Lg %#8.0Lg %8.2Lg %#8.2Lg %-8.2Lg %-8.2Lg %-#8.2Lg %-+8.2Lg %-+#8.2Lg %08.2Lg %8.2LE %8.2La %#8.2LA %#8.2Le\n",
	96	0.0L, 3.0L, 3.0L, ld, ld, ld, ld, ld, ld, 3.0L, ld, ld, ld, ld, ld, ld, ld, ld, ld );
	97	sout \| 0.0L \| wd(8, 3.0L) \| nodp(wd(8, 3.0L)) \| ld \| wd(8, ld) \| ws(8,0, ld) \| nodp(ws(8,0, ld)) \| ws(8,2, ld) \| nodp(ws(8,2, ld)) \| nonl;
	98	sout \| left(ws(8,2, 3.0L)) \| left(ws(8,2, ld)) \| left(nodp(ws(8,2, ld))) \| left(sign(ws(8,2, ld))) \| left(sign(nodp(ws(8,2, ld)))) \| nonl;
	99	sout \| pad0(ws(8,2, ld)) \| upcase(wd(8,2, sci(ld))) \| wd(8,2, hex(ld)) \| upcase(wd(8,2, hex(ld))) \| nodp(wd(8,2, sci(ld)));
[ca8824d]	100
	101	sout \| nl \| "char";
	102	char c = 'a';
	103	printf( "%c %2c %5c %-5c %hho %#hho %hhx %#hhx %#8hhx %#8hhX %-8c %8c\n", c, c, c, c, c, c, c, c, c, c, c, c );
[d6566c1]	104	sout \| c \| ' ' \| wd(2,c) \| wd(5,c) \| left(wd(5,c)) \| nobase(oct(c)) \| oct(c) \| nonl;
	105	sout \| nobase(hex(c)) \| hex(c) \| wd(8,hex(c)) \| upcase(wd(8,hex(c))) \| left(wd(8,c)) \| wd(8,c);
[ca8824d]	106
	107	sout \| nl \| "string";
	108	const char * s = "abcd";
	109	printf( "%s %8s %6.8s %-8s\n", s, s, s, s );
	110	sout \| s \| wd(8,s) \| wd(6,8,s) \| left(wd(8,s));
	111
	112	sout \| nl \| "binary string";
	113	sout \| bin("0") \| bin(s) \| oct(s) \| hex(s);
	114	sout \| nobase(bin("0")) \| nobase(bin(s)) \| nobase(oct(s)) \| nobase(hex(s));
	115	sout \| nobase(wd(8,bin("0"))) \| nobase(wd(8,bin(s))) \| nobase(wd(4,oct(s))) \| nobase(wd(3,hex(s)));
	116	}
	117
	118	// Local Variables: //
	119	// tab-width: 4 //
[0effb6a]	120	// compile-command: "cfa -Wall -Wextra manipulatorsOutput1.cfa" //
[ca8824d]	121	// End: //

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

Download in other formats:

Original Format