[perl5.git] / warnings.h

/* -*- buffer-read-only: t -*-
   !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
   This file is built by regen/warnings.pl.
   Any changes made here will be lost!
 */


#define Perl_Warn_Off_(x)           ((x) / 8)
#define Perl_Warn_Bit_(x)           (1 << ((x) % 8))
#define PerlWarnIsSet_(a, x)        ((a)[Perl_Warn_Off_(x)] & Perl_Warn_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 pWARN_STD		NULL
#define pWARN_ALL		(STRLEN *) &PL_WARN_ALL    /* use warnings 'all' */
#define pWARN_NONE		(STRLEN *) &PL_WARN_NONE   /* no  warnings 'all' */

#define specialWARN(x)		((x) == pWARN_STD || (x) == pWARN_ALL ||	\
                                 (x) == pWARN_NONE)

/* if PL_warnhook is set to this value, then warnings die */
#define PERL_WARNHOOK_FATAL	(&PL_sv_placeholder)

/* Warnings Categories added in Perl 5.008 */

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

/* Warnings Categories added in Perl 5.011 */

#define WARN_IMPRECISION		 46
#define WARN_ILLEGALPROTO		 47

/* Warnings Categories added in Perl 5.013 */

#define WARN_NON_UNICODE		 48
#define WARN_NONCHAR			 49
#define WARN_SURROGATE			 50

/* Warnings Categories added in Perl 5.017 */

#define WARN_EXPERIMENTAL		 51
#define WARN_EXPERIMENTAL__LEXICAL_SUBS	 52
#define WARN_EXPERIMENTAL__REGEX_SETS	 53
#define WARN_EXPERIMENTAL__SMARTMATCH	 54

/* Warnings Categories added in Perl 5.019 */

#define WARN_EXPERIMENTAL__POSTDEREF	 55
#define WARN_EXPERIMENTAL__SIGNATURES	 56
#define WARN_SYSCALLS			 57

/* Warnings Categories added in Perl 5.021 */

#define WARN_EXPERIMENTAL__BITWISE	 58
#define WARN_EXPERIMENTAL__CONST_ATTR	 59
#define WARN_EXPERIMENTAL__RE_STRICT	 60
#define WARN_EXPERIMENTAL__REFALIASING	 61
#define WARN_LOCALE			 62
#define WARN_MISSING			 63
#define WARN_REDUNDANT			 64

/* Warnings Categories added in Perl 5.025 */

#define WARN_EXPERIMENTAL__DECLARED_REFS 65

/* Warnings Categories added in Perl 5.027 */

#define WARN_EXPERIMENTAL__ALPHA_ASSERTIONS 66
#define WARN_EXPERIMENTAL__SCRIPT_RUN	 67
#define WARN_SHADOW			 68

/* Warnings Categories added in Perl 5.029 */

#define WARN_EXPERIMENTAL__PRIVATE_USE	 69
#define WARN_EXPERIMENTAL__UNIPROP_WILDCARDS 70
#define WARN_EXPERIMENTAL__VLB		 71

/* Warnings Categories added in Perl 5.031 */

#define WARN_EXPERIMENTAL__ISA		 72

/* Warnings Categories added in Perl 5.033 */

#define WARN_EXPERIMENTAL__TRY		 73

/* Warnings Categories added in Perl 5.035 */

#define WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES 74
#define WARN_EXPERIMENTAL__BUILTIN	 75
#define WARN_EXPERIMENTAL__DEFER	 76
#define WARN_EXPERIMENTAL__EXTRA_PAIRED_DELIMITERS 77
#define WARN_EXPERIMENTAL__FOR_LIST	 78
#define WARN_SCALAR			 79
#define WARNsize			 20
#define WARN_ALLstring			 "\125\125\125\125\125\125\125\125\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\0\0\0\0\0\0\0\0"

#define isLEXWARN_on \
        cBOOL(PL_curcop && PL_curcop->cop_warnings != pWARN_STD)
#define isLEXWARN_off \
        cBOOL(!PL_curcop || PL_curcop->cop_warnings == pWARN_STD)
#define isWARN_ONCE	(PL_dowarn & (G_WARN_ON|G_WARN_ONCE))
#define isWARN_on(c,x)	(PerlWarnIsSet_((U8 *)(c + 1), 2*(x)))
#define isWARNf_on(c,x)	(PerlWarnIsSet_((U8 *)(c + 1), 2*(x)+1))

