Location September 2019

location@lists.ipfire.org

2 participants
5 discussions

[PATCH] perl: Add function to gather the license of a database.
by Stefan Schantl 29 Sep '19

29 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Location.xs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index 496fc43..ab27f0b 100644 --- a/src/perl/Location/Location.xs +++ b/src/perl/Location/Location.xs @@ -79,6 +79,16 @@ get_description(db) OUTPUT: RETVAL +const char* +get_license(db) + struct loc_database* db; + + CODE: + // Get database license + RETVAL = loc_database_get_license(db); + OUTPUT: + RETVAL + # # Lookup functions # -- 2.20.1

1 0

[PATCH] perl: Add function to get the description of the database.
by Stefan Schantl 29 Sep '19

29 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Location.xs | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index f94ca31..496fc43 100644 --- a/src/perl/Location/Location.xs +++ b/src/perl/Location/Location.xs @@ -69,6 +69,16 @@ get_vendor(db) OUTPUT: RETVAL +const char* +get_description(db) + struct loc_database* db; + + CODE: + // Get database description + RETVAL = loc_database_get_description(db); + OUTPUT: + RETVAL + # # Lookup functions # -- 2.20.1

1 0

[PATCH] perl: Fix comments outside of a C code block.
by Stefan Schantl 29 Sep '19

29 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Location.xs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/perl/Location/Location.xs b/src/perl/Location/Location.xs index 9e98aed..f94ca31 100644 --- a/src/perl/Location/Location.xs +++ b/src/perl/Location/Location.xs @@ -56,9 +56,9 @@ init(file) OUTPUT: RETVAL -/* - * Database functions - */ +# +# Database functions +# const char* get_vendor(db) struct loc_database* db; @@ -69,9 +69,9 @@ get_vendor(db) OUTPUT: RETVAL -/* - * Lookup functions - */ +# +# Lookup functions +# char* lookup_country_code(db, address) struct loc_database* db; -- 2.20.1

1 0

[PATCH] perl: Remove unneeded/unwanted files.
by Stefan Schantl 25 Sep '19

25 Sep '19

Signed-off-by: Stefan Schantl <stefan.schantl(a)ipfire.org> --- src/perl/Location/Changes | 5 ----- src/perl/Location/MANIFEST | 2 -- src/perl/Location/README | 38 -------------------------------------- 3 files changed, 45 deletions(-) delete mode 100644 src/perl/Location/Changes delete mode 100644 src/perl/Location/README diff --git a/src/perl/Location/Changes b/src/perl/Location/Changes deleted file mode 100644 index 7afbdba..0000000 --- a/src/perl/Location/Changes +++ /dev/null @@ -1,5 +0,0 @@ -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/MANIFEST b/src/perl/Location/MANIFEST index 55fe58b..f381916 100644 --- a/src/perl/Location/MANIFEST +++ b/src/perl/Location/MANIFEST @@ -1,9 +1,7 @@ -Changes Location.xs Makefile.PL MANIFEST ppport.h -README typemap t/Location.t lib/Location.pm diff --git a/src/perl/Location/README b/src/perl/Location/README deleted file mode 100644 index 21d8017..0000000 --- a/src/perl/Location/README +++ /dev/null @@ -1,38 +0,0 @@ -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. -- 2.20.1

1 0

Re: [PATCH] perl: Add perl bindings for libloc.
by Michael Tremer 25 Sep '19

25 Sep '19

I forgot to mention that we also have a location list where this patch should go to normally. I copied the list now. > On 25 Sep 2019, at 16:42, Michael Tremer <michael.tremer(a)ipfire.org> wrote: > > 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(a)ipfire.org> wrote: >> >> Signed-off-by: Stefan Schantl <stefan.schantl(a)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(a)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(a)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 >> +C<Text::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 C<Text::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 C<Devel::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 C<Devel::PPPort> are available on CPAN >> +before sending a bug report. >> + >> +If F<ppport.h> was generated using the latest version of >> +C<Devel::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 C<Devel::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 L<Devel::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 >> >

1 0

2024

2023

2022

2021

2020

2019

2018

2017

Location September 2019