source: trunk/third/perl/warnings.h @ 14545

Revision 14545, 3.5 KB checked in by ghudson, 24 years ago (diff)
This commit was generated by cvs2svn to compensate for changes in r14544, which included commits to RCS files with non-trunk default branches.
Line 
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
Note: See TracBrowser for help on using the repository browser.