This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Confine regnodes.h symbols to core
authorKarl Williamson <khw@cpan.org>
Sat, 17 Oct 2020 13:23:40 +0000 (07:23 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 2 Nov 2020 16:36:08 +0000 (09:36 -0700)
This is to not pollute XS namespace, and to not autodoc them.

regen/regcomp.pl
regnodes.h

index fc4de6a..34e7ec8 100644 (file)
@@ -780,9 +780,11 @@ END_OF_DESCR
     close_and_rename($guts);
 }
 
+my $confine_to_core = 'defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD)';
 read_definition("regcomp.sym");
 my $out= open_new( 'regnodes.h', '>',
     { by => 'regen/regcomp.pl', from => 'regcomp.sym' } );
+print $out "#if $confine_to_core\n\n";
 print_state_defs($out);
 print_regkind($out);
 wrap_ifdef_print(
@@ -796,6 +798,7 @@ print_reg_extflags_name($out);
 print_reg_intflags_name($out);
 print_process_flags($out);
 print_process_EXACTish($out);
+print $out "\n#endif /* $confine_to_core */\n";
 read_only_bottom_close_and_rename($out);
 
 do_perldebguts();
index 2719b82..98de0bb 100644 (file)
@@ -4,6 +4,8 @@
    Any changes made here will be lost!
  */
 
+#if defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD)
+
 /* Regops and State definitions */
 
 #define REGNODE_MAX            109
@@ -1767,4 +1769,6 @@ EXTCONST U32 PL_EXACTFish_bitmask = 0x33F8;
 EXTCONST U32 PL_EXACT_REQ8_bitmask = 0x1E00;
 #endif /* DOINIT */
 
+#endif /* defined(PERL_CORE) || defined(PERL_EXT_RE_BUILD) */
+
 /* ex: set ro: */