Re: [PATCH] perl: Add perl bindings for libloc.

Hi,

Thank for working on this. This is a great break-through to make use of libloc on IPFire 2.

However, I have a couple of questions:

* How are we going to integrate this into the standard build process? I would like it that the module is being built in the single Makefile instead of bringing its own. Can you have a look into that?

* I would also like to not carry the ppport header around because that file is large and how do we keep borrowed code up to date?

* Can we make use of the test suite?

* I also have no need for the Changes file and README. Are those mandatory? The content will be in Git and in the main README file.

I might be up for merging this patch anyways and then tidy it up by other commits. However, I won’t merge this before we have the tidy-upping ready as well.

Best, -Michael

On 25 Sep 2019, at 14:59, Stefan Schantl stefan.schantl@ipfire.org wrote:

Signed-off-by: Stefan Schantl stefan.schantl@ipfire.org

src/perl/Location/Changes | 5 + src/perl/Location/Location.xs | 95 + src/perl/Location/MANIFEST | 9 + src/perl/Location/Makefile.PL | 17 + src/perl/Location/README | 38 + src/perl/Location/lib/Location.pm | 69 + src/perl/Location/ppport.h | 8214 +++++++++++++++++++++++++++++ src/perl/Location/t/Location.t | 17 + src/perl/Location/typemap | 2 + 9 files changed, 8466 insertions(+) create mode 100644 src/perl/Location/Changes create mode 100644 src/perl/Location/Location.xs create mode 100644 src/perl/Location/MANIFEST create mode 100644 src/perl/Location/Makefile.PL create mode 100644 src/perl/Location/README create mode 100644 src/perl/Location/lib/Location.pm create mode 100644 src/perl/Location/ppport.h create mode 100644 src/perl/Location/t/Location.t create mode 100644 src/perl/Location/typemap

diff --git a/src/perl/Location/Changes b/src/perl/Location/Changes new file mode 100644 index 0000000..7afbdba --- /dev/null +++ b/src/perl/Location/Changes @@ -0,0 +1,5 @@ +Revision history for Perl extension Location.

+0.01 Mon Sep 23 19:59:15 2019

• • original version; created by h2xs 1.23 with options

• -O -A -n Location loc/libloc.h loc/database.h
  

diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs new file mode 100644 index 0000000..b3bd89c --- /dev/null +++ b/src/perl/Location/Location.xs @@ -0,0 +1,95 @@ +#define PERL_NO_GET_CONTEXT +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h"

+#include <stdio.h> +#include <string.h>

+#include "ppport.h"

+#include <loc/libloc.h> +#include <loc/database.h> +#include <loc/network.h>

+MODULE = Location PACKAGE = Location

+struct loc_database * +init(file)

• char * file;
• CODE:

• int err;
  

• struct loc_ctx *ctx;
  

• err = loc_new(&ctx);
  

• if (err < 0)
  

• 	croak("Error");
  

• FILE* f = fopen(file, "r");
  

• if (!f) {
  

• 	croak("Could not open file for reading: %s\n", file);
  

• }
  

• struct loc_database *db;
  

• err = loc_database_new(ctx, &db, f);
  

• if (err) {
  

• 	croak("Could not open database: %s\n", file);
  

• }
  

• RETVAL = db;
  

• OUTPUT:

• RETVAL
  

+char* +get_country_code(db, address)

• struct loc_database *db;
• char * address;
• CODE:

• int err;
  

• const char * country_code;
  

• struct loc_network *network;
  

• err = loc_database_lookup_from_string(db, address, &network);
  

• if (err) {
  

• 	croak("Could not look up for %s\n", address);
  

• }
  

• country_code = loc_network_get_country_code(network);
  

• loc_network_unref(network);
  

• if (!country_code) {
  

• 	croak("Could not get the country code\n");
  

• }
  

• RETVAL = strdup(country_code);
  

• OUTPUT:

• RETVAL
  

+char* +database_get_vendor(db)

• struct loc_database *db;
• CODE:

• const char * vendor;
  

• vendor = loc_database_get_vendor(db);
  

• if (!vendor) {
  

• 	croak("Could not retrieve vendor\n");
  

• }
  

• RETVAL = strdup(vendor);
  

• OUTPUT:

• RETVAL
  

+void +DESTROY(db)

• struct loc_database *db ;
• CODE:

• loc_database_unref(db);
  

diff --git a/src/perl/Location/MANIFEST b/src/perl/Location/MANIFEST new file mode 100644 index 0000000..55fe58b --- /dev/null +++ b/src/perl/Location/MANIFEST @@ -0,0 +1,9 @@ +Changes +Location.xs +Makefile.PL +MANIFEST +ppport.h +README +typemap +t/Location.t +lib/Location.pm diff --git a/src/perl/Location/Makefile.PL b/src/perl/Location/Makefile.PL new file mode 100644 index 0000000..ba53efc --- /dev/null +++ b/src/perl/Location/Makefile.PL @@ -0,0 +1,17 @@ +use 5.028001; +use ExtUtils::MakeMaker; +# See lib/ExtUtils/MakeMaker.pm for details of how to influence +# the contents of the Makefile that is written. +WriteMakefile(

• NAME => 'Location',
• VERSION_FROM => 'lib/Location.pm',
• PREREQ_PM => {},
• ABSTRACT_FROM => 'lib/Location.pm',
• AUTHOR => 'Stefan Schantl stefan.schantl@ipfire.org',
• LICENSE => 'lgpl',
• LIBS => ['-lloc'],
• DEFINE => '', # e.g., '-DHAVE_SOMETHING'
• INC => '-I. -I../../',
• # Un-comment this if you add C files to link with later:
• # OBJECT => '$(O_FILES)', # link all the C files too

+); diff --git a/src/perl/Location/README b/src/perl/Location/README new file mode 100644 index 0000000..21d8017 --- /dev/null +++ b/src/perl/Location/README @@ -0,0 +1,38 @@ +Location version 0.01 +===================

+The README is used to introduce the module and provide instructions on +how to install the module, any machine dependencies it may have (for +example C compilers and installed libraries) and any other information +that should be provided before the module is installed.

+A README file is required for CPAN modules since CPAN extracts the +README file from a module distribution so that people browsing the +archive can use it get an idea of the modules uses. It is usually a +good idea to provide version information here so that people can +decide whether fixes for the module are worth downloading.

+INSTALLATION

+To install this module type the following:

• perl Makefile.PL
• make
• make test
• make install

+DEPENDENCIES

+This module requires these other modules and libraries:

• libloc

+COPYRIGHT AND LICENCE

+Put the correct copyright and licence information here.

+Copyright (C) 2019 by Stefan Schantl

+This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.28.1 or, +at your option, any later version of Perl 5 you may have available. diff --git a/src/perl/Location/lib/Location.pm b/src/perl/Location/lib/Location.pm new file mode 100644 index 0000000..2782d53 --- /dev/null +++ b/src/perl/Location/lib/Location.pm @@ -0,0 +1,69 @@ +package Location;

+use 5.028001; +use strict; +use warnings;

+require Exporter;

+our @ISA = qw(Exporter);

+# Items to export into callers namespace by default. Note: do not export +# names by default without a very good reason. Use EXPORT_OK instead. +# Do not simply export all your public functions/methods/constants.

+# This allows declaration use Location ':all'; +# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK +# will save memory. +our %EXPORT_TAGS = ( 'all' => [ qw() ] );

+our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

+our @EXPORT = qw();

+our $VERSION = '0.01';

+require XSLoader; +XSLoader::load('Location', $VERSION);

+# Preloaded methods go here.

+1; +__END__ +# Below is stub documentation for your module. You'd better edit it!

+=head1 NAME

+Location - Provides a simple interface to libloc.

+=head1 SYNOPSIS

• use Location;

+=head1 DESCRIPTION

+Location is a simple interface to libloc - A library to determine someones +location on the Internet. (https://git.ipfire.org/?p=location/libloc.git;a=summary)

+=head2 EXPORT

+None by default.

+=head1 SEE ALSO

+https://git.ipfire.org/?p=location/libloc.git;a=summary

+=head1 AUTHOR

+Stefan Schantl, stefan.schantl@ipfire.org

+=head1 COPYRIGHT AND LICENSE

+Copyright (C) 2019 by Stefan Schantl

+This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.28.1 or, +at your option, any later version of Perl 5 you may have available.

+=cut diff --git a/src/perl/Location/ppport.h b/src/perl/Location/ppport.h new file mode 100644 index 0000000..208fb41 --- /dev/null +++ b/src/perl/Location/ppport.h @@ -0,0 +1,8214 @@ +#if 0 +<<'SKIP'; +#endif +/* +----------------------------------------------------------------------

• ppport.h -- Perl/Pollution/Portability Version 3.40
• Automatically created by Devel::PPPort running under perl 5.028001.
• Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
• includes in parts/inc/ instead.
• Use 'perldoc ppport.h' to view the documentation below.

+----------------------------------------------------------------------

+SKIP

+=pod

+=head1 NAME

+ppport.h - Perl/Pollution/Portability version 3.40

+=head1 SYNOPSIS

• perl ppport.h [options] [source files]
• Searches current directory for files if no [source files] are given
• --help show short help
• --version show version
• --patch=file write one patch file with changes
• --copy=suffix write changed copies with suffix
• --diff=program use diff program and options
• --compat-version=version provide compatibility with Perl version
• --cplusplus accept C++ comments
• --quiet don't output anything except fatal errors
• --nodiag don't show diagnostics
• --nohints don't show hints
• --nochanges don't suggest changes
• --nofilter don't filter input files
• --strip strip all script and doc functionality

•                          from ppport.h
  

• --list-provided list provided API
• --list-unsupported list unsupported API
• --api-info=name show Perl API portability information

+=head1 COMPATIBILITY

+This version of F<ppport.h> is designed to support operation with Perl +installations back to 5.003, and has been tested up to 5.20.

+=head1 OPTIONS

+=head2 --help

+Display a brief usage summary.

+=head2 --version

+Display the version of F<ppport.h>.

+=head2 --patch=I<file>

+If this option is given, a single patch file will be created if +any changes are suggested. This requires a working diff program +to be installed on your system.

+=head2 --copy=I<suffix>

+If this option is given, a copy of each file will be saved with +the given suffix that contains the suggested changes. This does +not require any external programs. Note that this does not +automagically add a dot between the original filename and the +suffix. If you want the dot, you have to include it in the option +argument.

+If neither C<--patch> or C<--copy> are given, the default is to +simply print the diffs for each file. This requires either +CText::Diff or a C<diff> program to be installed.

+=head2 --diff=I<program>

+Manually set the diff program and options to use. The default +is to use CText::Diff, when installed, and output unified +context diffs.

+=head2 --compat-version=I<version>

+Tell F<ppport.h> to check for compatibility with the given +Perl version. The default is to check for compatibility with Perl +version 5.003. You can use this option to reduce the output +of F<ppport.h> if you intend to be backward compatible only +down to a certain Perl version.

+=head2 --cplusplus

+Usually, F<ppport.h> will detect C++ style comments and +replace them with C style comments for portability reasons. +Using this option instructs F<ppport.h> to leave C++ +comments untouched.

+=head2 --quiet

+Be quiet. Don't print anything except fatal errors.

+=head2 --nodiag

+Don't output any diagnostic messages. Only portability +alerts will be printed.

+=head2 --nohints

+Don't output any hints. Hints often contain useful portability +notes. Warnings will still be displayed.

+=head2 --nochanges

+Don't suggest any changes. Only give diagnostic output and hints +unless these are also deactivated.

+=head2 --nofilter

+Don't filter the list of input files. By default, files not looking +like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.

+=head2 --strip

+Strip all script and documentation functionality from F<ppport.h>. +This reduces the size of F<ppport.h> dramatically and may be useful +if you want to include F<ppport.h> in smaller modules without +increasing their distribution size too much.

+The stripped F<ppport.h> will have a C<--unstrip> option that allows +you to undo the stripping, but only if an appropriate CDevel::PPPort +module is installed.

+=head2 --list-provided

+Lists the API elements for which compatibility is provided by +F<ppport.h>. Also lists if it must be explicitly requested, +if it has dependencies, and if there are hints or warnings for it.

+=head2 --list-unsupported

+Lists the API elements that are known not to be supported by +F<ppport.h> and below which version of Perl they probably +won't be available or work.

+=head2 --api-info=I<name>

+Show portability information for API elements matching I<name>. +If I<name> is surrounded by slashes, it is interpreted as a regular +expression.

+=head1 DESCRIPTION

+In order for a Perl extension (XS) module to be as portable as possible +across differing versions of Perl itself, certain steps need to be taken.

+=over 4

+=item *

+Including this header is the first major one. This alone will give you +access to a large part of the Perl API that hasn't been available in +earlier Perl releases. Use

• perl ppport.h --list-provided

+to see which API elements are provided by ppport.h.

+=item *

+You should avoid using deprecated parts of the API. For example, using +global Perl variables without the C<PL_> prefix is deprecated. Also, +some API functions used to have a C<perl_> prefix. Using this form is +also deprecated. You can safely use the supported API, as F<ppport.h> +will provide wrappers for older Perl versions.

+=item *

+If you use one of a few functions or variables that were not present in +earlier versions of Perl, and that can't be provided using a macro, you +have to explicitly request support for these functions by adding one or +more C<#define>s in your source code before the inclusion of F<ppport.h>.

+These functions or variables will be marked C<explicit> in the list shown +by C<--list-provided>.

+Depending on whether you module has a single or multiple files that +use such functions or variables, you want either C<static> or global +variants.

+For a C<static> function or variable (used only in a single source +file), use:

• #define NEED_function
• #define NEED_variable

+For a global function or variable (used in multiple source files), +use:

• #define NEED_function_GLOBAL
• #define NEED_variable_GLOBAL

+Note that you mustn't have more than one global request for the +same function or variable in your project.

• Function / Variable Static Request Global Request

• ---

• PL_parser NEED_PL_parser NEED_PL_parser_GLOBAL
• PL_signals NEED_PL_signals NEED_PL_signals_GLOBAL
• SvRX() NEED_SvRX NEED_SvRX_GLOBAL
• caller_cx() NEED_caller_cx NEED_caller_cx_GLOBAL
• croak_xs_usage() NEED_croak_xs_usage NEED_croak_xs_usage_GLOBAL
• die_sv() NEED_die_sv NEED_die_sv_GLOBAL
• eval_pv() NEED_eval_pv NEED_eval_pv_GLOBAL
• grok_bin() NEED_grok_bin NEED_grok_bin_GLOBAL
• grok_hex() NEED_grok_hex NEED_grok_hex_GLOBAL
• grok_number() NEED_grok_number NEED_grok_number_GLOBAL
• grok_numeric_radix() NEED_grok_numeric_radix NEED_grok_numeric_radix_GLOBAL
• grok_oct() NEED_grok_oct NEED_grok_oct_GLOBAL
• gv_fetchpvn_flags() NEED_gv_fetchpvn_flags NEED_gv_fetchpvn_flags_GLOBAL
• load_module() NEED_load_module NEED_load_module_GLOBAL
• mess() NEED_mess NEED_mess_GLOBAL
• mess_nocontext() NEED_mess_nocontext NEED_mess_nocontext_GLOBAL
• mess_sv() NEED_mess_sv NEED_mess_sv_GLOBAL
• mg_findext() NEED_mg_findext NEED_mg_findext_GLOBAL
• my_snprintf() NEED_my_snprintf NEED_my_snprintf_GLOBAL
• my_sprintf() NEED_my_sprintf NEED_my_sprintf_GLOBAL
• my_strlcat() NEED_my_strlcat NEED_my_strlcat_GLOBAL
• my_strlcpy() NEED_my_strlcpy NEED_my_strlcpy_GLOBAL
• newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
• newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL
• newSV_type() NEED_newSV_type NEED_newSV_type_GLOBAL
• newSVpvn_flags() NEED_newSVpvn_flags NEED_newSVpvn_flags_GLOBAL
• newSVpvn_share() NEED_newSVpvn_share NEED_newSVpvn_share_GLOBAL
• pv_display() NEED_pv_display NEED_pv_display_GLOBAL
• pv_escape() NEED_pv_escape NEED_pv_escape_GLOBAL
• pv_pretty() NEED_pv_pretty NEED_pv_pretty_GLOBAL
• sv_2pv_flags() NEED_sv_2pv_flags NEED_sv_2pv_flags_GLOBAL
• sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL
• sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_GLOBAL
• sv_catpvf_mg_nocontext() NEED_sv_catpvf_mg_nocontext NEED_sv_catpvf_mg_nocontext_GLOBAL
• sv_pvn_force_flags() NEED_sv_pvn_force_flags NEED_sv_pvn_force_flags_GLOBAL
• sv_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_GLOBAL
• sv_setpvf_mg_nocontext() NEED_sv_setpvf_mg_nocontext NEED_sv_setpvf_mg_nocontext_GLOBAL
• sv_unmagicext() NEED_sv_unmagicext NEED_sv_unmagicext_GLOBAL
• vload_module() NEED_vload_module NEED_vload_module_GLOBAL
• vmess() NEED_vmess NEED_vmess_GLOBAL
• vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL
• warner() NEED_warner NEED_warner_GLOBAL

+To avoid namespace conflicts, you can change the namespace of the +explicitly exported functions / variables using the C<DPPP_NAMESPACE> +macro. Just C<#define> the macro before including C<ppport.h>:

• #define DPPP_NAMESPACE MyOwnNamespace_
• #include "ppport.h"

+The default namespace is C<DPPP_>.

+=back

+The good thing is that most of the above can be checked by running +F<ppport.h> on your source code. See the next section for +details.

+=head1 EXAMPLES

+To verify whether F<ppport.h> is needed for your module, whether you +should make any changes to your code, and whether any special defines +should be used, F<ppport.h> can be run as a Perl script to check your +source code. Simply say:

• perl ppport.h

+The result will usually be a list of patches suggesting changes +that should at least be acceptable, if not necessarily the most +efficient solution, or a fix for all possible problems.

+If you know that your XS module uses features only available in +newer Perl releases, if you're aware that it uses C++ comments, +and if you want all suggestions as a single patch file, you could +use something like this:

• perl ppport.h --compat-version=5.6.0 --cplusplus --patch=test.diff

+If you only want your code to be scanned without any suggestions +for changes, use:

• perl ppport.h --nochanges

+You can specify a different C<diff> program or options, using +the C<--diff> option:

• perl ppport.h --diff='diff -C 10'

+This would output context diffs with 10 lines of context.

+If you want to create patched copies of your files instead, use:

• perl ppport.h --copy=.new

+To display portability information for the C<newSVpvn> function, +use:

• perl ppport.h --api-info=newSVpvn

+Since the argument to C<--api-info> can be a regular expression, +you can use

• perl ppport.h --api-info=/_nomg$/

+to display portability information for all C<_nomg> functions or

• perl ppport.h --api-info=/./

+to display information for all known API elements.

+=head1 BUGS

+If this version of F<ppport.h> is causing failure during +the compilation of this module, please check if newer versions +of either this module or CDevel::PPPort are available on CPAN +before sending a bug report.

+If F<ppport.h> was generated using the latest version of +CDevel::PPPort and is causing failure of this module, please +send a bug report to L<perlbug@perl.org|mailto:perlbug@perl.org>.

+Please include the following information:

+=over 4

+=item 1.

+The complete output from running "perl -V"

+=item 2.

+This file.

+=item 3.

+The name and version of the module you were trying to build.

+=item 4.

+A full log of the build that failed.

+=item 5.

+Any other information that you think could be relevant.

+=back

+For the latest version of this code, please get the CDevel::PPPort +module from CPAN.

+=head1 COPYRIGHT

+Version 3.x, Copyright (c) 2004-2013, Marcus Holland-Moritz.

+Version 2.x, Copyright (C) 2001, Paul Marquess.

+Version 1.x, Copyright (C) 1999, Kenneth Albanowski.

+This program is free software; you can redistribute it and/or +modify it under the same terms as Perl itself.

+=head1 SEE ALSO

+See LDevel::PPPort.

+=cut

+use strict;

+# Disable broken TRIE-optimization +BEGIN { eval '${^RE_TRIE_MAXBUF} = -1' if $] >= 5.009004 && $] <= 5.009005 }

+my $VERSION = 3.40;

+my %opt = (

• quiet => 0,
• diag => 1,
• hints => 1,
• changes => 1,
• cplusplus => 0,
• filter => 1,
• strip => 0,
• version => 0,

+);

+my($ppport) = $0 =~ /([\w.]+)$/; +my $LF = '(?:\r\n|[\r\n])'; # line feed +my $HS = "[ \t]"; # horizontal whitespace

+# Never use C comments in this file! +my $ccs = '/'.'*'; +my $cce = '*'.'/'; +my $rccs = quotemeta $ccs; +my $rcce = quotemeta $cce;

+eval {

• require Getopt::Long;
• Getopt::Long::GetOptions(%opt, qw(
• help quiet diag! filter! hints! changes! cplusplus strip version
• patch=s copy=s diff=s compat-version=s
• list-provided list-unsupported api-info=s
• )) or usage();

+};

+if ($@ and grep /^-/, @ARGV) {

• usage() if "@ARGV" =~ /^--?h(?:elp)?$/;
• die "Getopt::Long not found. Please don't use any options.\n";

+}

+if ($opt{version}) {

• print "This is $0 $VERSION.\n";
• exit 0;

+}

+usage() if $opt{help}; +strip() if $opt{strip};

+if (exists $opt{'compat-version'}) {

• my($r,$v,$s) = eval { parse_version($opt{'compat-version'}) };
• if ($@) {
• die "Invalid version number format: '$opt{'compat-version'}'\n";
• }
• die "Only Perl 5 is supported\n" if $r != 5;
• die "Invalid version number: $opt{'compat-version'}\n" if $v >= 1000 || $s >= 1000;
• $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s;

+} +else {

• $opt{'compat-version'} = 5;

+}

+my %API = map { /^(\w+)|([^|]*)|([^|]*)|(\w*)$/

•            ? ( $1 => {
  

•                  ($2                  ? ( base     => $2 ) : ()),
  

•                  ($3                  ? ( todo     => $3 ) : ()),
  

•                  (index($4, 'v') >= 0 ? ( varargs  => 1  ) : ()),
  

•                  (index($4, 'p') >= 0 ? ( provided => 1  ) : ()),
  

•                  (index($4, 'n') >= 0 ? ( nothxarg => 1  ) : ()),
  

•                } )
  

•            : die "invalid spec: $_" } qw(
  

+ASCII_TO_NEED||5.007001|n +AvFILLp|5.004050||p +AvFILL||| +BhkDISABLE||5.024000| +BhkENABLE||5.024000| +BhkENTRY_set||5.024000| +BhkENTRY||| +BhkFLAGS||| +CALL_BLOCK_HOOKS||| +CLASS|||n +CPERLscope|5.005000||p +CX_CURPAD_SAVE||| +CX_CURPAD_SV||| +C_ARRAY_END|5.013002||p +C_ARRAY_LENGTH|5.008001||p +CopFILEAV|5.006000||p +CopFILEGV_set|5.006000||p +CopFILEGV|5.006000||p +CopFILESV|5.006000||p +CopFILE_set|5.006000||p +CopFILE|5.006000||p +CopSTASHPV_set|5.006000||p +CopSTASHPV|5.006000||p +CopSTASH_eq|5.006000||p +CopSTASH_set|5.006000||p +CopSTASH|5.006000||p +CopyD|5.009002|5.004050|p +Copy||| +CvPADLIST||5.008001| +CvSTASH||| +CvWEAKOUTSIDE||| +DECLARATION_FOR_LC_NUMERIC_MANIPULATION||5.021010|n +DEFSV_set|5.010001||p +DEFSV|5.004050||p +DO_UTF8||5.006000| +END_EXTERN_C|5.005000||p +ENTER||| +ERRSV|5.004050||p +EXTEND||| +EXTERN_C|5.005000||p +F0convert|||n +FREETMPS||| +GIMME_V||5.004000|n +GIMME|||n +GROK_NUMERIC_RADIX|5.007002||p +G_ARRAY||| +G_DISCARD||| +G_EVAL||| +G_METHOD|5.006001||p +G_NOARGS||| +G_SCALAR||| +G_VOID||5.004000| +GetVars||| +GvAV||| +GvCV||| +GvHV||| +GvSV||| +Gv_AMupdate||5.011000| +HEf_SVKEY|5.003070||p +HeHASH||5.003070| +HeKEY||5.003070| +HeKLEN||5.003070| +HePV||5.004000| +HeSVKEY_force||5.003070| +HeSVKEY_set||5.004000| +HeSVKEY||5.003070| +HeUTF8|5.010001|5.008000|p +HeVAL||5.003070| +HvENAMELEN||5.015004| +HvENAMEUTF8||5.015004| +HvENAME||5.013007| +HvNAMELEN_get|5.009003||p +HvNAMELEN||5.015004| +HvNAMEUTF8||5.015004| +HvNAME_get|5.009003||p +HvNAME||| +INT2PTR|5.006000||p +IN_LOCALE_COMPILETIME|5.007002||p +IN_LOCALE_RUNTIME|5.007002||p +IN_LOCALE|5.007002||p +IN_PERL_COMPILETIME|5.008001||p +IS_NUMBER_GREATER_THAN_UV_MAX|5.007002||p +IS_NUMBER_INFINITY|5.007002||p +IS_NUMBER_IN_UV|5.007002||p +IS_NUMBER_NAN|5.007003||p +IS_NUMBER_NEG|5.007002||p +IS_NUMBER_NOT_INT|5.007002||p +IVSIZE|5.006000||p +IVTYPE|5.006000||p +IVdf|5.006000||p +LEAVE||| +LINKLIST||5.013006| +LVRET||| +MARK||| +MULTICALL||5.024000| +MUTABLE_PTR|5.010001||p +MUTABLE_SV|5.010001||p +MY_CXT_CLONE|5.009002||p +MY_CXT_INIT|5.007003||p +MY_CXT|5.007003||p +MoveD|5.009002|5.004050|p +Move||| +NATIVE_TO_NEED||5.007001|n +NOOP|5.005000||p +NUM2PTR|5.006000||p +NVTYPE|5.006000||p +NVef|5.006001||p +NVff|5.006001||p +NVgf|5.006001||p +Newxc|5.009003||p +Newxz|5.009003||p +Newx|5.009003||p +Nullav||| +Nullch||| +Nullcv||| +Nullhv||| +Nullsv||| +OP_CLASS||5.013007| +OP_DESC||5.007003| +OP_NAME||5.007003| +OP_TYPE_IS_OR_WAS||5.019010| +OP_TYPE_IS||5.019007| +ORIGMARK||| +OpHAS_SIBLING|5.021007||p +OpLASTSIB_set|5.021011||p +OpMAYBESIB_set|5.021011||p +OpMORESIB_set|5.021011||p +OpSIBLING|5.021007||p +PAD_BASE_SV||| +PAD_CLONE_VARS||| +PAD_COMPNAME_FLAGS||| +PAD_COMPNAME_GEN_set||| +PAD_COMPNAME_GEN||| +PAD_COMPNAME_OURSTASH||| +PAD_COMPNAME_PV||| +PAD_COMPNAME_TYPE||| +PAD_RESTORE_LOCAL||| +PAD_SAVE_LOCAL||| +PAD_SAVE_SETNULLPAD||| +PAD_SETSV||| +PAD_SET_CUR_NOSAVE||| +PAD_SET_CUR||| +PAD_SVl||| +PAD_SV||| +PERLIO_FUNCS_CAST|5.009003||p +PERLIO_FUNCS_DECL|5.009003||p +PERL_ABS|5.008001||p +PERL_ARGS_ASSERT_CROAK_XS_USAGE|||p +PERL_BCDVERSION|5.024000||p +PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p +PERL_HASH|5.003070||p +PERL_INT_MAX|5.003070||p +PERL_INT_MIN|5.003070||p +PERL_LONG_MAX|5.003070||p +PERL_LONG_MIN|5.003070||p +PERL_MAGIC_arylen|5.007002||p +PERL_MAGIC_backref|5.007002||p +PERL_MAGIC_bm|5.007002||p +PERL_MAGIC_collxfrm|5.007002||p +PERL_MAGIC_dbfile|5.007002||p +PERL_MAGIC_dbline|5.007002||p +PERL_MAGIC_defelem|5.007002||p +PERL_MAGIC_envelem|5.007002||p +PERL_MAGIC_env|5.007002||p +PERL_MAGIC_ext|5.007002||p +PERL_MAGIC_fm|5.007002||p +PERL_MAGIC_glob|5.024000||p +PERL_MAGIC_isaelem|5.007002||p +PERL_MAGIC_isa|5.007002||p +PERL_MAGIC_mutex|5.024000||p +PERL_MAGIC_nkeys|5.007002||p +PERL_MAGIC_overload_elem|5.024000||p +PERL_MAGIC_overload_table|5.007002||p +PERL_MAGIC_overload|5.024000||p +PERL_MAGIC_pos|5.007002||p +PERL_MAGIC_qr|5.007002||p +PERL_MAGIC_regdata|5.007002||p +PERL_MAGIC_regdatum|5.007002||p +PERL_MAGIC_regex_global|5.007002||p +PERL_MAGIC_shared_scalar|5.007003||p +PERL_MAGIC_shared|5.007003||p +PERL_MAGIC_sigelem|5.007002||p +PERL_MAGIC_sig|5.007002||p +PERL_MAGIC_substr|5.007002||p +PERL_MAGIC_sv|5.007002||p +PERL_MAGIC_taint|5.007002||p +PERL_MAGIC_tiedelem|5.007002||p +PERL_MAGIC_tiedscalar|5.007002||p +PERL_MAGIC_tied|5.007002||p +PERL_MAGIC_utf8|5.008001||p +PERL_MAGIC_uvar_elem|5.007003||p +PERL_MAGIC_uvar|5.007002||p +PERL_MAGIC_vec|5.007002||p +PERL_MAGIC_vstring|5.008001||p +PERL_PV_ESCAPE_ALL|5.009004||p +PERL_PV_ESCAPE_FIRSTCHAR|5.009004||p +PERL_PV_ESCAPE_NOBACKSLASH|5.009004||p +PERL_PV_ESCAPE_NOCLEAR|5.009004||p +PERL_PV_ESCAPE_QUOTE|5.009004||p +PERL_PV_ESCAPE_RE|5.009005||p +PERL_PV_ESCAPE_UNI_DETECT|5.009004||p +PERL_PV_ESCAPE_UNI|5.009004||p +PERL_PV_PRETTY_DUMP|5.009004||p +PERL_PV_PRETTY_ELLIPSES|5.010000||p +PERL_PV_PRETTY_LTGT|5.009004||p +PERL_PV_PRETTY_NOCLEAR|5.010000||p +PERL_PV_PRETTY_QUOTE|5.009004||p +PERL_PV_PRETTY_REGPROP|5.009004||p +PERL_QUAD_MAX|5.003070||p +PERL_QUAD_MIN|5.003070||p +PERL_REVISION|5.006000||p +PERL_SCAN_ALLOW_UNDERSCORES|5.007003||p +PERL_SCAN_DISALLOW_PREFIX|5.007003||p +PERL_SCAN_GREATER_THAN_UV_MAX|5.007003||p +PERL_SCAN_SILENT_ILLDIGIT|5.008001||p +PERL_SHORT_MAX|5.003070||p +PERL_SHORT_MIN|5.003070||p +PERL_SIGNALS_UNSAFE_FLAG|5.008001||p +PERL_SUBVERSION|5.006000||p +PERL_SYS_INIT3||5.006000| +PERL_SYS_INIT||| +PERL_SYS_TERM||5.024000| +PERL_UCHAR_MAX|5.003070||p +PERL_UCHAR_MIN|5.003070||p +PERL_UINT_MAX|5.003070||p +PERL_UINT_MIN|5.003070||p +PERL_ULONG_MAX|5.003070||p +PERL_ULONG_MIN|5.003070||p +PERL_UNUSED_ARG|5.009003||p +PERL_UNUSED_CONTEXT|5.009004||p +PERL_UNUSED_DECL|5.007002||p +PERL_UNUSED_RESULT|5.021001||p +PERL_UNUSED_VAR|5.007002||p +PERL_UQUAD_MAX|5.003070||p +PERL_UQUAD_MIN|5.003070||p +PERL_USE_GCC_BRACE_GROUPS|5.009004||p +PERL_USHORT_MAX|5.003070||p +PERL_USHORT_MIN|5.003070||p +PERL_VERSION|5.006000||p +PL_DBsignal|5.005000||p +PL_DBsingle|||pn +PL_DBsub|||pn +PL_DBtrace|||pn +PL_Sv|5.005000||p +PL_bufend|5.024000||p +PL_bufptr|5.024000||p +PL_check||5.006000| +PL_compiling|5.004050||p +PL_comppad_name||5.017004| +PL_comppad||5.008001| +PL_copline|5.024000||p +PL_curcop|5.004050||p +PL_curpad||5.005000| +PL_curstash|5.004050||p +PL_debstash|5.004050||p +PL_defgv|5.004050||p +PL_diehook|5.004050||p +PL_dirty|5.004050||p +PL_dowarn|||pn +PL_errgv|5.004050||p +PL_error_count|5.024000||p +PL_expect|5.024000||p +PL_hexdigit|5.005000||p +PL_hints|5.005000||p +PL_in_my_stash|5.024000||p +PL_in_my|5.024000||p +PL_keyword_plugin||5.011002| +PL_last_in_gv|||n +PL_laststatval|5.005000||p +PL_lex_state|5.024000||p +PL_lex_stuff|5.024000||p +PL_linestr|5.024000||p +PL_modglobal||5.005000|n +PL_na|5.004050||pn +PL_no_modify|5.006000||p +PL_ofsgv|||n +PL_opfreehook||5.011000|n +PL_parser|5.009005||p +PL_peepp||5.007003|n +PL_perl_destruct_level|5.004050||p +PL_perldb|5.004050||p +PL_ppaddr|5.006000||p +PL_rpeepp||5.013005|n +PL_rsfp_filters|5.024000||p +PL_rsfp|5.024000||p +PL_rs|||n +PL_signals|5.008001||p +PL_stack_base|5.004050||p +PL_stack_sp|5.004050||p +PL_statcache|5.005000||p +PL_stdingv|5.004050||p +PL_sv_arenaroot|5.004050||p +PL_sv_no|5.004050||pn +PL_sv_undef|5.004050||pn +PL_sv_yes|5.004050||pn +PL_tainted|5.004050||p +PL_tainting|5.004050||p +PL_tokenbuf|5.024000||p +POP_MULTICALL||5.024000| +POPi|||n +POPl|||n +POPn|||n +POPpbytex||5.007001|n +POPpx||5.005030|n +POPp|||n +POPs|||n +POPul||5.006000|n +POPu||5.004000|n +PTR2IV|5.006000||p +PTR2NV|5.006000||p +PTR2UV|5.006000||p +PTR2nat|5.009003||p +PTR2ul|5.007001||p +PTRV|5.006000||p +PUSHMARK||| +PUSH_MULTICALL||5.024000| +PUSHi||| +PUSHmortal|5.009002||p +PUSHn||| +PUSHp||| +PUSHs||| +PUSHu|5.004000||p +PUTBACK||| +PadARRAY||5.024000| +PadMAX||5.024000| +PadlistARRAY||5.024000| +PadlistMAX||5.024000| +PadlistNAMESARRAY||5.024000| +PadlistNAMESMAX||5.024000| +PadlistNAMES||5.024000| +PadlistREFCNT||5.017004| +PadnameIsOUR||| +PadnameIsSTATE||| +PadnameLEN||5.024000| +PadnameOURSTASH||| +PadnameOUTER||| +PadnamePV||5.024000| +PadnameREFCNT_dec||5.024000| +PadnameREFCNT||5.024000| +PadnameSV||5.024000| +PadnameTYPE||| +PadnameUTF8||5.021007| +PadnamelistARRAY||5.024000| +PadnamelistMAX||5.024000| +PadnamelistREFCNT_dec||5.024000| +PadnamelistREFCNT||5.024000| +PerlIO_clearerr||5.007003| +PerlIO_close||5.007003| +PerlIO_context_layers||5.009004| +PerlIO_eof||5.007003| +PerlIO_error||5.007003| +PerlIO_fileno||5.007003| +PerlIO_fill||5.007003| +PerlIO_flush||5.007003| +PerlIO_get_base||5.007003| +PerlIO_get_bufsiz||5.007003| +PerlIO_get_cnt||5.007003| +PerlIO_get_ptr||5.007003| +PerlIO_read||5.007003| +PerlIO_restore_errno||| +PerlIO_save_errno||| +PerlIO_seek||5.007003| +PerlIO_set_cnt||5.007003| +PerlIO_set_ptrcnt||5.007003| +PerlIO_setlinebuf||5.007003| +PerlIO_stderr||5.007003| +PerlIO_stdin||5.007003| +PerlIO_stdout||5.007003| +PerlIO_tell||5.007003| +PerlIO_unread||5.007003| +PerlIO_write||5.007003| +Perl_signbit||5.009005|n +PoisonFree|5.009004||p +PoisonNew|5.009004||p +PoisonWith|5.009004||p +Poison|5.008000||p +READ_XDIGIT||5.017006| +RESTORE_LC_NUMERIC||5.024000| +RETVAL|||n +Renewc||| +Renew||| +SAVECLEARSV||| +SAVECOMPPAD||| +SAVEPADSV||| +SAVETMPS||| +SAVE_DEFSV|5.004050||p +SPAGAIN||| +SP||| +START_EXTERN_C|5.005000||p +START_MY_CXT|5.007003||p +STMT_END|||p +STMT_START|||p +STORE_LC_NUMERIC_FORCE_TO_UNDERLYING||5.024000| +STORE_LC_NUMERIC_SET_TO_NEEDED||5.024000| +STR_WITH_LEN|5.009003||p +ST||| +SV_CONST_RETURN|5.009003||p +SV_COW_DROP_PV|5.008001||p +SV_COW_SHARED_HASH_KEYS|5.009005||p +SV_GMAGIC|5.007002||p +SV_HAS_TRAILING_NUL|5.009004||p +SV_IMMEDIATE_UNREF|5.007001||p +SV_MUTABLE_RETURN|5.009003||p +SV_NOSTEAL|5.009002||p +SV_SMAGIC|5.009003||p +SV_UTF8_NO_ENCODING|5.008001||p +SVfARG|5.009005||p +SVf_UTF8|5.006000||p +SVf|5.006000||p +SVt_INVLIST||5.019002| +SVt_IV||| +SVt_NULL||| +SVt_NV||| +SVt_PVAV||| +SVt_PVCV||| +SVt_PVFM||| +SVt_PVGV||| +SVt_PVHV||| +SVt_PVIO||| +SVt_PVIV||| +SVt_PVLV||| +SVt_PVMG||| +SVt_PVNV||| +SVt_PV||| +SVt_REGEXP||5.011000| +Safefree||| +Slab_Alloc||| +Slab_Free||| +Slab_to_ro||| +Slab_to_rw||| +StructCopy||| +SvCUR_set||| +SvCUR||| +SvEND||| +SvGAMAGIC||5.006001| +SvGETMAGIC|5.004050||p +SvGROW||| +SvIOK_UV||5.006000| +SvIOK_notUV||5.006000| +SvIOK_off||| +SvIOK_only_UV||5.006000| +SvIOK_only||| +SvIOK_on||| +SvIOKp||| +SvIOK||| +SvIVX||| +SvIV_nomg|5.009001||p +SvIV_set||| +SvIVx||| +SvIV||| +SvIsCOW_shared_hash||5.008003| +SvIsCOW||5.008003| +SvLEN_set||| +SvLEN||| +SvLOCK||5.007003| +SvMAGIC_set|5.009003||p +SvNIOK_off||| +SvNIOKp||| +SvNIOK||| +SvNOK_off||| +SvNOK_only||| +SvNOK_on||| +SvNOKp||| +SvNOK||| +SvNVX||| +SvNV_nomg||5.013002| +SvNV_set||| +SvNVx||| +SvNV||| +SvOK||| +SvOOK_offset||5.011000| +SvOOK||| +SvPOK_off||| +SvPOK_only_UTF8||5.006000| +SvPOK_only||| +SvPOK_on||| +SvPOKp||| +SvPOK||| +SvPVX_const|5.009003||p +SvPVX_mutable|5.009003||p +SvPVX||| +SvPV_const|5.009003||p +SvPV_flags_const_nolen|5.009003||p +SvPV_flags_const|5.009003||p +SvPV_flags_mutable|5.009003||p +SvPV_flags|5.007002||p +SvPV_force_flags_mutable|5.009003||p +SvPV_force_flags_nolen|5.009003||p +SvPV_force_flags|5.007002||p +SvPV_force_mutable|5.009003||p +SvPV_force_nolen|5.009003||p +SvPV_force_nomg_nolen|5.009003||p +SvPV_force_nomg|5.007002||p +SvPV_force|||p +SvPV_mutable|5.009003||p +SvPV_nolen_const|5.009003||p +SvPV_nolen|5.006000||p +SvPV_nomg_const_nolen|5.009003||p +SvPV_nomg_const|5.009003||p +SvPV_nomg_nolen|5.013007||p +SvPV_nomg|5.007002||p +SvPV_renew|5.009003||p +SvPV_set||| +SvPVbyte_force||5.009002| +SvPVbyte_nolen||5.006000| +SvPVbytex_force||5.006000| +SvPVbytex||5.006000| +SvPVbyte|5.006000||p +SvPVutf8_force||5.006000| +SvPVutf8_nolen||5.006000| +SvPVutf8x_force||5.006000| +SvPVutf8x||5.006000| +SvPVutf8||5.006000| +SvPVx||| +SvPV||| +SvREFCNT_dec_NN||5.017007| +SvREFCNT_dec||| +SvREFCNT_inc_NN|5.009004||p +SvREFCNT_inc_simple_NN|5.009004||p +SvREFCNT_inc_simple_void_NN|5.009004||p +SvREFCNT_inc_simple_void|5.009004||p +SvREFCNT_inc_simple|5.009004||p +SvREFCNT_inc_void_NN|5.009004||p +SvREFCNT_inc_void|5.009004||p +SvREFCNT_inc|||p +SvREFCNT||| +SvROK_off||| +SvROK_on||| +SvROK||| +SvRV_set|5.009003||p +SvRV||| +SvRXOK|5.009005||p +SvRX|5.009005||p +SvSETMAGIC||| +SvSHARED_HASH|5.009003||p +SvSHARE||5.007003| +SvSTASH_set|5.009003||p +SvSTASH||| +SvSetMagicSV_nosteal||5.004000| +SvSetMagicSV||5.004000| +SvSetSV_nosteal||5.004000| +SvSetSV||| +SvTAINTED_off||5.004000| +SvTAINTED_on||5.004000| +SvTAINTED||5.004000| +SvTAINT||| +SvTHINKFIRST||| +SvTRUE_nomg||5.013006| +SvTRUE||| +SvTYPE||| +SvUNLOCK||5.007003| +SvUOK|5.007001|5.006000|p +SvUPGRADE||| +SvUTF8_off||5.006000| +SvUTF8_on||5.006000| +SvUTF8||5.006000| +SvUVXx|5.004000||p +SvUVX|5.004000||p +SvUV_nomg|5.009001||p +SvUV_set|5.009003||p +SvUVx|5.004000||p +SvUV|5.004000||p +SvVOK||5.008001| +SvVSTRING_mg|5.009004||p +THIS|||n +UNDERBAR|5.009002||p +UTF8SKIP||5.006000| +UTF8_MAXBYTES|5.009002||p +UVCHR_SKIP||5.022000| +UVSIZE|5.006000||p +UVTYPE|5.006000||p +UVXf|5.007001||p +UVof|5.006000||p +UVuf|5.006000||p +UVxf|5.006000||p +WARN_ALL|5.006000||p +WARN_AMBIGUOUS|5.006000||p +WARN_ASSERTIONS|5.024000||p +WARN_BAREWORD|5.006000||p +WARN_CLOSED|5.006000||p +WARN_CLOSURE|5.006000||p +WARN_DEBUGGING|5.006000||p +WARN_DEPRECATED|5.006000||p +WARN_DIGIT|5.006000||p +WARN_EXEC|5.006000||p +WARN_EXITING|5.006000||p +WARN_GLOB|5.006000||p +WARN_INPLACE|5.006000||p +WARN_INTERNAL|5.006000||p +WARN_IO|5.006000||p +WARN_LAYER|5.008000||p +WARN_MALLOC|5.006000||p +WARN_MISC|5.006000||p +WARN_NEWLINE|5.006000||p +WARN_NUMERIC|5.006000||p +WARN_ONCE|5.006000||p +WARN_OVERFLOW|5.006000||p +WARN_PACK|5.006000||p +WARN_PARENTHESIS|5.006000||p +WARN_PIPE|5.006000||p +WARN_PORTABLE|5.006000||p +WARN_PRECEDENCE|5.006000||p +WARN_PRINTF|5.006000||p +WARN_PROTOTYPE|5.006000||p +WARN_QW|5.006000||p +WARN_RECURSION|5.006000||p +WARN_REDEFINE|5.006000||p +WARN_REGEXP|5.006000||p +WARN_RESERVED|5.006000||p +WARN_SEMICOLON|5.006000||p +WARN_SEVERE|5.006000||p +WARN_SIGNAL|5.006000||p +WARN_SUBSTR|5.006000||p +WARN_SYNTAX|5.006000||p +WARN_TAINT|5.006000||p +WARN_THREADS|5.008000||p +WARN_UNINITIALIZED|5.006000||p +WARN_UNOPENED|5.006000||p +WARN_UNPACK|5.006000||p +WARN_UNTIE|5.006000||p +WARN_UTF8|5.006000||p +WARN_VOID|5.006000||p +WIDEST_UTYPE|5.015004||p +XCPT_CATCH|5.009002||p +XCPT_RETHROW|5.009002||p +XCPT_TRY_END|5.009002||p +XCPT_TRY_START|5.009002||p +XPUSHi||| +XPUSHmortal|5.009002||p +XPUSHn||| +XPUSHp||| +XPUSHs||| +XPUSHu|5.004000||p +XSPROTO|5.010000||p +XSRETURN_EMPTY||| +XSRETURN_IV||| +XSRETURN_NO||| +XSRETURN_NV||| +XSRETURN_PV||| +XSRETURN_UNDEF||| +XSRETURN_UV|5.008001||p +XSRETURN_YES||| +XSRETURN|||p +XST_mIV||| +XST_mNO||| +XST_mNV||| +XST_mPV||| +XST_mUNDEF||| +XST_mUV|5.008001||p +XST_mYES||| +XS_APIVERSION_BOOTCHECK||5.024000| +XS_EXTERNAL||5.024000| +XS_INTERNAL||5.024000| +XS_VERSION_BOOTCHECK||5.024000| +XS_VERSION||| +XSprePUSH|5.006000||p +XS||| +XopDISABLE||5.024000| +XopENABLE||5.024000| +XopENTRYCUSTOM||5.024000| +XopENTRY_set||5.024000| +XopENTRY||5.024000| +XopFLAGS||5.013007| +ZeroD|5.009002||p +Zero||| +_aMY_CXT|5.007003||p +_add_range_to_invlist||| +_append_range_to_invlist||| +_core_swash_init||| +_get_encoding||| +_get_regclass_nonbitmap_data||| +_get_swash_invlist||| +_invlistEQ||| +_invlist_array_init|||n +_invlist_contains_cp|||n +_invlist_dump||| +_invlist_intersection_maybe_complement_2nd||| +_invlist_intersection||| +_invlist_invert||| +_invlist_len|||n +_invlist_populate_swatch|||n +_invlist_search|||n +_invlist_subtract||| +_invlist_union_maybe_complement_2nd||| +_invlist_union||| +_is_cur_LC_category_utf8||| +_is_in_locale_category||5.021001| +_is_uni_FOO||5.017008| +_is_uni_perl_idcont||5.017008| +_is_uni_perl_idstart||5.017007| +_is_utf8_FOO||5.017008| +_is_utf8_char_slow||5.021001|n +_is_utf8_idcont||5.021001| +_is_utf8_idstart||5.021001| +_is_utf8_mark||5.017008| +_is_utf8_perl_idcont||5.017008| +_is_utf8_perl_idstart||5.017007| +_is_utf8_xidcont||5.021001| +_is_utf8_xidstart||5.021001| +_load_PL_utf8_foldclosures||| +_make_exactf_invlist||| +_new_invlist_C_array||| +_new_invlist||| +_pMY_CXT|5.007003||p +_setlocale_debug_string|||n +_setup_canned_invlist||| +_swash_inversion_hash||| +_swash_to_invlist||| +_to_fold_latin1||| +_to_uni_fold_flags||5.014000| +_to_upper_title_latin1||| +_to_utf8_case||| +_to_utf8_fold_flags||5.019009| +_to_utf8_lower_flags||5.019009| +_to_utf8_title_flags||5.019009| +_to_utf8_upper_flags||5.019009| +_warn_problematic_locale|||n +aMY_CXT_|5.007003||p +aMY_CXT|5.007003||p +aTHXR_|5.024000||p +aTHXR|5.024000||p +aTHX_|5.006000||p +aTHX|5.006000||p +add_above_Latin1_folds||| +add_cp_to_invlist||| +add_data|||n +add_multi_match||| +add_utf16_textfilter||| +adjust_size_and_find_bucket|||n +advance_one_LB||| +advance_one_SB||| +advance_one_WB||| +alloc_maybe_populate_EXACT||| +alloccopstash||| +allocmy||| +amagic_call||| +amagic_cmp_locale||| +amagic_cmp||| +amagic_deref_call||5.013007| +amagic_i_ncmp||| +amagic_is_enabled||| +amagic_ncmp||| +anonymise_cv_maybe||| +any_dup||| +ao||| +append_utf8_from_native_byte||5.019004|n +apply_attrs_my||| +apply_attrs_string||5.006001| +apply_attrs||| +apply||| +assert_uft8_cache_coherent||| +assignment_type||| +atfork_lock||5.007003|n +atfork_unlock||5.007003|n +av_arylen_p||5.009003| +av_clear||| +av_create_and_push||5.009005| +av_create_and_unshift_one||5.009005| +av_delete||5.006000| +av_exists||5.006000| +av_extend_guts||| +av_extend||| +av_fetch||| +av_fill||| +av_iter_p||5.011000| +av_len||| +av_make||| +av_pop||| +av_push||| +av_reify||| +av_shift||| +av_store||| +av_tindex||5.017009| +av_top_index||5.017009| +av_undef||| +av_unshift||| +ax|||n +backup_one_LB||| +backup_one_SB||| +backup_one_WB||| +bad_type_gv||| +bad_type_pv||| +bind_match||| +block_end||5.004000| +block_gimme||5.004000| +block_start||5.004000| +blockhook_register||5.013003| +boolSV|5.004000||p +boot_core_PerlIO||| +boot_core_UNIVERSAL||| +boot_core_mro||| +bytes_cmp_utf8||5.013007| +bytes_from_utf8||5.007001| +bytes_to_utf8||5.006001| +cBOOL|5.013000||p +call_argv|5.006000||p +call_atexit||5.006000| +call_list||5.004000| +call_method|5.006000||p +call_pv|5.006000||p +call_sv|5.006000||p +caller_cx|5.013005|5.006000|p +calloc||5.007002|n +cando||| +cast_i32||5.006000|n +cast_iv||5.006000|n +cast_ulong||5.006000|n +cast_uv||5.006000|n +check_locale_boundary_crossing||| +check_type_and_open||| +check_uni||| +check_utf8_print||| +checkcomma||| +ckWARN|5.006000||p +ck_entersub_args_core||| +ck_entersub_args_list||5.013006| +ck_entersub_args_proto_or_list||5.013006| +ck_entersub_args_proto||5.013006| +ck_warner_d||5.011001|v +ck_warner||5.011001|v +ckwarn_common||| +ckwarn_d||5.009003| +ckwarn||5.009003| +clear_defarray||5.023008| +clear_placeholders||| +clear_special_blocks||| +clone_params_del|||n +clone_params_new|||n +closest_cop||| +cntrl_to_mnemonic|||n +compute_EXACTish|||n +construct_ahocorasick_from_trie||| +cop_fetch_label||5.015001| +cop_free||| +cop_hints_2hv||5.013007| +cop_hints_fetch_pvn||5.013007| +cop_hints_fetch_pvs||5.013007| +cop_hints_fetch_pv||5.013007| +cop_hints_fetch_sv||5.013007| +cop_store_label||5.015001| +cophh_2hv||5.013007| +cophh_copy||5.013007| +cophh_delete_pvn||5.013007| +cophh_delete_pvs||5.013007| +cophh_delete_pv||5.013007| +cophh_delete_sv||5.013007| +cophh_fetch_pvn||5.013007| +cophh_fetch_pvs||5.013007| +cophh_fetch_pv||5.013007| +cophh_fetch_sv||5.013007| +cophh_free||5.013007| +cophh_new_empty||5.024000| +cophh_store_pvn||5.013007| +cophh_store_pvs||5.013007| +cophh_store_pv||5.013007| +cophh_store_sv||5.013007| +core_prototype||| +coresub_op||| +cr_textfilter||| +create_eval_scope||| +croak_memory_wrap|5.019003||pn +croak_no_mem|||n +croak_no_modify|5.013003||pn +croak_nocontext|||pvn +croak_popstack|||n +croak_sv|5.013001||p +croak_xs_usage|5.010001||pn +croak|||v +csighandler||5.009003|n +current_re_engine||| +curse||| +custom_op_desc||5.007003| +custom_op_get_field||| +custom_op_name||5.007003| +custom_op_register||5.013007| +custom_op_xop||5.013007| +cv_ckproto_len_flags||| +cv_clone_into||| +cv_clone||| +cv_const_sv_or_av|||n +cv_const_sv||5.003070|n +cv_dump||| +cv_forget_slab||| +cv_get_call_checker||5.013006| +cv_name||5.021005| +cv_set_call_checker_flags||5.021004| +cv_set_call_checker||5.013006| +cv_undef_flags||| +cv_undef||| +cvgv_from_hek||| +cvgv_set||| +cvstash_set||| +cx_dump||5.005000| +cx_dup||| +cx_popblock||5.023008| +cx_popeval||5.023008| +cx_popformat||5.023008| +cx_popgiven||5.023008| +cx_poploop||5.023008| +cx_popsub_args||5.023008| +cx_popsub_common||5.023008| +cx_popsub||5.023008| +cx_popwhen||5.023008| +cx_pushblock||5.023008| +cx_pusheval||5.023008| +cx_pushformat||5.023008| +cx_pushgiven||5.023008| +cx_pushloop_for||5.023008| +cx_pushloop_plain||5.023008| +cx_pushsub||5.023008| +cx_pushwhen||5.023008| +cx_topblock||5.023008| +cxinc||| +dAXMARK|5.009003||p +dAX|5.007002||p +dITEMS|5.007002||p +dMARK||| +dMULTICALL||5.009003| +dMY_CXT_SV|5.007003||p +dMY_CXT|5.007003||p +dNOOP|5.006000||p +dORIGMARK||| +dSP||| +dTHR|5.004050||p +dTHXR|5.024000||p +dTHXa|5.006000||p +dTHXoa|5.006000||p +dTHX|5.006000||p +dUNDERBAR|5.009002||p +dVAR|5.009003||p +dXCPT|5.009002||p +dXSARGS||| +dXSI32||| +dXSTARG|5.006000||p +deb_curcv||| +deb_nocontext|||vn +deb_stack_all||| +deb_stack_n||| +debop||5.005000| +debprofdump||5.005000| +debprof||| +debstackptrs||5.007003| +debstack||5.007003| +debug_start_match||| +deb||5.007003|v +defelem_target||| +del_sv||| +delete_eval_scope||| +delimcpy||5.004000|n +deprecate_commaless_var_list||| +despatch_signals||5.007001| +destroy_matcher||| +die_nocontext|||vn +die_sv|5.013001||p +die_unwind||| +die|||v +dirp_dup||| +div128||| +djSP||| +do_aexec5||| +do_aexec||| +do_aspawn||| +do_binmode||5.004050| +do_chomp||| +do_close||| +do_delete_local||| +do_dump_pad||| +do_eof||| +do_exec3||| +do_execfree||| +do_exec||| +do_gv_dump||5.006000| +do_gvgv_dump||5.006000| +do_hv_dump||5.006000| +do_ipcctl||| +do_ipcget||| +do_join||| +do_magic_dump||5.006000| +do_msgrcv||| +do_msgsnd||| +do_ncmp||| +do_oddball||| +do_op_dump||5.006000| +do_open6||| +do_open9||5.006000| +do_open_raw||| +do_openn||5.007001| +do_open||5.003070| +do_pmop_dump||5.006000| +do_print||| +do_readline||| +do_seek||| +do_semop||| +do_shmio||| +do_smartmatch||| +do_spawn_nowait||| +do_spawn||| +do_sprintf||| +do_sv_dump||5.006000| +do_sysseek||| +do_tell||| +do_trans_complex_utf8||| +do_trans_complex||| +do_trans_count_utf8||| +do_trans_count||| +do_trans_simple_utf8||| +do_trans_simple||| +do_trans||| +do_vecget||| +do_vecset||| +do_vop||| +docatch||| +doeval_compile||| +dofile||| +dofindlabel||| +doform||| +doing_taint||5.008001|n +dooneliner||| +doopen_pm||| +doparseform||| +dopoptoeval||| +dopoptogivenfor||| +dopoptolabel||| +dopoptoloop||| +dopoptosub_at||| +dopoptowhen||| +doref||5.009003| +dounwind||| +dowantarray||| +drand48_init_r|||n +drand48_r|||n +dtrace_probe_call||| +dtrace_probe_load||| +dtrace_probe_op||| +dtrace_probe_phase||| +dump_all_perl||| +dump_all||5.006000| +dump_c_backtrace||| +dump_eval||5.006000| +dump_exec_pos||| +dump_form||5.006000| +dump_indent||5.006000|v +dump_mstats||| +dump_packsubs_perl||| +dump_packsubs||5.006000| +dump_sub_perl||| +dump_sub||5.006000| +dump_sv_child||| +dump_trie_interim_list||| +dump_trie_interim_table||| +dump_trie||| +dump_vindent||5.006000| +dumpuntil||| +dup_attrlist||| +edit_distance|||n +emulate_cop_io||| +eval_pv|5.006000||p +eval_sv|5.006000||p +exec_failed||| +expect_number||| +fbm_compile||5.005000| +fbm_instr||5.005000| +feature_is_enabled||| +filter_add||| +filter_del||| +filter_gets||| +filter_read||| +finalize_optree||| +finalize_op||| +find_and_forget_pmops||| +find_array_subscript||| +find_beginning||| +find_byclass||| +find_default_stash||| +find_hash_subscript||| +find_in_my_stash||| +find_lexical_cv||| +find_runcv_where||| +find_runcv||5.008001| +find_rundefsvoffset||5.009002| +find_rundefsv||5.013002| +find_script||| +find_uninit_var||| +first_symbol|||n +fixup_errno_string||| +foldEQ_latin1||5.013008|n +foldEQ_locale||5.013002|n +foldEQ_utf8_flags||5.013010| +foldEQ_utf8||5.013002| +foldEQ||5.013002|n +fold_constants||| +forbid_setid||| +force_ident_maybe_lex||| +force_ident||| +force_list||| +force_next||| +force_strict_version||| +force_version||| +force_word||| +forget_pmop||| +form_nocontext|||vn +form_short_octal_warning||| +form||5.004000|v +fp_dup||| +fprintf_nocontext|||vn +free_c_backtrace||| +free_global_struct||| +free_tied_hv_pool||| +free_tmps||| +gen_constant_list||| +get_ANYOF_cp_list_for_ssc||| +get_and_check_backslash_N_name||| +get_aux_mg||| +get_av|5.006000||p +get_c_backtrace_dump||| +get_c_backtrace||| +get_context||5.006000|n +get_cvn_flags||| +get_cvs|5.011000||p +get_cv|5.006000||p +get_db_sub||| +get_debug_opts||| +get_hash_seed||| +get_hv|5.006000||p +get_invlist_iter_addr|||n +get_invlist_offset_addr|||n +get_invlist_previous_index_addr|||n +get_mstats||| +get_no_modify||| +get_num||| +get_op_descs||5.005000| +get_op_names||5.005000| +get_opargs||| +get_ppaddr||5.006000| +get_re_arg||| +get_sv|5.006000||p +get_vtbl||5.005030| +getcwd_sv||5.007002| +getenv_len||| +glob_2number||| +glob_assign_glob||| +gp_dup||| +gp_free||| +gp_ref||| +grok_atoUV|||n +grok_bin|5.007003||p +grok_bslash_N||| +grok_bslash_c||| +grok_bslash_o||| +grok_bslash_x||| +grok_hex|5.007003||p +grok_infnan||5.021004| +grok_number_flags||5.021002| +grok_number|5.007002||p +grok_numeric_radix|5.007002||p +grok_oct|5.007003||p +group_end||| +gv_AVadd||| +gv_HVadd||| +gv_IOadd||| +gv_SVadd||| +gv_add_by_type||5.011000| +gv_autoload4||5.004000| +gv_autoload_pvn||5.015004| +gv_autoload_pv||5.015004| +gv_autoload_sv||5.015004| +gv_check||| +gv_const_sv||5.009003| +gv_dump||5.006000| +gv_efullname3||5.003070| +gv_efullname4||5.006001| +gv_efullname||| +gv_fetchfile_flags||5.009005| +gv_fetchfile||| +gv_fetchmeth_autoload||5.007003| +gv_fetchmeth_internal||| +gv_fetchmeth_pv_autoload||5.015004| +gv_fetchmeth_pvn_autoload||5.015004| +gv_fetchmeth_pvn||5.015004| +gv_fetchmeth_pv||5.015004| +gv_fetchmeth_sv_autoload||5.015004| +gv_fetchmeth_sv||5.015004| +gv_fetchmethod_autoload||5.004000| +gv_fetchmethod_pv_flags||5.015004| +gv_fetchmethod_pvn_flags||5.015004| +gv_fetchmethod_sv_flags||5.015004| +gv_fetchmethod||| +gv_fetchmeth||| +gv_fetchpvn_flags|5.009002||p +gv_fetchpvs|5.009004||p +gv_fetchpv||| +gv_fetchsv||| +gv_fullname3||5.003070| +gv_fullname4||5.006001| +gv_fullname||| +gv_handler||5.007001| +gv_init_pvn||| +gv_init_pv||5.015004| +gv_init_svtype||| +gv_init_sv||5.015004| +gv_init||| +gv_is_in_main||| +gv_magicalize_isa||| +gv_magicalize||| +gv_name_set||5.009004| +gv_override||| +gv_setref||| +gv_stashpvn_internal||| +gv_stashpvn|5.003070||p +gv_stashpvs|5.009003||p +gv_stashpv||| +gv_stashsvpvn_cached||| +gv_stashsv||| +gv_try_downgrade||| +handle_named_backref||| +handle_possible_posix||| +handle_regex_sets||| +he_dup||| +hek_dup||| +hfree_next_entry||| +hsplit||| +hv_assert||| +hv_auxinit_internal|||n +hv_auxinit||| +hv_backreferences_p||| +hv_clear_placeholders||5.009001| +hv_clear||| +hv_common_key_len||5.010000| +hv_common||5.010000| +hv_copy_hints_hv||5.009004| +hv_delayfree_ent||5.004000| +hv_delete_common||| +hv_delete_ent||5.003070| +hv_delete||| +hv_eiter_p||5.009003| +hv_eiter_set||5.009003| +hv_ename_add||| +hv_ename_delete||| +hv_exists_ent||5.003070| +hv_exists||| +hv_fetch_ent||5.003070| +hv_fetchs|5.009003||p +hv_fetch||| +hv_fill||5.013002| +hv_free_ent_ret||| +hv_free_entries||| +hv_free_ent||5.004000| +hv_iterinit||| +hv_iterkeysv||5.003070| +hv_iterkey||| +hv_iternext_flags||5.008000| +hv_iternextsv||| +hv_iternext||| +hv_iterval||| +hv_kill_backrefs||| +hv_ksplit||5.003070| +hv_magic_check|||n +hv_magic||| +hv_name_set||5.009003| +hv_notallowed||| +hv_placeholders_get||5.009003| +hv_placeholders_p||| +hv_placeholders_set||5.009003| +hv_rand_set||5.018000| +hv_riter_p||5.009003| +hv_riter_set||5.009003| +hv_scalar||5.009001| +hv_store_ent||5.003070| +hv_store_flags||5.008000| +hv_stores|5.009004||p +hv_store||| +hv_undef_flags||| +hv_undef||| +ibcmp_locale||5.004000| +ibcmp_utf8||5.007003| +ibcmp||| +incline||| +incpush_if_exists||| +incpush_use_sep||| +incpush||| +ingroup||| +init_argv_symbols||| +init_constants||| +init_dbargs||| +init_debugger||| +init_global_struct||| +init_i18nl10n||5.006000| +init_i18nl14n||5.006000| +init_ids||| +init_interp||| +init_main_stash||| +init_perllib||| +init_postdump_symbols||| +init_predump_symbols||| +init_stacks||5.005000| +init_tm||5.007002| +inplace_aassign||| +instr|||n +intro_my||5.004000| +intuit_method||| +intuit_more||| +invert||| +invlist_array|||n +invlist_clear||| +invlist_clone||| +invlist_contents||| +invlist_extend||| +invlist_highest|||n +invlist_is_iterating|||n +invlist_iterfinish|||n +invlist_iterinit|||n +invlist_iternext|||n +invlist_max|||n +invlist_previous_index|||n +invlist_replace_list_destroys_src||| +invlist_set_len||| +invlist_set_previous_index|||n +invlist_trim|||n +invoke_exception_hook||| +io_close||| +isALNUMC|5.006000||p +isALNUM_lazy||5.021001| +isALPHANUMERIC||5.017008| +isALPHA||| +isASCII|5.006000||p +isBLANK|5.006001||p +isCNTRL|5.006000||p +isDIGIT||| +isFOO_lc||| +isFOO_utf8_lc||| +isGCB|||n +isGRAPH|5.006000||p +isIDCONT||5.017008| +isIDFIRST_lazy||5.021001| +isIDFIRST||| +isLB||| +isLOWER||| +isOCTAL||5.013005| +isPRINT|5.004000||p +isPSXSPC|5.006001||p +isPUNCT|5.006000||p +isSB||| +isSPACE||| +isUPPER||| +isUTF8_CHAR||5.021001| +isWB||| +isWORDCHAR||5.013006| +isXDIGIT|5.006000||p +is_an_int||| +is_ascii_string||5.011000| +is_handle_constructor|||n +is_invariant_string||5.021007|n +is_lvalue_sub||5.007001| +is_safe_syscall||5.019004| +is_ssc_worth_it|||n +is_uni_alnum_lc||5.006000| +is_uni_alnumc_lc||5.017007| +is_uni_alnumc||5.017007| +is_uni_alnum||5.006000| +is_uni_alpha_lc||5.006000| +is_uni_alpha||5.006000| +is_uni_ascii_lc||5.006000| +is_uni_ascii||5.006000| +is_uni_blank_lc||5.017002| +is_uni_blank||5.017002| +is_uni_cntrl_lc||5.006000| +is_uni_cntrl||5.006000| +is_uni_digit_lc||5.006000| +is_uni_digit||5.006000| +is_uni_graph_lc||5.006000| +is_uni_graph||5.006000| +is_uni_idfirst_lc||5.006000| +is_uni_idfirst||5.006000| +is_uni_lower_lc||5.006000| +is_uni_lower||5.006000| +is_uni_print_lc||5.006000| +is_uni_print||5.006000| +is_uni_punct_lc||5.006000| +is_uni_punct||5.006000| +is_uni_space_lc||5.006000| +is_uni_space||5.006000| +is_uni_upper_lc||5.006000| +is_uni_upper||5.006000| +is_uni_xdigit_lc||5.006000| +is_uni_xdigit||5.006000| +is_utf8_alnumc||5.017007| +is_utf8_alnum||5.006000| +is_utf8_alpha||5.006000| +is_utf8_ascii||5.006000| +is_utf8_blank||5.017002| +is_utf8_char_buf||5.015008|n +is_utf8_char||5.006000|n +is_utf8_cntrl||5.006000| +is_utf8_common||| +is_utf8_digit||5.006000| +is_utf8_graph||5.006000| +is_utf8_idcont||5.008000| +is_utf8_idfirst||5.006000| +is_utf8_lower||5.006000| +is_utf8_mark||5.006000| +is_utf8_perl_space||5.011001| +is_utf8_perl_word||5.011001| +is_utf8_posix_digit||5.011001| +is_utf8_print||5.006000| +is_utf8_punct||5.006000| +is_utf8_space||5.006000| +is_utf8_string_loclen||5.009003|n +is_utf8_string_loc||5.008001|n +is_utf8_string||5.006001|n +is_utf8_upper||5.006000| +is_utf8_xdigit||5.006000| +is_utf8_xidcont||5.013010| +is_utf8_xidfirst||5.013010| +isa_lookup||| +isinfnansv||| +isinfnan||5.021004|n +items|||n +ix|||n +jmaybe||| +join_exact||| +keyword_plugin_standard||| +keyword||| +leave_adjust_stacks||5.023008| +leave_scope||| +lex_bufutf8||5.011002| +lex_discard_to||5.011002| +lex_grow_linestr||5.011002| +lex_next_chunk||5.011002| +lex_peek_unichar||5.011002| +lex_read_space||5.011002| +lex_read_to||5.011002| +lex_read_unichar||5.011002| +lex_start||5.009005| +lex_stuff_pvn||5.011002| +lex_stuff_pvs||5.013005| +lex_stuff_pv||5.013006| +lex_stuff_sv||5.011002| +lex_unstuff||5.011002| +listkids||| +list||| +load_module_nocontext|||vn +load_module|5.006000||pv +localize||| +looks_like_bool||| +looks_like_number||| +lop||| +mPUSHi|5.009002||p +mPUSHn|5.009002||p +mPUSHp|5.009002||p +mPUSHs|5.010001||p +mPUSHu|5.009002||p +mXPUSHi|5.009002||p +mXPUSHn|5.009002||p +mXPUSHp|5.009002||p +mXPUSHs|5.010001||p +mXPUSHu|5.009002||p +magic_clear_all_env||| +magic_cleararylen_p||| +magic_clearenv||| +magic_clearhints||| +magic_clearhint||| +magic_clearisa||| +magic_clearpack||| +magic_clearsig||| +magic_copycallchecker||| +magic_dump||5.006000| +magic_existspack||| +magic_freearylen_p||| +magic_freeovrld||| +magic_getarylen||| +magic_getdebugvar||| +magic_getdefelem||| +magic_getnkeys||| +magic_getpack||| +magic_getpos||| +magic_getsig||| +magic_getsubstr||| +magic_gettaint||| +magic_getuvar||| +magic_getvec||| +magic_get||| +magic_killbackrefs||| +magic_methcall1||| +magic_methcall|||v +magic_methpack||| +magic_nextpack||| +magic_regdata_cnt||| +magic_regdatum_get||| +magic_regdatum_set||| +magic_scalarpack||| +magic_set_all_env||| +magic_setarylen||| +magic_setcollxfrm||| +magic_setdbline||| +magic_setdebugvar||| +magic_setdefelem||| +magic_setenv||| +magic_sethint||| +magic_setisa||| +magic_setlvref||| +magic_setmglob||| +magic_setnkeys||| +magic_setpack||| +magic_setpos||| +magic_setregexp||| +magic_setsig||| +magic_setsubstr||| +magic_settaint||| +magic_setutf8||| +magic_setuvar||| +magic_setvec||| +magic_set||| +magic_sizepack||| +magic_wipepack||| +make_matcher||| +make_trie||| +malloc_good_size|||n +malloced_size|||n +malloc||5.007002|n +markstack_grow||5.021001| +matcher_matches_sv||| +maybe_multimagic_gv||| +mayberelocate||| +measure_struct||| +memEQs|5.009005||p +memEQ|5.004000||p +memNEs|5.009005||p +memNE|5.004000||p +mem_collxfrm||| +mem_log_alloc|||n +mem_log_common|||n +mem_log_free|||n +mem_log_realloc|||n +mess_alloc||| +mess_nocontext|||pvn +mess_sv|5.013001||p +mess|5.006000||pv +mfree||5.007002|n +mg_clear||| +mg_copy||| +mg_dup||| +mg_find_mglob||| +mg_findext|5.013008||pn +mg_find|||n +mg_free_type||5.013006| +mg_free||| +mg_get||| +mg_length||5.005000| +mg_localize||| +mg_magical|||n +mg_set||| +mg_size||5.005000| +mini_mktime||5.007002|n +minus_v||| +missingterm||| +mode_from_discipline||| +modkids||| +more_bodies||| +more_sv||| +moreswitches||| +move_proto_attr||| +mro_clean_isarev||| +mro_gather_and_rename||| +mro_get_from_name||5.010001| +mro_get_linear_isa_dfs||| +mro_get_linear_isa||5.009005| +mro_get_private_data||5.010001| +mro_isa_changed_in||| +mro_meta_dup||| +mro_meta_init||| +mro_method_changed_in||5.009005| +mro_package_moved||| +mro_register||5.010001| +mro_set_mro||5.010001| +mro_set_private_data||5.010001| +mul128||| +mulexp10|||n +multideref_stringify||| +my_atof2||5.007002| +my_atof||5.006000| +my_attrs||| +my_bcopy||5.004050|n +my_bytes_to_utf8|||n +my_bzero|||n +my_chsize||| +my_clearenv||| +my_cxt_index||| +my_cxt_init||| +my_dirfd||5.009005|n +my_exit_jump||| +my_exit||| +my_failure_exit||5.004000| +my_fflush_all||5.006000| +my_fork||5.007003|n +my_kid||| +my_lstat_flags||| +my_lstat||5.024000| +my_memcmp|||n +my_memset|||n +my_pclose||5.003070| +my_popen_list||5.007001| +my_popen||5.003070| +my_setenv||| +my_setlocale||| +my_snprintf|5.009004||pvn +my_socketpair||5.007003|n +my_sprintf|5.009003||pvn +my_stat_flags||| +my_stat||5.024000| +my_strerror||5.021001| +my_strftime||5.007002| +my_strlcat|5.009004||pn +my_strlcpy|5.009004||pn +my_unexec||| +my_vsnprintf||5.009004|n +need_utf8|||n +newANONATTRSUB||5.006000| +newANONHASH||| +newANONLIST||| +newANONSUB||| +newASSIGNOP||| +newATTRSUB_x||| +newATTRSUB||5.006000| +newAVREF||| +newAV||| +newBINOP||| +newCONDOP||| +newCONSTSUB_flags||5.015006| +newCONSTSUB|5.004050||p +newCVREF||| +newDEFSVOP||5.021006| +newFORM||| +newFOROP||5.013007| +newGIVENOP||5.009003| +newGIVWHENOP||| +newGP||| +newGVOP||| +newGVREF||| +newGVgen_flags||5.015004| +newGVgen||| +newHVREF||| +newHVhv||5.005000| +newHV||| +newIO||| +newLISTOP||| +newLOGOP||| +newLOOPEX||| +newLOOPOP||| +newMETHOP_internal||| +newMETHOP_named||5.021005| +newMETHOP||5.021005| +newMYSUB||5.017004| +newNULLLIST||| +newOP||| +newPADNAMELIST||5.021007|n +newPADNAMEouter||5.021007|n +newPADNAMEpvn||5.021007|n +newPADOP||| +newPMOP||| +newPROG||| +newPVOP||| +newRANGE||| +newRV_inc|5.004000||p +newRV_noinc|5.004000||p +newRV||| +newSLICEOP||| +newSTATEOP||| +newSTUB||| +newSUB||| +newSVOP||| +newSVREF||| +newSV_type|5.009005||p +newSVavdefelem||| +newSVhek||5.009003| +newSViv||| +newSVnv||| +newSVpadname||5.017004| +newSVpv_share||5.013006| +newSVpvf_nocontext|||vn +newSVpvf||5.004000|v +newSVpvn_flags|5.010001||p +newSVpvn_share|5.007001||p +newSVpvn_utf8|5.010001||p +newSVpvn|5.004050||p +newSVpvs_flags|5.010001||p +newSVpvs_share|5.009003||p +newSVpvs|5.009003||p +newSVpv||| +newSVrv||| +newSVsv||| +newSVuv|5.006000||p +newSV||| +newUNOP_AUX||5.021007| +newUNOP||| +newWHENOP||5.009003| +newWHILEOP||5.013007| +newXS_deffile||| +newXS_flags||5.009004| +newXS_len_flags||| +newXSproto||5.006000| +newXS||5.006000| +new_collate||5.006000| +new_constant||| +new_ctype||5.006000| +new_he||| +new_logop||| +new_numeric||5.006000| +new_stackinfo||5.005000| +new_version||5.009000| +new_warnings_bitfield||| +next_symbol||| +nextargv||| +nextchar||| +ninstr|||n +no_bareword_allowed||| +no_fh_allowed||| +no_op||| +noperl_die|||vn +not_a_number||| +not_incrementable||| +nothreadhook||5.008000| +nuke_stacks||| +num_overflow|||n +oopsAV||| +oopsHV||| +op_append_elem||5.013006| +op_append_list||5.013006| +op_clear||| +op_contextualize||5.013006| +op_convert_list||5.021006| +op_dump||5.006000| +op_free||| +op_integerize||| +op_linklist||5.013006| +op_lvalue_flags||| +op_lvalue||5.013007| +op_null||5.007002| +op_parent|||n +op_prepend_elem||5.013006| +op_refcnt_dec||| +op_refcnt_inc||| +op_refcnt_lock||5.009002| +op_refcnt_unlock||5.009002| +op_relocate_sv||| +op_scope||5.013007| +op_sibling_splice||5.021002|n +op_std_init||| +op_unscope||| +open_script||| +openn_cleanup||| +openn_setup||| +opmethod_stash||| +opslab_force_free||| +opslab_free_nopad||| +opslab_free||| +output_or_return_posix_warnings||| +pMY_CXT_|5.007003||p +pMY_CXT|5.007003||p +pTHX_|5.006000||p +pTHX|5.006000||p +packWARN|5.007003||p +pack_cat||5.007003| +pack_rec||| +package_version||| +package||| +packlist||5.008001| +pad_add_anon||5.008001| +pad_add_name_pvn||5.015001| +pad_add_name_pvs||5.015001| +pad_add_name_pv||5.015001| +pad_add_name_sv||5.015001| +pad_add_weakref||| +pad_alloc_name||| +pad_alloc||| +pad_block_start||| +pad_check_dup||| +pad_compname_type||5.009003| +pad_findlex||| +pad_findmy_pvn||5.015001| +pad_findmy_pvs||5.015001| +pad_findmy_pv||5.015001| +pad_findmy_sv||5.015001| +pad_fixup_inner_anons||| +pad_free||| +pad_leavemy||| +pad_new||5.008001| +pad_push||| +pad_reset||| +pad_setsv||| +pad_sv||| +pad_swipe||| +pad_tidy||5.008001| +padlist_dup||| +padlist_store||| +padname_dup||| +padname_free||| +padnamelist_dup||| +padnamelist_fetch||5.021007|n +padnamelist_free||| +padnamelist_store||5.021007| +parse_arithexpr||5.013008| +parse_barestmt||5.013007| +parse_block||5.013007| +parse_body||| +parse_fullexpr||5.013008| +parse_fullstmt||5.013005| +parse_gv_stash_name||| +parse_ident||| +parse_label||5.013007| +parse_listexpr||5.013008| +parse_lparen_question_flags||| +parse_stmtseq||5.013006| +parse_subsignature||| +parse_termexpr||5.013008| +parse_unicode_opts||| +parser_dup||| +parser_free_nexttoke_ops||| +parser_free||| +path_is_searchable|||n +peep||| +pending_ident||| +perl_alloc_using|||n +perl_alloc|||n +perl_clone_using|||n +perl_clone|||n +perl_construct|||n +perl_destruct||5.007003|n +perl_free|||n +perl_parse||5.006000|n +perl_run|||n +pidgone||| +pm_description||| +pmop_dump||5.006000| +pmruntime||| +pmtrans||| +pop_scope||| +populate_ANYOF_from_invlist||| +populate_isa|||v +pregcomp||5.009005| +pregexec||| +pregfree2||5.011000| +pregfree||| +prescan_version||5.011004| +printbuf||| +printf_nocontext|||vn +process_special_blocks||| +ptr_hash|||n +ptr_table_clear||5.009005| +ptr_table_fetch||5.009005| +ptr_table_find|||n +ptr_table_free||5.009005| +ptr_table_new||5.009005| +ptr_table_split||5.009005| +ptr_table_store||5.009005| +push_scope||| +put_charclass_bitmap_innards_common||| +put_charclass_bitmap_innards_invlist||| +put_charclass_bitmap_innards||| +put_code_point||| +put_range||| +pv_display|5.006000||p +pv_escape|5.009004||p +pv_pretty|5.009004||p +pv_uni_display||5.007003| +qerror||| +qsortsvu||| +quadmath_format_needed|||n +quadmath_format_single|||n +re_compile||5.009005| +re_croak2||| +re_dup_guts||| +re_exec_indentf|||v +re_indentf|||v +re_intuit_start||5.019001| +re_intuit_string||5.006000| +re_op_compile||| +re_printf|||v +realloc||5.007002|n +reentrant_free||5.024000| +reentrant_init||5.024000| +reentrant_retry||5.024000|vn +reentrant_size||5.024000| +ref_array_or_hash||| +refcounted_he_chain_2hv||| +refcounted_he_fetch_pvn||| +refcounted_he_fetch_pvs||| +refcounted_he_fetch_pv||| +refcounted_he_fetch_sv||| +refcounted_he_free||| +refcounted_he_inc||| +refcounted_he_new_pvn||| +refcounted_he_new_pvs||| +refcounted_he_new_pv||| +refcounted_he_new_sv||| +refcounted_he_value||| +refkids||| +refto||| +ref||5.024000| +reg2Lanode||| +reg_check_named_buff_matched|||n +reg_named_buff_all||5.009005| +reg_named_buff_exists||5.009005| +reg_named_buff_fetch||5.009005| +reg_named_buff_firstkey||5.009005| +reg_named_buff_iter||| +reg_named_buff_nextkey||5.009005| +reg_named_buff_scalar||5.009005| +reg_named_buff||| +reg_node||| +reg_numbered_buff_fetch||| +reg_numbered_buff_length||| +reg_numbered_buff_store||| +reg_qr_package||| +reg_recode||| +reg_scan_name||| +reg_skipcomment|||n +reg_temp_copy||| +reganode||| +regatom||| +regbranch||| +regclass_swash||5.009004| +regclass||| +regcppop||| +regcppush||| +regcurly|||n +regdump_extflags||| +regdump_intflags||| +regdump||5.005000| +regdupe_internal||| +regex_set_precedence|||n +regexec_flags||5.005000| +regfree_internal||5.009005| +reghop3|||n +reghop4|||n +reghopmaybe3|||n +reginclass||| +reginitcolors||5.006000| +reginsert||| +regmatch||| +regnext||5.005000| +regnode_guts||| +regpiece||| +regprop||| +regrepeat||| +regtail_study||| +regtail||| +regtry||| +reg||| +repeatcpy|||n +report_evil_fh||| +report_redefined_cv||| +report_uninit||| +report_wrongway_fh||| +require_pv||5.006000| +require_tie_mod||| +restore_magic||| +rninstr|||n +rpeep||| +rsignal_restore||| +rsignal_save||| +rsignal_state||5.004000| +rsignal||5.004000| +run_body||| +run_user_filter||| +runops_debug||5.005000| +runops_standard||5.005000| +rv2cv_op_cv||5.013006| +rvpv_dup||| +rxres_free||| +rxres_restore||| +rxres_save||| +safesyscalloc||5.006000|n +safesysfree||5.006000|n +safesysmalloc||5.006000|n +safesysrealloc||5.006000|n +same_dirent||| +save_I16||5.004000| +save_I32||| +save_I8||5.006000| +save_adelete||5.011000| +save_aelem_flags||5.011000| +save_aelem||5.004050| +save_alloc||5.006000| +save_aptr||| +save_ary||| +save_bool||5.008001| +save_clearsv||| +save_delete||| +save_destructor_x||5.006000| +save_destructor||5.006000| +save_freeop||| +save_freepv||| +save_freesv||| +save_generic_pvref||5.006001| +save_generic_svref||5.005030| +save_gp||5.004000| +save_hash||| +save_hdelete||5.011000| +save_hek_flags|||n +save_helem_flags||5.011000| +save_helem||5.004050| +save_hints||5.010001| +save_hptr||| +save_int||| +save_item||| +save_iv||5.005000| +save_lines||| +save_list||| +save_long||| +save_magic_flags||| +save_mortalizesv||5.007001| +save_nogv||| +save_op||5.005000| +save_padsv_and_mortalize||5.010001| +save_pptr||| +save_pushi32ptr||5.010001| +save_pushptri32ptr||| +save_pushptrptr||5.010001| +save_pushptr||5.010001| +save_re_context||5.006000| +save_scalar_at||| +save_scalar||| +save_set_svflags||5.009000| +save_shared_pvref||5.007003| +save_sptr||| +save_strlen||| +save_svref||| +save_vptr||5.006000| +savepvn||| +savepvs||5.009003| +savepv||| +savesharedpvn||5.009005| +savesharedpvs||5.013006| +savesharedpv||5.007003| +savesharedsvpv||5.013006| +savestack_grow_cnt||5.008001| +savestack_grow||| +savesvpv||5.009002| +savetmps||5.023008| +sawparens||| +scalar_mod_type|||n +scalarboolean||| +scalarkids||| +scalarseq||| +scalarvoid||| +scalar||| +scan_bin||5.006000| +scan_commit||| +scan_const||| +scan_formline||| +scan_heredoc||| +scan_hex||| +scan_ident||| +scan_inputsymbol||| +scan_num||5.007001| +scan_oct||| +scan_pat||| +scan_str||| +scan_subst||| +scan_trans||| +scan_version||5.009001| +scan_vstring||5.009005| +scan_word||| +search_const||| +seed||5.008001| +sequence_num||| +set_ANYOF_arg||| +set_caret_X||| +set_context||5.006000|n +set_numeric_local||5.006000| +set_numeric_radix||5.006000| +set_numeric_standard||5.006000| +set_padlist|||n +setdefout||| +share_hek_flags||| +share_hek||5.004000| +should_warn_nl|||n +si_dup||| +sighandler|||n +simplify_sort||| +skip_to_be_ignored_text||| +skipspace_flags||| +softref2xv||| +sortcv_stacked||| +sortcv_xsub||| +sortcv||| +sortsv_flags||5.009003| +sortsv||5.007003| +space_join_names_mortal||| +ss_dup||| +ssc_add_range||| +ssc_and||| +ssc_anything||| +ssc_clear_locale|||n +ssc_cp_and||| +ssc_finalize||| +ssc_init||| +ssc_intersection||| +ssc_is_anything|||n +ssc_is_cp_posixl_init|||n +ssc_or||| +ssc_union||| +stack_grow||| +start_glob||| +start_subparse||5.004000| +stdize_locale||| +strEQ||| +strGE||| +strGT||| +strLE||| +strLT||| +strNE||| +str_to_version||5.006000| +strip_return||| +strnEQ||| +strnNE||| +study_chunk||| +sub_crush_depth||| +sublex_done||| +sublex_push||| +sublex_start||| +sv_2bool_flags||5.013006| +sv_2bool||| +sv_2cv||| +sv_2io||| +sv_2iuv_common||| +sv_2iuv_non_preserve||| +sv_2iv_flags||5.009001| +sv_2iv||| +sv_2mortal||| +sv_2num||| +sv_2nv_flags||5.013001| +sv_2pv_flags|5.007002||p +sv_2pv_nolen|5.006000||p +sv_2pvbyte_nolen|5.006000||p +sv_2pvbyte|5.006000||p +sv_2pvutf8_nolen||5.006000| +sv_2pvutf8||5.006000| +sv_2pv||| +sv_2uv_flags||5.009001| +sv_2uv|5.004000||p +sv_add_arena||| +sv_add_backref||| +sv_backoff|||n +sv_bless||| +sv_buf_to_ro||| +sv_buf_to_rw||| +sv_cat_decode||5.008001| +sv_catpv_flags||5.013006| +sv_catpv_mg|5.004050||p +sv_catpv_nomg||5.013006| +sv_catpvf_mg_nocontext|||pvn +sv_catpvf_mg|5.006000|5.004000|pv +sv_catpvf_nocontext|||vn +sv_catpvf||5.004000|v +sv_catpvn_flags||5.007002| +sv_catpvn_mg|5.004050||p +sv_catpvn_nomg|5.007002||p +sv_catpvn||| +sv_catpvs_flags||5.013006| +sv_catpvs_mg||5.013006| +sv_catpvs_nomg||5.013006| +sv_catpvs|5.009003||p +sv_catpv||| +sv_catsv_flags||5.007002| +sv_catsv_mg|5.004050||p +sv_catsv_nomg|5.007002||p +sv_catsv||| +sv_chop||| +sv_clean_all||| +sv_clean_objs||| +sv_clear||| +sv_cmp_flags||5.013006| +sv_cmp_locale_flags||5.013006| +sv_cmp_locale||5.004000| +sv_cmp||| +sv_collxfrm_flags||5.013006| +sv_collxfrm||| +sv_copypv_flags||5.017002| +sv_copypv_nomg||5.017002| +sv_copypv||| +sv_dec_nomg||5.013002| +sv_dec||| +sv_del_backref||| +sv_derived_from_pvn||5.015004| +sv_derived_from_pv||5.015004| +sv_derived_from_sv||5.015004| +sv_derived_from||5.004000| +sv_destroyable||5.010000| +sv_display||| +sv_does_pvn||5.015004| +sv_does_pv||5.015004| +sv_does_sv||5.015004| +sv_does||5.009004| +sv_dump||| +sv_dup_common||| +sv_dup_inc_multiple||| +sv_dup_inc||| +sv_dup||| +sv_eq_flags||5.013006| +sv_eq||| +sv_exp_grow||| +sv_force_normal_flags||5.007001| +sv_force_normal||5.006000| +sv_free2||| +sv_free_arenas||| +sv_free||| +sv_get_backrefs||5.021008|n +sv_gets||5.003070| +sv_grow||| +sv_i_ncmp||| +sv_inc_nomg||5.013002| +sv_inc||| +sv_insert_flags||5.010001| +sv_insert||| +sv_isa||| +sv_isobject||| +sv_iv||5.005000| +sv_kill_backrefs||| +sv_len_utf8_nomg||| +sv_len_utf8||5.006000| +sv_len||| +sv_magic_portable|5.024000|5.004000|p +sv_magicext_mglob||| +sv_magicext||5.007003| +sv_magic||| +sv_mortalcopy_flags||| +sv_mortalcopy||| +sv_ncmp||| +sv_newmortal||| +sv_newref||| +sv_nolocking||5.007003| +sv_nosharing||5.007003| +sv_nounlocking||| +sv_nv||5.005000| +sv_only_taint_gmagic|||n +sv_or_pv_pos_u2b||| +sv_peek||5.005000| +sv_pos_b2u_flags||5.019003| +sv_pos_b2u_midway||| +sv_pos_b2u||5.006000| +sv_pos_u2b_cached||| +sv_pos_u2b_flags||5.011005| +sv_pos_u2b_forwards|||n +sv_pos_u2b_midway|||n +sv_pos_u2b||5.006000| +sv_pvbyten_force||5.006000| +sv_pvbyten||5.006000| +sv_pvbyte||5.006000| +sv_pvn_force_flags|5.007002||p +sv_pvn_force||| +sv_pvn_nomg|5.007003|5.005000|p +sv_pvn||5.005000| +sv_pvutf8n_force||5.006000| +sv_pvutf8n||5.006000| +sv_pvutf8||5.006000| +sv_pv||5.006000| +sv_recode_to_utf8||5.007003| +sv_reftype||| +sv_ref||5.015004| +sv_replace||| +sv_report_used||| +sv_resetpvn||| +sv_reset||| +sv_rvweaken||5.006000| +sv_sethek||| +sv_setiv_mg|5.004050||p +sv_setiv||| +sv_setnv_mg|5.006000||p +sv_setnv||| +sv_setpv_mg|5.004050||p +sv_setpvf_mg_nocontext|||pvn +sv_setpvf_mg|5.006000|5.004000|pv +sv_setpvf_nocontext|||vn +sv_setpvf||5.004000|v +sv_setpviv_mg||5.008001| +sv_setpviv||5.008001| +sv_setpvn_mg|5.004050||p +sv_setpvn||| +sv_setpvs_mg||5.013006| +sv_setpvs|5.009004||p +sv_setpv||| +sv_setref_iv||| +sv_setref_nv||| +sv_setref_pvn||| +sv_setref_pvs||5.024000| +sv_setref_pv||| +sv_setref_uv||5.007001| +sv_setsv_cow||| +sv_setsv_flags||5.007002| +sv_setsv_mg|5.004050||p +sv_setsv_nomg|5.007002||p +sv_setsv||| +sv_setuv_mg|5.004050||p +sv_setuv|5.004000||p +sv_tainted||5.004000| +sv_taint||5.004000| +sv_true||5.005000| +sv_unglob||| +sv_uni_display||5.007003| +sv_unmagicext|5.013008||p +sv_unmagic||| +sv_unref_flags||5.007001| +sv_unref||| +sv_untaint||5.004000| +sv_upgrade||| +sv_usepvn_flags||5.009004| +sv_usepvn_mg|5.004050||p +sv_usepvn||| +sv_utf8_decode||5.006000| +sv_utf8_downgrade||5.006000| +sv_utf8_encode||5.006000| +sv_utf8_upgrade_flags_grow||5.011000| +sv_utf8_upgrade_flags||5.007002| +sv_utf8_upgrade_nomg||5.007002| +sv_utf8_upgrade||5.007001| +sv_uv|5.005000||p +sv_vcatpvf_mg|5.006000|5.004000|p +sv_vcatpvfn_flags||5.017002| +sv_vcatpvfn||5.004000| +sv_vcatpvf|5.006000|5.004000|p +sv_vsetpvf_mg|5.006000|5.004000|p +sv_vsetpvfn||5.004000| +sv_vsetpvf|5.006000|5.004000|p +svtype||| +swallow_bom||| +swash_fetch||5.007002| +swash_init||5.006000| +swash_scan_list_line||| +swatch_get||| +sync_locale||5.021004| +sys_init3||5.010000|n +sys_init||5.010000|n +sys_intern_clear||| +sys_intern_dup||| +sys_intern_init||| +sys_term||5.010000|n +taint_env||| +taint_proper||| +tied_method|||v +tmps_grow_p||| +toFOLD_utf8||5.019001| +toFOLD_uvchr||5.023009| +toFOLD||5.019001| +toLOWER_L1||5.019001| +toLOWER_LC||5.004000| +toLOWER_utf8||5.015007| +toLOWER_uvchr||5.023009| +toLOWER||| +toTITLE_utf8||5.015007| +toTITLE_uvchr||5.023009| +toTITLE||5.019001| +toUPPER_utf8||5.015007| +toUPPER_uvchr||5.023009| +toUPPER||| +to_byte_substr||| +to_lower_latin1|||n +to_uni_fold||5.007003| +to_uni_lower_lc||5.006000| +to_uni_lower||5.007003| +to_uni_title_lc||5.006000| +to_uni_title||5.007003| +to_uni_upper_lc||5.006000| +to_uni_upper||5.007003| +to_utf8_case||5.007003| +to_utf8_fold||5.015007| +to_utf8_lower||5.015007| +to_utf8_substr||| +to_utf8_title||5.015007| +to_utf8_upper||5.015007| +tokenize_use||| +tokeq||| +tokereport||| +too_few_arguments_pv||| +too_many_arguments_pv||| +translate_substr_offsets|||n +try_amagic_bin||| +try_amagic_un||| +uiv_2buf|||n +unlnk||| +unpack_rec||| +unpack_str||5.007003| +unpackstring||5.008001| +unreferenced_to_tmp_stack||| +unshare_hek_or_pvn||| +unshare_hek||| +unsharepvn||5.003070| +unwind_handler_stack||| +update_debugger_info||| +upg_version||5.009005| +usage||| +utf16_textfilter||| +utf16_to_utf8_reversed||5.006001| +utf16_to_utf8||5.006001| +utf8_distance||5.006000| +utf8_hop||5.006000|n +utf8_length||5.007001| +utf8_mg_len_cache_update||| +utf8_mg_pos_cache_update||| +utf8_to_bytes||5.006001| +utf8_to_uvchr_buf||5.015009| +utf8_to_uvchr||5.007001| +utf8_to_uvuni_buf||5.015009| +utf8_to_uvuni||5.007001| +utf8n_to_uvchr||5.007001| +utf8n_to_uvuni||5.007001| +utilize||| +uvchr_to_utf8_flags||5.007003| +uvchr_to_utf8||5.007001| +uvoffuni_to_utf8_flags||5.019004| +uvuni_to_utf8_flags||5.007003| +uvuni_to_utf8||5.007001| +valid_utf8_to_uvchr||5.015009| +valid_utf8_to_uvuni||5.015009| +validate_proto||| +validate_suid||| +varname||| +vcmp||5.009000| +vcroak||5.006000| +vdeb||5.007003| +vform||5.006000| +visit||| +vivify_defelem||| +vivify_ref||| +vload_module|5.006000||p +vmess|5.006000||p +vnewSVpvf|5.006000|5.004000|p +vnormal||5.009002| +vnumify||5.009000| +vstringify||5.009000| +vverify||5.009003| +vwarner||5.006000| +vwarn||5.006000| +wait4pid||| +warn_nocontext|||pvn +warn_sv|5.013001||p +warner_nocontext|||vn +warner|5.006000|5.004000|pv +warn|||v +was_lvalue_sub||| +watch||| +whichsig_pvn||5.015004| +whichsig_pv||5.015004| +whichsig_sv||5.015004| +whichsig||| +win32_croak_not_implemented|||n +with_queued_errors||| +wrap_op_checker||5.015008| +write_to_stderr||| +xs_boot_epilog||| +xs_handshake|||vn +xs_version_bootcheck||| +yyerror_pvn||| +yyerror_pv||| +yyerror||| +yylex||| +yyparse||| +yyunlex||| +yywarn||| +);

+if (exists $opt{'list-unsupported'}) {

• my $f;
• for $f (sort { lc $a cmp lc $b } keys %API) {
• next unless $API{$f}{todo};
• print "$f ", '.'x(40-length($f)), " ", format_version($API{$f}{todo}), "\n";
• }
• exit 0;

+}

+# Scan for possible replacement candidates

+my(%replace, %need, %hints, %warnings, %depends); +my $replace = 0; +my($hint, $define, $function);

+sub find_api +{

• my $code = shift;
• $code =~ s{
• / (?: *[^*]**+(?:[^$ccs][^*]**+)* / | /[^\r\n]*)
• | "[^"\]*(?:\.[^"\]*)*"
• | '[^'\]*(?:\.[^'\]*)*' }{}egsx;
• grep { exists $API{$_} } $code =~ /(\w+)/mg;

+}

+while (<DATA>) {

• if ($hint) {
• my $h = $hint->[0] eq 'Hint' ? %hints : %warnings;
• if (m{^\s**\s(.*?)\s*$}) {

•  for (@{$hint->[1]}) {
  

•    $h->{$_} ||= '';  # suppress warning with older perls
  

•    $h->{$_} .= "$1\n";
  

•  }
  

• }
• else { undef $hint }
• }
• $hint = [$1, [split /,?\s+/, $2]]

•  if m{^\s*$rccs\s+(Hint|Warning):\s+(\w+(?:,?\s+\w+)*)\s*$};
  

• if ($define) {
• if ($define->[1] =~ /\$/) {

•  $define->[1] .= $_;
  

• }
• else {

•  if (exists $API{$define->[0]} && $define->[1] !~ /^DPPP_\(/) {
  

•    my @n = find_api($define->[1]);
  

•    push @{$depends{$define->[0]}}, @n if @n
  

•  }
  

•  undef $define;
  

• }
• }
• $define = [$1, $2] if m{^\s*#\s*define\s+(\w+)(?:([^)]*))?\s+(.*)};
• if ($function) {
• if (/^}/) {

•  if (exists $API{$function->[0]}) {
  

•    my @n = find_api($function->[1]);
  

•    push @{$depends{$function->[0]}}, @n if @n
  

•  }
  

•  undef $function;
  

• }
• else {

•  $function->[1] .= $_;
  

• }
• }
• $function = [$1, ''] if m{^DPPP_(my_(\w+))};
• $replace = $1 if m{^\s*$rccs\s+Replace:\s+(\d+)\s+$rcce\s*$};
• $replace{$2} = $1 if $replace and m{^\s*#\s*define\s+(\w+)(?:([^)]*))?\s+(\w+)};
• $replace{$2} = $1 if m{^\s*#\s*define\s+(\w+)(?:([^)]*))?\s+(\w+).*$rccs\s+Replace\s+$rcce};
• $replace{$1} = $2 if m{^\s*$rccs\s+Replace (\w+) with (\w+)\s+$rcce\s*$};
• if (m{^\s*$rccs\s+(\w+(\s*,\s*\w+)*)\s+depends\s+on\s+(\w+(\s*,\s*\w+)*)\s+$rcce\s*$}) {
• my @deps = map { s/\s+//g; $_ } split /,/, $3;
• my $d;
• for $d (map { s/\s+//g; $_ } split /,/, $1) {

•  push @{$depends{$d}}, @deps;
  

• }
• }
• $need{$1} = 1 if m{^#if\s+defined(NEED_(\w+)(?:_GLOBAL)?)};

+}

+for (values %depends) {

• my %s;
• $_ = [sort grep !$s{$_}++, @$_];

+}

+if (exists $opt{'api-info'}) {

• my $f;
• my $count = 0;
• my $match = $opt{'api-info'} =~ m!^/(.*)/$! ? $1 : "^\Q$opt{'api-info'}\E$";
• for $f (sort { lc $a cmp lc $b } keys %API) {
• next unless $f =~ /$match/;
• print "\n=== $f ===\n\n";
• my $info = 0;
• if ($API{$f}{base} || $API{$f}{todo}) {

•  my $base = format_version($API{$f}{base} || $API{$f}{todo});
  

•  print "Supported at least starting from perl-$base.\n";
  

•  $info++;
  

• }
• if ($API{$f}{provided}) {

•  my $todo = $API{$f}{todo} ? format_version($API{$f}{todo}) : "5.003";
  

•  print "Support by $ppport provided back to perl-$todo.\n";
  

•  print "Support needs to be explicitly requested by NEED_$f.\n" if exists $need{$f};
  

•  print "Depends on: ", join(', ', @{$depends{$f}}), ".\n" if exists $depends{$f};
  

•  print "\n$hints{$f}" if exists $hints{$f};
  

•  print "\nWARNING:\n$warnings{$f}" if exists $warnings{$f};
  

•  $info++;
  

• }
• print "No portability information available.\n" unless $info;
• $count++;
• }
• $count or print "Found no API matching '$opt{'api-info'}'.";
• print "\n";
• exit 0;

+}

+if (exists $opt{'list-provided'}) {

• my $f;
• for $f (sort { lc $a cmp lc $b } keys %API) {
• next unless $API{$f}{provided};
• my @flags;
• push @flags, 'explicit' if exists $need{$f};
• push @flags, 'depend' if exists $depends{$f};
• push @flags, 'hint' if exists $hints{$f};
• push @flags, 'warning' if exists $warnings{$f};
• my $flags = @flags ? ' ['.join(', ', @flags).']' : '';
• print "$f$flags\n";
• }
• exit 0;

+}

+my @files; +my @srcext = qw( .xs .c .h .cc .cpp -c.inc -xs.inc ); +my $srcext = join '|', map { quotemeta $_ } @srcext;

+if (@ARGV) {

• my %seen;
• for (@ARGV) {
• if (-e) {

•  if (-f) {
  

•    push @files, $_ unless $seen{$_}++;
  

•  }
  

•  else { warn "'$_' is not a file.\n" }
  

• }
• else {

•  my @new = grep { -f } glob $_
  

•      or warn "'$_' does not exist.\n";
  

•  push @files, grep { !$seen{$_}++ } @new;
  

• }
• }

+} +else {

• eval {
• require File::Find;
• File::Find::find(sub {

•  $File::Find::name =~ /($srcext)$/i
  

•      and push @files, $File::Find::name;
  

• }, '.');
• };
• if ($@) {
• @files = map { glob "*$_" } @srcext;
• }

+}

+if (!@ARGV || $opt{filter}) {

• my(@in, @out);
• my %xsc = map { /(.*).xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () } @files;
• for (@files) {
• my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i || !/($srcext)$/i;
• push @{ $out ? @out : @in }, $_;
• }
• if (@ARGV && @out) {
• warning("Skipping the following files (use --nofilter to avoid this):\n| ", join "\n| ", @out);
• }
• @files = @in;

+}

+die "No input files given!\n" unless @files;

+my(%files, %global, %revreplace); +%revreplace = reverse %replace; +my $filename; +my $patch_opened = 0;

+for $filename (@files) {

• unless (open IN, "<$filename") {
• warn "Unable to read from $filename: $!\n";
• next;
• }
• info("Scanning $filename ...");
• my $c = do { local $/; <IN> };
• close IN;
• my %file = (orig => $c, changes => 0);
• # Temporarily remove C/XS comments and strings from the code
• my @ccom;
• $c =~ s{
• ( ^$HS*#$HS*include\b[^\r\n]+\b(?:\Q$ppport\E|XSUB.h)\b[^\r\n]*
• | ^$HS*#$HS*(?:define|elif|if(?:def)?)\b[^\r\n]* )
• | ( ^$HS*#[^\r\n]*
• | "[^"\]*(?:\.[^"\]*)*"
• | '[^'\]*(?:\.[^'\]*)*'
• | / (?: *[^*]**+(?:[^$ccs][^*]**+)* / | /[^\r\n]* ) )
• }{ defined $2 and push @ccom, $2;

• defined $1 ? $1 : "$ccs$#ccom$cce" }mgsex;
  

• $file{ccom} = @ccom;
• $file{code} = $c;
• $file{has_inc_ppport} = $c =~ /^$HS*#$HS*include[^\r\n]+\b\Q$ppport\E\b/m;
• my $func;
• for $func (keys %API) {
• my $match = $func;
• $match .= "|$revreplace{$func}" if exists $revreplace{$func};
• if ($c =~ /\b(?:Perl_)?($match)\b/) {

•  $file{uses_replace}{$1}++ if exists $revreplace{$func} && $1 eq $revreplace{$func};
  

•  $file{uses_Perl}{$func}++ if $c =~ /\bPerl_$func\b/;
  

•  if (exists $API{$func}{provided}) {
  

•    $file{uses_provided}{$func}++;
  

•    if (!exists $API{$func}{base} || $API{$func}{base} > $opt{'compat-version'}) {
  

•      $file{uses}{$func}++;
  

•      my @deps = rec_depend($func);
  

•      if (@deps) {
  

•        $file{uses_deps}{$func} = \@deps;
  

•        for (@deps) {
  

•          $file{uses}{$_} = 0 unless exists $file{uses}{$_};
  

•        }
  

•      }
  

•      for ($func, @deps) {
  

•        $file{needs}{$_} = 'static' if exists $need{$_};
  

•      }
  

•    }
  

•  }
  

•  if (exists $API{$func}{todo} && $API{$func}{todo} > $opt{'compat-version'}) {
  

•    if ($c =~ /\b$func\b/) {
  

•      $file{uses_todo}{$func}++;
  

•    }
  

•  }
  

• }
• }
• while ($c =~ /^$HS*#$HS*define$HS+(NEED_(\w+?)(_GLOBAL)?)\b/mg) {
• if (exists $need{$2}) {

•  $file{defined $3 ? 'needed_global' : 'needed_static'}{$2}++;
  

• }
• else { warning("Possibly wrong #define $1 in $filename") }
• }
• for (qw(uses needs uses_todo needed_global needed_static)) {
• for $func (keys %{$file{$_}}) {

•  push @{$global{$_}{$func}}, $filename;
  

• }
• }
• $files{$filename} = %file;

+}

+# Globally resolve NEED_'s +my $need; +for $need (keys %{$global{needs}}) {

• if (@{$global{needs}{$need}} > 1) {
• my @targets = @{$global{needs}{$need}};
• my @t = grep $files{$_}{needed_global}{$need}, @targets;
• @targets = @t if @t;
• @t = grep /.xs$/i, @targets;
• @targets = @t if @t;
• my $target = shift @targets;
• $files{$target}{needs}{$need} = 'global';
• for (@{$global{needs}{$need}}) {

•  $files{$_}{needs}{$need} = 'extern' if $_ ne $target;
  

• }
• }

+}

+for $filename (@files) {

• exists $files{$filename} or next;
• info("=== Analyzing $filename ===");
• my %file = %{$files{$filename}};
• my $func;
• my $c = $file{code};
• my $warnings = 0;
• for $func (sort keys %{$file{uses_Perl}}) {
• if ($API{$func}{varargs}) {

•  unless ($API{$func}{nothxarg}) {
  

•    my $changes = ($c =~ s{\b(Perl_$func\s*\(\s*)(?!aTHX_?)(\)|[^\s)]*\))}
  

•                          { $1 . ($2 eq ')' ? 'aTHX' : 'aTHX_ ') . $2 }ge);
  

•    if ($changes) {
  

•      warning("Doesn't pass interpreter argument aTHX to Perl_$func");
  

•      $file{changes} += $changes;
  

•    }
  

•  }
  

• }
• else {

•  warning("Uses Perl_$func instead of $func");
  

•  $file{changes} += ($c =~ s{\bPerl_$func(\s*)\((\s*aTHX_?)?\s*}
  

•                            {$func$1(}g);
  

• }
• }
• for $func (sort keys %{$file{uses_replace}}) {
• warning("Uses $func instead of $replace{$func}");
• $file{changes} += ($c =~ s/\b$func\b/$replace{$func}/g);
• }
• for $func (sort keys %{$file{uses_provided}}) {
• if ($file{uses}{$func}) {

•  if (exists $file{uses_deps}{$func}) {
  

•    diag("Uses $func, which depends on ", join(', ', @{$file{uses_deps}{$func}}));
  

•  }
  

•  else {
  

•    diag("Uses $func");
  

•  }
  

• }
• $warnings += hint($func);
• }
• unless ($opt{quiet}) {
• for $func (sort keys %{$file{uses_todo}}) {

•  print "*** WARNING: Uses $func, which may not be portable below perl ",
  

•        format_version($API{$func}{todo}), ", even with '$ppport'\n";
  

•  $warnings++;
  

• }
• }
• for $func (sort keys %{$file{needed_static}}) {
• my $message = '';
• if (not exists $file{uses}{$func}) {

•  $message = "No need to define NEED_$func if $func is never used";
  

• }
• elsif (exists $file{needs}{$func} && $file{needs}{$func} ne 'static') {

•  $message = "No need to define NEED_$func when already needed globally";
  

• }
• if ($message) {

•  diag($message);
  

•  $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_$func\b.*$LF//mg);
  

• }
• }
• for $func (sort keys %{$file{needed_global}}) {
• my $message = '';
• if (not exists $global{uses}{$func}) {

•  $message = "No need to define NEED_${func}_GLOBAL if $func is never used";
  

• }
• elsif (exists $file{needs}{$func}) {

•  if ($file{needs}{$func} eq 'extern') {
  

•    $message = "No need to define NEED_${func}_GLOBAL when already needed globally";
  

•  }
  

•  elsif ($file{needs}{$func} eq 'static') {
  

•    $message = "No need to define NEED_${func}_GLOBAL when only used in this file";
  

•  }
  

• }
• if ($message) {

•  diag($message);
  

•  $file{changes} += ($c =~ s/^$HS*#$HS*define$HS+NEED_${func}_GLOBAL\b.*$LF//mg);
  

• }
• }
• $file{needs_inc_ppport} = keys %{$file{uses}};
• if ($file{needs_inc_ppport}) {
• my $pp = '';
• for $func (sort keys %{$file{needs}}) {

•  my $type = $file{needs}{$func};
  

•  next if $type eq 'extern';
  

•  my $suffix = $type eq 'global' ? '_GLOBAL' : '';
  

•  unless (exists $file{"needed_$type"}{$func}) {
  

•    if ($type eq 'global') {
  

•      diag("Files [@{$global{needs}{$func}}] need $func, adding global request");
  

•    }
  

•    else {
  

•      diag("File needs $func, adding static request");
  

•    }
  

•    $pp .= "#define NEED_$func$suffix\n";
  

•  }
  

• }
• if ($pp && ($c =~ s/^(?=$HS*#$HS*define$HS+NEED_\w+)/$pp/m)) {

•  $pp = '';
  

•  $file{changes}++;
  

• }
• unless ($file{has_inc_ppport}) {

•  diag("Needs to include '$ppport'");
  

•  $pp .= qq(#include "$ppport"\n)
  

• }
• if ($pp) {

•  $file{changes} += ($c =~ s/^($HS*#$HS*define$HS+NEED_\w+.*?)^/$1$pp/ms)
  

•                 || ($c =~ s/^(?=$HS*#$HS*include.*\Q$ppport\E)/$pp/m)
  

•                 || ($c =~ s/^($HS*#$HS*include.*XSUB.*\s*?)^/$1$pp/m)
  

•                 || ($c =~ s/^/$pp/);
  

• }
• }
• else {
• if ($file{has_inc_ppport}) {

•  diag("No need to include '$ppport'");
  

•  $file{changes} += ($c =~ s/^$HS*?#$HS*include.*\Q$ppport\E.*?$LF//m);
  

• }
• }
• # put back in our C comments
• my $ix;
• my $cppc = 0;
• my @ccom = @{$file{ccom}};
• for $ix (0 .. $#ccom) {
• if (!$opt{cplusplus} && $ccom[$ix] =~ s!^//!!) {

•  $cppc++;
  

•  $file{changes} += $c =~ s/$rccs$ix$rcce/$ccs$ccom[$ix] $cce/;
  

• }
• else {

•  $c =~ s/$rccs$ix$rcce/$ccom[$ix]/;
  

• }
• }
• if ($cppc) {
• my $s = $cppc != 1 ? 's' : '';
• warning("Uses $cppc C++ style comment$s, which is not portable");
• }
• my $s = $warnings != 1 ? 's' : '';
• my $warn = $warnings ? " ($warnings warning$s)" : '';
• info("Analysis completed$warn");
• if ($file{changes}) {
• if (exists $opt{copy}) {

•  my $newfile = "$filename$opt{copy}";
  

•  if (-e $newfile) {
  

•    error("'$newfile' already exists, refusing to write copy of '$filename'");
  

•  }
  

•  else {
  

•    local *F;
  

•    if (open F, ">$newfile") {
  

•      info("Writing copy of '$filename' with changes to '$newfile'");
  

•      print F $c;
  

•      close F;
  

•    }
  

•    else {
  

•      error("Cannot open '$newfile' for writing: $!");
  

•    }
  

•  }
  

• }
• elsif (exists $opt{patch} || $opt{changes}) {

•  if (exists $opt{patch}) {
  

•    unless ($patch_opened) {
  

•      if (open PATCH, ">$opt{patch}") {
  

•        $patch_opened = 1;
  

•      }
  

•      else {
  

•        error("Cannot open '$opt{patch}' for writing: $!");
  

•        delete $opt{patch};
  

•        $opt{changes} = 1;
  

•        goto fallback;
  

•      }
  

•    }
  

•    mydiff(\*PATCH, $filename, $c);
  

•  }
  

•  else {
  

+fallback:

•    info("Suggested changes:");
  

•    mydiff(\*STDOUT, $filename, $c);
  

•  }
  

• }
• else {

•  my $s = $file{changes} == 1 ? '' : 's';
  

•  info("$file{changes} potentially required change$s detected");
  

• }
• }
• else {
• info("Looks good");
• }

+}

+close PATCH if $patch_opened;

+exit 0;

+sub try_use { eval "use @_;"; return $@ eq '' }

+sub mydiff +{

• local *F = shift;
• my($file, $str) = @_;
• my $diff;
• if (exists $opt{diff}) {
• $diff = run_diff($opt{diff}, $file, $str);
• }
• if (!defined $diff and try_use('Text::Diff')) {
• $diff = Text::Diff::diff($file, $str, { STYLE => 'Unified' });
• $diff = <<HEADER . $diff;

+--- $file ++++ $file.patched +HEADER

• }
• if (!defined $diff) {
• $diff = run_diff('diff -u', $file, $str);
• }
• if (!defined $diff) {
• $diff = run_diff('diff', $file, $str);
• }
• if (!defined $diff) {
• error("Cannot generate a diff. Please install Text::Diff or use --copy.");
• return;
• }
• print F $diff;

+}

+sub run_diff +{

• my($prog, $file, $str) = @_;
• my $tmp = 'dppptemp';
• my $suf = 'aaa';
• my $diff = '';
• local *F;
• while (-e "$tmp.$suf") { $suf++ }
• $tmp = "$tmp.$suf";
• if (open F, ">$tmp") {
• print F $str;
• close F;
• if (open F, "$prog $file $tmp |") {

•  while (<F>) {
  

•    s/\Q$tmp\E/$file.patched/;
  

•    $diff .= $_;
  

•  }
  

•  close F;
  

•  unlink $tmp;
  

•  return $diff;
  

• }
• unlink $tmp;
• }
• else {
• error("Cannot open '$tmp' for writing: $!");
• }
• return undef;

+}

+sub rec_depend +{

• my($func, $seen) = @_;
• return () unless exists $depends{$func};
• $seen = {%{$seen||{}}};
• return () if $seen->{$func}++;
• my %s;
• grep !$s{$_}++, map { ($_, rec_depend($_, $seen)) } @{$depends{$func}};

+}

+sub parse_version +{

• my $ver = shift;
• if ($ver =~ /^(\d+).(\d+).(\d+)$/) {
• return ($1, $2, $3);
• }
• elsif ($ver !~ /^\d+.[\d_]+$/) {
• die "cannot parse version '$ver'\n";
• }
• $ver =~ s/_//g;
• $ver =~ s/$/000000/;
• my($r,$v,$s) = $ver =~ /(\d+).(\d{3})(\d{3})/;
• $v = int $v;
• $s = int $s;
• if ($r < 5 || ($r == 5 && $v < 6)) {
• if ($s % 10) {

•  die "cannot parse version '$ver'\n";
  

• }
• }
• return ($r, $v, $s);

+}

+sub format_version +{

• my $ver = shift;
• $ver =~ s/$/000000/;
• my($r,$v,$s) = $ver =~ /(\d+).(\d{3})(\d{3})/;
• $v = int $v;
• $s = int $s;
• if ($r < 5 || ($r == 5 && $v < 6)) {
• if ($s % 10) {

•  die "invalid version '$ver'\n";
  

• }
• $s /= 10;
• $ver = sprintf "%d.%03d", $r, $v;
• $s > 0 and $ver .= sprintf "_%02d", $s;
• return $ver;
• }
• return sprintf "%d.%d.%d", $r, $v, $s;

+}

+sub info +{

• $opt{quiet} and return;
• print @_, "\n";

+}

+sub diag +{

• $opt{quiet} and return;
• $opt{diag} and print @_, "\n";

+}

+sub warning +{

• $opt{quiet} and return;
• print "*** ", @_, "\n";

+}

+sub error +{

• print "*** ERROR: ", @_, "\n";

+}

+my %given_hints; +my %given_warnings; +sub hint +{

• $opt{quiet} and return;
• my $func = shift;
• my $rv = 0;
• if (exists $warnings{$func} && !$given_warnings{$func}++) {
• my $warn = $warnings{$func};
• $warn =~ s!^!*** !mg;
• print "*** WARNING: $func\n", $warn;
• $rv++;
• }
• if ($opt{hints} && exists $hints{$func} && !$given_hints{$func}++) {
• my $hint = $hints{$func};
• $hint =~ s/^/ /mg;
• print " --- hint for $func ---\n", $hint;
• }
• $rv;

+}

+sub usage +{

• my($usage) = do { local(@ARGV,$/)=($0); <> } =~ /^=head\d$HS+SYNOPSIS\s*^(.*?)\s*^=/ms;
• my %M = ( 'I' => '*' );
• $usage =~ s/^\s*perl\s+\S+/$^X $0/;
• $usage =~ s/([A-Z])<([^>]+)>/$M{$1}$2$M{$1}/g;
• print <<ENDUSAGE;

+Usage: $usage

+See perldoc $0 for details.

+ENDUSAGE

• exit 2;

+}

+sub strip +{

• my $self = do { local(@ARGV,$/)=($0); <> };
• my($copy) = $self =~ /^=head\d\s+COPYRIGHT\s*^(.*?)^=\w+/ms;
• $copy =~ s/^(?=\S+)/ /gms;
• $self =~ s/^$HS+Do NOT edit.*?(?=^-)/$copy/ms;
• $self =~ s/^SKIP.*(?=^__DATA__)/SKIP

+if (@ARGV && $ARGV[0] eq '--unstrip') {

• eval { require Devel::PPPort };
• $@ and die "Cannot require Devel::PPPort, please install.\n";
• if (eval $Devel::PPPort::VERSION < $VERSION) {
• die "$0 was originally generated with Devel::PPPort $VERSION.\n"

•  . "Your Devel::PPPort is only version \$Devel::PPPort::VERSION.\\n"
  

•  . "Please install a newer version, or --unstrip will not work.\\n";
  

• }
• Devel::PPPort::WriteFile($0);
• exit 0;

+} +print <<END;

+Sorry, but this is a stripped version of $0.

+To be able to use its original script and doc functionality, +please try to regenerate this file using:

• $^X $0 --unstrip

+END +/ms;

• my($pl, $c) = $self =~ /(.*^__DATA__)(.*)/ms;
• $c =~ s{
• / (?: *[^*]**+(?:[^$ccs][^*]**+)* / | /[^\r\n]*)
• | ( "[^"\]*(?:\.[^"\]*)*"
• | '[^'\]*(?:\.[^'\]*)*' )
• | ($HS+) }{ defined $2 ? ' ' : ($1 || '') }gsex;
• $c =~ s!\s+$!!mg;
• $c =~ s!^$LF!!mg;
• $c =~ s!^\s*#\s*!#!mg;
• $c =~ s!^\s+!!mg;
• open OUT, ">$0" or die "cannot strip $0: $!\n";
• print OUT "$pl$c\n";
• exit 0;

+}

+__DATA__ +*/

+#ifndef _P_P_PORTABILITY_H_ +#define _P_P_PORTABILITY_H_

+#ifndef DPPP_NAMESPACE +# define DPPP_NAMESPACE DPPP_ +#endif

+#define DPPP_CAT2(x,y) CAT2(x,y) +#define DPPP_(name) DPPP_CAT2(DPPP_NAMESPACE, name)

+#ifndef PERL_REVISION +# if !defined(__PATCHLEVEL_H_INCLUDED__) && !(defined(PATCHLEVEL) && defined(SUBVERSION)) +# define PERL_PATCHLEVEL_H_IMPLICIT +# include <patchlevel.h> +# endif +# if !(defined(PERL_VERSION) || (defined(SUBVERSION) && defined(PATCHLEVEL))) +# include <could_not_find_Perl_patchlevel.h> +# endif +# ifndef PERL_REVISION +# define PERL_REVISION (5)

• /* Replace: 1 */
  

+# define PERL_VERSION PATCHLEVEL +# define PERL_SUBVERSION SUBVERSION

• /* Replace PERL_PATCHLEVEL with PERL_VERSION */
  

• /* Replace: 0 */
  

+# endif +#endif

+#define D_PPP_DEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10)) +#define PERL_BCDVERSION ((D_PPP_DEC2BCD(PERL_REVISION)<<24)|(D_PPP_DEC2BCD(PERL_VERSION)<<12)|D_PPP_DEC2BCD(PERL_SUBVERSION))

+/* It is very unlikely that anyone will try to use this with Perl 6

• (or greater), but who knows.
• */

+#if PERL_REVISION != 5 +# error ppport.h only works with Perl version 5 +#endif /* PERL_REVISION != 5 */ +#ifndef dTHR +# define dTHR dNOOP +#endif +#ifndef dTHX +# define dTHX dNOOP +#endif

+#ifndef dTHXa +# define dTHXa(x) dNOOP +#endif +#ifndef pTHX +# define pTHX void +#endif

+#ifndef pTHX_ +# define pTHX_ +#endif

+#ifndef aTHX +# define aTHX +#endif

+#ifndef aTHX_ +# define aTHX_ +#endif

+#if (PERL_BCDVERSION < 0x5006000) +# ifdef USE_THREADS +# define aTHXR thr +# define aTHXR_ thr, +# else +# define aTHXR +# define aTHXR_ +# endif +# define dTHXR dTHR +#else +# define aTHXR aTHX +# define aTHXR_ aTHX_ +# define dTHXR dTHX +#endif +#ifndef dTHXoa +# define dTHXoa(x) dTHXa(x) +#endif

+#ifdef I_LIMITS +# include <limits.h> +#endif

+#ifndef PERL_UCHAR_MIN +# define PERL_UCHAR_MIN ((unsigned char)0) +#endif

+#ifndef PERL_UCHAR_MAX +# ifdef UCHAR_MAX +# define PERL_UCHAR_MAX ((unsigned char)UCHAR_MAX) +# else +# ifdef MAXUCHAR +# define PERL_UCHAR_MAX ((unsigned char)MAXUCHAR) +# else +# define PERL_UCHAR_MAX ((unsigned char)~(unsigned)0) +# endif +# endif +#endif

+#ifndef PERL_USHORT_MIN +# define PERL_USHORT_MIN ((unsigned short)0) +#endif

+#ifndef PERL_USHORT_MAX +# ifdef USHORT_MAX +# define PERL_USHORT_MAX ((unsigned short)USHORT_MAX) +# else +# ifdef MAXUSHORT +# define PERL_USHORT_MAX ((unsigned short)MAXUSHORT) +# else +# ifdef USHRT_MAX +# define PERL_USHORT_MAX ((unsigned short)USHRT_MAX) +# else +# define PERL_USHORT_MAX ((unsigned short)~(unsigned)0) +# endif +# endif +# endif +#endif

+#ifndef PERL_SHORT_MAX +# ifdef SHORT_MAX +# define PERL_SHORT_MAX ((short)SHORT_MAX) +# else +# ifdef MAXSHORT /* Often used in <values.h> */ +# define PERL_SHORT_MAX ((short)MAXSHORT) +# else +# ifdef SHRT_MAX +# define PERL_SHORT_MAX ((short)SHRT_MAX) +# else +# define PERL_SHORT_MAX ((short) (PERL_USHORT_MAX >> 1)) +# endif +# endif +# endif +#endif

+#ifndef PERL_SHORT_MIN +# ifdef SHORT_MIN +# define PERL_SHORT_MIN ((short)SHORT_MIN) +# else +# ifdef MINSHORT +# define PERL_SHORT_MIN ((short)MINSHORT) +# else +# ifdef SHRT_MIN +# define PERL_SHORT_MIN ((short)SHRT_MIN) +# else +# define PERL_SHORT_MIN (-PERL_SHORT_MAX - ((3 & -1) == 3)) +# endif +# endif +# endif +#endif

+#ifndef PERL_UINT_MAX +# ifdef UINT_MAX +# define PERL_UINT_MAX ((unsigned int)UINT_MAX) +# else +# ifdef MAXUINT +# define PERL_UINT_MAX ((unsigned int)MAXUINT) +# else +# define PERL_UINT_MAX (~(unsigned int)0) +# endif +# endif +#endif

+#ifndef PERL_UINT_MIN +# define PERL_UINT_MIN ((unsigned int)0) +#endif

+#ifndef PERL_INT_MAX +# ifdef INT_MAX +# define PERL_INT_MAX ((int)INT_MAX) +# else +# ifdef MAXINT /* Often used in <values.h> */ +# define PERL_INT_MAX ((int)MAXINT) +# else +# define PERL_INT_MAX ((int)(PERL_UINT_MAX >> 1)) +# endif +# endif +#endif

+#ifndef PERL_INT_MIN +# ifdef INT_MIN +# define PERL_INT_MIN ((int)INT_MIN) +# else +# ifdef MININT +# define PERL_INT_MIN ((int)MININT) +# else +# define PERL_INT_MIN (-PERL_INT_MAX - ((3 & -1) == 3)) +# endif +# endif +#endif

+#ifndef PERL_ULONG_MAX +# ifdef ULONG_MAX +# define PERL_ULONG_MAX ((unsigned long)ULONG_MAX) +# else +# ifdef MAXULONG +# define PERL_ULONG_MAX ((unsigned long)MAXULONG) +# else +# define PERL_ULONG_MAX (~(unsigned long)0) +# endif +# endif +#endif

+#ifndef PERL_ULONG_MIN +# define PERL_ULONG_MIN ((unsigned long)0L) +#endif

+#ifndef PERL_LONG_MAX +# ifdef LONG_MAX +# define PERL_LONG_MAX ((long)LONG_MAX) +# else +# ifdef MAXLONG +# define PERL_LONG_MAX ((long)MAXLONG) +# else +# define PERL_LONG_MAX ((long) (PERL_ULONG_MAX >> 1)) +# endif +# endif +#endif

+#ifndef PERL_LONG_MIN +# ifdef LONG_MIN +# define PERL_LONG_MIN ((long)LONG_MIN) +# else +# ifdef MINLONG +# define PERL_LONG_MIN ((long)MINLONG) +# else +# define PERL_LONG_MIN (-PERL_LONG_MAX - ((3 & -1) == 3)) +# endif +# endif +#endif

+#if defined(HAS_QUAD) && (defined(convex) || defined(uts)) +# ifndef PERL_UQUAD_MAX +# ifdef ULONGLONG_MAX +# define PERL_UQUAD_MAX ((unsigned long long)ULONGLONG_MAX) +# else +# ifdef MAXULONGLONG +# define PERL_UQUAD_MAX ((unsigned long long)MAXULONGLONG) +# else +# define PERL_UQUAD_MAX (~(unsigned long long)0) +# endif +# endif +# endif

+# ifndef PERL_UQUAD_MIN +# define PERL_UQUAD_MIN ((unsigned long long)0L) +# endif

+# ifndef PERL_QUAD_MAX +# ifdef LONGLONG_MAX +# define PERL_QUAD_MAX ((long long)LONGLONG_MAX) +# else +# ifdef MAXLONGLONG +# define PERL_QUAD_MAX ((long long)MAXLONGLONG) +# else +# define PERL_QUAD_MAX ((long long) (PERL_UQUAD_MAX >> 1)) +# endif +# endif +# endif

+# ifndef PERL_QUAD_MIN +# ifdef LONGLONG_MIN +# define PERL_QUAD_MIN ((long long)LONGLONG_MIN) +# else +# ifdef MINLONGLONG +# define PERL_QUAD_MIN ((long long)MINLONGLONG) +# else +# define PERL_QUAD_MIN (-PERL_QUAD_MAX - ((3 & -1) == 3)) +# endif +# endif +# endif +#endif

+/* This is based on code from 5.003 perl.h */ +#ifdef HAS_QUAD +# ifdef cray +#ifndef IVTYPE +# define IVTYPE int +#endif

+#ifndef IV_MIN +# define IV_MIN PERL_INT_MIN +#endif

+#ifndef IV_MAX +# define IV_MAX PERL_INT_MAX +#endif

+#ifndef UV_MIN +# define UV_MIN PERL_UINT_MIN +#endif

+#ifndef UV_MAX +# define UV_MAX PERL_UINT_MAX +#endif

+# ifdef INTSIZE +#ifndef IVSIZE +# define IVSIZE INTSIZE +#endif

+# endif +# else +# if defined(convex) || defined(uts) +#ifndef IVTYPE +# define IVTYPE long long +#endif

+#ifndef IV_MIN +# define IV_MIN PERL_QUAD_MIN +#endif

+#ifndef IV_MAX +# define IV_MAX PERL_QUAD_MAX +#endif

+#ifndef UV_MIN +# define UV_MIN PERL_UQUAD_MIN +#endif

+#ifndef UV_MAX +# define UV_MAX PERL_UQUAD_MAX +#endif

+# ifdef LONGLONGSIZE +#ifndef IVSIZE +# define IVSIZE LONGLONGSIZE +#endif

+# endif +# else +#ifndef IVTYPE +# define IVTYPE long +#endif

+#ifndef IV_MIN +# define IV_MIN PERL_LONG_MIN +#endif

+#ifndef IV_MAX +# define IV_MAX PERL_LONG_MAX +#endif

+#ifndef UV_MIN +# define UV_MIN PERL_ULONG_MIN +#endif

+#ifndef UV_MAX +# define UV_MAX PERL_ULONG_MAX +#endif

+# ifdef LONGSIZE +#ifndef IVSIZE +# define IVSIZE LONGSIZE +#endif

+# endif +# endif +# endif +#ifndef IVSIZE +# define IVSIZE 8 +#endif

+#ifndef LONGSIZE +# define LONGSIZE 8 +#endif

+#ifndef PERL_QUAD_MIN +# define PERL_QUAD_MIN IV_MIN +#endif

+#ifndef PERL_QUAD_MAX +# define PERL_QUAD_MAX IV_MAX +#endif

+#ifndef PERL_UQUAD_MIN +# define PERL_UQUAD_MIN UV_MIN +#endif

+#ifndef PERL_UQUAD_MAX +# define PERL_UQUAD_MAX UV_MAX +#endif

+#else +#ifndef IVTYPE +# define IVTYPE long +#endif

+#ifndef LONGSIZE +# define LONGSIZE 4 +#endif

+#ifndef IV_MIN +# define IV_MIN PERL_LONG_MIN +#endif

+#ifndef IV_MAX +# define IV_MAX PERL_LONG_MAX +#endif

+#ifndef UV_MIN +# define UV_MIN PERL_ULONG_MIN +#endif

+#ifndef UV_MAX +# define UV_MAX PERL_ULONG_MAX +#endif

+#endif

+#ifndef IVSIZE +# ifdef LONGSIZE +# define IVSIZE LONGSIZE +# else +# define IVSIZE 4 /* A bold guess, but the best we can make. */ +# endif +#endif +#ifndef UVTYPE +# define UVTYPE unsigned IVTYPE +#endif

+#ifndef UVSIZE +# define UVSIZE IVSIZE +#endif +#ifndef sv_setuv +# define sv_setuv(sv, uv) \

•           STMT_START {                         \
  

•             UV TeMpUv = uv;                    \
  

•             if (TeMpUv <= IV_MAX)              \
  

•               sv_setiv(sv, TeMpUv);            \
  

•             else                               \
  

•               sv_setnv(sv, (double)TeMpUv);    \
  

•           } STMT_END
  

+#endif +#ifndef newSVuv +# define newSVuv(uv) ((uv) <= IV_MAX ? newSViv((IV)uv) : newSVnv((NV)uv)) +#endif +#ifndef sv_2uv +# define sv_2uv(sv) ((PL_Sv = (sv)), (UV) (SvNOK(PL_Sv) ? SvNV(PL_Sv) : sv_2nv(PL_Sv))) +#endif

+#ifndef SvUVX +# define SvUVX(sv) ((UV)SvIVX(sv)) +#endif

+#ifndef SvUVXx +# define SvUVXx(sv) SvUVX(sv) +#endif

+#ifndef SvUV +# define SvUV(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv(sv)) +#endif

+#ifndef SvUVx +# define SvUVx(sv) ((PL_Sv = (sv)), SvUV(PL_Sv)) +#endif

+/* Hint: sv_uv

• • Always use the SvUVx() macro instead of sv_uv().
• */

+#ifndef sv_uv +# define sv_uv(sv) SvUVx(sv) +#endif

+#if !defined(SvUOK) && defined(SvIOK_UV) +# define SvUOK(sv) SvIOK_UV(sv) +#endif +#ifndef XST_mUV +# define XST_mUV(i,v) (ST(i) = sv_2mortal(newSVuv(v)) ) +#endif

+#ifndef XSRETURN_UV +# define XSRETURN_UV(v) STMT_START { XST_mUV(0,v); XSRETURN(1); } STMT_END +#endif +#ifndef PUSHu +# define PUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); PUSHTARG; } STMT_END +#endif

+#ifndef XPUSHu +# define XPUSHu(u) STMT_START { sv_setuv(TARG, (UV)(u)); XPUSHTARG; } STMT_END +#endif

+#ifdef HAS_MEMCMP +#ifndef memNE +# define memNE(s1,s2,l) (memcmp(s1,s2,l)) +#endif

+#ifndef memEQ +# define memEQ(s1,s2,l) (!memcmp(s1,s2,l)) +#endif

+#else +#ifndef memNE +# define memNE(s1,s2,l) (bcmp(s1,s2,l)) +#endif

+#ifndef memEQ +# define memEQ(s1,s2,l) (!bcmp(s1,s2,l)) +#endif

+#endif +#ifndef memEQs +# define memEQs(s1, l, s2) \

•               (sizeof(s2)-1 == l && memEQ(s1, (s2 ""), (sizeof(s2)-1)))
  

+#endif

+#ifndef memNEs +# define memNEs(s1, l, s2) !memEQs(s1, l, s2) +#endif +#ifndef MoveD +# define MoveD(s,d,n,t) memmove((char*)(d),(char*)(s), (n) * sizeof(t)) +#endif

+#ifndef CopyD +# define CopyD(s,d,n,t) memcpy((char*)(d),(char*)(s), (n) * sizeof(t)) +#endif

+#ifdef HAS_MEMSET +#ifndef ZeroD +# define ZeroD(d,n,t) memzero((char*)(d), (n) * sizeof(t)) +#endif

+#else +#ifndef ZeroD +# define ZeroD(d,n,t) ((void)memzero((char*)(d), (n) * sizeof(t)), d) +#endif

+#endif +#ifndef PoisonWith +# define PoisonWith(d,n,t,b) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t)) +#endif

+#ifndef PoisonNew +# define PoisonNew(d,n,t) PoisonWith(d,n,t,0xAB) +#endif

+#ifndef PoisonFree +# define PoisonFree(d,n,t) PoisonWith(d,n,t,0xEF) +#endif

+#ifndef Poison +# define Poison(d,n,t) PoisonFree(d,n,t) +#endif +#ifndef Newx +# define Newx(v,n,t) New(0,v,n,t) +#endif

+#ifndef Newxc +# define Newxc(v,n,t,c) Newc(0,v,n,t,c) +#endif

+#ifndef Newxz +# define Newxz(v,n,t) Newz(0,v,n,t) +#endif +#ifndef SvGETMAGIC +# define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END +#endif

+/* Some random bits for sv_unmagicext. These should probably be pulled in for

• real and organized at some point */

+#ifndef HEf_SVKEY +# define HEf_SVKEY -2 +#endif

+#ifndef MUTABLE_PTR +#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) +# define MUTABLE_PTR(p) ({ void *_p = (p); _p; }) +#else +# define MUTABLE_PTR(p) ((void *) (p)) +#endif +#endif +#ifndef MUTABLE_SV +# define MUTABLE_SV(p) ((SV *)MUTABLE_PTR(p)) +#endif

+/* end of random bits */ +#ifndef PERL_MAGIC_sv +# define PERL_MAGIC_sv '\0' +#endif

+#ifndef PERL_MAGIC_overload +# define PERL_MAGIC_overload 'A' +#endif

+#ifndef PERL_MAGIC_overload_elem +# define PERL_MAGIC_overload_elem 'a' +#endif

+#ifndef PERL_MAGIC_overload_table +# define PERL_MAGIC_overload_table 'c' +#endif

+#ifndef PERL_MAGIC_bm +# define PERL_MAGIC_bm 'B' +#endif

+#ifndef PERL_MAGIC_regdata +# define PERL_MAGIC_regdata 'D' +#endif

+#ifndef PERL_MAGIC_regdatum +# define PERL_MAGIC_regdatum 'd' +#endif

+#ifndef PERL_MAGIC_env +# define PERL_MAGIC_env 'E' +#endif

+#ifndef PERL_MAGIC_envelem +# define PERL_MAGIC_envelem 'e' +#endif

+#ifndef PERL_MAGIC_fm +# define PERL_MAGIC_fm 'f' +#endif

+#ifndef PERL_MAGIC_regex_global +# define PERL_MAGIC_regex_global 'g' +#endif

+#ifndef PERL_MAGIC_isa +# define PERL_MAGIC_isa 'I' +#endif

+#ifndef PERL_MAGIC_isaelem +# define PERL_MAGIC_isaelem 'i' +#endif

+#ifndef PERL_MAGIC_nkeys +# define PERL_MAGIC_nkeys 'k' +#endif

+#ifndef PERL_MAGIC_dbfile +# define PERL_MAGIC_dbfile 'L' +#endif

+#ifndef PERL_MAGIC_dbline +# define PERL_MAGIC_dbline 'l' +#endif

+#ifndef PERL_MAGIC_mutex +# define PERL_MAGIC_mutex 'm' +#endif

+#ifndef PERL_MAGIC_shared +# define PERL_MAGIC_shared 'N' +#endif

+#ifndef PERL_MAGIC_shared_scalar +# define PERL_MAGIC_shared_scalar 'n' +#endif

+#ifndef PERL_MAGIC_collxfrm +# define PERL_MAGIC_collxfrm 'o' +#endif

+#ifndef PERL_MAGIC_tied +# define PERL_MAGIC_tied 'P' +#endif

+#ifndef PERL_MAGIC_tiedelem +# define PERL_MAGIC_tiedelem 'p' +#endif

+#ifndef PERL_MAGIC_tiedscalar +# define PERL_MAGIC_tiedscalar 'q' +#endif

+#ifndef PERL_MAGIC_qr +# define PERL_MAGIC_qr 'r' +#endif

+#ifndef PERL_MAGIC_sig +# define PERL_MAGIC_sig 'S' +#endif

+#ifndef PERL_MAGIC_sigelem +# define PERL_MAGIC_sigelem 's' +#endif

+#ifndef PERL_MAGIC_taint +# define PERL_MAGIC_taint 't' +#endif

+#ifndef PERL_MAGIC_uvar +# define PERL_MAGIC_uvar 'U' +#endif

+#ifndef PERL_MAGIC_uvar_elem +# define PERL_MAGIC_uvar_elem 'u' +#endif

+#ifndef PERL_MAGIC_vstring +# define PERL_MAGIC_vstring 'V' +#endif

+#ifndef PERL_MAGIC_vec +# define PERL_MAGIC_vec 'v' +#endif

+#ifndef PERL_MAGIC_utf8 +# define PERL_MAGIC_utf8 'w' +#endif

+#ifndef PERL_MAGIC_substr +# define PERL_MAGIC_substr 'x' +#endif

+#ifndef PERL_MAGIC_defelem +# define PERL_MAGIC_defelem 'y' +#endif

+#ifndef PERL_MAGIC_glob +# define PERL_MAGIC_glob '*' +#endif

+#ifndef PERL_MAGIC_arylen +# define PERL_MAGIC_arylen '#' +#endif

+#ifndef PERL_MAGIC_pos +# define PERL_MAGIC_pos '.' +#endif

+#ifndef PERL_MAGIC_backref +# define PERL_MAGIC_backref '<' +#endif

+#ifndef PERL_MAGIC_ext +# define PERL_MAGIC_ext '~' +#endif

+/* That's the best we can do... */ +#ifndef sv_catpvn_nomg +# define sv_catpvn_nomg sv_catpvn +#endif

+#ifndef sv_catsv_nomg +# define sv_catsv_nomg sv_catsv +#endif

+#ifndef sv_setsv_nomg +# define sv_setsv_nomg sv_setsv +#endif

+#ifndef sv_pvn_nomg +# define sv_pvn_nomg sv_pvn +#endif

+#ifndef SvIV_nomg +# define SvIV_nomg SvIV +#endif

+#ifndef SvUV_nomg +# define SvUV_nomg SvUV +#endif

+#ifndef sv_catpv_mg +# define sv_catpv_mg(sv, ptr) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_catpv(TeMpSv,ptr);              \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_catpvn_mg +# define sv_catpvn_mg(sv, ptr, len) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_catpvn(TeMpSv,ptr,len);         \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_catsv_mg +# define sv_catsv_mg(dsv, ssv) \

• STMT_START { \

• SV *TeMpSv = dsv;                  \
  

• sv_catsv(TeMpSv,ssv);              \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_setiv_mg +# define sv_setiv_mg(sv, i) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_setiv(TeMpSv,i);                \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_setnv_mg +# define sv_setnv_mg(sv, num) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_setnv(TeMpSv,num);              \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_setpv_mg +# define sv_setpv_mg(sv, ptr) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_setpv(TeMpSv,ptr);              \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_setpvn_mg +# define sv_setpvn_mg(sv, ptr, len) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_setpvn(TeMpSv,ptr,len);         \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_setsv_mg +# define sv_setsv_mg(dsv, ssv) \

• STMT_START { \

• SV *TeMpSv = dsv;                  \
  

• sv_setsv(TeMpSv,ssv);              \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_setuv_mg +# define sv_setuv_mg(sv, i) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_setuv(TeMpSv,i);                \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif

+#ifndef sv_usepvn_mg +# define sv_usepvn_mg(sv, ptr, len) \

• STMT_START { \

• SV *TeMpSv = sv;                   \
  

• sv_usepvn(TeMpSv,ptr,len);         \
  

• SvSETMAGIC(TeMpSv);                \
  

• } STMT_END

+#endif +#ifndef SvVSTRING_mg +# define SvVSTRING_mg(sv) (SvMAGICAL(sv) ? mg_find(sv, PERL_MAGIC_vstring) : NULL) +#endif

+/* Hint: sv_magic_portable

• • This is a compatibility function that is only available with
• • Devel::PPPort. It is NOT in the perl core.
• • Its purpose is to mimic the 5.8.0 behaviour of sv_magic() when
• • it is being passed a name pointer with namlen == 0. In that
• • case, perl 5.8.0 and later store the pointer, not a copy of it.
• • The compatibility can be provided back to perl 5.004. With
• • earlier versions, the code will not compile.
• */

+#if (PERL_BCDVERSION < 0x5004000)

• /* code that uses sv_magic_portable will not compile */

+#elif (PERL_BCDVERSION < 0x5008000)

+# define sv_magic_portable(sv, obj, how, name, namlen) \

• STMT_START { \

• SV *SvMp_sv = (sv);                                    \
  

• char *SvMp_name = (char *) (name);                     \
  

• I32 SvMp_namlen = (namlen);                            \
  

• if (SvMp_name && SvMp_namlen == 0)                     \
  

• {                                                      \
  

•   MAGIC *mg;                                           \
  

•   sv_magic(SvMp_sv, obj, how, 0, 0);                   \
  

•   mg = SvMAGIC(SvMp_sv);                               \
  

•   mg->mg_len = -42; /* XXX: this is the tricky part */ \
  

•   mg->mg_ptr = SvMp_name;                              \
  

• }                                                      \
  

• else                                                   \
  

• {                                                      \
  

•   sv_magic(SvMp_sv, obj, how, SvMp_name, SvMp_namlen); \
  

• }                                                      \
  

• } STMT_END

+#else

+# define sv_magic_portable(a, b, c, d, e) sv_magic(a, b, c, d, e)

+#endif

+#if !defined(mg_findext) +#if defined(NEED_mg_findext) +static MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl); +static +#else +extern MAGIC * DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl); +#endif

+#if defined(NEED_mg_findext) || defined(NEED_mg_findext_GLOBAL)

+#define mg_findext DPPP_(my_mg_findext) +#define Perl_mg_findext DPPP_(my_mg_findext)

+MAGIC * +DPPP_(my_mg_findext)(SV * sv, int type, const MGVTBL *vtbl) {

• if (sv) {

•    MAGIC *mg;
  

+#ifdef AvPAD_NAMELIST

•    assert(!(SvTYPE(sv) == SVt_PVAV && AvPAD_NAMELIST(sv)));
  

+#endif

•    for (mg = SvMAGIC (sv); mg; mg = mg->mg_moremagic) {
  

•        if (mg->mg_type == type && mg->mg_virtual == vtbl)
  

•            return mg;
  

•    }
  

• }
• return NULL;

+}

+#endif +#endif

+#if !defined(sv_unmagicext) +#if defined(NEED_sv_unmagicext) +static int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl); +static +#else +extern int DPPP_(my_sv_unmagicext)(pTHX_ SV * const sv, const int type, MGVTBL * vtbl); +#endif

+#if defined(NEED_sv_unmagicext) || defined(NEED_sv_unmagicext_GLOBAL)

+#ifdef sv_unmagicext +# undef sv_unmagicext +#endif +#define sv_unmagicext(a,b,c) DPPP_(my_sv_unmagicext)(aTHX_ a,b,c) +#define Perl_sv_unmagicext DPPP_(my_sv_unmagicext)

+int +DPPP_(my_sv_unmagicext)(pTHX_ SV *const sv, const int type, MGVTBL *vtbl) +{

• MAGIC* mg;
• MAGIC** mgp;
• if (SvTYPE(sv) < SVt_PVMG || !SvMAGIC(sv))
• return 0;
• mgp = &(SvMAGIC(sv));
• for (mg = *mgp; mg; mg = *mgp) {
• const MGVTBL* const virt = mg->mg_virtual;
• if (mg->mg_type == type && virt == vtbl) {

•    *mgp = mg->mg_moremagic;
  

•    if (virt && virt->svt_free)
  

• virt->svt_free(aTHX_ sv, mg);
  

•    if (mg->mg_ptr && mg->mg_type != PERL_MAGIC_regex_global) {
  

• if (mg->mg_len > 0)
  

•     Safefree(mg->mg_ptr);
  

• else if (mg->mg_len == HEf_SVKEY) /* Questionable on older perls... */
  

•     SvREFCNT_dec(MUTABLE_SV(mg->mg_ptr));
  

• else if (mg->mg_type == PERL_MAGIC_utf8)
  

•     Safefree(mg->mg_ptr);
  

•        }
  

•    if (mg->mg_flags & MGf_REFCOUNTED)
  

• SvREFCNT_dec(mg->mg_obj);
  

•    Safefree(mg);
  

• }
• else

•    mgp = &mg->mg_moremagic;
  

• }
• if (SvMAGIC(sv)) {
• if (SvMAGICAL(sv)) /* if we're under save_magic, wait for restore_magic; */

•    mg_magical(sv);	/*    else fix the flags now */
  

• }
• else {
• SvMAGICAL_off(sv);
• SvFLAGS(sv) |= (SvFLAGS(sv) & (SVp_IOK|SVp_NOK|SVp_POK)) >> PRIVSHIFT;
• }
• return 0;

+}

+#endif +#endif +#ifndef cBOOL +# define cBOOL(cbool) ((cbool) ? (bool)1 : (bool)0) +#endif

+#ifndef OpHAS_SIBLING +# define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling)) +#endif

+#ifndef OpSIBLING +# define OpSIBLING(o) (0 + (o)->op_sibling) +#endif

+#ifndef OpMORESIB_set +# define OpMORESIB_set(o, sib) ((o)->op_sibling = (sib)) +#endif

+#ifndef OpLASTSIB_set +# define OpLASTSIB_set(o, parent) ((o)->op_sibling = NULL) +#endif

+#ifndef OpMAYBESIB_set +# define OpMAYBESIB_set(o, sib, parent) ((o)->op_sibling = (sib)) +#endif

+#ifndef SvRX +#if defined(NEED_SvRX) +static void * DPPP_(my_SvRX)(pTHX_ SV *rv); +static +#else +extern void * DPPP_(my_SvRX)(pTHX_ SV *rv); +#endif

+#if defined(NEED_SvRX) || defined(NEED_SvRX_GLOBAL)

+#ifdef SvRX +# undef SvRX +#endif +#define SvRX(a) DPPP_(my_SvRX)(aTHX_ a)

+void * +DPPP_(my_SvRX)(pTHX_ SV *rv) +{

• if (SvROK(rv)) {

• SV *sv = SvRV(rv);
  

• if (SvMAGICAL(sv)) {
  

• 	MAGIC *mg = mg_find(sv, PERL_MAGIC_qr);
  

• 	if (mg && mg->mg_obj) {
  

• 		return mg->mg_obj;
  

• 	}
  

• }
  

• }
• return 0;

+} +#endif +#endif +#ifndef SvRXOK +# define SvRXOK(sv) (!!SvRX(sv)) +#endif

+#ifndef PERL_UNUSED_DECL +# ifdef HASATTRIBUTE +# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER) +# define PERL_UNUSED_DECL +# else +# define PERL_UNUSED_DECL __attribute__((unused)) +# endif +# else +# define PERL_UNUSED_DECL +# endif +#endif

+#ifndef PERL_UNUSED_ARG +# if defined(lint) && defined(S_SPLINT_S) /* www.splint.org */ +# include <note.h> +# define PERL_UNUSED_ARG(x) NOTE(ARGUNUSED(x)) +# else +# define PERL_UNUSED_ARG(x) ((void)x) +# endif +#endif

+#ifndef PERL_UNUSED_VAR +# define PERL_UNUSED_VAR(x) ((void)x) +#endif

+#ifndef PERL_UNUSED_CONTEXT +# ifdef USE_ITHREADS +# define PERL_UNUSED_CONTEXT PERL_UNUSED_ARG(my_perl) +# else +# define PERL_UNUSED_CONTEXT +# endif +#endif

+#ifndef PERL_UNUSED_RESULT +# if defined(__GNUC__) && defined(HASATTRIBUTE_WARN_UNUSED_RESULT) +# define PERL_UNUSED_RESULT(v) STMT_START { __typeof__(v) z = (v); (void)sizeof(z); } STMT_END +# else +# define PERL_UNUSED_RESULT(v) ((void)(v)) +# endif +#endif +#ifndef NOOP +# define NOOP /*EMPTY*/(void)0 +#endif

+#ifndef dNOOP +# define dNOOP extern int /*@unused@*/ Perl___notused PERL_UNUSED_DECL +#endif

+#ifndef NVTYPE +# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) +# define NVTYPE long double +# else +# define NVTYPE double +# endif +typedef NVTYPE NV; +#endif

+#ifndef INT2PTR +# if (IVSIZE == PTRSIZE) && (UVSIZE == PTRSIZE) +# define PTRV UV +# define INT2PTR(any,d) (any)(d) +# else +# if PTRSIZE == LONGSIZE +# define PTRV unsigned long +# else +# define PTRV unsigned +# endif +# define INT2PTR(any,d) (any)(PTRV)(d) +# endif +#endif

+#ifndef PTR2ul +# if PTRSIZE == LONGSIZE +# define PTR2ul(p) (unsigned long)(p) +# else +# define PTR2ul(p) INT2PTR(unsigned long,p) +# endif +#endif +#ifndef PTR2nat +# define PTR2nat(p) (PTRV)(p) +#endif

+#ifndef NUM2PTR +# define NUM2PTR(any,d) (any)PTR2nat(d) +#endif

+#ifndef PTR2IV +# define PTR2IV(p) INT2PTR(IV,p) +#endif

+#ifndef PTR2UV +# define PTR2UV(p) INT2PTR(UV,p) +#endif

+#ifndef PTR2NV +# define PTR2NV(p) NUM2PTR(NV,p) +#endif

+#undef START_EXTERN_C +#undef END_EXTERN_C +#undef EXTERN_C +#ifdef __cplusplus +# define START_EXTERN_C extern "C" { +# define END_EXTERN_C } +# define EXTERN_C extern "C" +#else +# define START_EXTERN_C +# define END_EXTERN_C +# define EXTERN_C extern +#endif

+#if defined(PERL_GCC_PEDANTIC) +# ifndef PERL_GCC_BRACE_GROUPS_FORBIDDEN +# define PERL_GCC_BRACE_GROUPS_FORBIDDEN +# endif +#endif

+#if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) && !defined(__cplusplus) +# ifndef PERL_USE_GCC_BRACE_GROUPS +# define PERL_USE_GCC_BRACE_GROUPS +# endif +#endif

+#undef STMT_START +#undef STMT_END +#ifdef PERL_USE_GCC_BRACE_GROUPS +# define STMT_START (void)( /* gcc supports ``({ STATEMENTS; })'' */ +# define STMT_END ) +#else +# if defined(VOIDFLAGS) && (VOIDFLAGS) && (defined(sun) || defined(__sun__)) && !defined(__GNUC__) +# define STMT_START if (1) +# define STMT_END else (void)0 +# else +# define STMT_START do +# define STMT_END while (0) +# endif +#endif +#ifndef boolSV +# define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no) +#endif

+/* DEFSV appears first in 5.004_56 */ +#ifndef DEFSV +# define DEFSV GvSV(PL_defgv) +#endif

+#ifndef SAVE_DEFSV +# define SAVE_DEFSV SAVESPTR(GvSV(PL_defgv)) +#endif

+#ifndef DEFSV_set +# define DEFSV_set(sv) (DEFSV = (sv)) +#endif

+/* Older perls (<=5.003) lack AvFILLp */ +#ifndef AvFILLp +# define AvFILLp AvFILL +#endif +#ifndef ERRSV +# define ERRSV get_sv("@",FALSE) +#endif

+/* Hint: gv_stashpvn

• • This function's backport doesn't support the length parameter, but
• • rather ignores it. Portability can only be ensured if the length
• • parameter is used for speed reasons, but the length can always be
• • correctly computed from the string argument.
• */

+#ifndef gv_stashpvn +# define gv_stashpvn(str,len,create) gv_stashpv(str,create) +#endif

+/* Replace: 1 */ +#ifndef get_cv +# define get_cv perl_get_cv +#endif

+#ifndef get_sv +# define get_sv perl_get_sv +#endif

+#ifndef get_av +# define get_av perl_get_av +#endif

+#ifndef get_hv +# define get_hv perl_get_hv +#endif

+/* Replace: 0 */ +#ifndef dUNDERBAR +# define dUNDERBAR dNOOP +#endif

+#ifndef UNDERBAR +# define UNDERBAR DEFSV +#endif +#ifndef dAX +# define dAX I32 ax = MARK - PL_stack_base + 1 +#endif

+#ifndef dITEMS +# define dITEMS I32 items = SP - MARK +#endif +#ifndef dXSTARG +# define dXSTARG SV * targ = sv_newmortal() +#endif +#ifndef dAXMARK +# define dAXMARK I32 ax = POPMARK; \

•                           register SV ** const mark = PL_stack_base + ax++
  

+#endif +#ifndef XSprePUSH +# define XSprePUSH (sp = PL_stack_base + ax - 1) +#endif

+#if (PERL_BCDVERSION < 0x5005000) +# undef XSRETURN +# define XSRETURN(off) \

•  STMT_START {                                        \
  

•      PL_stack_sp = PL_stack_base + ax + ((off) - 1); \
  

•      return;                                         \
  

•  } STMT_END
  

+#endif +#ifndef XSPROTO +# define XSPROTO(name) void name(pTHX_ CV* cv) +#endif

+#ifndef SVfARG +# define SVfARG(p) ((void*)(p)) +#endif +#ifndef PERL_ABS +# define PERL_ABS(x) ((x) < 0 ? -(x) : (x)) +#endif +#ifndef dVAR +# define dVAR dNOOP +#endif +#ifndef SVf +# define SVf "_" +#endif +#ifndef UTF8_MAXBYTES +# define UTF8_MAXBYTES UTF8_MAXLEN +#endif +#ifndef CPERLscope +# define CPERLscope(x) x +#endif +#ifndef PERL_HASH +# define PERL_HASH(hash,str,len) \

• STMT_START { \
  

•    const char *s_PeRlHaSh = str; \
  

•    I32 i_PeRlHaSh = len; \
  

•    U32 hash_PeRlHaSh = 0; \
  

•    while (i_PeRlHaSh--) \
  

•        hash_PeRlHaSh = hash_PeRlHaSh * 33 + *s_PeRlHaSh++; \
  

•    (hash) = hash_PeRlHaSh; \
  

• } STMT_END

+#endif

+#ifndef PERLIO_FUNCS_DECL +# ifdef PERLIO_FUNCS_CONST +# define PERLIO_FUNCS_DECL(funcs) const PerlIO_funcs funcs +# define PERLIO_FUNCS_CAST(funcs) (PerlIO_funcs*)(funcs) +# else +# define PERLIO_FUNCS_DECL(funcs) PerlIO_funcs funcs +# define PERLIO_FUNCS_CAST(funcs) (funcs) +# endif +#endif

+/* provide these typedefs for older perls */ +#if (PERL_BCDVERSION < 0x5009003)

+# ifdef ARGSproto +typedef OP* (CPERLscope(*Perl_ppaddr_t))(ARGSproto); +# else +typedef OP* (CPERLscope(*Perl_ppaddr_t))(pTHX); +# endif

+typedef OP* (CPERLscope(*Perl_check_t)) (pTHX_ OP*);

+#endif +#ifndef isPSXSPC +# define isPSXSPC(c) (isSPACE(c) || (c) == '\v') +#endif

+#ifndef isBLANK +# define isBLANK(c) ((c) == ' ' || (c) == '\t') +#endif

+#ifdef EBCDIC +#ifndef isALNUMC +# define isALNUMC(c) isalnum(c) +#endif

+#ifndef isASCII +# define isASCII(c) isascii(c) +#endif

+#ifndef isCNTRL +# define isCNTRL(c) iscntrl(c) +#endif

+#ifndef isGRAPH +# define isGRAPH(c) isgraph(c) +#endif

+#ifndef isPRINT +# define isPRINT(c) isprint(c) +#endif

+#ifndef isPUNCT +# define isPUNCT(c) ispunct(c) +#endif

+#ifndef isXDIGIT +# define isXDIGIT(c) isxdigit(c) +#endif

+#else +# if (PERL_BCDVERSION < 0x5010000) +/* Hint: isPRINT

• • The implementation in older perl versions includes all of the
• • isSPACE() characters, which is wrong. The version provided by
• • Devel::PPPort always overrides a present buggy version.
• */

+# undef isPRINT +# endif

+#ifndef WIDEST_UTYPE +# ifdef QUADKIND +# ifdef U64TYPE +# define WIDEST_UTYPE U64TYPE +# else +# define WIDEST_UTYPE Quad_t +# endif +# else +# define WIDEST_UTYPE U32 +# endif +#endif +#ifndef isALNUMC +# define isALNUMC(c) (isALPHA(c) || isDIGIT(c)) +#endif

+#ifndef isASCII +# define isASCII(c) ((WIDEST_UTYPE) (c) <= 127) +#endif

+#ifndef isCNTRL +# define isCNTRL(c) ((WIDEST_UTYPE) (c) < ' ' || (c) == 127) +#endif

+#ifndef isGRAPH +# define isGRAPH(c) (isALNUM(c) || isPUNCT(c)) +#endif

+#ifndef isPRINT +# define isPRINT(c) (((c) >= 32 && (c) < 127)) +#endif

+#ifndef isPUNCT +# define isPUNCT(c) (((c) >= 33 && (c) <= 47) || ((c) >= 58 && (c) <= 64) || ((c) >= 91 && (c) <= 96) || ((c) >= 123 && (c) <= 126)) +#endif

+#ifndef isXDIGIT +# define isXDIGIT(c) (isDIGIT(c) || ((c) >= 'a' && (c) <= 'f') || ((c) >= 'A' && (c) <= 'F')) +#endif

+#endif

+/* Until we figure out how to support this in older perls... */ +#if (PERL_BCDVERSION >= 0x5008000) +#ifndef HeUTF8 +# define HeUTF8(he) ((HeKLEN(he) == HEf_SVKEY) ? \

•                             SvUTF8(HeKEY_sv(he)) :                 \
  

•                             (U32)HeKUTF8(he))
  

+#endif

+#endif +#ifndef C_ARRAY_LENGTH +# define C_ARRAY_LENGTH(a) (sizeof(a)/sizeof((a)[0])) +#endif

+#ifndef C_ARRAY_END +# define C_ARRAY_END(a) ((a) + C_ARRAY_LENGTH(a)) +#endif

+#ifndef IVdf +# if IVSIZE == LONGSIZE +# define IVdf "ld" +# define UVuf "lu" +# define UVof "lo" +# define UVxf "lx" +# define UVXf "lX" +# elif IVSIZE == INTSIZE +# define IVdf "d" +# define UVuf "u" +# define UVof "o" +# define UVxf "x" +# define UVXf "X" +# else +# error "cannot define IV/UV formats" +# endif +#endif

+#ifndef NVef +# if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \

•  defined(PERL_PRIfldbl) && (PERL_BCDVERSION != 0x5006000)
  

•        /* Not very likely, but let's try anyway. */
  

+# define NVef PERL_PRIeldbl +# define NVff PERL_PRIfldbl +# define NVgf PERL_PRIgldbl +# else +# define NVef "e" +# define NVff "f" +# define NVgf "g" +# endif +#endif

+#ifdef NEED_mess_sv +#define NEED_mess +#endif

+#ifdef NEED_mess +#define NEED_mess_nocontext +#define NEED_vmess +#endif

+#ifndef croak_sv +#if (PERL_BCDVERSION >= 0x5007003) || ( (PERL_BCDVERSION >= 0x5006001) && (PERL_BCDVERSION < 0x5007000) ) +# if ( (PERL_BCDVERSION >= 0x5008000) && (PERL_BCDVERSION < 0x5008009) ) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5010001) ) +# define D_PPP_FIX_UTF8_ERRSV(errsv, sv) \

•    STMT_START {                                            \
  

•        if (sv != ERRSV)                                    \
  

•            SvFLAGS(ERRSV) = (SvFLAGS(ERRSV) & ~SVf_UTF8) | \
  

•                             (SvFLAGS(sv) & SVf_UTF8);      \
  

•    } STMT_END
  

+# else +# define D_PPP_FIX_UTF8_ERRSV(errsv, sv) STMT_START {} STMT_END +# endif +# define croak_sv(sv) \

• STMT_START { \

•    if (SvROK(sv)) {                      \
  

•        sv_setsv(ERRSV, sv);              \
  

•        croak(NULL);                      \
  

•    } else {                              \
  

•        D_PPP_FIX_UTF8_ERRSV(ERRSV, sv);  \
  

•        croak("%" SVf, SVfARG(sv));       \
  

•    }                                     \
  

• } STMT_END

+#elif (PERL_BCDVERSION >= 0x5004000) +# define croak_sv(sv) croak("%" SVf, SVfARG(sv)) +#else +# define croak_sv(sv) croak("%s", SvPV_nolen(sv)) +#endif +#endif

+#ifndef die_sv +#if defined(NEED_die_sv) +static OP * DPPP_(my_die_sv)(pTHX_ SV *sv); +static +#else +extern OP * DPPP_(my_die_sv)(pTHX_ SV *sv); +#endif

+#if defined(NEED_die_sv) || defined(NEED_die_sv_GLOBAL)

+#ifdef die_sv +# undef die_sv +#endif +#define die_sv(a) DPPP_(my_die_sv)(aTHX_ a) +#define Perl_die_sv DPPP_(my_die_sv)

+OP * +DPPP_(my_die_sv)(pTHX_ SV *sv) +{

• croak_sv(sv);
• return (OP *)NULL;

+} +#endif +#endif

+#ifndef warn_sv +#if (PERL_BCDVERSION >= 0x5004000) +# define warn_sv(sv) warn("%" SVf, SVfARG(sv)) +#else +# define warn_sv(sv) warn("%s", SvPV_nolen(sv)) +#endif +#endif

+#ifndef vmess +#if defined(NEED_vmess) +static SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args); +static +#else +extern SV * DPPP_(my_vmess)(pTHX_ const char * pat, va_list * args); +#endif

+#if defined(NEED_vmess) || defined(NEED_vmess_GLOBAL)

+#ifdef vmess +# undef vmess +#endif +#define vmess(a,b) DPPP_(my_vmess)(aTHX_ a,b) +#define Perl_vmess DPPP_(my_vmess)

+SV* +DPPP_(my_vmess)(pTHX_ const char* pat, va_list* args) +{

• mess(pat, args);
• return PL_mess_sv;

+} +#endif +#endif

+#if (PERL_BCDVERSION < 0x5006000) +#undef mess +#endif

+#if !defined(mess_nocontext) && !defined(Perl_mess_nocontext) +#if defined(NEED_mess_nocontext) +static SV * DPPP_(my_mess_nocontext)(const char * pat, ...); +static +#else +extern SV * DPPP_(my_mess_nocontext)(const char * pat, ...); +#endif

+#if defined(NEED_mess_nocontext) || defined(NEED_mess_nocontext_GLOBAL)

+#define mess_nocontext DPPP_(my_mess_nocontext) +#define Perl_mess_nocontext DPPP_(my_mess_nocontext)

+SV* +DPPP_(my_mess_nocontext)(const char* pat, ...) +{

• dTHX;
• SV *sv;
• va_list args;
• va_start(args, pat);
• sv = vmess(pat, &args);
• va_end(args);
• return sv;

+} +#endif +#endif

+#ifndef mess +#if defined(NEED_mess) +static SV * DPPP_(my_mess)(pTHX_ const char * pat, ...); +static +#else +extern SV * DPPP_(my_mess)(pTHX_ const char * pat, ...); +#endif

+#if defined(NEED_mess) || defined(NEED_mess_GLOBAL)

+#define Perl_mess DPPP_(my_mess)

+SV* +DPPP_(my_mess)(pTHX_ const char* pat, ...) +{

• SV *sv;
• va_list args;
• va_start(args, pat);
• sv = vmess(pat, &args);
• va_end(args);
• return sv;

+} +#ifdef mess_nocontext +#define mess mess_nocontext +#else +#define mess Perl_mess_nocontext +#endif +#endif +#endif

+#ifndef mess_sv +#if defined(NEED_mess_sv) +static SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume); +static +#else +extern SV * DPPP_(my_mess_sv)(pTHX_ SV * basemsg, bool consume); +#endif

+#if defined(NEED_mess_sv) || defined(NEED_mess_sv_GLOBAL)

+#ifdef mess_sv +# undef mess_sv +#endif +#define mess_sv(a,b) DPPP_(my_mess_sv)(aTHX_ a,b) +#define Perl_mess_sv DPPP_(my_mess_sv)

+SV * +DPPP_(my_mess_sv)(pTHX_ SV *basemsg, bool consume) +{

• SV *tmp;
• SV *ret;
• if (SvPOK(basemsg) && SvCUR(basemsg) && *(SvEND(basemsg)-1) == '\n') {

•    if (consume)
  

•        return basemsg;
  

•    ret = mess("");
  

•    SvSetSV_nosteal(ret, basemsg);
  

•    return ret;
  

• }
• if (consume) {

•    sv_catsv(basemsg, mess(""));
  

•    return basemsg;
  

• }
• ret = mess("");
• tmp = newSVsv(ret);
• SvSetSV_nosteal(ret, basemsg);
• sv_catsv(ret, tmp);
• sv_dec(tmp);
• return ret;

+} +#endif +#endif

+#ifndef warn_nocontext +#define warn_nocontext warn +#endif

+#ifndef croak_nocontext +#define croak_nocontext croak +#endif

+#ifndef croak_no_modify +#define croak_no_modify() croak_nocontext("%s", PL_no_modify) +#define Perl_croak_no_modify() croak_no_modify() +#endif

+#ifndef croak_memory_wrap +#if (PERL_BCDVERSION >= 0x5009002) || ( (PERL_BCDVERSION >= 0x5008006) && (PERL_BCDVERSION < 0x5009000) ) +# define croak_memory_wrap() croak_nocontext("%s", PL_memory_wrap) +#else +# define croak_memory_wrap() croak_nocontext("panic: memory wrap") +#endif +#endif

+#ifndef croak_xs_usage +#if defined(NEED_croak_xs_usage) +static void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const params); +static +#else +extern void DPPP_(my_croak_xs_usage)(const CV * const cv, const char * const params); +#endif

+#if defined(NEED_croak_xs_usage) || defined(NEED_croak_xs_usage_GLOBAL)

+#define croak_xs_usage DPPP_(my_croak_xs_usage) +#define Perl_croak_xs_usage DPPP_(my_croak_xs_usage)

+#ifndef PERL_ARGS_ASSERT_CROAK_XS_USAGE +#define PERL_ARGS_ASSERT_CROAK_XS_USAGE assert(cv); assert(params) +#endif

+void +DPPP_(my_croak_xs_usage)(const CV *const cv, const char *const params) +{

• dTHX;
• const GV *const gv = CvGV(cv);
• PERL_ARGS_ASSERT_CROAK_XS_USAGE;
• if (gv) {

•    const char *const gvname = GvNAME(gv);
  

•    const HV *const stash = GvSTASH(gv);
  

•    const char *const hvname = stash ? HvNAME(stash) : NULL;
  

•    if (hvname)
  

•        croak("Usage: %s::%s(%s)", hvname, gvname, params);
  

•    else
  

•        croak("Usage: %s(%s)", gvname, params);
  

• } else {

•    /* Pants. I don't think that it should be possible to get here. */
  

•    croak("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params);
  

• }

+} +#endif +#endif

+#ifndef PERL_SIGNALS_UNSAFE_FLAG

+#define PERL_SIGNALS_UNSAFE_FLAG 0x0001

+#if (PERL_BCDVERSION < 0x5008000) +# define D_PPP_PERL_SIGNALS_INIT PERL_SIGNALS_UNSAFE_FLAG +#else +# define D_PPP_PERL_SIGNALS_INIT 0 +#endif

+#if defined(NEED_PL_signals) +static U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT; +#elif defined(NEED_PL_signals_GLOBAL) +U32 DPPP_(my_PL_signals) = D_PPP_PERL_SIGNALS_INIT; +#else +extern U32 DPPP_(my_PL_signals); +#endif +#define PL_signals DPPP_(my_PL_signals)

+#endif

+/* Hint: PL_ppaddr

• • Calling an op via PL_ppaddr requires passing a context argument
• • for threaded builds. Since the context argument is different for
• • 5.005 perls, you can use aTHXR (supplied by ppport.h), which will
• • automatically be defined as the correct argument.
• */

+#if (PERL_BCDVERSION <= 0x5005005) +/* Replace: 1 */ +# define PL_ppaddr ppaddr +# define PL_no_modify no_modify +/* Replace: 0 */ +#endif

+#if (PERL_BCDVERSION <= 0x5004005) +/* Replace: 1 */ +# define PL_DBsignal DBsignal +# define PL_DBsingle DBsingle +# define PL_DBsub DBsub +# define PL_DBtrace DBtrace +# define PL_Sv Sv +# define PL_bufend bufend +# define PL_bufptr bufptr +# define PL_compiling compiling +# define PL_copline copline +# define PL_curcop curcop +# define PL_curstash curstash +# define PL_debstash debstash +# define PL_defgv defgv +# define PL_diehook diehook +# define PL_dirty dirty +# define PL_dowarn dowarn +# define PL_errgv errgv +# define PL_error_count error_count +# define PL_expect expect +# define PL_hexdigit hexdigit +# define PL_hints hints +# define PL_in_my in_my +# define PL_laststatval laststatval +# define PL_lex_state lex_state +# define PL_lex_stuff lex_stuff +# define PL_linestr linestr +# define PL_na na +# define PL_perl_destruct_level perl_destruct_level +# define PL_perldb perldb +# define PL_rsfp_filters rsfp_filters +# define PL_rsfp rsfp +# define PL_stack_base stack_base +# define PL_stack_sp stack_sp +# define PL_statcache statcache +# define PL_stdingv stdingv +# define PL_sv_arenaroot sv_arenaroot +# define PL_sv_no sv_no +# define PL_sv_undef sv_undef +# define PL_sv_yes sv_yes +# define PL_tainted tainted +# define PL_tainting tainting +# define PL_tokenbuf tokenbuf +/* Replace: 0 */ +#endif

+/* Warning: PL_parser

• • For perl versions earlier than 5.9.5, this is an always
• • non-NULL dummy. Also, it cannot be dereferenced. Don't
• • use it if you can avoid is and unless you absolutely know
• • what you're doing.
• • If you always check that PL_parser is non-NULL, you can
• • define DPPP_PL_parser_NO_DUMMY to avoid the creation of
• • a dummy parser structure.
• */

+#if (PERL_BCDVERSION >= 0x5009005) +# ifdef DPPP_PL_parser_NO_DUMMY +# define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \

•            (croak("panic: PL_parser == NULL in %s:%d", \
  

•                   __FILE__, __LINE__), (yy_parser *) NULL))->var)
  

+# else +# ifdef DPPP_PL_parser_NO_DUMMY_WARNING +# define D_PPP_parser_dummy_warning(var) +# else +# define D_PPP_parser_dummy_warning(var) \

•         warn("warning: dummy PL_" #var " used in %s:%d", __FILE__, __LINE__),
  

+# endif +# define D_PPP_my_PL_parser_var(var) ((PL_parser ? PL_parser : \

•            (D_PPP_parser_dummy_warning(var) &DPPP_(dummy_PL_parser)))->var)
  

+#if defined(NEED_PL_parser) +static yy_parser DPPP_(dummy_PL_parser); +#elif defined(NEED_PL_parser_GLOBAL) +yy_parser DPPP_(dummy_PL_parser); +#else +extern yy_parser DPPP_(dummy_PL_parser); +#endif

+# endif

+/* PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf depends on PL_parser */ +/* Warning: PL_expect, PL_copline, PL_rsfp, PL_rsfp_filters, PL_linestr, PL_bufptr, PL_bufend, PL_lex_state, PL_lex_stuff, PL_tokenbuf

• • Do not use this variable unless you know exactly what you're
• • doing. It is internal to the perl parser and may change or even
• • be removed in the future. As of perl 5.9.5, you have to check
• • for (PL_parser != NULL) for this variable to have any effect.
• • An always non-NULL PL_parser dummy is provided for earlier
• • perl versions.
• • If PL_parser is NULL when you try to access this variable, a
• • dummy is being accessed instead and a warning is issued unless
• • you define DPPP_PL_parser_NO_DUMMY_WARNING.
• • If DPPP_PL_parser_NO_DUMMY is defined, the code trying to access
• • this variable will croak with a panic message.
• */

+# define PL_expect D_PPP_my_PL_parser_var(expect) +# define PL_copline D_PPP_my_PL_parser_var(copline) +# define PL_rsfp D_PPP_my_PL_parser_var(rsfp) +# define PL_rsfp_filters D_PPP_my_PL_parser_var(rsfp_filters) +# define PL_linestr D_PPP_my_PL_parser_var(linestr) +# define PL_bufptr D_PPP_my_PL_parser_var(bufptr) +# define PL_bufend D_PPP_my_PL_parser_var(bufend) +# define PL_lex_state D_PPP_my_PL_parser_var(lex_state) +# define PL_lex_stuff D_PPP_my_PL_parser_var(lex_stuff) +# define PL_tokenbuf D_PPP_my_PL_parser_var(tokenbuf) +# define PL_in_my D_PPP_my_PL_parser_var(in_my) +# define PL_in_my_stash D_PPP_my_PL_parser_var(in_my_stash) +# define PL_error_count D_PPP_my_PL_parser_var(error_count)

+#else

+/* ensure that PL_parser != NULL and cannot be dereferenced */ +# define PL_parser ((void *) 1)

+#endif +#ifndef mPUSHs +# define mPUSHs(s) PUSHs(sv_2mortal(s)) +#endif

+#ifndef PUSHmortal +# define PUSHmortal PUSHs(sv_newmortal()) +#endif

+#ifndef mPUSHp +# define mPUSHp(p,l) sv_setpvn(PUSHmortal, (p), (l)) +#endif

+#ifndef mPUSHn +# define mPUSHn(n) sv_setnv(PUSHmortal, (NV)(n)) +#endif

+#ifndef mPUSHi +# define mPUSHi(i) sv_setiv(PUSHmortal, (IV)(i)) +#endif

+#ifndef mPUSHu +# define mPUSHu(u) sv_setuv(PUSHmortal, (UV)(u)) +#endif +#ifndef mXPUSHs +# define mXPUSHs(s) XPUSHs(sv_2mortal(s)) +#endif

+#ifndef XPUSHmortal +# define XPUSHmortal XPUSHs(sv_newmortal()) +#endif

+#ifndef mXPUSHp +# define mXPUSHp(p,l) STMT_START { EXTEND(sp,1); sv_setpvn(PUSHmortal, (p), (l)); } STMT_END +#endif

+#ifndef mXPUSHn +# define mXPUSHn(n) STMT_START { EXTEND(sp,1); sv_setnv(PUSHmortal, (NV)(n)); } STMT_END +#endif

+#ifndef mXPUSHi +# define mXPUSHi(i) STMT_START { EXTEND(sp,1); sv_setiv(PUSHmortal, (IV)(i)); } STMT_END +#endif

+#ifndef mXPUSHu +# define mXPUSHu(u) STMT_START { EXTEND(sp,1); sv_setuv(PUSHmortal, (UV)(u)); } STMT_END +#endif

+/* Replace: 1 */ +#ifndef call_sv +# define call_sv perl_call_sv +#endif

+#ifndef call_pv +# define call_pv perl_call_pv +#endif

+#ifndef call_argv +# define call_argv perl_call_argv +#endif

+#ifndef call_method +# define call_method perl_call_method +#endif +#ifndef eval_sv +# define eval_sv perl_eval_sv +#endif

+/* Replace: 0 */ +#ifndef PERL_LOADMOD_DENY +# define PERL_LOADMOD_DENY 0x1 +#endif

+#ifndef PERL_LOADMOD_NOIMPORT +# define PERL_LOADMOD_NOIMPORT 0x2 +#endif

+#ifndef PERL_LOADMOD_IMPORT_OPS +# define PERL_LOADMOD_IMPORT_OPS 0x4 +#endif

+#ifndef G_METHOD +# define G_METHOD 64 +# ifdef call_sv +# undef call_sv +# endif +# if (PERL_BCDVERSION < 0x5006000) +# define call_sv(sv, flags) ((flags) & G_METHOD ? perl_call_method((char *) SvPV_nolen_const(sv), \

•                            (flags) & ~G_METHOD) : perl_call_sv(sv, flags))
  

+# else +# define call_sv(sv, flags) ((flags) & G_METHOD ? Perl_call_method(aTHX_ (char *) SvPV_nolen_const(sv), \

•                            (flags) & ~G_METHOD) : Perl_call_sv(aTHX_ sv, flags))
  

+# endif +#endif

+/* Replace perl_eval_pv with eval_pv */

+#ifndef eval_pv +#if defined(NEED_eval_pv) +static SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error); +static +#else +extern SV* DPPP_(my_eval_pv)(char *p, I32 croak_on_error); +#endif

+#if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)

+#ifdef eval_pv +# undef eval_pv +#endif +#define eval_pv(a,b) DPPP_(my_eval_pv)(aTHX_ a,b) +#define Perl_eval_pv DPPP_(my_eval_pv)

+SV* +DPPP_(my_eval_pv)(char *p, I32 croak_on_error) +{

• dSP;
• SV* sv = newSVpv(p, 0);
• PUSHMARK(sp);
• eval_sv(sv, G_SCALAR);
• SvREFCNT_dec(sv);
• SPAGAIN;
• sv = POPs;
• PUTBACK;
• if (croak_on_error && SvTRUEx(ERRSV))

•    croak_sv(ERRSV);
  

• return sv;

+}

+#endif +#endif

+#ifndef vload_module +#if defined(NEED_vload_module) +static void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args); +static +#else +extern void DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args); +#endif

+#if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)

+#ifdef vload_module +# undef vload_module +#endif +#define vload_module(a,b,c,d) DPPP_(my_vload_module)(aTHX_ a,b,c,d) +#define Perl_vload_module DPPP_(my_vload_module)

+void +DPPP_(my_vload_module)(U32 flags, SV *name, SV *ver, va_list *args) +{

• dTHR;
• dVAR;
• OP *veop, *imop;
• OP * const modname = newSVOP(OP_CONST, 0, name);
• /* 5.005 has a somewhat hacky force_normal that doesn't croak on

•   SvREADONLY() if PL_compling is true. Current perls take care in
  

•   ck_require() to correctly turn off SvREADONLY before calling
  

•   force_normal_flags(). This seems a better fix than fudging PL_compling
  

• */
  

• SvREADONLY_off(((SVOP*)modname)->op_sv);
• modname->op_private |= OPpCONST_BARE;
• if (ver) {

•    veop = newSVOP(OP_CONST, 0, ver);
  

• }
• else

•    veop = NULL;
  

• if (flags & PERL_LOADMOD_NOIMPORT) {

•    imop = sawparens(newNULLLIST());
  

• }
• else if (flags & PERL_LOADMOD_IMPORT_OPS) {

•    imop = va_arg(*args, OP*);
  

• }
• else {

•    SV *sv;
  

•    imop = NULL;
  

•    sv = va_arg(*args, SV*);
  

•    while (sv) {
  

•        imop = append_elem(OP_LIST, imop, newSVOP(OP_CONST, 0, sv));
  

•        sv = va_arg(*args, SV*);
  

•    }
  

• }
• {

•    const line_t ocopline = PL_copline;
  

•    COP * const ocurcop = PL_curcop;
  

•    const int oexpect = PL_expect;
  

+#if (PERL_BCDVERSION >= 0x5004000)

•    utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(FALSE, 0),
  

•            veop, modname, imop);
  

+#elif (PERL_BCDVERSION > 0x5003000)

•    utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
  

•            veop, modname, imop);
  

+#else

•    utilize(!(flags & PERL_LOADMOD_DENY), start_subparse(),
  

•            modname, imop);
  

+#endif

•    PL_expect = oexpect;
  

•    PL_copline = ocopline;
  

•    PL_curcop = ocurcop;
  

• }

+}

+#endif +#endif

+#ifndef load_module +#if defined(NEED_load_module) +static void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...); +static +#else +extern void DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...); +#endif

+#if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)

+#ifdef load_module +# undef load_module +#endif +#define load_module DPPP_(my_load_module) +#define Perl_load_module DPPP_(my_load_module)

+void +DPPP_(my_load_module)(U32 flags, SV *name, SV *ver, ...) +{

• va_list args;
• va_start(args, ver);
• vload_module(flags, name, ver, &args);
• va_end(args);

+}

+#endif +#endif +#ifndef newRV_inc +# define newRV_inc(sv) newRV(sv) /* Replace */ +#endif

+#ifndef newRV_noinc +#if defined(NEED_newRV_noinc) +static SV * DPPP_(my_newRV_noinc)(SV *sv); +static +#else +extern SV * DPPP_(my_newRV_noinc)(SV *sv); +#endif

+#if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL)

+#ifdef newRV_noinc +# undef newRV_noinc +#endif +#define newRV_noinc(a) DPPP_(my_newRV_noinc)(aTHX_ a) +#define Perl_newRV_noinc DPPP_(my_newRV_noinc)

+SV * +DPPP_(my_newRV_noinc)(SV *sv) +{

• SV *rv = (SV *)newRV(sv);
• SvREFCNT_dec(sv);
• return rv;

+} +#endif +#endif

+/* Hint: newCONSTSUB

• • Returns a CV* as of perl-5.7.1. This return value is not supported
• • by Devel::PPPort.
• */

+/* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */ +#if (PERL_BCDVERSION < 0x5004063) && (PERL_BCDVERSION != 0x5004005) +#if defined(NEED_newCONSTSUB) +static void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv); +static +#else +extern void DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv); +#endif

+#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)

+#ifdef newCONSTSUB +# undef newCONSTSUB +#endif +#define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c) +#define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)

+/* This is just a trick to avoid a dependency of newCONSTSUB on PL_parser */ +/* (There's no PL_parser in perl < 5.005, so this is completely safe) */ +#define D_PPP_PL_copline PL_copline

+void +DPPP_(my_newCONSTSUB)(HV *stash, const char *name, SV *sv) +{

•    U32 oldhints = PL_hints;
  

•    HV *old_cop_stash = PL_curcop->cop_stash;
  

•    HV *old_curstash = PL_curstash;
  

•    line_t oldline = PL_curcop->cop_line;
  

•    PL_curcop->cop_line = D_PPP_PL_copline;
  

•    PL_hints &= ~HINT_BLOCK_SCOPE;
  

•    if (stash)
  

•            PL_curstash = PL_curcop->cop_stash = stash;
  

•    newSUB(
  

+#if (PERL_BCDVERSION < 0x5003022)

•            start_subparse(),
  

+#elif (PERL_BCDVERSION == 0x5003022)

•            start_subparse(0),
  

+#else /* 5.003_23 onwards */

•            start_subparse(FALSE, 0),
  

+#endif

•            newSVOP(OP_CONST, 0, newSVpv((char *) name, 0)),
  

•            newSVOP(OP_CONST, 0, &PL_sv_no),   /* SvPV(&PL_sv_no) == "" -- GMB */
  

•            newSTATEOP(0, Nullch, newSVOP(OP_CONST, 0, sv))
  

•    );
  

•    PL_hints = oldhints;
  

•    PL_curcop->cop_stash = old_cop_stash;
  

•    PL_curstash = old_curstash;
  

•    PL_curcop->cop_line = oldline;
  

+} +#endif +#endif

+/*

• • Boilerplate macros for initializing and accessing interpreter-local
• • data from C. All statics in extensions should be reworked to use
• • this, if you want to make the extension thread-safe. See ext/re/re.xs
• • for an example of the use of these macros.
• • Code that uses these macros is responsible for the following:
• • 1. #define MY_CXT_KEY to a unique string, e.g. "DynaLoader_guts"
• • 2. Declare a typedef named my_cxt_t that is a structure that contains
• • all the data that needs to be interpreter-local.
• • 3. Use the START_MY_CXT macro after the declaration of my_cxt_t.
• • 4. Use the MY_CXT_INIT macro such that it is called exactly once
• • (typically put in the BOOT: section).
• • 5. Use the members of the my_cxt_t structure everywhere as
• • MY_CXT.member.
• • 6. Use the dMY_CXT macro (a declaration) in all the functions that
• • access MY_CXT.
• */

+#if defined(MULTIPLICITY) || defined(PERL_OBJECT) || \

• defined(PERL_CAPI) || defined(PERL_IMPLICIT_CONTEXT)

+#ifndef START_MY_CXT

+/* This must appear in all extensions that define a my_cxt_t structure,

• • right after the definition (i.e. at file scope). The non-threads
• • case below uses it to declare the data as static. */

+#define START_MY_CXT

+#if (PERL_BCDVERSION < 0x5004068) +/* Fetches the SV that keeps the per-interpreter data. */ +#define dMY_CXT_SV \

•    SV *my_cxt_sv = get_sv(MY_CXT_KEY, FALSE)
  

+#else /* >= perl5.004_68 */ +#define dMY_CXT_SV \

•    SV *my_cxt_sv = *hv_fetch(PL_modglobal, MY_CXT_KEY,             \
  

•                              sizeof(MY_CXT_KEY)-1, TRUE)
  

+#endif /* < perl5.004_68 */

+/* This declaration should be used within all functions that use the

• • interpreter-local data. */

+#define dMY_CXT \

•    dMY_CXT_SV;                                                     \
  

•    my_cxt_t *my_cxtp = INT2PTR(my_cxt_t*,SvUV(my_cxt_sv))
  

+/* Creates and zeroes the per-interpreter data.

• • (We allocate my_cxtp in a Perl SV so that it will be released when
• • the interpreter goes away.) */

+#define MY_CXT_INIT \

•    dMY_CXT_SV;                                                     \
  

•    /* newSV() allocates one more than needed */                    \
  

•    my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
  

•    Zero(my_cxtp, 1, my_cxt_t);                                     \
  

•    sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
  

+/* This macro must be used to access members of the my_cxt_t structure.

• • e.g. MYCXT.some_data */

+#define MY_CXT (*my_cxtp)

+/* Judicious use of these macros can reduce the number of times dMY_CXT

• • is used. Use is similar to pTHX, aTHX etc. */

+#define pMY_CXT my_cxt_t *my_cxtp +#define pMY_CXT_ pMY_CXT, +#define _pMY_CXT ,pMY_CXT +#define aMY_CXT my_cxtp +#define aMY_CXT_ aMY_CXT, +#define _aMY_CXT ,aMY_CXT

+#endif /* START_MY_CXT */

+#ifndef MY_CXT_CLONE +/* Clones the per-interpreter data. */ +#define MY_CXT_CLONE \

•    dMY_CXT_SV;                                                     \
  

•    my_cxt_t *my_cxtp = (my_cxt_t*)SvPVX(newSV(sizeof(my_cxt_t)-1));\
  

•    Copy(INT2PTR(my_cxt_t*, SvUV(my_cxt_sv)), my_cxtp, 1, my_cxt_t);\
  

•    sv_setuv(my_cxt_sv, PTR2UV(my_cxtp))
  

+#endif

+#else /* single interpreter */

+#ifndef START_MY_CXT

+#define START_MY_CXT static my_cxt_t my_cxt; +#define dMY_CXT_SV dNOOP +#define dMY_CXT dNOOP +#define MY_CXT_INIT NOOP +#define MY_CXT my_cxt

+#define pMY_CXT void +#define pMY_CXT_ +#define _pMY_CXT +#define aMY_CXT +#define aMY_CXT_ +#define _aMY_CXT

+#endif /* START_MY_CXT */

+#ifndef MY_CXT_CLONE +#define MY_CXT_CLONE NOOP +#endif

+#endif

+#ifndef SvREFCNT_inc +# ifdef PERL_USE_GCC_BRACE_GROUPS +# define SvREFCNT_inc(sv) \

•  ({                                \
  

•      SV * const _sv = (SV*)(sv);   \
  

•      if (_sv)                      \
  

•           (SvREFCNT(_sv))++;       \
  

•      _sv;                          \
  

•  })
  

+# else +# define SvREFCNT_inc(sv) \

•      ((PL_Sv=(SV*)(sv)) ? (++(SvREFCNT(PL_Sv)),PL_Sv) : NULL)
  

+# endif +#endif

+#ifndef SvREFCNT_inc_simple +# ifdef PERL_USE_GCC_BRACE_GROUPS +# define SvREFCNT_inc_simple(sv) \

•  ({                                        \
  

•      if (sv)                               \
  

•           (SvREFCNT(sv))++;                \
  

•      (SV *)(sv);                           \
  

•  })
  

+# else +# define SvREFCNT_inc_simple(sv) \

•      ((sv) ? (SvREFCNT(sv)++,(SV*)(sv)) : NULL)
  

+# endif +#endif

+#ifndef SvREFCNT_inc_NN +# ifdef PERL_USE_GCC_BRACE_GROUPS +# define SvREFCNT_inc_NN(sv) \

•  ({                                        \
  

•      SV * const _sv = (SV*)(sv);   \
  

•      SvREFCNT(_sv)++;              \
  

•      _sv;                          \
  

•  })
  

+# else +# define SvREFCNT_inc_NN(sv) \

•      (PL_Sv=(SV*)(sv),++(SvREFCNT(PL_Sv)),PL_Sv)
  

+# endif +#endif

+#ifndef SvREFCNT_inc_void +# ifdef PERL_USE_GCC_BRACE_GROUPS +# define SvREFCNT_inc_void(sv) \

•  ({                                        \
  

•      SV * const _sv = (SV*)(sv);   \
  

•      if (_sv)                      \
  

•          (void)(SvREFCNT(_sv)++);  \
  

•  })
  

+# else +# define SvREFCNT_inc_void(sv) \

•      (void)((PL_Sv=(SV*)(sv)) ? ++(SvREFCNT(PL_Sv)) : 0)
  

+# endif +#endif +#ifndef SvREFCNT_inc_simple_void +# define SvREFCNT_inc_simple_void(sv) STMT_START { if (sv) SvREFCNT(sv)++; } STMT_END +#endif

+#ifndef SvREFCNT_inc_simple_NN +# define SvREFCNT_inc_simple_NN(sv) (++SvREFCNT(sv), (SV*)(sv)) +#endif

+#ifndef SvREFCNT_inc_void_NN +# define SvREFCNT_inc_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) +#endif

+#ifndef SvREFCNT_inc_simple_void_NN +# define SvREFCNT_inc_simple_void_NN(sv) (void)(++SvREFCNT((SV*)(sv))) +#endif

+#ifndef newSV_type

+#if defined(NEED_newSV_type) +static SV* DPPP_(my_newSV_type)(pTHX_ svtype const t); +static +#else +extern SV* DPPP_(my_newSV_type)(pTHX_ svtype const t); +#endif

+#if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)

+#ifdef newSV_type +# undef newSV_type +#endif +#define newSV_type(a) DPPP_(my_newSV_type)(aTHX_ a) +#define Perl_newSV_type DPPP_(my_newSV_type)

+SV* +DPPP_(my_newSV_type)(pTHX_ svtype const t) +{

• SV* const sv = newSV(0);
• sv_upgrade(sv, t);
• return sv;

+}

+#endif

+#endif

+#if (PERL_BCDVERSION < 0x5006000) +# define D_PPP_CONSTPV_ARG(x) ((char *) (x)) +#else +# define D_PPP_CONSTPV_ARG(x) (x) +#endif +#ifndef newSVpvn +# define newSVpvn(data,len) ((data) \

•                                ? ((len) ? newSVpv((data), (len)) : newSVpv("", 0)) \
  

•                                : newSV(0))
  

+#endif +#ifndef newSVpvn_utf8 +# define newSVpvn_utf8(s, len, u) newSVpvn_flags((s), (len), (u) ? SVf_UTF8 : 0) +#endif +#ifndef SVf_UTF8 +# define SVf_UTF8 0 +#endif

+#ifndef newSVpvn_flags

+#if defined(NEED_newSVpvn_flags) +static SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags); +static +#else +extern SV * DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags); +#endif

+#if defined(NEED_newSVpvn_flags) || defined(NEED_newSVpvn_flags_GLOBAL)

+#ifdef newSVpvn_flags +# undef newSVpvn_flags +#endif +#define newSVpvn_flags(a,b,c) DPPP_(my_newSVpvn_flags)(aTHX_ a,b,c) +#define Perl_newSVpvn_flags DPPP_(my_newSVpvn_flags)

+SV * +DPPP_(my_newSVpvn_flags)(pTHX_ const char *s, STRLEN len, U32 flags) +{

• SV *sv = newSVpvn(D_PPP_CONSTPV_ARG(s), len);
• SvFLAGS(sv) |= (flags & SVf_UTF8);
• return (flags & SVs_TEMP) ? sv_2mortal(sv) : sv;

+}

+#endif

+#endif

+/* Backwards compatibility stuff... :-( */ +#if !defined(NEED_sv_2pv_flags) && defined(NEED_sv_2pv_nolen) +# define NEED_sv_2pv_flags +#endif +#if !defined(NEED_sv_2pv_flags_GLOBAL) && defined(NEED_sv_2pv_nolen_GLOBAL) +# define NEED_sv_2pv_flags_GLOBAL +#endif

+/* Hint: sv_2pv_nolen

• • Use the SvPV_nolen() or SvPV_nolen_const() macros instead of sv_2pv_nolen().
• */

+#ifndef sv_2pv_nolen +# define sv_2pv_nolen(sv) SvPV_nolen(sv) +#endif

+#ifdef SvPVbyte

+/* Hint: SvPVbyte

• • Does not work in perl-5.6.1, ppport.h implements a version
• • borrowed from perl-5.7.3.
• */

+#if (PERL_BCDVERSION < 0x5007000)

+#if defined(NEED_sv_2pvbyte) +static char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp); +static +#else +extern char * DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp); +#endif

+#if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)

+#ifdef sv_2pvbyte +# undef sv_2pvbyte +#endif +#define sv_2pvbyte(a,b) DPPP_(my_sv_2pvbyte)(aTHX_ a,b) +#define Perl_sv_2pvbyte DPPP_(my_sv_2pvbyte)

+char * +DPPP_(my_sv_2pvbyte)(pTHX_ SV *sv, STRLEN *lp) +{

• sv_utf8_downgrade(sv,0);
• return SvPV(sv,*lp);

+}

+#endif

+/* Hint: sv_2pvbyte

• • Use the SvPVbyte() macro instead of sv_2pvbyte().
• */

+#undef SvPVbyte

+#define SvPVbyte(sv, lp) \

•    ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK)                \
  

•     ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pvbyte(sv, &lp))
  

+#endif

+#else

+# define SvPVbyte SvPV +# define sv_2pvbyte sv_2pv

+#endif +#ifndef sv_2pvbyte_nolen +# define sv_2pvbyte_nolen(sv) sv_2pv_nolen(sv) +#endif

+/* Hint: sv_pvn

• • Always use the SvPV() macro instead of sv_pvn().
• */

+/* Hint: sv_pvn_force

• • Always use the SvPV_force() macro instead of sv_pvn_force().
• */

+/* If these are undefined, they're not handled by the core anyway */ +#ifndef SV_IMMEDIATE_UNREF +# define SV_IMMEDIATE_UNREF 0 +#endif

+#ifndef SV_GMAGIC +# define SV_GMAGIC 0 +#endif

+#ifndef SV_COW_DROP_PV +# define SV_COW_DROP_PV 0 +#endif

+#ifndef SV_UTF8_NO_ENCODING +# define SV_UTF8_NO_ENCODING 0 +#endif

+#ifndef SV_NOSTEAL +# define SV_NOSTEAL 0 +#endif

+#ifndef SV_CONST_RETURN +# define SV_CONST_RETURN 0 +#endif

+#ifndef SV_MUTABLE_RETURN +# define SV_MUTABLE_RETURN 0 +#endif

+#ifndef SV_SMAGIC +# define SV_SMAGIC 0 +#endif

+#ifndef SV_HAS_TRAILING_NUL +# define SV_HAS_TRAILING_NUL 0 +#endif

+#ifndef SV_COW_SHARED_HASH_KEYS +# define SV_COW_SHARED_HASH_KEYS 0 +#endif

+#if (PERL_BCDVERSION < 0x5007002)

+#if defined(NEED_sv_2pv_flags) +static char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); +static +#else +extern char * DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); +#endif

+#if defined(NEED_sv_2pv_flags) || defined(NEED_sv_2pv_flags_GLOBAL)

+#ifdef sv_2pv_flags +# undef sv_2pv_flags +#endif +#define sv_2pv_flags(a,b,c) DPPP_(my_sv_2pv_flags)(aTHX_ a,b,c) +#define Perl_sv_2pv_flags DPPP_(my_sv_2pv_flags)

+char * +DPPP_(my_sv_2pv_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags) +{

• STRLEN n_a = (STRLEN) flags;
• return sv_2pv(sv, lp ? lp : &n_a);

+}

+#endif

+#if defined(NEED_sv_pvn_force_flags) +static char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); +static +#else +extern char * DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags); +#endif

+#if defined(NEED_sv_pvn_force_flags) || defined(NEED_sv_pvn_force_flags_GLOBAL)

+#ifdef sv_pvn_force_flags +# undef sv_pvn_force_flags +#endif +#define sv_pvn_force_flags(a,b,c) DPPP_(my_sv_pvn_force_flags)(aTHX_ a,b,c) +#define Perl_sv_pvn_force_flags DPPP_(my_sv_pvn_force_flags)

+char * +DPPP_(my_sv_pvn_force_flags)(pTHX_ SV *sv, STRLEN *lp, I32 flags) +{

• STRLEN n_a = (STRLEN) flags;
• return sv_pvn_force(sv, lp ? lp : &n_a);

+}

+#endif

+#endif

+#if (PERL_BCDVERSION < 0x5008008) || ( (PERL_BCDVERSION >= 0x5009000) && (PERL_BCDVERSION < 0x5009003) ) +# define D_PPP_SVPV_NOLEN_LP_ARG &PL_na +#else +# define D_PPP_SVPV_NOLEN_LP_ARG 0 +#endif +#ifndef SvPV_const +# define SvPV_const(sv, lp) SvPV_flags_const(sv, lp, SV_GMAGIC) +#endif

+#ifndef SvPV_mutable +# define SvPV_mutable(sv, lp) SvPV_flags_mutable(sv, lp, SV_GMAGIC) +#endif +#ifndef SvPV_flags +# define SvPV_flags(sv, lp, flags) \

•             ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
  

•              ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_2pv_flags(sv, &lp, flags))
  

+#endif +#ifndef SvPV_flags_const +# define SvPV_flags_const(sv, lp, flags) \

•             ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
  

•              ? ((lp = SvCUR(sv)), SvPVX_const(sv)) : \
  

•              (const char*) sv_2pv_flags(sv, &lp, flags|SV_CONST_RETURN))
  

+#endif +#ifndef SvPV_flags_const_nolen +# define SvPV_flags_const_nolen(sv, flags) \

•             ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
  

•              ? SvPVX_const(sv) : \
  

•              (const char*) sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags|SV_CONST_RETURN))
  

+#endif +#ifndef SvPV_flags_mutable +# define SvPV_flags_mutable(sv, lp, flags) \

•             ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
  

•              ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) : \
  

•              sv_2pv_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
  

+#endif +#ifndef SvPV_force +# define SvPV_force(sv, lp) SvPV_force_flags(sv, lp, SV_GMAGIC) +#endif

+#ifndef SvPV_force_nolen +# define SvPV_force_nolen(sv) SvPV_force_flags_nolen(sv, SV_GMAGIC) +#endif

+#ifndef SvPV_force_mutable +# define SvPV_force_mutable(sv, lp) SvPV_force_flags_mutable(sv, lp, SV_GMAGIC) +#endif

+#ifndef SvPV_force_nomg +# define SvPV_force_nomg(sv, lp) SvPV_force_flags(sv, lp, 0) +#endif

+#ifndef SvPV_force_nomg_nolen +# define SvPV_force_nomg_nolen(sv) SvPV_force_flags_nolen(sv, 0) +#endif +#ifndef SvPV_force_flags +# define SvPV_force_flags(sv, lp, flags) \

•             ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
  

•             ? ((lp = SvCUR(sv)), SvPVX(sv)) : sv_pvn_force_flags(sv, &lp, flags))
  

+#endif +#ifndef SvPV_force_flags_nolen +# define SvPV_force_flags_nolen(sv, flags) \

•             ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
  

•             ? SvPVX(sv) : sv_pvn_force_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, flags))
  

+#endif +#ifndef SvPV_force_flags_mutable +# define SvPV_force_flags_mutable(sv, lp, flags) \

•             ((SvFLAGS(sv) & (SVf_POK|SVf_THINKFIRST)) == SVf_POK \
  

•             ? ((lp = SvCUR(sv)), SvPVX_mutable(sv)) \
  

•              : sv_pvn_force_flags(sv, &lp, flags|SV_MUTABLE_RETURN))
  

+#endif +#ifndef SvPV_nolen +# define SvPV_nolen(sv) \

•             ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
  

•              ? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC))
  

+#endif +#ifndef SvPV_nolen_const +# define SvPV_nolen_const(sv) \

•             ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
  

•              ? SvPVX_const(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, SV_GMAGIC|SV_CONST_RETURN))
  

+#endif +#ifndef SvPV_nomg +# define SvPV_nomg(sv, lp) SvPV_flags(sv, lp, 0) +#endif

+#ifndef SvPV_nomg_const +# define SvPV_nomg_const(sv, lp) SvPV_flags_const(sv, lp, 0) +#endif

+#ifndef SvPV_nomg_const_nolen +# define SvPV_nomg_const_nolen(sv) SvPV_flags_const_nolen(sv, 0) +#endif

+#ifndef SvPV_nomg_nolen +# define SvPV_nomg_nolen(sv) ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \

•                                ? SvPVX(sv) : sv_2pv_flags(sv, D_PPP_SVPV_NOLEN_LP_ARG, 0))
  

+#endif +#ifndef SvPV_renew +# define SvPV_renew(sv,n) STMT_START { SvLEN_set(sv, n); \

•             SvPV_set((sv), (char *) saferealloc(          \
  

•                   (Malloc_t)SvPVX(sv), (MEM_SIZE)((n)))); \
  

•           } STMT_END
  

+#endif +#ifndef SvMAGIC_set +# define SvMAGIC_set(sv, val) \

•            STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
  

•            (((XPVMG*) SvANY(sv))->xmg_magic = (val)); } STMT_END
  

+#endif

+#if (PERL_BCDVERSION < 0x5009003) +#ifndef SvPVX_const +# define SvPVX_const(sv) ((const char*) (0 + SvPVX(sv))) +#endif

+#ifndef SvPVX_mutable +# define SvPVX_mutable(sv) (0 + SvPVX(sv)) +#endif +#ifndef SvRV_set +# define SvRV_set(sv, val) \

•            STMT_START { assert(SvTYPE(sv) >=  SVt_RV); \
  

•            (((XRV*) SvANY(sv))->xrv_rv = (val)); } STMT_END
  

+#endif

+#else +#ifndef SvPVX_const +# define SvPVX_const(sv) ((const char*)((sv)->sv_u.svu_pv)) +#endif

+#ifndef SvPVX_mutable +# define SvPVX_mutable(sv) ((sv)->sv_u.svu_pv) +#endif +#ifndef SvRV_set +# define SvRV_set(sv, val) \

•            STMT_START { assert(SvTYPE(sv) >=  SVt_RV); \
  

•            ((sv)->sv_u.svu_rv = (val)); } STMT_END
  

+#endif

+#endif +#ifndef SvSTASH_set +# define SvSTASH_set(sv, val) \

•            STMT_START { assert(SvTYPE(sv) >= SVt_PVMG); \
  

•            (((XPVMG*) SvANY(sv))->xmg_stash = (val)); } STMT_END
  

+#endif

+#if (PERL_BCDVERSION < 0x5004000) +#ifndef SvUV_set +# define SvUV_set(sv, val) \

•            STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
  

•            (((XPVIV*) SvANY(sv))->xiv_iv = (IV) (val)); } STMT_END
  

+#endif

+#else +#ifndef SvUV_set +# define SvUV_set(sv, val) \

•            STMT_START { assert(SvTYPE(sv) == SVt_IV || SvTYPE(sv) >= SVt_PVIV); \
  

•            (((XPVUV*) SvANY(sv))->xuv_uv = (val)); } STMT_END
  

+#endif

+#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(vnewSVpvf) +#if defined(NEED_vnewSVpvf) +static SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args); +static +#else +extern SV * DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args); +#endif

+#if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL)

+#ifdef vnewSVpvf +# undef vnewSVpvf +#endif +#define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b) +#define Perl_vnewSVpvf DPPP_(my_vnewSVpvf)

+SV * +DPPP_(my_vnewSVpvf)(pTHX_ const char *pat, va_list *args) +{

• register SV *sv = newSV(0);
• sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));
• return sv;

+}

+#endif +#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf) +# define sv_vcatpvf(sv, pat, args) sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)) +#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf) +# define sv_vsetpvf(sv, pat, args) sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*)) +#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg) +#if defined(NEED_sv_catpvf_mg) +static void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...); +static +#else +extern void DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...); +#endif

