This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
final touches for lexical warnings (from Paul Marquess)
[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 #define ckDEAD(x)                                                       \
27            ( ! specialWARN(PL_curcop->cop_warnings) &&                  \
28             IsSet(SvPVX(PL_curcop->cop_warnings), 2*x+1))
29
30 #define ckWARN(x)                                                       \
31         ( (PL_curcop->cop_warnings != pWARN_STD &&                      \
32            PL_curcop->cop_warnings != pWARN_NONE &&                     \
33               (PL_curcop->cop_warnings == pWARN_ALL ||                  \
34                IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) )           \
35           || (PL_curcop->cop_warnings == pWARN_STD && PL_dowarn & G_WARN_ON) )
36
37 #define ckWARN2(x,y)                                                    \
38           ( (PL_curcop->cop_warnings != pWARN_STD  &&                   \
39              PL_curcop->cop_warnings != pWARN_NONE &&                   \
40               (PL_curcop->cop_warnings == pWARN_ALL ||                  \
41                 IsSet(SvPVX(PL_curcop->cop_warnings), 2*x)  ||          \
42                 IsSet(SvPVX(PL_curcop->cop_warnings), 2*y) ) )          \
43             ||  (PL_curcop->cop_warnings == pWARN_STD && PL_dowarn & G_WARN_ON) )
44
45 #define ckWARN_d(x)                                                     \
46           (PL_curcop->cop_warnings == pWARN_STD ||                      \
47            PL_curcop->cop_warnings == pWARN_ALL ||                      \
48              (PL_curcop->cop_warnings != pWARN_NONE &&                  \
49               IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) )
50
51 #define ckWARN2_d(x,y)                                                  \
52           (PL_curcop->cop_warnings == pWARN_STD ||                      \
53            PL_curcop->cop_warnings == pWARN_ALL ||                      \
54              (PL_curcop->cop_warnings != pWARN_NONE &&                  \
55                 (IsSet(SvPVX(PL_curcop->cop_warnings), 2*x)  ||         \
56                  IsSet(SvPVX(PL_curcop->cop_warnings), 2*y) ) ) )
57
58
59 #define isLEXWARN_on    (PL_curcop->cop_warnings != pWARN_STD)
60 #define isLEXWARN_off   (PL_curcop->cop_warnings == pWARN_STD)
61 #define isWARN_ONCE     (PL_dowarn & (G_WARN_ON|G_WARN_ONCE))
62 #define isWARN_on(c,x)  (IsSet(SvPVX(c), 2*(x)))
63
64 #define WARN_ALL                0
65 #define WARN_CHMOD              1
66 #define WARN_CLOSURE            2
67 #define WARN_EXITING            3
68 #define WARN_GLOB               4
69 #define WARN_IO                 5
70 #define WARN_CLOSED             6
71 #define WARN_EXEC               7
72 #define WARN_NEWLINE            8
73 #define WARN_PIPE               9
74 #define WARN_UNOPENED           10
75 #define WARN_MISC               11
76 #define WARN_NUMERIC            12
77 #define WARN_ONCE               13
78 #define WARN_OVERFLOW           14
79 #define WARN_PACK               15
80 #define WARN_PORTABLE           16
81 #define WARN_RECURSION          17
82 #define WARN_REDEFINE           18
83 #define WARN_REGEXP             19
84 #define WARN_SEVERE             20
85 #define WARN_DEBUGGING          21
86 #define WARN_INPLACE            22
87 #define WARN_INTERNAL           23
88 #define WARN_MALLOC             24
89 #define WARN_SIGNAL             25
90 #define WARN_SUBSTR             26
91 #define WARN_SYNTAX             27
92 #define WARN_AMBIGUOUS          28
93 #define WARN_BAREWORD           29
94 #define WARN_DEPRECATED         30
95 #define WARN_DIGIT              31
96 #define WARN_PARENTHESIS        32
97 #define WARN_PRECEDENCE         33
98 #define WARN_PRINTF             34
99 #define WARN_PROTOTYPE          35
100 #define WARN_QW                 36
101 #define WARN_RESERVED           37
102 #define WARN_SEMICOLON          38
103 #define WARN_TAINT              39
104 #define WARN_UMASK              40
105 #define WARN_UNINITIALIZED      41
106 #define WARN_UNPACK             42
107 #define WARN_UNTIE              43
108 #define WARN_UTF8               44
109 #define WARN_VOID               45
110 #define WARN_Y2K                46
111
112 #define WARNsize                12
113 #define WARN_ALLstring          "\125\125\125\125\125\125\125\125\125\125\125\125"
114 #define WARN_NONEstring         "\0\0\0\0\0\0\0\0\0\0\0\0"
115
116 /* end of file warnings.h */
117