#define DUP_WARNINGS(p) Perl_dup_warnings(aTHX_ p)

#define free_and_set_cop_warnings(cmp,w) STMT_START { \
  if (!specialWARN((cmp)->cop_warnings)) PerlMemShared_free((cmp)->cop_warnings); \
  (cmp)->cop_warnings = w; \
} STMT_END

/*

=head1 Warning and Dieing

In all these calls, the C<U32 wI<n>> parameters are warning category
constants.  You can see the ones currently available in
L<warnings/Category Hierarchy>, just capitalize all letters in the names
and prefix them by C<WARN_>.  So, for example, the category C<void> used in a
perl program becomes C<WARN_VOID> when used in XS code and passed to one of
the calls below.

=for apidoc Am|bool|ckWARN|U32 w
=for apidoc_item ||ckWARN2|U32 w1|U32 w2
=for apidoc_item ||ckWARN3|U32 w1|U32 w2|U32 w3
=for apidoc_item ||ckWARN4|U32 w1|U32 w2|U32 w3|U32 w4
These return a boolean as to whether or not warnings are enabled for any of
the warning category(ies) parameters:  C<w>, C<w1>, ....

Should any of the categories by default be enabled even if not within the
scope of S<C<use warnings>>, instead use the C<L</ckWARN_d>> macros.

The categories must be completely independent, one may not be subclassed from
the other.

=for apidoc Am|bool|ckWARN_d|U32 w
=for apidoc_item ||ckWARN2_d|U32 w1|U32 w2
=for apidoc_item ||ckWARN3_d|U32 w1|U32 w2|U32 w3
=for apidoc_item ||ckWARN4_d|U32 w1|U32 w2|U32 w3|U32 w4

Like C<L</ckWARN>>, but for use if and only if the warning category(ies) is by
default enabled even if not within the scope of S<C<use warnings>>.

=for apidoc Am|U32|packWARN|U32 w1
=for apidoc_item ||packWARN2|U32 w1|U32 w2
=for apidoc_item ||packWARN3|U32 w1|U32 w2|U32 w3
=for apidoc_item ||packWARN4|U32 w1|U32 w2|U32 w3|U32 w4

These macros are used to pack warning categories into a single U32 to pass to
macros and functions that take a warning category parameter.  The number of
categories to pack is given by the name, with a corresponding number of
category parameters passed.

=cut

*/

#define ckWARN(w)		Perl_ckwarn(aTHX_ packWARN(w))

/* The w1, w2 ... should be independent warnings categories; one shouldn't be
 * a subcategory of any other */

#define ckWARN2(w1,w2)		Perl_ckwarn(aTHX_ packWARN2(w1,w2))
#define ckWARN3(w1,w2,w3)	Perl_ckwarn(aTHX_ packWARN3(w1,w2,w3))
#define ckWARN4(w1,w2,w3,w4)	Perl_ckwarn(aTHX_ packWARN4(w1,w2,w3,w4))

#define ckWARN_d(w)		Perl_ckwarn_d(aTHX_ packWARN(w))
#define ckWARN2_d(w1,w2)	Perl_ckwarn_d(aTHX_ packWARN2(w1,w2))
#define ckWARN3_d(w1,w2,w3)	Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
#define ckWARN4_d(w1,w2,w3,w4)	Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))

#define WARNshift		8

#define packWARN(a)		(a                                      )

/* The a, b, ... should be independent warnings categories; one shouldn't be
 * a subcategory of any other */

#define packWARN2(a,b)		((a) | ((b)<<8)                         )
#define packWARN3(a,b,c)	((a) | ((b)<<8) | ((c)<<16)             )
#define packWARN4(a,b,c,d)	((a) | ((b)<<8) | ((c)<<16) | ((d) <<24))

#define unpackWARN1(x)		((U8)  (x)       )
#define unpackWARN2(x)		((U8) ((x) >>  8))
#define unpackWARN3(x)		((U8) ((x) >> 16))
#define unpackWARN4(x)		((U8) ((x) >> 24))

