root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/libraries/mcpp/test-t/n_post99.t
Alessandro Bonazzi e075990ed3 Patch level : 12.0 no-patch 
Files correlati     :
Commento            :

Aggiunto il preprocessore c++ mcpp per sostituire il compilatore nella compilazione delle maschere.
2020-11-28 16:24:08 +01:00

276 lines
10 KiB
Raku
Raw Blame History

/*
* n_post99.t
* Samples to test "Post-C99" preprocessing.
*
* 2002/08 made public kmatsui
* 2003/03 slightly revised kmatsui
*/
/* n_dslcom: // is a comment of C99. */
/* a ; */
a; // is a comment of C99
/* n_ppnum.t: Preprocessing number token *p+* */
/* Undefined on C90, because '+A' is not a valid pp-token. */
#define A 3
#define glue( a, b) a ## b
/* 12p+A ; */
glue( 12p+, A);
/* n_line.t: line number argument of #line */
/* C99: Range of line number in #line directive is [1..2147483647] */
#line 2147483647
__LINE__; /* 2147483647 ; */
#line 30 /* Resume the real line number */
__LINE__;
/* n_llong.t: long long in #if expression */
#if 12345678901234567890 < 13345678901234567890
"long long #if expression is implemented."
#else
"long long #if expression is not implemented."
#endif
/* n_vargs.t: Macro of variable arguments */
/* from C99 Standard 6.10.3 Examples */
#define debug( ...) fprintf( stderr, __VA_ARGS__)
#define showlist( ...) puts( #__VA_ARGS__)
#define report( test, ...) ((test) ? puts( #test) \
: printf( __VA_ARGS__))
{
/* fprintf ( stderr , "Flag" ) ; */
debug( "Flag");
/* fprintf ( stderr , "X = %d\n" , x ) ; */
debug( "X = %d\n", x);
/* puts ( "The first , second , and third items ." ) ; */
showlist( The first, second, and third items.);
/* ( ( x > y ) ? puts ( "x > y" ) : printf ( "x is %d but y is %d", x , y ) ) ; */
report( x>y, "x is %d but y is %d", x, y);
}
/* n_pragma.t: _Pragma() operator */
/* based on the proposal to C99 by Bill Homer */
#define Machine_B
#include "pragmas.h"
/* #pragma vfunction */
Fast_call
void f(int n, double * a, double * b) {
/* #pragma ivdep */
Independent
while(n-- > 0) {
*a++ += *b++;
}
}
#define f(N, A, B) \
{ int n = (N), double * a = (A), double * b = (B); \
Independent while(n-- > 0) { *a++ += *b++; } \
}
#define EXPRAG(x) _Pragma(#x)
#define PRAGMA(x) EXPRAG(x)
#define LIBFUNC xyz
int libfunc() { ... }
/* Direct the linker to define alternate entry points for libfunc. */
/* #pragma duplicate libfunc as ( lib_func , xyz ) */
PRAGMA( duplicate libfunc as (lib_func,LIBFUNC) )
/* n_nularg.t: Empty argument of macro call. */
#define ARG( a) # a
#define EMPTY
#define SHOWN( n) printf( "%s : %d\n", # n, n)
#define SHOWS( s) printf( "%s : %s\n", # s, ARG( s))
#define add( a, b) (a + b)
#define sub( a, b) (a - b)
#define math( op, a, b) op( a, b)
#define APPEND( a, b) a ## b
/* printf ( "%s : %d\n" , "math ( sub , , y )" , ( - y ) ) ; */
SHOWN( math( sub, , y));
/* printf ( "%s : %s\n" , "EMPTY" , "" ) ; */
SHOWS( EMPTY);
/* printf ( "%s : %s\n" , "APPEND ( CON , 1 )" , "CON1" ) ; */
SHOWS( APPEND( CON, 1));
/* printf ( "%s : %s\n" , "APPEND ( CON , )" , "CON" ) ; */
SHOWS( APPEND( CON, ));
/* printf ( "%s : %s\n" , "APPEND( , )" , "" ) ; */
SHOWS( APPEND( , ));
/* n_stdmac.t: C99 Standard pre-defined macros. */
/* 199901L ; */
__STDC_VERSION__;
/* 1 ; or 0 ; */
__STDC_HOSTED__;
/* n_tlimit.t: Tests of translation limits. */
/* 37.1L: Number of parameters of macro definition: at least 127. */
#define glue127( \
a0, b0, c0, d0, e0, f0, g0, h0, i0, j0, k0, l0, m0, n0, o0, p0, \
a1, b1, c1, d1, e1, f1, g1, h1, i1, j1, k1, l1, m1, n1, o1, p1, \
a2, b2, c2, d2, e2, f2, g2, h2, i2, j2, k2, l2, m2, n2, o2, p2, \
a3, b3, c3, d3, e3, f3, g3, h3, i3, j3, k3, l3, m3, n3, o3, p3, \
a4, b4, c4, d4, e4, f4, g4, h4, i4, j4, k4, l4, m4, n4, o4, p4, \
a5, b5, c5, d5, e5, f5, g5, h5, i5, j5, k5, l5, m5, n5, o5, p5, \
a6, b6, c6, d6, e6, f6, g6, h6, i6, j6, k6, l6, m6, n6, o6, p6, \
a7, b7, c7, d7, e7, f7, g7, h7, i7, j7, k7, l7, m7, n7, o7) \
a0 ## b0 ## c0 ## d0 ## e0 ## f0 ## g0 ## h0 ## \
p0 ## p1 ## p2 ## p3 ## p4 ## p5 ## p6 ## o7
/* 37.2L: Number of arguments of macro call: at least 127. */
/* A0B0C0D0E0F0G0H0P0P1P2P3P4P5P6O7 ; */
glue127(
A0, B0, C0, D0, E0, F0, G0, H0, I0, J0, K0, L0, M0, N0, O0, P0,
A1, B1, C1, D1, E1, F1, G1, H1, I1, J1, K1, L1, M1, N1, O1, P1,
A2, B2, C2, D2, E2, F2, G2, H2, I2, J2, K2, L2, M2, N2, O2, P2,
A3, B3, C3, D3, E3, F3, G3, H3, I3, J3, K3, L3, M3, N3, O3, P3,
A4, B4, C4, D4, E4, F4, G4, H4, I4, J4, K4, L4, M4, N4, O4, P4,
A5, B5, C5, D5, E5, F5, G5, H5, I5, J5, K5, L5, M5, N5, O5, P5,
A6, B6, C6, D6, E6, F6, G6, H6, I6, J6, K6, L6, M6, N6, O6, P6,
A7, B7, C7, D7, E7, F7, G7, H7, I7, J7, K7, L7, M7, N7, O7);
/* 37.3L: Significant initial characters in an internal identifier or a
macro name: at least 63 bytes. */
int
A23456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef = 63;
/* 37.4L: Nested conditional inclusion: at least 63 level. */
/* ifdef_nest = 0x3f ; */
#define X3F
#include "ifdef15.h"
/* 37.5L: Nested source file inclusion: at least 15 level. */
/* nest = 0x0f ; */
#define X0F
#include "nest1.h"
/* 37.6L: Parenthesized expression: at least 63 level. */
/* nest = 63 ; */
#if \
(0x00 + (0x01 - (0x02 + (0x03 - (0x04 + (0x05 - (0x06 + (0x07 - \
(0x08 + (0x09 - (0x0A + (0x0B - (0x0C + (0x0D - (0x0E + (0x0F - \
(0x10 + (0x11 - (0x12 + (0x13 - (0x14 + (0x15 - (0x16 + (0x17 - \
(0x18 + (0x19 - (0x1A + (0x1B - (0x1C + (0x1D - (0x1E + (0x1F - \
(0x20 + (0x21 - (0x22 + (0x23 - (0x24 + (0x25 - (0x26 + (0x27 - \
(0x28 + (0x29 - (0x2A + (0x2B - (0x2C + (0x2D - (0x2E + (0x2F - \
(0x30 + (0x31 - (0x32 + (0x33 - (0x34 + (0x35 - (0x36 + (0x37 - \
(0x38 + (0x39 - (0x3A + (0x3B - (0x3C + (0x3D - 0x3E) \
))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) \
== -1
nest = 63;
#endif
/* 37.7L: Characters in a string (after concatenation)
: at least 4095 bytes. */
/* 4095 bytes long. */
char *string4093 =
"123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
1123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
2123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
3123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
4123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
5123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
6123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
7123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
8123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
9123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
a123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
b123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
c123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
d123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
e123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
f123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
A123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
1123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
2123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
3123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
4123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
5123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
6123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
7123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
8123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
9123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
a123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
b123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
c123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
d123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
e123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
f123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
B123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
1123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
2123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
3123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
4123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
5123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
6123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
7123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
8123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
9123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
a123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
b123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
c123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
d123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
e123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
f123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
C123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
1123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
2123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
3123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
4123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
5123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
6123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
7123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
8123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
9123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
a123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
b123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
c123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
d123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
e123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef\
f123456789abcdef0123456789abcdef0123456789abcdef0123456789abcd"
;
/* 37.8L: Length of logical source line: at least 4095 bytes. */
#include "long4095.h"
/* 37.9L: Number of macro definitions: at least 4095. */
#undef ARG
#include "m4095.h"
/* 0x0fff ; */
GBM;
Reference in New Issue View Git Blame Copy Permalink