[p5sagit/p5-mst-13.2.git] / warnings.h

/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   This file is built by warnings.pl
   Any changes made here will be lost!
*/


#define Off(x)			((x) / 8)
#define Bit(x)			(1 << ((x) % 8))
#define IsSet(a, x)		((a)[Off(x)] & Bit(x))


#define G_WARN_OFF		0 	/* $^W == 0 */
#define G_WARN_ON		1	/* -w flag and $^W != 0 */
#define G_WARN_ALL_ON		2	/* -W flag */
#define G_WARN_ALL_OFF		4	/* -X flag */
#define G_WARN_ONCE		8	/* set if 'once' ever enabled */
#define G_WARN_ALL_MASK		(G_WARN_ALL_ON|G_WARN_ALL_OFF)

#define WARN_STD		Nullsv
#define WARN_ALL		(Nullsv+1)	/* use warnings 'all' */
#define WARN_NONE		(Nullsv+2)	/* no  warnings 'all' */

#define specialWARN(x)		((x) == WARN_STD || (x) == WARN_ALL ||	\
				 (x) == WARN_NONE)

#define ckDEAD(x)							\
	   ( ! specialWARN(PL_curcop->cop_warnings) &&			\
	    IsSet(SvPVX(PL_curcop->cop_warnings), 2*x+1))

#define ckWARN(x)							\
	( (PL_curcop->cop_warnings != WARN_STD &&			\
	   PL_curcop->cop_warnings != WARN_NONE &&			\
	      (PL_curcop->cop_warnings == WARN_ALL ||			\
	       IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) )		\
	  || (PL_curcop->cop_warnings == WARN_STD && PL_dowarn & G_WARN_ON) )

#define ckWARN2(x,y)							\
	  ( (PL_curcop->cop_warnings != WARN_STD  &&			\
	     PL_curcop->cop_warnings != WARN_NONE &&			\
	      (PL_curcop->cop_warnings == WARN_ALL ||			\
	        IsSet(SvPVX(PL_curcop->cop_warnings), 2*x)  ||		\
	        IsSet(SvPVX(PL_curcop->cop_warnings), 2*y) ) ) 		\
	    ||	(PL_curcop->cop_warnings == WARN_STD && PL_dowarn & G_WARN_ON) )

#define ckWARN_d(x)							\
	  (PL_curcop->cop_warnings == WARN_STD ||			\
	   PL_curcop->cop_warnings == WARN_ALL ||			\
	     (PL_curcop->cop_warnings != WARN_NONE &&			\
	      IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) )

#define ckWARN2_d(x,y)							\
	  (PL_curcop->cop_warnings == WARN_STD ||			\
	   PL_curcop->cop_warnings == WARN_ALL ||			\
	     (PL_curcop->cop_warnings != WARN_NONE &&			\
	        (IsSet(SvPVX(PL_curcop->cop_warnings), 2*x)  ||		\
	         IsSet(SvPVX(PL_curcop->cop_warnings), 2*y) ) ) )


#define isLEXWARN_on 	(PL_curcop->cop_warnings != WARN_STD)
#define isLEXWARN_off	(PL_curcop->cop_warnings == WARN_STD)
#define isWARN_ONCE	(PL_dowarn & (G_WARN_ON|G_WARN_ONCE))
#define isWARN_on(c,x)	(IsSet(SvPVX(c), 2*(x)))

#define WARN_CHMOD		0
#define WARN_CLOSURE		1
#define WARN_EXITING		2
#define WARN_GLOB		3
#define WARN_IO			4
#define WARN_CLOSED		5
#define WARN_EXEC		6
#define WARN_NEWLINE		7
#define WARN_PIPE		8
#define WARN_UNOPENED		9
#define WARN_MISC		10
#define WARN_NUMERIC		11
#define WARN_ONCE		12
#define WARN_OVERFLOW		13
#define WARN_PACK		14
#define WARN_PORTABLE		15
#define WARN_RECURSION		16
#define WARN_REDEFINE		17
#define WARN_REGEXP		18
#define WARN_SEVERE		19
#define WARN_DEBUGGING		20
#define WARN_INPLACE		21
#define WARN_INTERNAL		22
#define WARN_MALLOC		23
#define WARN_SIGNAL		24
#define WARN_SUBSTR		25
#define WARN_SYNTAX		26
#define WARN_AMBIGUOUS		27
#define WARN_BAREWORD		28
#define WARN_DEPRECATED		29
#define WARN_DIGIT		30
#define WARN_PARENTHESIS	31
#define WARN_PRECEDENCE		32
#define WARN_PRINTF		33
#define WARN_PROTOTYPE		34
#define WARN_QW			35
#define WARN_RESERVED		36
#define WARN_SEMICOLON		37
#define WARN_TAINT		38
#define WARN_UMASK		39
#define WARN_UNINITIALIZED	40
#define WARN_UNPACK		41
#define WARN_UNTIE		42
#define WARN_UTF8		43
#define WARN_VOID		44
#define WARN_Y2K		45

#define WARNsize		12
#define WARN_ALLstring		"\125\125\125\125\125\125\125\125\125\125\125\125"
#define WARN_NONEstring		"\0\0\0\0\0\0\0\0\0\0\0\0"

/* end of file warnings.h */
Commit	Line	Data
599cee73	1	/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
4438c4b7	2	This file is built by warnings.pl
599cee73	3	Any changes made here will be lost!
	4	*/
	5
	6