#define ckDEAD(x)							\
   (PL_curcop &&                                                        \
    !specialWARN(PL_curcop->cop_warnings) &&			        \
    (isWARNf_on(PL_curcop->cop_warnings, unpackWARN1(x)) ||	        \
      (unpackWARN2(x) &&                                                \
        (isWARNf_on(PL_curcop->cop_warnings, unpackWARN2(x)) ||	        \
          (unpackWARN3(x) &&                                            \
            (isWARNf_on(PL_curcop->cop_warnings, unpackWARN3(x)) ||	\
              (unpackWARN4(x) &&                                        \
                isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x)))))))))


/*
=for apidoc Amnh||WARN_ALL
=for apidoc Amnh||WARN_CLOSURE
=for apidoc Amnh||WARN_DEPRECATED
=for apidoc Amnh||WARN_EXITING
=for apidoc Amnh||WARN_GLOB
=for apidoc Amnh||WARN_IO
=for apidoc Amnh||WARN_CLOSED
=for apidoc Amnh||WARN_EXEC
=for apidoc Amnh||WARN_LAYER
=for apidoc Amnh||WARN_NEWLINE
=for apidoc Amnh||WARN_PIPE
=for apidoc Amnh||WARN_UNOPENED
=for apidoc Amnh||WARN_MISC
=for apidoc Amnh||WARN_NUMERIC
=for apidoc Amnh||WARN_ONCE
=for apidoc Amnh||WARN_OVERFLOW
=for apidoc Amnh||WARN_PACK
=for apidoc Amnh||WARN_PORTABLE
=for apidoc Amnh||WARN_RECURSION
=for apidoc Amnh||WARN_REDEFINE
=for apidoc Amnh||WARN_REGEXP
=for apidoc Amnh||WARN_SEVERE
=for apidoc Amnh||WARN_DEBUGGING
=for apidoc Amnh||WARN_INPLACE
=for apidoc Amnh||WARN_INTERNAL
=for apidoc Amnh||WARN_MALLOC
=for apidoc Amnh||WARN_SIGNAL
=for apidoc Amnh||WARN_SUBSTR
=for apidoc Amnh||WARN_SYNTAX
=for apidoc Amnh||WARN_AMBIGUOUS
=for apidoc Amnh||WARN_BAREWORD
=for apidoc Amnh||WARN_DIGIT
=for apidoc Amnh||WARN_PARENTHESIS
=for apidoc Amnh||WARN_PRECEDENCE
=for apidoc Amnh||WARN_PRINTF
=for apidoc Amnh||WARN_PROTOTYPE
=for apidoc Amnh||WARN_QW
=for apidoc Amnh||WARN_RESERVED
=for apidoc Amnh||WARN_SEMICOLON
=for apidoc Amnh||WARN_TAINT
=for apidoc Amnh||WARN_THREADS
=for apidoc Amnh||WARN_UNINITIALIZED
=for apidoc Amnh||WARN_UNPACK
=for apidoc Amnh||WARN_UNTIE
=for apidoc Amnh||WARN_UTF8
=for apidoc Amnh||WARN_VOID
=for apidoc Amnh||WARN_IMPRECISION
=for apidoc Amnh||WARN_ILLEGALPROTO
=for apidoc Amnh||WARN_NON_UNICODE
=for apidoc Amnh||WARN_NONCHAR
=for apidoc Amnh||WARN_SURROGATE
=for apidoc Amnh||WARN_EXPERIMENTAL
=for apidoc Amnh||WARN_EXPERIMENTAL__LEXICAL_SUBS
=for apidoc Amnh||WARN_EXPERIMENTAL__REGEX_SETS
=for apidoc Amnh||WARN_EXPERIMENTAL__SMARTMATCH
=for apidoc Amnh||WARN_EXPERIMENTAL__POSTDEREF
=for apidoc Amnh||WARN_EXPERIMENTAL__SIGNATURES
=for apidoc Amnh||WARN_SYSCALLS
=for apidoc Amnh||WARN_EXPERIMENTAL__BITWISE
=for apidoc Amnh||WARN_EXPERIMENTAL__CONST_ATTR
=for apidoc Amnh||WARN_EXPERIMENTAL__RE_STRICT
=for apidoc Amnh||WARN_EXPERIMENTAL__REFALIASING
=for apidoc Amnh||WARN_LOCALE
=for apidoc Amnh||WARN_MISSING
=for apidoc Amnh||WARN_REDUNDANT
=for apidoc Amnh||WARN_EXPERIMENTAL__DECLARED_REFS
=for apidoc Amnh||WARN_EXPERIMENTAL__ALPHA_ASSERTIONS
=for apidoc Amnh||WARN_EXPERIMENTAL__SCRIPT_RUN
=for apidoc Amnh||WARN_SHADOW
=for apidoc Amnh||WARN_EXPERIMENTAL__PRIVATE_USE
=for apidoc Amnh||WARN_EXPERIMENTAL__UNIPROP_WILDCARDS
=for apidoc Amnh||WARN_EXPERIMENTAL__VLB
=for apidoc Amnh||WARN_EXPERIMENTAL__ISA
=for apidoc Amnh||WARN_EXPERIMENTAL__TRY
=for apidoc Amnh||WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES
=for apidoc Amnh||WARN_EXPERIMENTAL__BUILTIN
=for apidoc Amnh||WARN_EXPERIMENTAL__DEFER
=for apidoc Amnh||WARN_EXPERIMENTAL__EXTRA_PAIRED_DELIMITERS
=for apidoc Amnh||WARN_EXPERIMENTAL__FOR_LIST
=for apidoc Amnh||WARN_SCALAR

=cut
*/

/* end of file warnings.h */

/* ex: set ro: */
Commit	Line	Data
37442d52 RGS	1	/* -- buffer-read-only: t --
37442d52 RGS	2	!!!!!!! DO NOT EDIT THIS FILE !!!!!!!
78102347	3	This file is built by regen/warnings.pl.
599cee73	4	Any changes made here will be lost!
78102347	5	*/
599cee73 PM	6
599cee73 PM	7
6f17df98 KW	8	#define Perl_Warn_Off_(x) ((x) / 8)
	9	#define Perl_Warn_Bit_(x) (1 << ((x) % 8))
	10	#define PerlWarnIsSet_(a, x) ((a)[Perl_Warn_Off_(x)] & Perl_Warn_Bit_(x))
599cee73	11
0453d815	12
599cee73	13	#define G_WARN_OFF 0 /* $^W == 0 */
0453d815	14	#define G_WARN_ON 1 /* -w flag and $^W != 0 */
599cee73 PM	15	#define G_WARN_ALL_ON 2 /* -W flag */
599cee73 PM	16	#define G_WARN_ALL_OFF 4 /* -X flag */
0453d815	17	#define G_WARN_ONCE 8 /* set if 'once' ever enabled */
599cee73 PM	18	#define G_WARN_ALL_MASK (G_WARN_ALL_ON\|G_WARN_ALL_OFF)
599cee73 PM	19
84b2b14b	20	#define pWARN_STD NULL
8c165a32 KW	21	#define pWARN_ALL (STRLEN ) &PL_WARN_ALL / use warnings 'all' */
8c165a32 KW	22	#define pWARN_NONE (STRLEN ) &PL_WARN_NONE / no warnings 'all' */
599cee73	23
d3a7d8c7	24	#define specialWARN(x) ((x) == pWARN_STD \|\| (x) == pWARN_ALL \|\| \
9824c081	25	(x) == pWARN_NONE)
0d658bf5	26
5f2d9966	27	/* if PL_warnhook is set to this value, then warnings die */
06dcd5bf	28	#define PERL_WARNHOOK_FATAL (&PL_sv_placeholder)
5f2d9966	29
0d658bf5 PM	30	/* Warnings Categories added in Perl 5.008 */
0d658bf5 PM	31
3c3f8cd6 AB	32	#define WARN_ALL 0
	33	#define WARN_CLOSURE 1
	34	#define WARN_DEPRECATED 2
	35	#define WARN_EXITING 3
	36	#define WARN_GLOB 4
	37	#define WARN_IO 5
	38	#define WARN_CLOSED 6
	39	#define WARN_EXEC 7
	40	#define WARN_LAYER 8
	41	#define WARN_NEWLINE 9
	42	#define WARN_PIPE 10
	43	#define WARN_UNOPENED 11
	44	#define WARN_MISC 12
	45	#define WARN_NUMERIC 13
	46	#define WARN_ONCE 14
	47	#define WARN_OVERFLOW 15
	48	#define WARN_PACK 16
	49	#define WARN_PORTABLE 17
	50	#define WARN_RECURSION 18
	51	#define WARN_REDEFINE 19
	52	#define WARN_REGEXP 20
	53	#define WARN_SEVERE 21
	54	#define WARN_DEBUGGING 22
	55	#define WARN_INPLACE 23
	56	#define WARN_INTERNAL 24
	57	#define WARN_MALLOC 25
	58	#define WARN_SIGNAL 26
	59	#define WARN_SUBSTR 27
	60	#define WARN_SYNTAX 28
	61	#define WARN_AMBIGUOUS 29
	62	#define WARN_BAREWORD 30
	63	#define WARN_DIGIT 31
	64	#define WARN_PARENTHESIS 32
	65	#define WARN_PRECEDENCE 33
	66	#define WARN_PRINTF 34
	67	#define WARN_PROTOTYPE 35
	68	#define WARN_QW 36
	69	#define WARN_RESERVED 37
	70	#define WARN_SEMICOLON 38
	71	#define WARN_TAINT 39
	72	#define WARN_THREADS 40
	73	#define WARN_UNINITIALIZED 41
	74	#define WARN_UNPACK 42
	75	#define WARN_UNTIE 43
	76	#define WARN_UTF8 44
	77	#define WARN_VOID 45
