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