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

65 lines
1.3 KiB
Perl

/* trad.t
* Samples for a very old "Reiser" model preprocessor.
*/
#define glue(a, b) a/**/b
#define xglue(a, b) glue(a,b)
#define ctrl( c) 'c' & 0x1f
#define debug(n1,n2) printf("n1= %d, n2= %s", x/**/n1, x/**/n2)
/* ISO C preprocessor expands to :a b c;
* very old preprocessor does to :abc;
*/
glue( glue( a,b),c);
/* ISO C :a b c;
* very old :abc;
*/
xglue( xglue( a,b),c);
#define abc ABC
/* ISO C preprocessor expands to :a b c;
* very old preprocessor does to :ABC;
*/
glue( glue( a,b),c);
/* ISO C :'c' & 0x1f;
* very old :'A' & 0x1f;
*/
ctrl( A);
/* ISO C :printf("n1= %d, n2= %s", x 1, x 2);
* very old :printf("1= %d, 2= %s", x1, x2);
*/
debug(1,2);
/* ISO C :text other than comment after #else, #endif line is error
* very old :the text is skipped quietly
*/
#define OLD_PREPROCESSOR 1
#if OLD_PREPROCESSOR
#else OLD_PREPROCESSOR
#endif OLD_PREPROCESSOR
/* ISO C :Token error
* very old :Implicit closing quote at end of line
*/
asm("
.text
_probeintr:
ss
incl _npx_intrs_while_probing
pushl %eax
movb $0x20,%al
#ifdef PC98
outb %al,$0x08
outb %al,$0x0
#else
outb %al,$0xa0
outb %al,$0x20
#endif
");