0453d815	7	#define Off(x) ((x) / 8)
0453d815	8	#define Bit(x) (1 << ((x) % 8))
599cee73	9	#define IsSet(a, x) ((a)[Off(x)] & Bit(x))
599cee73	10
0453d815	11
599cee73	12	#define G_WARN_OFF 0 /* $^W == 0 */
0453d815	13	#define G_WARN_ON 1 /* -w flag and $^W != 0 */
599cee73	14	#define G_WARN_ALL_ON 2 /* -W flag */
599cee73	15	#define G_WARN_ALL_OFF 4 /* -X flag */
0453d815	16	#define G_WARN_ONCE 8 /* set if 'once' ever enabled */
599cee73	17	#define G_WARN_ALL_MASK (G_WARN_ALL_ON\|G_WARN_ALL_OFF)
599cee73	18
0453d815	19	#define WARN_STD Nullsv
971a9dd3	20	#define WARN_ALL (Nullsv+1) /* use warnings 'all' */
971a9dd3	21	#define WARN_NONE (Nullsv+2) /* no warnings 'all' */
599cee73	22
0453d815	23	#define specialWARN(x) ((x) == WARN_STD \|\| (x) == WARN_ALL \|\| \
0453d815	24	(x) == WARN_NONE)
599cee73	25
599cee73	26	#define ckDEAD(x) \
0453d815	27	( ! specialWARN(PL_curcop->cop_warnings) && \
e24b16f9	28	IsSet(SvPVX(PL_curcop->cop_warnings), 2*x+1))
599cee73	29
599cee73	30	#define ckWARN(x) \
0453d815	31	( (PL_curcop->cop_warnings != WARN_STD && \
0453d815	32	PL_curcop->cop_warnings != WARN_NONE && \
e24b16f9	33	(PL_curcop->cop_warnings == WARN_ALL \|\| \
e24b16f9	34	IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) ) \
0453d815	35	\|\| (PL_curcop->cop_warnings == WARN_STD && PL_dowarn & G_WARN_ON) )
599cee73	36
599cee73	37	#define ckWARN2(x,y) \
0453d815	38	( (PL_curcop->cop_warnings != WARN_STD && \
0453d815	39	PL_curcop->cop_warnings != WARN_NONE && \
e24b16f9	40	(PL_curcop->cop_warnings == WARN_ALL \|\| \
	41	IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) \|\| \
	42	IsSet(SvPVX(PL_curcop->cop_warnings), 2*y) ) ) \
0453d815	43	\|\| (PL_curcop->cop_warnings == WARN_STD && PL_dowarn & G_WARN_ON) )
	44
	45	#define ckWARN_d(x) \
	46	(PL_curcop->cop_warnings == WARN_STD \|\| \
	47	PL_curcop->cop_warnings == WARN_ALL \|\| \
	48	(PL_curcop->cop_warnings != WARN_NONE && \
	49	IsSet(SvPVX(PL_curcop->cop_warnings), 2*x) ) )
	50
	51	#define ckWARN2_d(x,y) \
	52	(PL_curcop->cop_warnings == WARN_STD \|\| \
	53	PL_curcop->cop_warnings == WARN_ALL \|\| \
	54	(PL_curcop->cop_warnings != WARN_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 != WARN_STD)
	60	#define isLEXWARN_off (PL_curcop->cop_warnings == WARN_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
e476b1b5	64	#define WARN_CHMOD 0
	65	#define WARN_CLOSURE 1
	66	#define WARN_EXITING 2
	67	#define WARN_GLOB 3
	68	#define WARN_IO 4
	69	#define WARN_CLOSED 5
	70	#define WARN_EXEC 6
	71	#define WARN_NEWLINE 7
	72	#define WARN_PIPE 8
	73	#define WARN_UNOPENED 9
	74	#define WARN_MISC 10
	75	#define WARN_NUMERIC 11
	76	#define WARN_ONCE 12
	77	#define WARN_OVERFLOW 13
	78	#define WARN_PACK 14
	79	#define WARN_PORTABLE 15
	80	#define WARN_RECURSION 16
	81	#define WARN_REDEFINE 17
	82	#define WARN_REGEXP 18
	83	#define WARN_SEVERE 19
	84	#define WARN_DEBUGGING 20
	85	#define WARN_INPLACE 21
	86	#define WARN_INTERNAL 22
	87	#define WARN_MALLOC 23
	88	#define WARN_SIGNAL 24
	89	#define WARN_SUBSTR 25
	90	#define WARN_SYNTAX 26
	91	#define WARN_AMBIGUOUS 27
	92	#define WARN_BAREWORD 28
	93	#define WARN_DEPRECATED 29
	94	#define WARN_DIGIT 30
	95	#define WARN_PARENTHESIS 31
	96	#define WARN_PRECEDENCE 32
	97	#define WARN_PRINTF 33
	98	#define WARN_PROTOTYPE 34
	99	#define WARN_QW 35
	100	#define WARN_RESERVED 36
	101	#define WARN_SEMICOLON 37
	102	#define WARN_TAINT 38
	103	#define WARN_UMASK 39
	104	#define WARN_UNINITIALIZED 40
	105	#define WARN_UNPACK 41
	106	#define WARN_UNTIE 42
	107	#define WARN_UTF8 43
	108	#define WARN_VOID 44
	109	#define WARN_Y2K 45
	110
	111	#define WARNsize 12
	112	#define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125"
	113	#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0"
599cee73	114
4438c4b7	115	/* end of file warnings.h */
599cee73	116