+#if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL)

+#define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)

+void +DPPP_(my_sv_catpvf_mg)(pTHX_ SV *sv, const char *pat, ...) +{

• va_list args;
• va_start(args, pat);
• sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
• SvSETMAGIC(sv);
• va_end(args);

+}

+#endif +#endif

+#ifdef PERL_IMPLICIT_CONTEXT +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_catpvf_mg_nocontext) +#if defined(NEED_sv_catpvf_mg_nocontext) +static void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...); +static +#else +extern void DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...); +#endif

+#if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_GLOBAL)

+#define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext) +#define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)

+void +DPPP_(my_sv_catpvf_mg_nocontext)(SV *sv, const char *pat, ...) +{

• dTHX;
• va_list args;
• va_start(args, pat);
• sv_vcatpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
• SvSETMAGIC(sv);
• va_end(args);

+}

+#endif +#endif +#endif

+/* sv_catpvf_mg depends on sv_catpvf_mg_nocontext */ +#ifndef sv_catpvf_mg +# ifdef PERL_IMPLICIT_CONTEXT +# define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext +# else +# define sv_catpvf_mg Perl_sv_catpvf_mg +# endif +#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vcatpvf_mg) +# define sv_vcatpvf_mg(sv, pat, args) \

• STMT_START { \

• sv_vcatpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));  \
  

