*/
+#ifndef PERL_FEATURE_H_
+#define PERL_FEATURE_H_
+
#if defined(PERL_CORE) || defined (PERL_EXT)
#define HINT_FEATURE_SHIFT 26
}
#endif /* PERL_IN_OP_C */
+#endif /* PERL_FEATURE_H_ */
+
/* ex: set ro: */
* License or the Artistic License, as specified in the README file.
*/
+#ifndef PERL_INVLIST_INLINE_H_
+#define PERL_INVLIST_INLINE_H_
+
#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_TOKE_C)
/* An element is in an inversion list iff its index is even numbered: 0, 2, 4,
# endif
#endif
+
+#endif /* PERL_INVLIST_INLINE_H_ */
* License or the Artistic License, as specified in the README file.
*
*/
+
+#ifndef PERL_REGCOMP_H_
+#define PERL_REGCOMP_H_
+
#include "regcharclass.h"
/* Convert branch sequences to more efficient trie ops? */
WB_BOUND
} bound_type;
+#endif /* PERL_REGCOMP_H_ */
+
/*
* ex: set ts=8 sts=4 sw=4 et:
*/
print $h <<EOH;
+#ifndef PERL_FEATURE_H_
+#define PERL_FEATURE_H_
+
#if defined(PERL_CORE) || defined (PERL_EXT)
#define HINT_FEATURE_SHIFT $HintShift
else PL_hints &= ~HINT_UNI_8_BIT;
}
#endif /* PERL_IN_OP_C */
+
+#endif /* PERL_FEATURE_H_ */
EOJ
read_only_bottom_close_and_rename($h);