e476b1b5	78
b88df990 NC	79	/* Warnings Categories added in Perl 5.011 */
b88df990 NC	80
3c3f8cd6 AB	81	#define WARN_IMPRECISION 46
3c3f8cd6 AB	82	#define WARN_ILLEGALPROTO 47
b88df990	83
8457b38f KW	84	/* Warnings Categories added in Perl 5.013 */
8457b38f KW	85
3c3f8cd6 AB	86	#define WARN_NON_UNICODE 48
	87	#define WARN_NONCHAR 49
	88	#define WARN_SURROGATE 50
8457b38f	89
6f87cb12 FC	90	/* Warnings Categories added in Perl 5.017 */
6f87cb12 FC	91
3c3f8cd6 AB	92	#define WARN_EXPERIMENTAL 51
3c3f8cd6 AB	93	#define WARN_EXPERIMENTAL__LEXICAL_SUBS 52
c29314de FC	94	#define WARN_EXPERIMENTAL__REGEX_SETS 53
c29314de FC	95	#define WARN_EXPERIMENTAL__SMARTMATCH 54
6f87cb12	96
c8028aa6 TC	97	/* Warnings Categories added in Perl 5.019 */
c8028aa6 TC	98
c29314de FC	99	#define WARN_EXPERIMENTAL__POSTDEREF 55
	100	#define WARN_EXPERIMENTAL__SIGNATURES 56
	101	#define WARN_SYSCALLS 57
c8028aa6	102
7ac92924 TC	103	/* Warnings Categories added in Perl 5.021 */
7ac92924 TC	104
c29314de FC	105	#define WARN_EXPERIMENTAL__BITWISE 58
	106	#define WARN_EXPERIMENTAL__CONST_ATTR 59
	107	#define WARN_EXPERIMENTAL__RE_STRICT 60
	108	#define WARN_EXPERIMENTAL__REFALIASING 61
ce45800f LT	109	#define WARN_LOCALE 62
	110	#define WARN_MISSING 63
	111	#define WARN_REDUNDANT 64
3c3f8cd6	112
88d5dae9 FC	113	/* Warnings Categories added in Perl 5.025 */
88d5dae9 FC	114
ce45800f	115	#define WARN_EXPERIMENTAL__DECLARED_REFS 65
88d5dae9	116
52e3acf8 Z	117	/* Warnings Categories added in Perl 5.027 */
52e3acf8 Z	118
ce45800f LT	119	#define WARN_EXPERIMENTAL__ALPHA_ASSERTIONS 66
	120	#define WARN_EXPERIMENTAL__SCRIPT_RUN 67
	121	#define WARN_SHADOW 68
52e3acf8	122
21c34e97 KW	123	/* Warnings Categories added in Perl 5.029 */
21c34e97 KW	124
ce45800f LT	125	#define WARN_EXPERIMENTAL__PRIVATE_USE 69
	126	#define WARN_EXPERIMENTAL__UNIPROP_WILDCARDS 70
	127	#define WARN_EXPERIMENTAL__VLB 71
21c34e97	128
813e85a0 PE	129	/* Warnings Categories added in Perl 5.031 */
813e85a0 PE	130
ce45800f	131	#define WARN_EXPERIMENTAL__ISA 72
a1325b90 PE	132
	133	/* Warnings Categories added in Perl 5.033 */
	134