• SvSETMAGIC(sv);                                                       \
  

• } STMT_END

+#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg) +#if defined(NEED_sv_setpvf_mg) +static void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...); +static +#else +extern void DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...); +#endif

+#if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL)

+#define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)

+void +DPPP_(my_sv_setpvf_mg)(pTHX_ SV *sv, const char *pat, ...) +{

• va_list args;
• va_start(args, pat);
• sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
• SvSETMAGIC(sv);
• va_end(args);

+}

+#endif +#endif

+#ifdef PERL_IMPLICIT_CONTEXT +#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_setpvf_mg_nocontext) +#if defined(NEED_sv_setpvf_mg_nocontext) +static void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...); +static +#else +extern void DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...); +#endif

+#if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_GLOBAL)

+#define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext) +#define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)

+void +DPPP_(my_sv_setpvf_mg_nocontext)(SV *sv, const char *pat, ...) +{

• dTHX;
• va_list args;
• va_start(args, pat);
• sv_vsetpvfn(sv, pat, strlen(pat), &args, Null(SV**), 0, Null(bool*));
• SvSETMAGIC(sv);
• va_end(args);

+}

+#endif +#endif +#endif

+/* sv_setpvf_mg depends on sv_setpvf_mg_nocontext */ +#ifndef sv_setpvf_mg +# ifdef PERL_IMPLICIT_CONTEXT +# define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext +# else +# define sv_setpvf_mg Perl_sv_setpvf_mg +# endif +#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(sv_vsetpvf_mg) +# define sv_vsetpvf_mg(sv, pat, args) \

