This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[PATCH] assertions
[perl5.git] / warnings.h
1 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
2    This file is built by warnings.pl
3    Any changes made here will be lost!
4 */
5
6
7 #define Off(x)                  ((x) / 8)
8 #define Bit(x)                  (1 << ((x) % 8))
9 #define IsSet(a, x)             ((a)[Off(x)] & Bit(x))
10
11
12 #define G_WARN_OFF              0       /* $^W == 0 */
13 #define G_WARN_ON               1       /* -w flag and $^W != 0 */
14 #define G_WARN_ALL_ON           2       /* -W flag */
15 #define G_WARN_ALL_OFF          4       /* -X flag */
16 #define G_WARN_ONCE             8       /* set if 'once' ever enabled */
17 #define G_WARN_ALL_MASK         (G_WARN_ALL_ON|G_WARN_ALL_OFF)
18
19 #define pWARN_STD               Nullsv
20 #define pWARN_ALL               (Nullsv+1)      /* use warnings 'all' */
21 #define pWARN_NONE              (Nullsv+2)      /* no  warnings 'all' */
22
23 #define specialWARN(x)          ((x) == pWARN_STD || (x) == pWARN_ALL ||        \
24                                  (x) == pWARN_NONE)
25
26 /* Warnings Categories added in Perl 5.008 */
27
28 #define WARN_ALL                0
29 #define WARN_CLOSURE            1
30 #define WARN_DEPRECATED         2
31 #define WARN_EXITING            3
32 #define WARN_GLOB               4
33 #define WARN_IO                 5
34 #define WARN_CLOSED             6
35 #define WARN_EXEC               7
36 #define WARN_LAYER              8
37 #define WARN_NEWLINE            9
38 #define WARN_PIPE               10
39 #define WARN_UNOPENED           11
40 #define WARN_MISC               12
41 #define WARN_NUMERIC            13
42 #define WARN_ONCE               14
43 #define WARN_OVERFLOW           15
44 #define WARN_PACK               16
45 #define WARN_PORTABLE           17
46 #define WARN_RECURSION          18
47 #define WARN_REDEFINE           19
48 #define WARN_REGEXP             20
49 #define WARN_SEVERE             21
50 #define WARN_DEBUGGING          22
51 #define WARN_INPLACE            23
52 #define WARN_INTERNAL           24
53 #define WARN_MALLOC             25
54 #define WARN_SIGNAL             26
55 #define WARN_SUBSTR             27
56 #define WARN_SYNTAX             28
57 #define WARN_AMBIGUOUS          29
58 #define WARN_BAREWORD           30
59 #define WARN_DIGIT              31
60 #define WARN_PARENTHESIS        32
61 #define WARN_PRECEDENCE         33
62 #define WARN_PRINTF             34
63 #define WARN_PROTOTYPE          35
64 #define WARN_QW                 36
65 #define WARN_RESERVED           37
66 #define WARN_SEMICOLON          38
67 #define WARN_TAINT              39
68 #define WARN_THREADS            40
69 #define WARN_UNINITIALIZED      41
70 #define WARN_UNPACK             42
71 #define WARN_UNTIE              43
72 #define WARN_UTF8               44
73 #define WARN_VOID               45
74 #define WARN_Y2K                46
75
76 /* Warnings Categories added in Perl 5.009 */
77
78 #define WARN_ASSERTIONS         47
79
80 #define WARNsize                12
81 #define WARN_ALLstring          "\125\125\125\125\125\125\125\125\125\125\125\125"
82 #define WARN_NONEstring         "\0\0\0\0\0\0\0\0\0\0\0\0"
83 #define WARN_TAINTstring        "\0\0\0\0\0\0\0\0\0\100\0\0"
84
85 #define isLEXWARN_on    (PL_curcop->cop_warnings != pWARN_STD)
86 #define isLEXWARN_off   (PL_curcop->cop_warnings == pWARN_STD)
87 #define isWARN_ONCE     (PL_dowarn & (G_WARN_ON|G_WARN_ONCE))
88 #define isWARN_on(c,x)  (IsSet(SvPVX(c), 2*(x)))
89 #define isWARNf_on(c,x) (IsSet(SvPVX(c), 2*(x)+1))
90
91 #define ckWARN(x)                                                       \
92         ( (isLEXWARN_on && PL_curcop->cop_warnings != pWARN_NONE &&     \
93               (PL_curcop->cop_warnings == pWARN_ALL ||                  \
94                isWARN_on(PL_curcop->cop_warnings, x) ) )                \
95           || (isLEXWARN_off && PL_dowarn & G_WARN_ON) )
96
97 #define ckWARN2(x,y)                                                    \
98           ( (isLEXWARN_on && PL_curcop->cop_warnings != pWARN_NONE &&   \
99               (PL_curcop->cop_warnings == pWARN_ALL ||                  \
100                 isWARN_on(PL_curcop->cop_warnings, x)  ||               \
101                 isWARN_on(PL_curcop->cop_warnings, y) ) )               \
102             ||  (isLEXWARN_off && PL_dowarn & G_WARN_ON) )
103
104 #define ckWARN3(x,y,z)                                                  \
105           ( (isLEXWARN_on && PL_curcop->cop_warnings != pWARN_NONE &&   \
106               (PL_curcop->cop_warnings == pWARN_ALL ||                  \
107                 isWARN_on(PL_curcop->cop_warnings, x)  ||               \
108                 isWARN_on(PL_curcop->cop_warnings, y)  ||               \
109                 isWARN_on(PL_curcop->cop_warnings, z) ) )               \
110             ||  (isLEXWARN_off && PL_dowarn & G_WARN_ON) )
111
112 #define ckWARN4(x,y,z,t)                                                \
113           ( (isLEXWARN_on && PL_curcop->cop_warnings != pWARN_NONE &&   \
114               (PL_curcop->cop_warnings == pWARN_ALL ||                  \
115                 isWARN_on(PL_curcop->cop_warnings, x)  ||               \
116                 isWARN_on(PL_curcop->cop_warnings, y)  ||               \
117                 isWARN_on(PL_curcop->cop_warnings, z)  ||               \
118                 isWARN_on(PL_curcop->cop_warnings, t) ) )               \
119             ||  (isLEXWARN_off && PL_dowarn & G_WARN_ON) )
120
121 #define ckWARN_d(x)                                                     \
122           (isLEXWARN_off || PL_curcop->cop_warnings == pWARN_ALL ||     \
123              (PL_curcop->cop_warnings != pWARN_NONE &&                  \
124               isWARN_on(PL_curcop->cop_warnings, x) ) )
125
126 #define ckWARN2_d(x,y)                                                  \
127           (isLEXWARN_off || PL_curcop->cop_warnings == pWARN_ALL ||     \
128              (PL_curcop->cop_warnings != pWARN_NONE &&                  \
129                 (isWARN_on(PL_curcop->cop_warnings, x)  ||              \
130                  isWARN_on(PL_curcop->cop_warnings, y) ) ) )
131
132 #define ckWARN3_d(x,y,z)                                                \
133           (isLEXWARN_off || PL_curcop->cop_warnings == pWARN_ALL ||     \
134              (PL_curcop->cop_warnings != pWARN_NONE &&                  \
135                 (isWARN_on(PL_curcop->cop_warnings, x)  ||              \
136                  isWARN_on(PL_curcop->cop_warnings, y)  ||              \
137                  isWARN_on(PL_curcop->cop_warnings, z) ) ) )
138
139 #define ckWARN4_d(x,y,z,t)                                              \
140           (isLEXWARN_off || PL_curcop->cop_warnings == pWARN_ALL ||     \
141              (PL_curcop->cop_warnings != pWARN_NONE &&                  \
142                 (isWARN_on(PL_curcop->cop_warnings, x)  ||              \
143                  isWARN_on(PL_curcop->cop_warnings, y)  ||              \
144                  isWARN_on(PL_curcop->cop_warnings, z)  ||              \
145                  isWARN_on(PL_curcop->cop_warnings, t) ) ) )
146
147 #define packWARN(a)             (a                                 )
148 #define packWARN2(a,b)          ((a) | (b)<<8                      )
149 #define packWARN3(a,b,c)        ((a) | (b)<<8 | (c) <<16           )
150 #define packWARN4(a,b,c,d)      ((a) | (b)<<8 | (c) <<16 | (d) <<24)
151
152 #define unpackWARN1(x)          ((x)        & 0xFF)
153 #define unpackWARN2(x)          (((x) >>8)  & 0xFF)
154 #define unpackWARN3(x)          (((x) >>16) & 0xFF)
155 #define unpackWARN4(x)          (((x) >>24) & 0xFF)
156
157 #define ckDEAD(x)                                                       \
158            ( ! specialWARN(PL_curcop->cop_warnings) &&                  \
159             ( isWARNf_on(PL_curcop->cop_warnings, WARN_ALL) ||          \
160               isWARNf_on(PL_curcop->cop_warnings, unpackWARN1(x)) ||    \
161               isWARNf_on(PL_curcop->cop_warnings, unpackWARN2(x)) ||    \
162               isWARNf_on(PL_curcop->cop_warnings, unpackWARN3(x)) ||    \
163               isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x))))
164
165 /* end of file warnings.h */
166