ce45800f	135	#define WARN_EXPERIMENTAL__TRY 73
f79e2ff9 PE	136
	137	/* Warnings Categories added in Perl 5.035 */
	138
1c547c3e PE	139	#define WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES 74
	140	#define WARN_EXPERIMENTAL__BUILTIN 75
	141	#define WARN_EXPERIMENTAL__DEFER 76
9c9853e8 KW	142	#define WARN_EXPERIMENTAL__EXTRA_PAIRED_DELIMITERS 77
	143	#define WARN_EXPERIMENTAL__FOR_LIST 78
	144	#define WARN_SCALAR 79
59802880 PE	145	#define WARNsize 20
	146	#define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125"
	147	#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"
599cee73	148
a2637ca0	149	#define isLEXWARN_on \
9824c081	150	cBOOL(PL_curcop && PL_curcop->cop_warnings != pWARN_STD)
a2637ca0	151	#define isLEXWARN_off \
9824c081	152	cBOOL(!PL_curcop \|\| PL_curcop->cop_warnings == pWARN_STD)
d5a71f30	153	#define isWARN_ONCE (PL_dowarn & (G_WARN_ON\|G_WARN_ONCE))
6f17df98 KW	154	#define isWARN_on(c,x) (PerlWarnIsSet_((U8 )(c + 1), 2(x)))
6f17df98 KW	155	#define isWARNf_on(c,x) (PerlWarnIsSet_((U8 )(c + 1), 2(x)+1))
72dc9ed5	156
c1e47bad	157	#define DUP_WARNINGS(p) Perl_dup_warnings(aTHX_ p)
d5a71f30	158
94c8b9c1	159	#define free_and_set_cop_warnings(cmp,w) STMT_START { \
1943af61 DM	160	if (!specialWARN((cmp)->cop_warnings)) PerlMemShared_free((cmp)->cop_warnings); \
1943af61 DM	161	(cmp)->cop_warnings = w; \
94c8b9c1 N	162	} STMT_END
94c8b9c1 N	163
feff94e1 KW	164	/*
	165
	166	=head1 Warning and Dieing
	167
bb3eff5d KW	168	In all these calls, the C<U32 wI<n>> parameters are warning category
	169	constants. You can see the ones currently available in
	170	L<warnings/Category Hierarchy>, just capitalize all letters in the names
	171	and prefix them by C<WARN_>. So, for example, the category C<void> used in a
	172	perl program becomes C<WARN_VOID> when used in XS code and passed to one of
	173	the calls below.
	174
feff94e1	175	=for apidoc Am\|bool\|ckWARN\|U32 w
0afc88d2 KW	176	=for apidoc_item \|\|ckWARN2\|U32 w1\|U32 w2
	177	=for apidoc_item \|\|ckWARN3\|U32 w1\|U32 w2\|U32 w3
	178	=for apidoc_item \|\|ckWARN4\|U32 w1\|U32 w2\|U32 w3\|U32 w4
	179	These return a boolean as to whether or not warnings are enabled for any of
	180	the warning category(ies) parameters: C<w>, C<w1>, ....
feff94e1	181
0afc88d2 KW	182	Should any of the categories by default be enabled even if not within the
0afc88d2 KW	183	scope of S<C<use warnings>>, instead use the C<L</ckWARN_d>> macros.
feff94e1	184
0afc88d2 KW	185	The categories must be completely independent, one may not be subclassed from
0afc88d2 KW	186	the other.
feff94e1	187
0afc88d2	188	=for apidoc Am\|bool\|ckWARN_d\|U32 w
b8a2649a KW	189	=for apidoc_item \|\|ckWARN2_d\|U32 w1\|U32 w2
	190	=for apidoc_item \|\|ckWARN3_d\|U32 w1\|U32 w2\|U32 w3
	191	=for apidoc_item \|\|ckWARN4_d\|U32 w1\|U32 w2\|U32 w3\|U32 w4
feff94e1	192
0afc88d2	193	Like C<L</ckWARN>>, but for use if and only if the warning category(ies) is by
feff94e1 KW	194	default enabled even if not within the scope of S<C<use warnings>>.
feff94e1 KW	195
b8a2649a KW	196	=for apidoc Am\|U32\|packWARN\|U32 w1
	197	=for apidoc_item \|\|packWARN2\|U32 w1\|U32 w2
	198	=for apidoc_item \|\|packWARN3\|U32 w1\|U32 w2\|U32 w3
	199	=for apidoc_item \|\|packWARN4\|U32 w1\|U32 w2\|U32 w3\|U32 w4
	200
	201	These macros are used to pack warning categories into a single U32 to pass to
	202	macros and functions that take a warning category parameter. The number of
	203	categories to pack is given by the name, with a corresponding number of
	204	category parameters passed.
feff94e1 KW	205
	206	=cut
	207
	208	*/
	209
