X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/30d9c59b5f3cba8b5d632d20c2370e82d8ba69ca..6879a07bc8b8e75c35d0e3b765ea718cc1c7aeb2:/warnings.h

diff --git a/warnings.h b/warnings.h
index 66e4153..6f0bf6b 100644
--- a/warnings.h
+++ b/warnings.h
@@ -18,8 +18,8 @@
 #define G_WARN_ALL_MASK		(G_WARN_ALL_ON|G_WARN_ALL_OFF)
 
 #define pWARN_STD		NULL
-#define pWARN_ALL		(((STRLEN*)0)+1)    /* use warnings 'all' */
-#define pWARN_NONE		(((STRLEN*)0)+2)    /* no  warnings 'all' */
+#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)
@@ -29,93 +29,175 @@
 
 /* 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
+#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
+#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
+#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__LEXICAL_TOPIC 53
-#define WARN_EXPERIMENTAL__REGEX_SETS 54
-#define WARN_EXPERIMENTAL__SMARTMATCH 55
+#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__AUTODEREF 56
-#define WARN_EXPERIMENTAL__POSTDEREF 57
-#define WARN_EXPERIMENTAL__SIGNATURES 58
-#define WARN_SYSCALLS		 59
+#define WARN_EXPERIMENTAL__POSTDEREF	 55
+#define WARN_EXPERIMENTAL__SIGNATURES	 56
+#define WARN_SYSCALLS			 57
 
-#define WARNsize		15
-#define WARN_ALLstring		"\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"
+/* Warnings Categories added in Perl 5.021 */
 
-#define isLEXWARN_on 	(PL_curcop->cop_warnings != pWARN_STD)
-#define isLEXWARN_off	(PL_curcop->cop_warnings == pWARN_STD)
+#define WARN_EXPERIMENTAL__BITWISE	 58
+#define WARN_EXPERIMENTAL__CONST_ATTR	 59
+#define WARN_EXPERIMENTAL__RE_STRICT	 60
+#define WARN_EXPERIMENTAL__REFALIASING	 61
+#define WARN_EXPERIMENTAL__WIN32_PERLIO	 62
+#define WARN_LOCALE			 63
+#define WARN_MISSING			 64
+#define WARN_REDUNDANT			 65
+
+/* Warnings Categories added in Perl 5.025 */
+
+#define WARN_EXPERIMENTAL__DECLARED_REFS 66
+
+/* Warnings Categories added in Perl 5.027 */
+
+#define WARN_EXPERIMENTAL__ALPHA_ASSERTIONS 67
+#define WARN_EXPERIMENTAL__SCRIPT_RUN	 68
+#define WARN_SHADOW			 69
+
+/* Warnings Categories added in Perl 5.029 */
+
+#define WARN_EXPERIMENTAL__PRIVATE_USE	 70
+#define WARN_EXPERIMENTAL__UNIPROP_WILDCARDS 71
+#define WARN_EXPERIMENTAL__VLB		 72
+
+#define WARNsize			 19
+#define WARN_ALLstring			 "\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"
+
+#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)	(IsSet((U8 *)(c + 1), 2*(x)))
 #define isWARNf_on(c,x)	(IsSet((U8 *)(c + 1), 2*(x)+1))
 
-#define DUP_WARNINGS(p)		\
-    (specialWARN(p) ? (STRLEN*)(p)	\
-    : (STRLEN*)CopyD(p, PerlMemShared_malloc(sizeof(*p)+*p), sizeof(*p)+*p, \
-		     			     char))
+#define DUP_WARNINGS(p) Perl_dup_warnings(aTHX_ p)
+
+/*
+
+=head1 Warning and Dieing
+
+=for apidoc Am|bool|ckWARN|U32 w
+
+Returns a boolean as to whether or not warnings are enabled for the warning
+category C<w>.  If the category is by default enabled even if not within the
+scope of S<C<use warnings>>, instead use the L</ckWARN_d> macro.
+
+=for apidoc Am|bool|ckWARN_d|U32 w
+
+Like C<L</ckWARN>>, but for use if and only if the warning category is by
+default enabled even if not within the scope of S<C<use warnings>>.
+
+=for apidoc Am|bool|ckWARN2|U32 w1|U32 w2
+
+Like C<L</ckWARN>>, but takes two warnings categories as input, and returns
+TRUE if either is enabled.  If either category is by default enabled even if
+not within the scope of S<C<use warnings>>, instead use the L</ckWARN2_d>
+macro.  The categories must be completely independent, one may not be
+subclassed from the other.
+
+=for apidoc Am|bool|ckWARN2_d|U32 w1|U32 w2
+
+Like C<L</ckWARN2>>, but for use if and only if either warning category is by
+default enabled even if not within the scope of S<C<use warnings>>.
+
+=for apidoc Am|bool|ckWARN3|U32 w1|U32 w2|U32 w3
+
+Like C<L</ckWARN2>>, but takes three warnings categories as input, and returns
+TRUE if any is enabled.  If any of the categories is by default enabled even
+if not within the scope of S<C<use warnings>>, instead use the L</ckWARN3_d>
+macro.  The categories must be completely independent, one may not be
+subclassed from any other.
+
+=for apidoc Am|bool|ckWARN3_d|U32 w1|U32 w2|U32 w3
+
+Like C<L</ckWARN3>>, but for use if and only if any of the warning categories
+is by default enabled even if not within the scope of S<C<use warnings>>.
+
+=for apidoc Am|bool|ckWARN4|U32 w1|U32 w2|U32 w3|U32 w4
+
+Like C<L</ckWARN3>>, but takes four warnings categories as input, and returns
+TRUE if any is enabled.  If any of the categories is by default enabled even
+if not within the scope of S<C<use warnings>>, instead use the L</ckWARN4_d>
+macro.  The categories must be completely independent, one may not be
+subclassed from any other.
+
+=for apidoc Am|bool|ckWARN4_d|U32 w1|U32 w2|U32 w3|U32 w4
+
+Like C<L</ckWARN4>>, but for use if and only if any of the warning categories
+is by default enabled even if not within the scope of S<C<use warnings>>.
+
+=cut
+
+*/
 
 #define ckWARN(w)		Perl_ckwarn(aTHX_ packWARN(w))
 
@@ -148,12 +230,15 @@
 #define unpackWARN4(x)		(((x) >>24) & 0xFF)
 
 #define ckDEAD(x)							\
-	   ( ! specialWARN(PL_curcop->cop_warnings) &&			\
-	    ( isWARNf_on(PL_curcop->cop_warnings, WARN_ALL) || 		\
-	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN1(x)) ||	\
-	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN2(x)) ||	\
-	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN3(x)) ||	\
-	      isWARNf_on(PL_curcop->cop_warnings, unpackWARN4(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)))))))))
 
 /* end of file warnings.h */