*
*/
-#ifndef _INC_PERL_XSUB_H
-#define _INC_PERL_XSUB_H 1
+#ifndef PERL_XSUB_H_
+#define PERL_XSUB_H_ 1
/* first, some documentation for xsubpp-generated items */
# endif /* NO_XSLOCKS */
#endif /* PERL_IMPLICIT_SYS && !PERL_CORE */
-#endif /* _INC_PERL_XSUB_H */ /* include guard */
+#endif /* PERL_XSUB_H_ */ /* include guard */
/*
* ex: set ts=8 sts=4 sw=4 et:
* License or the Artistic License, as specified in the README file.
*/
-#ifndef DQUOTE_INLINE_H /* Guard against nested #inclusion */
-#define DQUOTE_INLINE_H
+#ifndef PERL_DQUOTE_INLINE_H_ /* Guard against nested #inclusion */
+#define PERL_DQUOTE_INLINE_H_
/*
- regcurly - a little FSA that accepts {\d+,?\d*}
(int) (s - sans_leading_zeros), sans_leading_zeros,
*s);
}
-#endif /* DQUOTE_INLINE_H */
+#endif /* PERL_DQUOTE_INLINE_H_ */
*/
-#ifndef H_EBCDIC_TABLES /* Guard against nested #includes */
-#define H_EBCDIC_TABLES 1
+#ifndef PERL_EBCDIC_TABLES_H_ /* Guard against nested #includes */
+#define PERL_EBCDIC_TABLES_H_ 1
/* This file contains definitions for various tables used in EBCDIC handling.
* More info is in utfebcdic.h */
#endif /* EBCDIC 037 */
-#endif /* H_EBCDIC_TABLES */
+#endif /* PERL_EBCDIC_TABLES_H_ */
/* ex: set ro: */
/* IMPORTANT NOTE: Everything whose name begins with an underscore is for
* internal core Perl use only. */
-#ifndef HANDY_H /* Guard against nested #inclusion */
-#define HANDY_H
+#ifndef PERL_HANDY_H_ /* Guard against nested #inclusion */
+#define PERL_HANDY_H_
#if !defined(__STDC__)
#ifdef NULL
#endif
-#endif /* HANDY_H */
+#endif /* PERL_HANDY_H_ */
/*
* ex: set ts=8 sts=4 sw=4 et:
-#ifndef MALLOC_CTL_H
-# define MALLOC_CTL_H
+#ifndef PERL_MALLOC_CTL_H_
+# define PERL_MALLOC_CTL_H_
struct perl_mstats {
UV *nfree;
*
*/
-#ifndef _PERLIO_H
-#define _PERLIO_H
+#ifndef PERLIO_H_
+#define PERLIO_H_
/*
Interface for perl to IO functions.
There is a hierarchy of Configure determined #define controls:
#endif
END_EXTERN_C
-#endif /* _PERLIO_H */
+#endif /* PERLIO_H_ */
/*
* ex: set ts=8 sts=4 sw=4 et:
-#ifndef _PERLIOL_H
-#define _PERLIOL_H
+#ifndef PERLIOL_H_
+#define PERLIOL_H_
typedef struct {
PerlIO_funcs *funcs;
/* Utf8 */
PERL_CALLCONV IV PerlIOUtf8_pushed(pTHX_ PerlIO *f, const char *mode, SV *arg, PerlIO_funcs *tab);
-#endif /* _PERLIOL_H */
+#endif /* PERLIOL_H_ */
/*
* ex: set ts=8 sts=4 sw=4 et:
* Any changes made here will be lost!
*/
-#ifndef REENTR_H
-#define REENTR_H
+#ifndef PERL_REENTR_H_
+#define PERL_REENTR_H_
/* If compiling for a threaded perl, we will macro-wrap the system/library
* interfaces (e.g. getpwent()) which have threaded versions
*/
-#ifndef H_REGCHARCLASS /* Guard against nested #includes */
-#define H_REGCHARCLASS 1
+#ifndef PERL_REGCHARCLASS_H_ /* Guard against nested #includes */
+#define PERL_REGCHARCLASS_H_
#if 'A' == 65 /* ASCII/Latin1 */
/*
#endif /* EBCDIC 037 */
-#endif /* H_REGCHARCLASS */
+#endif /* PERL_REGCHARCLASS_H_ */
/* Generated from:
* 59e717586b720a821ee0d7397679d5322e38b49f6fb7840545aedf669c733b70 lib/Unicode/UCD.pm
* 717985d5fe0830f5b72ca21287a7d9f15ba6a383c29fbd3c47231d5f63edb68b lib/unicore/mktables
* cdecb300baad839a6f62791229f551a4fa33f3cbdca08e378dc976466354e778 lib/unicore/version
* 913d2f93f3cb6cdf1664db888bf840bc4eb074eef824e082fceda24a9445e60c regen/charset_translations.pl
- * c468aea5062ef84422219d74e83b6f3216f2823544b445f53ee1af71deeb2044 regen/regcharclass.pl
+ * 9ea6338945a7d70e5ea4b31ac7856c0b521df96be002e94b4b3b7d31debbf3ab regen/regcharclass.pl
* 393f8d882713a3ba227351ad0f00ea4839fda74fcf77dcd1cdf31519925adba5 regen/regcharclass_multi_char_folds.pl
* ex: set ro: */
print $out_fh <<END;
-#ifndef H_EBCDIC_TABLES /* Guard against nested #includes */
-#define H_EBCDIC_TABLES 1
+#ifndef PERL_EBCDIC_TABLES_H_ /* Guard against nested #includes */
+#define PERL_EBCDIC_TABLES_H_ 1
/* This file contains definitions for various tables used in EBCDIC handling.
* More info is in utfebcdic.h */
print $out_fh get_conditional_compile_line_end();
}
-print $out_fh "\n#endif /* H_EBCDIC_TABLES */\n";
+print $out_fh "\n#endif /* PERL_EBCDIC_TABLES_H_ */\n";
read_only_bottom_close_and_rename($out_fh);
my $h = open_print_header('reentr.h');
print $h <<EOF;
-#ifndef REENTR_H
-#define REENTR_H
+#ifndef PERL_REENTR_H_
+#define PERL_REENTR_H_
/* If compiling for a threaded perl, we will macro-wrap the system/library
* interfaces (e.g. getpwent()) which have threaded versions
changed or removed without notice.
EOF
);
- print $out_fh "\n#ifndef H_REGCHARCLASS /* Guard against nested #includes */\n#define H_REGCHARCLASS 1\n";
+ print $out_fh "\n#ifndef PERL_REGCHARCLASS_H_ /* Guard against nested #includes */\n#define PERL_REGCHARCLASS_H_\n";
my ( $op, $title, @txt, @types, %mods );
my $doit= sub ($) {
print $out_fh get_conditional_compile_line_end();
}
- print $out_fh "\n#endif /* H_REGCHARCLASS */\n";
+ print $out_fh "\n#endif /* PERL_REGCHARCLASS_H_ */\n";
if($path eq '-') {
print $out_fh "/* ex: set ro: */\n";
print $out_fh <<END;
-#ifndef H_UNICODE_CONSTANTS /* Guard against nested #includes */
-#define H_UNICODE_CONSTANTS 1
+#ifndef PERL_UNICODE_CONSTANTS_H_ /* Guard against nested #includes */
+#define PERL_UNICODE_CONSTANTS_H_ 1
/* This file contains #defines for the version of Unicode being used and
* various Unicode code points. The values the code point macros expand to
}
}
-print $out_fh "\n#endif /* H_UNICODE_CONSTANTS */\n";
+print $out_fh "\n#endif /* PERL_UNICODE_CONSTANTS_H_ */\n";
read_only_bottom_close_and_rename($out_fh);
#include <time.h>
#include "time64_config.h"
-#ifndef TIME64_H
-# define TIME64_H
+#ifndef PERL_TIME64_H_
+# define PERL_TIME64_H_
/* Set our custom types */
-#ifndef TIME64_CONFIG_H
-# define TIME64_CONFIG_H
+#ifndef PERL_TIME64_CONFIG_H_
+# define PERL_TIME64_CONFIG_H_
/* Configuration
-------------
#define SYSTEM_GMTIME_MAX CAT2(GMTIME_MAX,.0)
#define SYSTEM_GMTIME_MIN CAT2(GMTIME_MIN,.0)
-#endif /* TIME64_CONFIG_H */
+#endif /* PERL_TIME64_CONFIG_H_ */
*/
-#ifndef H_UNICODE_CONSTANTS /* Guard against nested #includes */
-#define H_UNICODE_CONSTANTS 1
+#ifndef PERL_UNICODE_CONSTANTS_H_ /* Guard against nested #includes */
+#define PERL_UNICODE_CONSTANTS_H_ 1
/* This file contains #defines for the version of Unicode being used and
* various Unicode code points. The values the code point macros expand to
/* The highest code point that has any type of case change */
#define HIGHEST_CASE_CHANGING_CP_FOR_USE_ONLY_BY_UTF8_DOT_C 0x1E943
-#endif /* H_UNICODE_CONSTANTS */
+#endif /* PERL_UNICODE_CONSTANTS_H_ */
/* ex: set ro: */
*
*/
-#ifndef H_UTF8 /* Guard against recursive inclusion */
-#define H_UTF8 1
+#ifndef PERL_UTF8_H_ /* Guard against recursive inclusion */
+#define PERL_UTF8_H_ 1
/* Use UTF-8 as the default script encoding?
* Turning this on will break scripts having non-UTF-8 binary
* retained solely for backwards compatibility */
#define IS_UTF8_CHAR(p, n) (isUTF8_CHAR(p, (p) + (n)) == n)
-#endif /* H_UTF8 */
+#endif /* PERL_UTF8_H_ */
/*
* ex: set ts=8 sts=4 sw=4 et: