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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
@z --- proto.hweb ---
FWEB version 1.62 (September 25, 1998)
Based on version 0.5 of S. Levy's CWEB [copyright (C) 1987 Princeton University]
@x-----------------------------------------------------------------------------
@ In this header we handle stuff related to function prototypes.
@ The |PROTO| macro is used in \.{?\_type.hweb}.
@f PROTO $_EXPR
@<Operating system-specific...@>=
#if OLD_PROTOTYPES
#define PROTO(args) () // Old-style.
#else
#define PROTO(args) args // New-style.
#endif // |PROTOTYPES|
@ Here we deal with variable arguments.
@f ELLIPSIS $_EXPR
@f VA_ARGS $_EXPR
@f VA_LIST int
@<Operating system...@>=
#if(0)
/* Sun's system is hopeless. */
#if(NUM_VA_ARGS == 1)
#undef NUM_VA_ARGS
#define NUM_VA_ARGS 2
#endif
#endif
#if VARIABLE_ARGUMENTS
#define ELLIPSIS ,... /* ANSI standard; VAX allows for old-style
declarations. */
#define VA_ARGS
#define VA_start
#if(NUM_VA_ARGS == 1)
#define VA_ALIST(args) (va_alist) // Sun's way.
#define VA_DCL(args) va_dcl
#define VA_START(a,n) va_start(a)
#else
#define VA_ALIST(args) args // ANSI way.
#define VA_DCL(args) args
#define VA_START(a,n) va_start(a,n)
#endif
#define VA_LIST(a) va_list a;
#else
#define ELLIPSIS /* Not permitted by \.{gcc} for old-style
declarations. */
#define VA_ARGS ,arg_ptr
#define arg_ptr arg1,arg2,arg3,arg4,arg5,arg6,\
arg7,arg8,arg9,arg10,arg11,arg12,arg13
#define VA_start outer_char *arg1,*arg2,*arg3,*arg4,*arg5,*arg6,\
*arg7,*arg8,*arg9,*arg10,*arg11,*arg12,*arg13;
#define VA_ALIST(args) args
#define VA_DCL(args) args
#define VA_LIST(a)
#define VA_START(a,n)
#ifdef va_arg
#undef va_arg
#define va_arg(a,type) (type)"KLUDGE for va_arg"
#endif
#define va_end(a)
#define vprintf printf
#define vsprintf sprintf
#endif /* ANSI variable arguments. */
@ The compilers have various understandings of |void| and |const|.
@f SRTN void /* Identifies functions that return |void|. */
@f CONST static /* Identifies things that aren't changed by function calls,
or that can be placed in read-only memory. */
@<Operating system...@>=
#if !NO_VOID /* \.{Machine-dependent}: For machines
that understand about |void *| or |void fcn()|. */
#define VOID void
#define SRTN void
#else
#define VOID /* For use in function declarations. */
#define void char
#define SRTN int
#endif /* |void| stuff. */
#if KEEP_CONST
#define CONST const
#else
#define CONST
#endif
@ The following macros make either old- or new-style function declarations.
@f FCN $_EXPR
@f C0 $_EXPR
@f C1 $_EXPR
@f C2 $_EXPR
@f RPAR $_EXPR
@<Operating system...@>=
#if OLD_PROTOTYPES
/* Old-style declarations. */
#define FCN(args) args
#define C0(cmnt) ;
#define C1(cmnt) ;
#define C2(cmnt) ;VA_start
#else
/* New-style declarations. To use these macros, function declarations
should have form |main FCN((num_args,args))|. See one of the \FWEB\
sources for examples of the use of~|C0|, |C1|, and~|C2|. */
#define FCN(args) (
#define C0(cmnt) , /* Intermediate comments. */
#define C1(cmnt) ) /* Comment on last argument. */
#define C2(cmnt) ,...) /* Variable args. */
#endif // |PROTOTYPES|
|