• STMT_START { \

• sv_vsetpvfn(sv, pat, strlen(pat), args, Null(SV**), 0, Null(bool*));  \
  

• SvSETMAGIC(sv);                                                       \
  

• } STMT_END

+#endif

+/* Hint: newSVpvn_share

• • The SVs created by this function only mimic the behaviour of
• • shared PVs without really being shared. Only use if you know
• • what you're doing.
• */

+#ifndef newSVpvn_share

+#if defined(NEED_newSVpvn_share) +static SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash); +static +#else +extern SV * DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash); +#endif

+#if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)

+#ifdef newSVpvn_share +# undef newSVpvn_share +#endif +#define newSVpvn_share(a,b,c) DPPP_(my_newSVpvn_share)(aTHX_ a,b,c) +#define Perl_newSVpvn_share DPPP_(my_newSVpvn_share)

+SV * +DPPP_(my_newSVpvn_share)(pTHX_ const char *src, I32 len, U32 hash) +{

• SV *sv;
• if (len < 0)
• len = -len;
• if (!hash)
• PERL_HASH(hash, (char*) src, len);
• sv = newSVpvn((char *) src, len);
• sv_upgrade(sv, SVt_PVIV);
• SvIVX(sv) = hash;
• SvREADONLY_on(sv);
• SvPOK_on(sv);
• return sv;

+}

+#endif

+#endif +#ifndef SvSHARED_HASH +# define SvSHARED_HASH(sv) (0 + SvUVX(sv)) +#endif +#ifndef HvNAME_get +# define HvNAME_get(hv) HvNAME(hv) +#endif +#ifndef HvNAMELEN_get +# define HvNAMELEN_get(hv) (HvNAME_get(hv) ? (I32)strlen(HvNAME_get(hv)) : 0) +#endif

+#ifndef gv_fetchpvn_flags +#if defined(NEED_gv_fetchpvn_flags) +static GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int types); +static +#else +extern GV* DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int types); +#endif

+#if defined(NEED_gv_fetchpvn_flags) || defined(NEED_gv_fetchpvn_flags_GLOBAL)

+#ifdef gv_fetchpvn_flags +# undef gv_fetchpvn_flags +#endif +#define gv_fetchpvn_flags(a,b,c,d) DPPP_(my_gv_fetchpvn_flags)(aTHX_ a,b,c,d) +#define Perl_gv_fetchpvn_flags DPPP_(my_gv_fetchpvn_flags)

+GV* +DPPP_(my_gv_fetchpvn_flags)(pTHX_ const char* name, STRLEN len, int flags, int types) {

• char *namepv = savepvn(name, len);
• GV* stash = gv_fetchpv(namepv, TRUE, SVt_PVHV);
• Safefree(namepv);
• return stash;

+}

+#endif +#endif +#ifndef GvSVn +# define GvSVn(gv) GvSV(gv) +#endif

+#ifndef isGV_with_GP +# define isGV_with_GP(gv) isGV(gv) +#endif

+#ifndef gv_fetchsv +# define gv_fetchsv(name, flags, svt) gv_fetchpv(SvPV_nolen_const(name), flags, svt) +#endif +#ifndef get_cvn_flags +# define get_cvn_flags(name, namelen, flags) get_cv(name, flags) +#endif

+#ifndef gv_init_pvn +# define gv_init_pvn(gv, stash, ptr, len, flags) gv_init(gv, stash, ptr, len, flags & GV_ADDMULTI ? TRUE : FALSE) +#endif +#ifndef WARN_ALL +# define WARN_ALL 0 +#endif

+#ifndef WARN_CLOSURE +# define WARN_CLOSURE 1 +#endif

+#ifndef WARN_DEPRECATED +# define WARN_DEPRECATED 2 +#endif

+#ifndef WARN_EXITING +# define WARN_EXITING 3 +#endif

+#ifndef WARN_GLOB +# define WARN_GLOB 4 +#endif

+#ifndef WARN_IO +# define WARN_IO 5 +#endif

+#ifndef WARN_CLOSED +# define WARN_CLOSED 6 +#endif

+#ifndef WARN_EXEC +# define WARN_EXEC 7 +#endif

+#ifndef WARN_LAYER +# define WARN_LAYER 8 +#endif

+#ifndef WARN_NEWLINE +# define WARN_NEWLINE 9 +#endif

+#ifndef WARN_PIPE +# define WARN_PIPE 10 +#endif

+#ifndef WARN_UNOPENED +# define WARN_UNOPENED 11 +#endif

+#ifndef WARN_MISC +# define WARN_MISC 12 +#endif

+#ifndef WARN_NUMERIC +# define WARN_NUMERIC 13 +#endif

+#ifndef WARN_ONCE +# define WARN_ONCE 14 +#endif

+#ifndef WARN_OVERFLOW +# define WARN_OVERFLOW 15 +#endif

+#ifndef WARN_PACK +# define WARN_PACK 16 +#endif

+#ifndef WARN_PORTABLE +# define WARN_PORTABLE 17 +#endif

+#ifndef WARN_RECURSION +# define WARN_RECURSION 18 +#endif

+#ifndef WARN_REDEFINE +# define WARN_REDEFINE 19 +#endif

+#ifndef WARN_REGEXP +# define WARN_REGEXP 20 +#endif

+#ifndef WARN_SEVERE +# define WARN_SEVERE 21 +#endif

+#ifndef WARN_DEBUGGING +# define WARN_DEBUGGING 22 +#endif

+#ifndef WARN_INPLACE +# define WARN_INPLACE 23 +#endif

+#ifndef WARN_INTERNAL +# define WARN_INTERNAL 24 +#endif

+#ifndef WARN_MALLOC +# define WARN_MALLOC 25 +#endif

+#ifndef WARN_SIGNAL +# define WARN_SIGNAL 26 +#endif

+#ifndef WARN_SUBSTR +# define WARN_SUBSTR 27 +#endif

+#ifndef WARN_SYNTAX +# define WARN_SYNTAX 28 +#endif

+#ifndef WARN_AMBIGUOUS +# define WARN_AMBIGUOUS 29 +#endif

+#ifndef WARN_BAREWORD +# define WARN_BAREWORD 30 +#endif

+#ifndef WARN_DIGIT +# define WARN_DIGIT 31 +#endif

+#ifndef WARN_PARENTHESIS +# define WARN_PARENTHESIS 32 +#endif

+#ifndef WARN_PRECEDENCE +# define WARN_PRECEDENCE 33 +#endif

+#ifndef WARN_PRINTF +# define WARN_PRINTF 34 +#endif

+#ifndef WARN_PROTOTYPE +# define WARN_PROTOTYPE 35 +#endif

+#ifndef WARN_QW +# define WARN_QW 36 +#endif

+#ifndef WARN_RESERVED +# define WARN_RESERVED 37 +#endif

+#ifndef WARN_SEMICOLON +# define WARN_SEMICOLON 38 +#endif

+#ifndef WARN_TAINT +# define WARN_TAINT 39 +#endif

+#ifndef WARN_THREADS +# define WARN_THREADS 40 +#endif

+#ifndef WARN_UNINITIALIZED +# define WARN_UNINITIALIZED 41 +#endif

+#ifndef WARN_UNPACK +# define WARN_UNPACK 42 +#endif

+#ifndef WARN_UNTIE +# define WARN_UNTIE 43 +#endif

+#ifndef WARN_UTF8 +# define WARN_UTF8 44 +#endif

+#ifndef WARN_VOID +# define WARN_VOID 45 +#endif

+#ifndef WARN_ASSERTIONS +# define WARN_ASSERTIONS 46 +#endif +#ifndef packWARN +# define packWARN(a) (a) +#endif

+#ifndef ckWARN +# ifdef G_WARN_ON +# define ckWARN(a) (PL_dowarn & G_WARN_ON) +# else +# define ckWARN(a) PL_dowarn +# endif +#endif

+#if (PERL_BCDVERSION >= 0x5004000) && !defined(warner) +#if defined(NEED_warner) +static void DPPP_(my_warner)(U32 err, const char *pat, ...); +static +#else +extern void DPPP_(my_warner)(U32 err, const char *pat, ...); +#endif

+#if defined(NEED_warner) || defined(NEED_warner_GLOBAL)

+#define Perl_warner DPPP_(my_warner)

+void +DPPP_(my_warner)(U32 err, const char *pat, ...) +{

• SV *sv;
• va_list args;
• PERL_UNUSED_ARG(err);
• va_start(args, pat);
• sv = vnewSVpvf(pat, &args);
• va_end(args);
• sv_2mortal(sv);
• warn("%s", SvPV_nolen(sv));

+}

+#define warner Perl_warner

+#define Perl_warner_nocontext Perl_warner

+#endif +#endif

+/* concatenating with "" ensures that only literal strings are accepted as argument

• • note that STR_WITH_LEN() can't be used as argument to macros or functions that
• • under some configurations might be macros
• */

+#ifndef STR_WITH_LEN +# define STR_WITH_LEN(s) (s ""), (sizeof(s)-1) +#endif +#ifndef newSVpvs +# define newSVpvs(str) newSVpvn(str "", sizeof(str) - 1) +#endif

+#ifndef newSVpvs_flags +# define newSVpvs_flags(str, flags) newSVpvn_flags(str "", sizeof(str) - 1, flags) +#endif

+#ifndef newSVpvs_share +# define newSVpvs_share(str) newSVpvn_share(str "", sizeof(str) - 1, 0) +#endif

+#ifndef sv_catpvs +# define sv_catpvs(sv, str) sv_catpvn(sv, str "", sizeof(str) - 1) +#endif

+#ifndef sv_setpvs +# define sv_setpvs(sv, str) sv_setpvn(sv, str "", sizeof(str) - 1) +#endif

+#ifndef hv_fetchs +# define hv_fetchs(hv, key, lval) hv_fetch(hv, key "", sizeof(key) - 1, lval) +#endif

+#ifndef hv_stores +# define hv_stores(hv, key, val) hv_store(hv, key "", sizeof(key) - 1, val, 0) +#endif +#ifndef gv_fetchpvs +# define gv_fetchpvs(name, flags, svt) gv_fetchpvn_flags(name "", sizeof(name) - 1, flags, svt) +#endif

+#ifndef gv_stashpvs +# define gv_stashpvs(name, flags) gv_stashpvn(name "", sizeof(name) - 1, flags) +#endif +#ifndef get_cvs +# define get_cvs(name, flags) get_cvn_flags(name "", sizeof(name)-1, flags) +#endif

+#ifdef USE_ITHREADS +#ifndef CopFILE +# define CopFILE(c) ((c)->cop_file) +#endif

+#ifndef CopFILEGV +# define CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv) +#endif

+#ifndef CopFILE_set +# define CopFILE_set(c,pv) ((c)->cop_file = savepv(pv)) +#endif

+#ifndef CopFILESV +# define CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv) +#endif

+#ifndef CopFILEAV +# define CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav) +#endif

+#ifndef CopSTASHPV +# define CopSTASHPV(c) ((c)->cop_stashpv) +#endif

+#ifndef CopSTASHPV_set +# define CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch)) +#endif

+#ifndef CopSTASH +# define CopSTASH(c) (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv) +#endif

+#ifndef CopSTASH_set +# define CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch) +#endif

+#ifndef CopSTASH_eq +# define CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \

•                                    || (CopSTASHPV(c) && HvNAME(hv) \
  

•                                    && strEQ(CopSTASHPV(c), HvNAME(hv)))))
  

+#endif

+#else +#ifndef CopFILEGV +# define CopFILEGV(c) ((c)->cop_filegv) +#endif

+#ifndef CopFILEGV_set +# define CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv)) +#endif

+#ifndef CopFILE_set +# define CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv)) +#endif

+#ifndef CopFILESV +# define CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv) +#endif

+#ifndef CopFILEAV +# define CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav) +#endif

+#ifndef CopFILE +# define CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch) +#endif

+#ifndef CopSTASH +# define CopSTASH(c) ((c)->cop_stash) +#endif

+#ifndef CopSTASH_set +# define CopSTASH_set(c,hv) ((c)->cop_stash = (hv)) +#endif

+#ifndef CopSTASHPV +# define CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch) +#endif

+#ifndef CopSTASHPV_set +# define CopSTASHPV_set(c,pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD)) +#endif

+#ifndef CopSTASH_eq +# define CopSTASH_eq(c,hv) (CopSTASH(c) == (hv)) +#endif

+#endif /* USE_ITHREADS */

+#if (PERL_BCDVERSION >= 0x5006000) +#ifndef caller_cx

+# if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL) +static I32 +DPPP_dopoptosub_at(const PERL_CONTEXT *cxstk, I32 startingblock) +{

• I32 i;
• for (i = startingblock; i >= 0; i--) {
• register const PERL_CONTEXT * const cx = &cxstk[i];
• switch (CxTYPE(cx)) {
• default:

•    continue;
  

• case CXt_EVAL:
• case CXt_SUB:
• case CXt_FORMAT:

•    return i;
  

• }
• }
• return i;

+} +# endif

+# if defined(NEED_caller_cx) +static const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp); +static +#else +extern const PERL_CONTEXT * DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp); +#endif

+#if defined(NEED_caller_cx) || defined(NEED_caller_cx_GLOBAL)

+#ifdef caller_cx +# undef caller_cx +#endif +#define caller_cx(a,b) DPPP_(my_caller_cx)(aTHX_ a,b) +#define Perl_caller_cx DPPP_(my_caller_cx)

+const PERL_CONTEXT * +DPPP_(my_caller_cx)(pTHX_ I32 count, const PERL_CONTEXT **dbcxp) +{

• register I32 cxix = DPPP_dopoptosub_at(cxstack, cxstack_ix);
• register const PERL_CONTEXT *cx;
• register const PERL_CONTEXT *ccstack = cxstack;
• const PERL_SI *top_si = PL_curstackinfo;
• for (;;) {
• /* we may be in a higher stacklevel, so dig down deeper */
• while (cxix < 0 && top_si->si_type != PERLSI_MAIN) {

•    top_si = top_si->si_prev;
  

•    ccstack = top_si->si_cxstack;
  

•    cxix = DPPP_dopoptosub_at(ccstack, top_si->si_cxix);
  

• }
• if (cxix < 0)

•    return NULL;
  

• /* caller() should not report the automatic calls to &DB::sub */
• if (PL_DBsub && GvCV(PL_DBsub) && cxix >= 0 &&

• ccstack[cxix].blk_sub.cv == GvCV(PL_DBsub))
  

•    count++;
  

• if (!count--)

•    break;
  

• cxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
• }
• cx = &ccstack[cxix];
• if (dbcxp) *dbcxp = cx;
• if (CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) {

•    const I32 dbcxix = DPPP_dopoptosub_at(ccstack, cxix - 1);
  

• /* We expect that ccstack[dbcxix] is CXt_SUB, anyway, the

•   field below is defined for any cx. */
  

• /* caller() should not report the automatic calls to &DB::sub */
• if (PL_DBsub && GvCV(PL_DBsub) && dbcxix >= 0 && ccstack[dbcxix].blk_sub.cv == GvCV(PL_DBsub))

•    cx = &ccstack[dbcxix];
  

• }
• return cx;

+}

+# endif +#endif /* caller_cx */ +#endif /* 5.6.0 */ +#ifndef IN_PERL_COMPILETIME +# define IN_PERL_COMPILETIME (PL_curcop == &PL_compiling) +#endif

+#ifndef IN_LOCALE_RUNTIME +# define IN_LOCALE_RUNTIME (PL_curcop->op_private & HINT_LOCALE) +#endif

+#ifndef IN_LOCALE_COMPILETIME +# define IN_LOCALE_COMPILETIME (PL_hints & HINT_LOCALE) +#endif

+#ifndef IN_LOCALE +# define IN_LOCALE (IN_PERL_COMPILETIME ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME) +#endif +#ifndef IS_NUMBER_IN_UV +# define IS_NUMBER_IN_UV 0x01 +#endif

+#ifndef IS_NUMBER_GREATER_THAN_UV_MAX +# define IS_NUMBER_GREATER_THAN_UV_MAX 0x02 +#endif

+#ifndef IS_NUMBER_NOT_INT +# define IS_NUMBER_NOT_INT 0x04 +#endif

+#ifndef IS_NUMBER_NEG +# define IS_NUMBER_NEG 0x08 +#endif

+#ifndef IS_NUMBER_INFINITY +# define IS_NUMBER_INFINITY 0x10 +#endif

+#ifndef IS_NUMBER_NAN +# define IS_NUMBER_NAN 0x20 +#endif +#ifndef GROK_NUMERIC_RADIX +# define GROK_NUMERIC_RADIX(sp, send) grok_numeric_radix(sp, send) +#endif +#ifndef PERL_SCAN_GREATER_THAN_UV_MAX +# define PERL_SCAN_GREATER_THAN_UV_MAX 0x02 +#endif

+#ifndef PERL_SCAN_SILENT_ILLDIGIT +# define PERL_SCAN_SILENT_ILLDIGIT 0x04 +#endif

+#ifndef PERL_SCAN_ALLOW_UNDERSCORES +# define PERL_SCAN_ALLOW_UNDERSCORES 0x01 +#endif