f54ba1c2	210	#define ckWARN(w) Perl_ckwarn(aTHX_ packWARN(w))
7c08c4c5 KW	211
	212	/* The w1, w2 ... should be independent warnings categories; one shouldn't be
	213	* a subcategory of any other */
	214
f54ba1c2 DM	215	#define ckWARN2(w1,w2) Perl_ckwarn(aTHX_ packWARN2(w1,w2))
	216	#define ckWARN3(w1,w2,w3) Perl_ckwarn(aTHX_ packWARN3(w1,w2,w3))
	217	#define ckWARN4(w1,w2,w3,w4) Perl_ckwarn(aTHX_ packWARN4(w1,w2,w3,w4))
	218
	219	#define ckWARN_d(w) Perl_ckwarn_d(aTHX_ packWARN(w))
	220	#define ckWARN2_d(w1,w2) Perl_ckwarn_d(aTHX_ packWARN2(w1,w2))
	221	#define ckWARN3_d(w1,w2,w3) Perl_ckwarn_d(aTHX_ packWARN3(w1,w2,w3))
	222	#define ckWARN4_d(w1,w2,w3,w4) Perl_ckwarn_d(aTHX_ packWARN4(w1,w2,w3,w4))
12bcd1a6	223
98fe6610 NC	224	#define WARNshift 8
98fe6610 NC	225
3b9e3074	226	#define packWARN(a) (a )
7c08c4c5 KW	227
	228	/* The a, b, ... should be independent warnings categories; one shouldn't be
	229	* a subcategory of any other */
	230
3b9e3074 SH	231	#define packWARN2(a,b) ((a) \| ((b)<<8) )
	232	#define packWARN3(a,b,c) ((a) \| ((b)<<8) \| ((c)<<16) )
	233	#define packWARN4(a,b,c,d) ((a) \| ((b)<<8) \| ((c)<<16) \| ((d) <<24))
12bcd1a6	234
0132fc56 KW	235	#define unpackWARN1(x) ((U8) (x) )
	236	#define unpackWARN2(x) ((U8) ((x) >> 8))
	237	#define unpackWARN3(x) ((U8) ((x) >> 16))
	238	#define unpackWARN4(x) ((U8) ((x) >> 24))
12bcd1a6 PM	239
12bcd1a6 PM	240	#define ckDEAD(x) \
006c1a1d Z	241	(PL_curcop && \
	242	!specialWARN(PL_curcop->cop_warnings) && \
	243	(isWARNf_on(PL_curcop->cop_warnings, unpackWARN1(x)) \|\| \
	244	(unpackWARN2(x) && \
9824c081 MS	245	(isWARNf_on(PL_curcop->cop_warnings, unpackWARN2(x)) \|\| \
	246	(unpackWARN3(x) && \
	247	(isWARNf_on(PL_curcop->cop_warnings, unpackWARN3(x)) \|\| \
	248	(unpackWARN4(x) && \
	249	isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(x)))))))))
