perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	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