File: trad.t

package info (click to toggle)
mcpp 2.7.2-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 8,152 kB
  • ctags: 29,136
  • sloc: ansic: 35,238; sh: 9,241; makefile: 176; cpp: 84; exp: 18
file content (64 lines) | stat: -rw-r--r-- 1,295 bytes parent folder | download | duplicates (7)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
/* 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
");