12bcd1a6	250
c286f332 KW	251
	252
	253	/*
	254	=for apidoc Amnh\|\|WARN_ALL
	255	=for apidoc Amnh\|\|WARN_CLOSURE
	256	=for apidoc Amnh\|\|WARN_DEPRECATED
	257	=for apidoc Amnh\|\|WARN_EXITING
	258	=for apidoc Amnh\|\|WARN_GLOB
	259	=for apidoc Amnh\|\|WARN_IO
	260	=for apidoc Amnh\|\|WARN_CLOSED
	261	=for apidoc Amnh\|\|WARN_EXEC
	262	=for apidoc Amnh\|\|WARN_LAYER
	263	=for apidoc Amnh\|\|WARN_NEWLINE
	264	=for apidoc Amnh\|\|WARN_PIPE
	265	=for apidoc Amnh\|\|WARN_UNOPENED
	266	=for apidoc Amnh\|\|WARN_MISC
	267	=for apidoc Amnh\|\|WARN_NUMERIC
	268	=for apidoc Amnh\|\|WARN_ONCE
	269	=for apidoc Amnh\|\|WARN_OVERFLOW
	270	=for apidoc Amnh\|\|WARN_PACK
	271	=for apidoc Amnh\|\|WARN_PORTABLE
	272	=for apidoc Amnh\|\|WARN_RECURSION
	273	=for apidoc Amnh\|\|WARN_REDEFINE
	274	=for apidoc Amnh\|\|WARN_REGEXP
	275	=for apidoc Amnh\|\|WARN_SEVERE
	276	=for apidoc Amnh\|\|WARN_DEBUGGING
	277	=for apidoc Amnh\|\|WARN_INPLACE
	278	=for apidoc Amnh\|\|WARN_INTERNAL
	279	=for apidoc Amnh\|\|WARN_MALLOC
	280	=for apidoc Amnh\|\|WARN_SIGNAL
	281	=for apidoc Amnh\|\|WARN_SUBSTR
	282	=for apidoc Amnh\|\|WARN_SYNTAX
	283	=for apidoc Amnh\|\|WARN_AMBIGUOUS
	284	=for apidoc Amnh\|\|WARN_BAREWORD
	285	=for apidoc Amnh\|\|WARN_DIGIT
	286	=for apidoc Amnh\|\|WARN_PARENTHESIS
	287	=for apidoc Amnh\|\|WARN_PRECEDENCE
	288	=for apidoc Amnh\|\|WARN_PRINTF
	289	=for apidoc Amnh\|\|WARN_PROTOTYPE
	290	=for apidoc Amnh\|\|WARN_QW
	291	=for apidoc Amnh\|\|WARN_RESERVED
	292	=for apidoc Amnh\|\|WARN_SEMICOLON
	293	=for apidoc Amnh\|\|WARN_TAINT
	294	=for apidoc Amnh\|\|WARN_THREADS
	295	=for apidoc Amnh\|\|WARN_UNINITIALIZED
	296	=for apidoc Amnh\|\|WARN_UNPACK
	297	=for apidoc Amnh\|\|WARN_UNTIE
	298	=for apidoc Amnh\|\|WARN_UTF8
	299	=for apidoc Amnh\|\|WARN_VOID
	300	=for apidoc Amnh\|\|WARN_IMPRECISION
	301	=for apidoc Amnh\|\|WARN_ILLEGALPROTO
	302	=for apidoc Amnh\|\|WARN_NON_UNICODE
	303	=for apidoc Amnh\|\|WARN_NONCHAR
	304	=for apidoc Amnh\|\|WARN_SURROGATE
	305	=for apidoc Amnh\|\|WARN_EXPERIMENTAL
	306	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__LEXICAL_SUBS
	307	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__REGEX_SETS
	308	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__SMARTMATCH
	309	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__POSTDEREF
	310	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__SIGNATURES
	311	=for apidoc Amnh\|\|WARN_SYSCALLS
	312	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__BITWISE
	313	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__CONST_ATTR
	314	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__RE_STRICT
315	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__REFALIASING
c286f332 KW	316	=for apidoc Amnh\|\|WARN_LOCALE
	317	=for apidoc Amnh\|\|WARN_MISSING
	318	=for apidoc Amnh\|\|WARN_REDUNDANT
	319	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__DECLARED_REFS
	320	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__ALPHA_ASSERTIONS
	321	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__SCRIPT_RUN
	322	=for apidoc Amnh\|\|WARN_SHADOW
	323	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__PRIVATE_USE
	324	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__UNIPROP_WILDCARDS
	325	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__VLB
	326	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__ISA
a1325b90	327	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__TRY
1c547c3e	328	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES
59802880	329	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__BUILTIN
f79e2ff9	330	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__DEFER
9c9853e8	331	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__EXTRA_PAIRED_DELIMITERS
3b54923c	332	=for apidoc Amnh\|\|WARN_EXPERIMENTAL__FOR_LIST
4c58833d	333	=for apidoc Amnh\|\|WARN_SCALAR
c286f332 KW	334
	335	=cut
	336	*/
	337
4438c4b7	338	/* end of file warnings.h */
ce716c52	339
37442d52	340	/* ex: set ro: */