+#ifndef PERL_SCAN_DISALLOW_PREFIX +# define PERL_SCAN_DISALLOW_PREFIX 0x02 +#endif

+#ifndef grok_numeric_radix +#if defined(NEED_grok_numeric_radix) +static bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * send); +static +#else +extern bool DPPP_(my_grok_numeric_radix)(pTHX_ const char ** sp, const char * send); +#endif

+#if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)

+#ifdef grok_numeric_radix +# undef grok_numeric_radix +#endif +#define grok_numeric_radix(a,b) DPPP_(my_grok_numeric_radix)(aTHX_ a,b) +#define Perl_grok_numeric_radix DPPP_(my_grok_numeric_radix)

+bool +DPPP_(my_grok_numeric_radix)(pTHX_ const char **sp, const char *send) +{ +#ifdef USE_LOCALE_NUMERIC +#ifdef PL_numeric_radix_sv

• if (PL_numeric_radix_sv && IN_LOCALE) {

•    STRLEN len;
  

•    char* radix = SvPV(PL_numeric_radix_sv, len);
  

•    if (*sp + len <= send && memEQ(*sp, radix, len)) {
  

•        *sp += len;
  

•        return TRUE;
  

•    }
  

• }

+#else

• /* older perls don't have PL_numeric_radix_sv so the radix

• * must manually be requested from locale.h
  

• */
  

+#include <locale.h>

• dTHR; /* needed for older threaded perls */
• struct lconv *lc = localeconv();
• char *radix = lc->decimal_point;
• if (radix && IN_LOCALE) {

•    STRLEN len = strlen(radix);
  

•    if (*sp + len <= send && memEQ(*sp, radix, len)) {
  

•        *sp += len;
  

•        return TRUE;
  

•    }
  

• }

+#endif +#endif /* USE_LOCALE_NUMERIC */

• /* always try "." if numeric radix didn't match because

• * we may have data from different locales mixed */
  

• if (*sp < send && **sp == '.') {

•    ++*sp;
  

•    return TRUE;
  

• }
• return FALSE;

+} +#endif +#endif

+#ifndef grok_number +#if defined(NEED_grok_number) +static int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep); +static +#else +extern int DPPP_(my_grok_number)(pTHX_ const char * pv, STRLEN len, UV * valuep); +#endif

+#if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)

+#ifdef grok_number +# undef grok_number +#endif +#define grok_number(a,b,c) DPPP_(my_grok_number)(aTHX_ a,b,c) +#define Perl_grok_number DPPP_(my_grok_number)

+int +DPPP_(my_grok_number)(pTHX_ const char *pv, STRLEN len, UV *valuep) +{

• const char *s = pv;
• const char *send = pv + len;
• const UV max_div_10 = UV_MAX / 10;
• const char max_mod_10 = UV_MAX % 10;
• int numtype = 0;
• int sawinf = 0;
• int sawnan = 0;
• while (s < send && isSPACE(*s))
• s++;
• if (s == send) {
• return 0;
• } else if (*s == '-') {
• s++;
• numtype = IS_NUMBER_NEG;
• }
• else if (*s == '+')
• s++;
• if (s == send)
• return 0;
• /* next must be digit or the radix separator or beginning of infinity */
• if (isDIGIT(*s)) {
• /* UVs are at least 32 bits, so the first 9 decimal digits cannot

•   overflow.  */
  

• UV value = *s - '0';
• /* This construction seems to be more optimiser friendly.

•   (without it gcc does the isDIGIT test and the *s - '0' separately)
  

•   With it gcc on arm is managing 6 instructions (6 cycles) per digit.
  

•   In theory the optimiser could deduce how far to unroll the loop
  

•   before checking for overflow.  */
  

• if (++s < send) {

•  int digit = *s - '0';
  

•  if (digit >= 0 && digit <= 9) {
  

•    value = value * 10 + digit;
  

•    if (++s < send) {
  

•      digit = *s - '0';
  

•      if (digit >= 0 && digit <= 9) {
  

•        value = value * 10 + digit;
  

•        if (++s < send) {
  

•          digit = *s - '0';
  

•          if (digit >= 0 && digit <= 9) {
  

•            value = value * 10 + digit;
  

•            if (++s < send) {
  

•              digit = *s - '0';
  

•              if (digit >= 0 && digit <= 9) {
  

•                value = value * 10 + digit;
  

•                if (++s < send) {
  

•                  digit = *s - '0';
  

•                  if (digit >= 0 && digit <= 9) {
  

•                    value = value * 10 + digit;
  

•                    if (++s < send) {
  

•                      digit = *s - '0';
  

•                      if (digit >= 0 && digit <= 9) {
  

•                        value = value * 10 + digit;
  

•                        if (++s < send) {
  

•                          digit = *s - '0';
  

•                          if (digit >= 0 && digit <= 9) {
  

•                            value = value * 10 + digit;
  

•                            if (++s < send) {
  

•                              digit = *s - '0';
  

•                              if (digit >= 0 && digit <= 9) {
  

•                                value = value * 10 + digit;
  

•                                if (++s < send) {
  

•                                  /* Now got 9 digits, so need to check
  

•                                     each time for overflow.  */
  

•                                  digit = *s - '0';
  

•                                  while (digit >= 0 && digit <= 9
  

•                                         && (value < max_div_10
  

•                                             || (value == max_div_10
  

•                                                 && digit <= max_mod_10))) {
  

•                                    value = value * 10 + digit;
  

•                                    if (++s < send)
  

•                                      digit = *s - '0';
  

•                                    else
  

•                                      break;
  

•                                  }
  

•                                  if (digit >= 0 && digit <= 9
  

•                                      && (s < send)) {
  

•                                    /* value overflowed.
  

•                                       skip the remaining digits, don't
  

•                                       worry about setting *valuep.  */
  

•                                    do {
  

•                                      s++;
  

•                                    } while (s < send && isDIGIT(*s));
  

•                                    numtype |=
  

•                                      IS_NUMBER_GREATER_THAN_UV_MAX;
  

•                                    goto skip_value;
  

•                                  }
  

•                                }
  

•                              }
  

•                            }
  

•                          }
  

•                        }
  

•                      }
  

•                    }
  

•                  }
  

•                }
  

•              }
  

•            }
  

•          }
  

•        }
  

•      }
  

•    }
  

•  }
  

• }
• numtype |= IS_NUMBER_IN_UV;
• if (valuep)

•  *valuep = value;
  

• skip_value:
• if (GROK_NUMERIC_RADIX(&s, send)) {

•  numtype |= IS_NUMBER_NOT_INT;
  

•  while (s < send && isDIGIT(*s))  /* optional digits after the radix */
  

•    s++;
  

• }
• }
• else if (GROK_NUMERIC_RADIX(&s, send)) {
• numtype |= IS_NUMBER_NOT_INT | IS_NUMBER_IN_UV; /* valuep assigned below */
• /* no digits before the radix means we need digits after it */
• if (s < send && isDIGIT(*s)) {

•  do {
  

•    s++;
  

•  } while (s < send && isDIGIT(*s));
  

•  if (valuep) {
  

•    /* integer approximation is valid - it's 0.  */
  

•    *valuep = 0;
  

•  }
  

• }
• else

•  return 0;
  

• } else if (*s == 'I' || *s == 'i') {
• s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
• s++; if (s == send || (*s != 'F' && *s != 'f')) return 0;
• s++; if (s < send && (*s == 'I' || *s == 'i')) {

•  s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
  

•  s++; if (s == send || (*s != 'I' && *s != 'i')) return 0;
  

•  s++; if (s == send || (*s != 'T' && *s != 't')) return 0;
  

•  s++; if (s == send || (*s != 'Y' && *s != 'y')) return 0;
  

•  s++;
  

• }
• sawinf = 1;
• } else if (*s == 'N' || *s == 'n') {
• /* XXX TODO: There are signaling NaNs and quiet NaNs. */
• s++; if (s == send || (*s != 'A' && *s != 'a')) return 0;
• s++; if (s == send || (*s != 'N' && *s != 'n')) return 0;
• s++;
• sawnan = 1;
• } else
• return 0;
• if (sawinf) {
• numtype &= IS_NUMBER_NEG; /* Keep track of sign */
• numtype |= IS_NUMBER_INFINITY | IS_NUMBER_NOT_INT;
• } else if (sawnan) {
• numtype &= IS_NUMBER_NEG; /* Keep track of sign */
• numtype |= IS_NUMBER_NAN | IS_NUMBER_NOT_INT;
• } else if (s < send) {
• /* we can have an optional exponent part */
• if (*s == 'e' || *s == 'E') {

•  /* The only flag we keep is sign.  Blow away any "it's UV"  */
  

•  numtype &= IS_NUMBER_NEG;
  

•  numtype |= IS_NUMBER_NOT_INT;
  

•  s++;
  

•  if (s < send && (*s == '-' || *s == '+'))
  

•    s++;
  

•  if (s < send && isDIGIT(*s)) {
  

•    do {
  

•      s++;
  

•    } while (s < send && isDIGIT(*s));
  

•  }
  

•  else
  

•  return 0;
  

• }
• }
• while (s < send && isSPACE(*s))
• s++;
• if (s >= send)
• return numtype;
• if (len == 10 && memEQ(pv, "0 but true", 10)) {
• if (valuep)

•  *valuep = 0;
  

• return IS_NUMBER_IN_UV;
• }
• return 0;

+} +#endif +#endif

+/*

• • The grok_* routines have been modified to use warn() instead of
• • Perl_warner(). Also, 'hexdigit' was the former name of PL_hexdigit,
• • which is why the stack variable has been renamed to 'xdigit'.
• */

+#ifndef grok_bin +#if defined(NEED_grok_bin) +static UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result); +static +#else +extern UV DPPP_(my_grok_bin)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result); +#endif

+#if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)

+#ifdef grok_bin +# undef grok_bin +#endif +#define grok_bin(a,b,c,d) DPPP_(my_grok_bin)(aTHX_ a,b,c,d) +#define Perl_grok_bin DPPP_(my_grok_bin)

+UV +DPPP_(my_grok_bin)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) +{

• const char *s = start;
• STRLEN len = *len_p;
• UV value = 0;
• NV value_nv = 0;
• const UV max_div_2 = UV_MAX / 2;
• bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
• bool overflowed = FALSE;
• if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {

•    /* strip off leading b or 0b.
  

•       for compatibility silently suffer "b" and "0b" as valid binary
  

•       numbers. */
  

•    if (len >= 1) {
  

•        if (s[0] == 'b') {
  

•            s++;
  

•            len--;
  

•        }
  

•        else if (len >= 2 && s[0] == '0' && s[1] == 'b') {
  

•            s+=2;
  

•            len-=2;
  

•        }
  

•    }
  

• }
• for (; len-- && *s; s++) {

•    char bit = *s;
  

•    if (bit == '0' || bit == '1') {
  

•        /* Write it in this wonky order with a goto to attempt to get the
  

•           compiler to make the common case integer-only loop pretty tight.
  

•           With gcc seems to be much straighter code than old scan_bin.  */
  

•      redo:
  

•        if (!overflowed) {
  

•            if (value <= max_div_2) {
  

•                value = (value << 1) | (bit - '0');
  

•                continue;
  

•            }
  

•            /* Bah. We're just overflowed.  */
  

•            warn("Integer overflow in binary number");
  

•            overflowed = TRUE;
  

•            value_nv = (NV) value;
  

•        }
  

•        value_nv *= 2.0;
  

•        /* If an NV has not enough bits in its mantissa to
  

•         * represent a UV this summing of small low-order numbers
  

•         * is a waste of time (because the NV cannot preserve
  

•         * the low-order bits anyway): we could just remember when
  

•         * did we overflow and in the end just multiply value_nv by the
  

•         * right amount. */
  

•        value_nv += (NV)(bit - '0');
  

•        continue;
  

•    }
  

•    if (bit == '_' && len && allow_underscores && (bit = s[1])
  

•        && (bit == '0' || bit == '1'))
  

•        {
  

•            --len;
  

•            ++s;
  

•            goto redo;
  

•        }
  

•    if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
  

•        warn("Illegal binary digit '%c' ignored", *s);
  

•    break;
  

• }
• if ( ( overflowed && value_nv > 4294967295.0)

+#if UVSIZE > 4

•    || (!overflowed && value > 0xffffffff  )
  

+#endif

•    ) {
  

•    warn("Binary number > 0b11111111111111111111111111111111 non-portable");
  

• }
• *len_p = s - start;
• if (!overflowed) {

•    *flags = 0;
  

•    return value;
  

• }
• *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
• if (result)

•    *result = value_nv;
  

• return UV_MAX;

+} +#endif +#endif

+#ifndef grok_hex +#if defined(NEED_grok_hex) +static UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result); +static +#else +extern UV DPPP_(my_grok_hex)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result); +#endif

+#if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)

+#ifdef grok_hex +# undef grok_hex +#endif +#define grok_hex(a,b,c,d) DPPP_(my_grok_hex)(aTHX_ a,b,c,d) +#define Perl_grok_hex DPPP_(my_grok_hex)

+UV +DPPP_(my_grok_hex)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) +{

• const char *s = start;
• STRLEN len = *len_p;
• UV value = 0;
• NV value_nv = 0;
• const UV max_div_16 = UV_MAX / 16;
• bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
• bool overflowed = FALSE;
• const char *xdigit;
• if (!(*flags & PERL_SCAN_DISALLOW_PREFIX)) {

•    /* strip off leading x or 0x.
  

•       for compatibility silently suffer "x" and "0x" as valid hex numbers.
  

•    */
  

•    if (len >= 1) {
  

•        if (s[0] == 'x') {
  

•            s++;
  

•            len--;
  

•        }
  

•        else if (len >= 2 && s[0] == '0' && s[1] == 'x') {
  

•            s+=2;
  

•            len-=2;
  

•        }
  

•    }
  

• }
• for (; len-- && *s; s++) {

•    xdigit = strchr((char *) PL_hexdigit, *s);
  

•    if (xdigit) {
  

•        /* Write it in this wonky order with a goto to attempt to get the
  

•           compiler to make the common case integer-only loop pretty tight.
  

•           With gcc seems to be much straighter code than old scan_hex.  */
  

•      redo:
  

•        if (!overflowed) {
  

•            if (value <= max_div_16) {
  

•                value = (value << 4) | ((xdigit - PL_hexdigit) & 15);
  

•                continue;
  

•            }
  

•            warn("Integer overflow in hexadecimal number");
  

•            overflowed = TRUE;
  

•            value_nv = (NV) value;
  

•        }
  

•        value_nv *= 16.0;
  

•        /* If an NV has not enough bits in its mantissa to
  

•         * represent a UV this summing of small low-order numbers
  

•         * is a waste of time (because the NV cannot preserve
  

•         * the low-order bits anyway): we could just remember when
  

•         * did we overflow and in the end just multiply value_nv by the
  

•         * right amount of 16-tuples. */
  

•        value_nv += (NV)((xdigit - PL_hexdigit) & 15);
  

•        continue;
  

•    }
  

•    if (*s == '_' && len && allow_underscores && s[1]
  

•            && (xdigit = strchr((char *) PL_hexdigit, s[1])))
  

•        {
  

•            --len;
  

•            ++s;
  

•            goto redo;
  

•        }
  

•    if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
  

•        warn("Illegal hexadecimal digit '%c' ignored", *s);
  

•    break;
  

• }
• if ( ( overflowed && value_nv > 4294967295.0)

+#if UVSIZE > 4

•    || (!overflowed && value > 0xffffffff  )
  

+#endif

•    ) {
  

•    warn("Hexadecimal number > 0xffffffff non-portable");
  

• }
• *len_p = s - start;
• if (!overflowed) {

•    *flags = 0;
  

•    return value;
  

• }
• *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
• if (result)

•    *result = value_nv;
  

• return UV_MAX;

+} +#endif +#endif

+#ifndef grok_oct +#if defined(NEED_grok_oct) +static UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result); +static +#else +extern UV DPPP_(my_grok_oct)(pTHX_ const char * start, STRLEN * len_p, I32 * flags, NV * result); +#endif

+#if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)

+#ifdef grok_oct +# undef grok_oct +#endif +#define grok_oct(a,b,c,d) DPPP_(my_grok_oct)(aTHX_ a,b,c,d) +#define Perl_grok_oct DPPP_(my_grok_oct)

+UV +DPPP_(my_grok_oct)(pTHX_ const char *start, STRLEN *len_p, I32 *flags, NV *result) +{

• const char *s = start;
• STRLEN len = *len_p;
• UV value = 0;
• NV value_nv = 0;
• const UV max_div_8 = UV_MAX / 8;
• bool allow_underscores = *flags & PERL_SCAN_ALLOW_UNDERSCORES;
• bool overflowed = FALSE;
• for (; len-- && *s; s++) {

•     /* gcc 2.95 optimiser not smart enough to figure that this subtraction
  

•        out front allows slicker code.  */
  

•    int digit = *s - '0';
  

•    if (digit >= 0 && digit <= 7) {
  

•        /* Write it in this wonky order with a goto to attempt to get the
  

•           compiler to make the common case integer-only loop pretty tight.
  

•        */
  

•      redo:
  

•        if (!overflowed) {
  

•            if (value <= max_div_8) {
  

•                value = (value << 3) | digit;
  

•                continue;
  

•            }
  

•            /* Bah. We're just overflowed.  */
  

•            warn("Integer overflow in octal number");
  

•            overflowed = TRUE;
  

•            value_nv = (NV) value;
  

•        }
  

•        value_nv *= 8.0;
  

•        /* If an NV has not enough bits in its mantissa to
  

•         * represent a UV this summing of small low-order numbers
  

•         * is a waste of time (because the NV cannot preserve
  

•         * the low-order bits anyway): we could just remember when
  

•         * did we overflow and in the end just multiply value_nv by the
  

•         * right amount of 8-tuples. */
  

•        value_nv += (NV)digit;
  

•        continue;
  

•    }
  

•    if (digit == ('_' - '0') && len && allow_underscores
  

•        && (digit = s[1] - '0') && (digit >= 0 && digit <= 7))
  

•        {
  

•            --len;
  

•            ++s;
  

•            goto redo;
  

•        }
  

•    /* Allow \octal to work the DWIM way (that is, stop scanning
  

•     * as soon as non-octal characters are seen, complain only iff
  

•     * someone seems to want to use the digits eight and nine). */
  

•    if (digit == 8 || digit == 9) {
  

•        if (!(*flags & PERL_SCAN_SILENT_ILLDIGIT))
  

•            warn("Illegal octal digit '%c' ignored", *s);
  

•    }
  

•    break;
  

• }
• if ( ( overflowed && value_nv > 4294967295.0)

+#if UVSIZE > 4

•    || (!overflowed && value > 0xffffffff  )
  

+#endif

•    ) {
  

•    warn("Octal number > 037777777777 non-portable");
  

• }
• *len_p = s - start;
• if (!overflowed) {

•    *flags = 0;
  

•    return value;
  

• }
• *flags = PERL_SCAN_GREATER_THAN_UV_MAX;
• if (result)

•    *result = value_nv;
  

• return UV_MAX;

+} +#endif +#endif

+#if !defined(my_snprintf) +#if defined(NEED_my_snprintf) +static int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...); +static +#else +extern int DPPP_(my_my_snprintf)(char * buffer, const Size_t len, const char * format, ...); +#endif

+#if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)

+#define my_snprintf DPPP_(my_my_snprintf) +#define Perl_my_snprintf DPPP_(my_my_snprintf)

+int +DPPP_(my_my_snprintf)(char *buffer, const Size_t len, const char *format, ...) +{

• dTHX;
• int retval;
• va_list ap;
• va_start(ap, format);

+#ifdef HAS_VSNPRINTF

• retval = vsnprintf(buffer, len, format, ap);

+#else

• retval = vsprintf(buffer, format, ap);

+#endif

• va_end(ap);
• if (retval < 0 || (len > 0 && (Size_t)retval >= len))

•    Perl_croak(aTHX_ "panic: my_snprintf buffer overflow");
  

• return retval;

+}

+#endif +#endif

+#if !defined(my_sprintf) +#if defined(NEED_my_sprintf) +static int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...); +static +#else +extern int DPPP_(my_my_sprintf)(char * buffer, const char * pat, ...); +#endif

+#if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)

+#define my_sprintf DPPP_(my_my_sprintf) +#define Perl_my_sprintf DPPP_(my_my_sprintf)

+int +DPPP_(my_my_sprintf)(char *buffer, const char* pat, ...) +{

• va_list args;
• va_start(args, pat);
• vsprintf(buffer, pat, args);
• va_end(args);
• return strlen(buffer);

+}

+#endif +#endif

+#ifdef NO_XSLOCKS +# ifdef dJMPENV +# define dXCPT dJMPENV; int rEtV = 0 +# define XCPT_TRY_START JMPENV_PUSH(rEtV); if (rEtV == 0) +# define XCPT_TRY_END JMPENV_POP; +# define XCPT_CATCH if (rEtV != 0) +# define XCPT_RETHROW JMPENV_JUMP(rEtV) +# else +# define dXCPT Sigjmp_buf oldTOP; int rEtV = 0 +# define XCPT_TRY_START Copy(top_env, oldTOP, 1, Sigjmp_buf); rEtV = Sigsetjmp(top_env, 1); if (rEtV == 0) +# define XCPT_TRY_END Copy(oldTOP, top_env, 1, Sigjmp_buf); +# define XCPT_CATCH if (rEtV != 0) +# define XCPT_RETHROW Siglongjmp(top_env, rEtV) +# endif +#endif

+#if !defined(my_strlcat) +#if defined(NEED_my_strlcat) +static Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size); +static +#else +extern Size_t DPPP_(my_my_strlcat)(char * dst, const char * src, Size_t size); +#endif

+#if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)

+#define my_strlcat DPPP_(my_my_strlcat) +#define Perl_my_strlcat DPPP_(my_my_strlcat)

+Size_t +DPPP_(my_my_strlcat)(char *dst, const char *src, Size_t size) +{

• Size_t used, length, copy;
• used = strlen(dst);
• length = strlen(src);
• if (size > 0 && used < size - 1) {

•    copy = (length >= size - used) ? size - used - 1 : length;
  

•    memcpy(dst + used, src, copy);
  

•    dst[used + copy] = '\0';
  

• }
• return used + length;

+} +#endif +#endif

+#if !defined(my_strlcpy) +#if defined(NEED_my_strlcpy) +static Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size); +static +#else +extern Size_t DPPP_(my_my_strlcpy)(char * dst, const char * src, Size_t size); +#endif

+#if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)

+#define my_strlcpy DPPP_(my_my_strlcpy) +#define Perl_my_strlcpy DPPP_(my_my_strlcpy)

+Size_t +DPPP_(my_my_strlcpy)(char *dst, const char *src, Size_t size) +{

• Size_t length, copy;
• length = strlen(src);
• if (size > 0) {

•    copy = (length >= size) ? size - 1 : length;
  

•    memcpy(dst, src, copy);
  

•    dst[copy] = '\0';
  

• }
• return length;

+}

+#endif +#endif +#ifndef PERL_PV_ESCAPE_QUOTE +# define PERL_PV_ESCAPE_QUOTE 0x0001 +#endif

+#ifndef PERL_PV_PRETTY_QUOTE +# define PERL_PV_PRETTY_QUOTE PERL_PV_ESCAPE_QUOTE +#endif

+#ifndef PERL_PV_PRETTY_ELLIPSES +# define PERL_PV_PRETTY_ELLIPSES 0x0002 +#endif

+#ifndef PERL_PV_PRETTY_LTGT +# define PERL_PV_PRETTY_LTGT 0x0004 +#endif

+#ifndef PERL_PV_ESCAPE_FIRSTCHAR +# define PERL_PV_ESCAPE_FIRSTCHAR 0x0008 +#endif

+#ifndef PERL_PV_ESCAPE_UNI +# define PERL_PV_ESCAPE_UNI 0x0100 +#endif

+#ifndef PERL_PV_ESCAPE_UNI_DETECT +# define PERL_PV_ESCAPE_UNI_DETECT 0x0200 +#endif

+#ifndef PERL_PV_ESCAPE_ALL +# define PERL_PV_ESCAPE_ALL 0x1000 +#endif

+#ifndef PERL_PV_ESCAPE_NOBACKSLASH +# define PERL_PV_ESCAPE_NOBACKSLASH 0x2000 +#endif

+#ifndef PERL_PV_ESCAPE_NOCLEAR +# define PERL_PV_ESCAPE_NOCLEAR 0x4000 +#endif

+#ifndef PERL_PV_ESCAPE_RE +# define PERL_PV_ESCAPE_RE 0x8000 +#endif

+#ifndef PERL_PV_PRETTY_NOCLEAR +# define PERL_PV_PRETTY_NOCLEAR PERL_PV_ESCAPE_NOCLEAR +#endif +#ifndef PERL_PV_PRETTY_DUMP +# define PERL_PV_PRETTY_DUMP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE +#endif

+#ifndef PERL_PV_PRETTY_REGPROP +# define PERL_PV_PRETTY_REGPROP PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE +#endif

+/* Hint: pv_escape

• • Note that unicode functionality is only backported to
• • those perl versions that support it. For older perl
• • versions, the implementation will fall back to bytes.
• */

+#ifndef pv_escape +#if defined(NEED_pv_escape) +static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags); +static +#else +extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags); +#endif

+#if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)

+#ifdef pv_escape +# undef pv_escape +#endif +#define pv_escape(a,b,c,d,e,f) DPPP_(my_pv_escape)(aTHX_ a,b,c,d,e,f) +#define Perl_pv_escape DPPP_(my_pv_escape)

+char * +DPPP_(my_pv_escape)(pTHX_ SV *dsv, char const * const str,

• const STRLEN count, const STRLEN max,
• STRLEN * const escaped, const U32 flags)

+{

• const char esc = flags & PERL_PV_ESCAPE_RE ? '%' : '\';
• const char dq = flags & PERL_PV_ESCAPE_QUOTE ? '"' : esc;
• char octbuf[32] = "%123456789ABCDF";
• STRLEN wrote = 0;
• STRLEN chsize = 0;
• STRLEN readsize = 1;

+#if defined(is_utf8_string) && defined(utf8_to_uvchr)

• bool isuni = flags & PERL_PV_ESCAPE_UNI ? 1 : 0;

+#endif

• const char *pv = str;
• const char * const end = pv + count;
• octbuf[0] = esc;
• if (!(flags & PERL_PV_ESCAPE_NOCLEAR))

•    sv_setpvs(dsv, "");
  

+#if defined(is_utf8_string) && defined(utf8_to_uvchr)

• if ((flags & PERL_PV_ESCAPE_UNI_DETECT) && is_utf8_string((U8*)pv, count))

•    isuni = 1;
  

+#endif

• for (; pv < end && (!max || wrote < max) ; pv += readsize) {

•    const UV u =
  

+#if defined(is_utf8_string) && defined(utf8_to_uvchr)

•                 isuni ? utf8_to_uvchr((U8*)pv, &readsize) :
  

+#endif

•                         (U8)*pv;
  

•    const U8 c = (U8)u & 0xFF;
  

•    if (u > 255 || (flags & PERL_PV_ESCAPE_ALL)) {
  

•        if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
  

•            chsize = my_snprintf(octbuf, sizeof octbuf,
  

•                                  "%" UVxf, u);
  

•        else
  

•            chsize = my_snprintf(octbuf, sizeof octbuf,
  

•                                  "%cx{%" UVxf "}", esc, u);
  

•    } else if (flags & PERL_PV_ESCAPE_NOBACKSLASH) {
  

•        chsize = 1;
  

•    } else {
  

•        if (c == dq || c == esc || !isPRINT(c)) {
  

•            chsize = 2;
  

•            switch (c) {
  

•            case '\\' : /* fallthrough */
  

•            case '%'  : if (c == esc)
  

•                            octbuf[1] = esc;
  

•                        else
  

•                            chsize = 1;
  

•                        break;
  

•            case '\v' : octbuf[1] = 'v'; break;
  

•            case '\t' : octbuf[1] = 't'; break;
  

•            case '\r' : octbuf[1] = 'r'; break;
  

•            case '\n' : octbuf[1] = 'n'; break;
  

•            case '\f' : octbuf[1] = 'f'; break;
  

•            case '"'  : if (dq == '"')
  

•                            octbuf[1] = '"';
  

•                        else
  

•                            chsize = 1;
  

•                        break;
  

•            default:    chsize = my_snprintf(octbuf, sizeof octbuf,
  

•                            pv < end && isDIGIT((U8)*(pv+readsize))
  

•                            ? "%c%03o" : "%c%o", esc, c);
  

•            }
  

•        } else {
  

•            chsize = 1;
  

•        }
  

•    }
  

•    if (max && wrote + chsize > max) {
  

•        break;
  

•    } else if (chsize > 1) {
  

•        sv_catpvn(dsv, octbuf, chsize);
  

•        wrote += chsize;
  

•    } else {
  

•        char tmp[2];
  

•        my_snprintf(tmp, sizeof tmp, "%c", c);
  

•        sv_catpvn(dsv, tmp, 1);
  

•        wrote++;
  

•    }
  

•    if (flags & PERL_PV_ESCAPE_FIRSTCHAR)
  

•        break;
  

• }
• if (escaped != NULL)

•    *escaped= pv - str;
  

• return SvPVX(dsv);

+}

+#endif +#endif

+#ifndef pv_pretty +#if defined(NEED_pv_pretty) +static char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags); +static +#else +extern char * DPPP_(my_pv_pretty)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags); +#endif

+#if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)

+#ifdef pv_pretty +# undef pv_pretty +#endif +#define pv_pretty(a,b,c,d,e,f,g) DPPP_(my_pv_pretty)(aTHX_ a,b,c,d,e,f,g) +#define Perl_pv_pretty DPPP_(my_pv_pretty)

+char * +DPPP_(my_pv_pretty)(pTHX_ SV *dsv, char const * const str, const STRLEN count,

• const STRLEN max, char const * const start_color, char const * const end_color,
• const U32 flags)

+{

• const U8 dq = (flags & PERL_PV_PRETTY_QUOTE) ? '"' : '%';
• STRLEN escaped;
• if (!(flags & PERL_PV_PRETTY_NOCLEAR))

•    sv_setpvs(dsv, "");
  

• if (dq == '"')

•    sv_catpvs(dsv, "\"");
  

• else if (flags & PERL_PV_PRETTY_LTGT)

•    sv_catpvs(dsv, "<");
  

• if (start_color != NULL)

•    sv_catpv(dsv, D_PPP_CONSTPV_ARG(start_color));
  

• pv_escape(dsv, str, count, max, &escaped, flags | PERL_PV_ESCAPE_NOCLEAR);
• if (end_color != NULL)

•    sv_catpv(dsv, D_PPP_CONSTPV_ARG(end_color));
  

• if (dq == '"')

•    sv_catpvs(dsv, "\"");
  

• else if (flags & PERL_PV_PRETTY_LTGT)

•    sv_catpvs(dsv, ">");
  

• if ((flags & PERL_PV_PRETTY_ELLIPSES) && escaped < count)

•    sv_catpvs(dsv, "...");
  

• return SvPVX(dsv);

+}

+#endif +#endif

+#ifndef pv_display +#if defined(NEED_pv_display) +static char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim); +static +#else +extern char * DPPP_(my_pv_display)(pTHX_ SV * dsv, const char * pv, STRLEN cur, STRLEN len, STRLEN pvlim); +#endif

+#if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)

+#ifdef pv_display +# undef pv_display +#endif +#define pv_display(a,b,c,d,e) DPPP_(my_pv_display)(aTHX_ a,b,c,d,e) +#define Perl_pv_display DPPP_(my_pv_display)

+char * +DPPP_(my_pv_display)(pTHX_ SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim) +{

• pv_pretty(dsv, pv, cur, pvlim, NULL, NULL, PERL_PV_PRETTY_DUMP);
• if (len > cur && pv[cur] == '\0')

•    sv_catpvs(dsv, "\\0");
  

• return SvPVX(dsv);

+}

+#endif +#endif

+#endif /* _P_P_PORTABILITY_H_ */

+/* End of File ppport.h */ diff --git a/src/perl/Location/t/Location.t b/src/perl/Location/t/Location.t new file mode 100644 index 0000000..a68c094 --- /dev/null +++ b/src/perl/Location/t/Location.t @@ -0,0 +1,17 @@ +# Before 'make install' is performed this script should be runnable with +# 'make test'. After 'make install' it should work as 'perl Location.t'

+#########################

+# change 'tests => 1' to 'tests => last_test_to_print';

+use strict; +use warnings;

+use Test::More tests => 1; +BEGIN { use_ok('Location') };

+#########################

+# Insert your test code below, the Test::More module is use()ed here so read +# its man page ( perldoc Test::More ) for help writing this test script. diff --git a/src/perl/Location/typemap b/src/perl/Location/typemap new file mode 100644 index 0000000..c53fb53 --- /dev/null +++ b/src/perl/Location/typemap @@ -0,0 +1,2 @@ +TYPEMAP

+struct loc_database * T_PTRREF

2.20.1