master-a3-plperl-ppport1.patch
text/x-patch
Filename: master-a3-plperl-ppport1.patch
Type: text/x-patch
Part: 0
Message:
Update ppport.h in plperl
Patch
Same data as JSON:
GET /api/v1/attachments/:id/patch
the parsed metadata as JSON — format, series position, per-file stats; never the diff bytes.
API reference →
Format: unified
| File | + | − |
|---|---|---|
| src/pl/plperl/ppport.h | 0 | 0 |
diff --git a/src/pl/plperl/ppport.h b/src/pl/plperl/ppport.h
index 8c51dbb..5ea0c66 100644
*** a/src/pl/plperl/ppport.h
--- b/src/pl/plperl/ppport.h
***************
*** 1,389 ****
! /* ppport.h -- Perl/Pollution/Portability Version 2.011
! *
! * Automatically Created by Devel::PPPort on Sun Jul 4 09:11:52 2004
! *
! * Do NOT edit this file directly! -- Edit PPPort.pm instead.
! *
! * Version 2.x, Copyright (C) 2001, Paul Marquess.
! * Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
! * This code may be used and distributed under the same license as any
! * version of Perl.
! *
! * This version of ppport.h is designed to support operation with Perl
! * installations back to 5.004, and has been tested up to 5.8.1.
! *
! * If this version of ppport.h is failing during the compilation of this
! * module, please check if a newer version of Devel::PPPort is available
! * on CPAN before sending a bug report.
! *
! * If you are using the latest version of Devel::PPPort and it is failing
! * during compilation of this module, please send a report to perlbug@perl.com
! *
! * Include all following information:
! *
! * 1. The complete output from running "perl -V"
! *
! * 2. This file.
! *
! * 3. The name & version of the module you were trying to build.
! *
! * 4. A full log of the build that failed.
! *
! * 5. Any other information that you think could be relevant.
! *
! *
! * For the latest version of this code, please retreive the Devel::PPPort
! * module from CPAN.
! *
! */
! /*
! * In order for a Perl extension module to be as portable as possible
! * across differing versions of Perl itself, certain steps need to be taken.
! * Including this header is the first major one, then using dTHR is all the
! * appropriate places and using a PL_ prefix to refer to global Perl
! * variables is the second.
! *
! */
! /* If you use one of a few functions that were not present in earlier
! * versions of Perl, please add a define before the inclusion of ppport.h
! * for a static include, or use the GLOBAL request in a single module to
! * produce a global definition that can be referenced from the other
! * modules.
! *
! * Function: Static define: Extern define:
! * newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL
! *
! */
! /* To verify whether ppport.h is needed for your module, and whether any
! * special defines should be used, ppport.h can be run through Perl to check
! * your source code. Simply say:
! *
! * perl -x ppport.h *.c *.h *.xs foo/bar*.c [etc]
! *
! * The result will 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. It won't catch where dTHR is needed, and
! * doesn't attempt to account for global macro or function definitions,
! * nested includes, typemaps, etc.
! *
! * In order to test for the need of dTHR, please try your module under a
! * recent version of Perl that has threading compiled-in.
! *
! */
! /*
! #!/usr/bin/perl
! @ARGV = ("*.xs") if !@ARGV;
! %badmacros = %funcs = %macros = (); $replace = 0;
! foreach (<DATA>) {
! $funcs{$1} = 1 if /Provide:\s+(\S+)/;
! $macros{$1} = 1 if /^#\s*define\s+([a-zA-Z0-9_]+)/;
! $replace = $1 if /Replace:\s+(\d+)/;
! $badmacros{$2}=$1 if $replace and /^#\s*define\s+([a-zA-Z0-9_]+).*?\s+([a-zA-Z0-9_]+)/;
! $badmacros{$1}=$2 if /Replace (\S+) with (\S+)/;
}
- foreach $filename (map(glob($_),@ARGV)) {
- unless (open(IN, "<$filename")) {
- warn "Unable to read from $file: $!\n";
- next;
- }
- print "Scanning $filename...\n";
- $c = ""; while (<IN>) { $c .= $_; } close(IN);
- $need_include = 0; %add_func = (); $changes = 0;
- $has_include = ($c =~ /#.*include.*ppport/m);
! foreach $func (keys %funcs) {
! if ($c =~ /#.*define.*\bNEED_$func(_GLOBAL)?\b/m) {
! if ($c !~ /\b$func\b/m) {
! print "If $func isn't needed, you don't need to request it.\n" if
! $changes += ($c =~ s/^.*#.*define.*\bNEED_$func\b.*\n//m);
! } else {
! print "Uses $func\n";
! $need_include = 1;
! }
! } else {
! if ($c =~ /\b$func\b/m) {
! $add_func{$func} =1 ;
! print "Uses $func\n";
! $need_include = 1;
! }
! }
! }
! if (not $need_include) {
! foreach $macro (keys %macros) {
! if ($c =~ /\b$macro\b/m) {
! print "Uses $macro\n";
! $need_include = 1;
! }
! }
! }
! foreach $badmacro (keys %badmacros) {
! if ($c =~ /\b$badmacro\b/m) {
! $changes += ($c =~ s/\b$badmacro\b/$badmacros{$badmacro}/gm);
! print "Uses $badmacros{$badmacro} (instead of $badmacro)\n";
! $need_include = 1;
! }
! }
! if (scalar(keys %add_func) or $need_include != $has_include) {
! if (!$has_include) {
! $inc = join('',map("#define NEED_$_\n", sort keys %add_func)).
! "#include \"ppport.h\"\n";
! $c = "$inc$c" unless $c =~ s/#.*include.*XSUB.*\n/$&$inc/m;
! } elsif (keys %add_func) {
! $inc = join('',map("#define NEED_$_\n", sort keys %add_func));
! $c = "$inc$c" unless $c =~ s/^.*#.*include.*ppport.*$/$inc$&/m;
! }
! if (!$need_include) {
! print "Doesn't seem to need ppport.h.\n";
! $c =~ s/^.*#.*include.*ppport.*\n//m;
! }
! $changes++;
! }
! if ($changes) {
! open(OUT,">/tmp/ppport.h.$$");
! print OUT $c;
! close(OUT);
! open(DIFF, "diff -u $filename /tmp/ppport.h.$$|");
! while (<DIFF>) { s!/tmp/ppport\.h\.$$!$filename.patched!; print STDOUT; }
! close(DIFF);
! unlink("/tmp/ppport.h.$$");
! } else {
! print "Looks OK\n";
! }
}
__DATA__
*/
#ifndef _P_P_PORTABILITY_H_
#define _P_P_PORTABILITY_H_
! #ifndef PERL_REVISION
! #ifndef __PATCHLEVEL_H_INCLUDED__
! #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 PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + 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 ERRSV
! #define ERRSV perl_get_sv("@",FALSE)
#endif
! #if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION <= 5))
! /* Replace: 1 */
! #define PL_Sv Sv
! #define PL_compiling compiling
! #define PL_copline copline
! #define PL_curcop curcop
! #define PL_curstash curstash
! #define PL_defgv defgv
! #define PL_dirty dirty
! #define PL_dowarn dowarn
! #define PL_hints hints
! #define PL_na na
! #define PL_perldb perldb
! #define PL_rsfp_filters rsfp_filters
! #define PL_rsfpv rsfp
! #define PL_stdingv stdingv
! #define PL_sv_no sv_no
! #define PL_sv_undef sv_undef
! #define PL_sv_yes sv_yes
! /* Replace: 0 */
#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 dNOOP
! #define NOOP (void)0
! #define dNOOP extern int Perl___notused PERL_UNUSED_DECL
#endif
! #ifndef dTHR
! #define dTHR dNOOP
#endif
! #ifndef dTHX
! #define dTHX dNOOP
! #define dTHXa(x) dNOOP
! #define dTHXoa(x) dNOOP
#endif
! #ifndef pTHX
! #define pTHX void
! #define pTHX_
! #define aTHX
! #define aTHX_
#endif
! #ifndef dAX
! #define dAX I32 ax = MARK - PL_stack_base + 1
#endif
! #ifndef dITEMS
! #define dITEMS I32 items = SP - MARK
#endif
! /* IV could also be a quad (say, a long long), but Perls
! * capable of those should have IVSIZE already. */
! #if !defined(IVSIZE) && defined(LONGSIZE)
! #define IVSIZE LONGSIZE
#endif
#ifndef IVSIZE
! #define IVSIZE 4 /* A bold guess, but the best we can make. */
#endif
#ifndef UVSIZE
! #define UVSIZE IVSIZE
#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
! #define NUM2PTR(any,d) (any)(PTRV)(d)
! #define PTR2IV(p) INT2PTR(IV,p)
! #define PTR2UV(p) INT2PTR(UV,p)
! #define PTR2NV(p) NUM2PTR(NV,p)
! #if PTRSIZE == LONGSIZE
! #define PTR2ul(p) (unsigned long)(p)
#else
! #define PTR2ul(p) INT2PTR(unsigned long,p)
#endif
- #endif /* !INT2PTR */
#ifndef boolSV
! #define boolSV(b) ((b) ? &PL_sv_yes : &PL_sv_no)
#endif
#ifndef gv_stashpvn
! #define gv_stashpvn(str,len,flags) gv_stashpv(str,flags)
#endif
! #ifndef newSVpvn
! #define newSVpvn(data,len) ((len) ? newSVpv ((data), (len)) : newSVpv ("", 0))
#endif
! #ifndef newRV_inc
/* Replace: 1 */
! #define newRV_inc(sv) newRV(sv)
/* Replace: 0 */
#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 newRV_noinc
! #ifdef __GNUC__
! #define newRV_noinc(sv) \
! ({ \
! SV *nsv = (SV*)newRV(sv); \
! SvREFCNT_dec(sv); \
! nsv; \
! })
#else
! #if defined(USE_THREADS)
! static SV *
! newRV_noinc(SV *sv)
{
! SV *nsv = (SV *) newRV(sv);
! SvREFCNT_dec(sv);
! return nsv;
}
#else
! #define newRV_noinc(sv) \
! (PL_Sv=(SV*)newRV(sv), SvREFCNT_dec(sv), (SV*)PL_Sv)
#endif
#endif
#endif
! /* Provide: newCONSTSUB */
! /* newCONSTSUB from IO.xs is in the core starting with 5.004_63 */
! #if (PERL_VERSION < 4) || ((PERL_VERSION == 4) && (PERL_SUBVERSION < 63))
#if defined(NEED_newCONSTSUB)
static
#else
! extern void newCONSTSUB(HV *stash, char *name, SV *sv);
#endif
#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
void
! newCONSTSUB(stash, name, sv)
! HV *stash;
! 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 = PL_copline;
PL_hints &= ~HINT_BLOCK_SCOPE;
if (stash)
--- 1,4506 ----
+ #if 0
+ <<'SKIP';
+ #endif
+ /*
+ ----------------------------------------------------------------------
! ppport.h -- Perl/Pollution/Portability Version 3.19
! Automatically created by Devel::PPPort running under perl 5.011002.
+ 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.19
!
! =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.10.0.
!
! =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
! automagially 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
! 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
! load_module() NEED_load_module NEED_load_module_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
! vload_module() NEED_vload_module NEED_vload_module_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
! file a bug report using the CPAN Request Tracker at L<http://rt.cpan.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-2009, 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.19;
!
! 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(
! AvFILLp|5.004050||p
! AvFILL|||
! CLASS|||n
! CPERLscope|5.005000||p
! CX_CURPAD_SAVE|||
! CX_CURPAD_SV|||
! 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||p
! Copy|||
! CvPADLIST|||
! CvSTASH|||
! CvWEAKOUTSIDE|||
! DEFSV_set|5.011000||p
! DEFSV|5.004050||p
! 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|||
! GvSVn|5.009003||p
! GvSV|||
! Gv_AMupdate|||
! HEf_SVKEY||5.004000|
! HeHASH||5.004000|
! HeKEY||5.004000|
! HeKLEN||5.004000|
! HePV||5.004000|
! HeSVKEY_force||5.004000|
! HeSVKEY_set||5.004000|
! HeSVKEY||5.004000|
! HeUTF8||5.011000|
! HeVAL||5.004000|
! HvNAMELEN_get|5.009003||p
! 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|||
! LVRET|||
! MARK|||
! MULTICALL||5.011000|
! MY_CXT_CLONE|5.009002||p
! MY_CXT_INIT|5.007003||p
! MY_CXT|5.007003||p
! MoveD|5.009002||p
! Move|||
! 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|||
! ORIGMARK|||
! 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_DUP|||
! 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_BCDVERSION|5.011000||p
! PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
! PERL_HASH|5.004000||p
! PERL_INT_MAX|5.004000||p
! PERL_INT_MIN|5.004000||p
! PERL_LONG_MAX|5.004000||p
! PERL_LONG_MIN|5.004000||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.011000||p
! PERL_MAGIC_isaelem|5.007002||p
! PERL_MAGIC_isa|5.007002||p
! PERL_MAGIC_mutex|5.011000||p
! PERL_MAGIC_nkeys|5.007002||p
! PERL_MAGIC_overload_elem|5.007002||p
! PERL_MAGIC_overload_table|5.007002||p
! PERL_MAGIC_overload|5.007002||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.004000||p
! PERL_QUAD_MIN|5.004000||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.004000||p
! PERL_SHORT_MIN|5.004000||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.011000|
! PERL_UCHAR_MAX|5.004000||p
! PERL_UCHAR_MIN|5.004000||p
! PERL_UINT_MAX|5.004000||p
! PERL_UINT_MIN|5.004000||p
! PERL_ULONG_MAX|5.004000||p
! PERL_ULONG_MIN|5.004000||p
! PERL_UNUSED_ARG|5.009003||p
! PERL_UNUSED_CONTEXT|5.009004||p
! PERL_UNUSED_DECL|5.007002||p
! PERL_UNUSED_VAR|5.007002||p
! PERL_UQUAD_MAX|5.004000||p
! PERL_UQUAD_MIN|5.004000||p
! PERL_USE_GCC_BRACE_GROUPS|5.009004||p
! PERL_USHORT_MAX|5.004000||p
! PERL_USHORT_MIN|5.004000||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.011000||p
! PL_bufptr|5.011000||p
! PL_compiling|5.004050||p
! PL_copline|5.011000||p
! PL_curcop|5.004050||p
! 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.011000||p
! PL_expect|5.011000||p
! PL_hexdigit|5.005000||p
! PL_hints|5.005000||p
! PL_in_my_stash|5.011000||p
! PL_in_my|5.011000||p
! PL_last_in_gv|||n
! PL_laststatval|5.005000||p
! PL_lex_state|5.011000||p
! PL_lex_stuff|5.011000||p
! PL_linestr|5.011000||p
! PL_modglobal||5.005000|n
! PL_na|5.004050||pn
! PL_no_modify|5.006000||p
! PL_ofsgv|||n
! PL_parser|5.009005||p
! PL_perl_destruct_level|5.004050||p
! PL_perldb|5.004050||p
! PL_ppaddr|5.006000||p
! PL_rsfp_filters|5.004050||p
! PL_rsfp|5.004050||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.011000||p
! POP_MULTICALL||5.011000|
! POPi|||n
! POPl|||n
! POPn|||n
! POPpbytex||5.007001|n
! POPpx||5.005030|n
! POPp|||n
! POPs|||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.011000|
! PUSHi|||
! PUSHmortal|5.009002||p
! PUSHn|||
! PUSHp|||
! PUSHs|||
! PUSHu|5.004000||p
! PUTBACK|||
! 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_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
! 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
! 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_IV|||
! SVt_NV|||
! SVt_PVAV|||
! SVt_PVCV|||
! SVt_PVHV|||
! SVt_PVMG|||
! SVt_PV|||
! Safefree|||
! Slab_Alloc|||
! Slab_Free|||
! 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_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|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|||
! 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|
! SvRX||5.009005|
! 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|||
! 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
! UTF8_MAXBYTES|5.009002||p
! 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.011000||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
! 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_VERSION_BOOTCHECK|||
! XS_VERSION|||
! XSprePUSH|5.006000||p
! XS|||
! ZeroD|5.009002||p
! Zero|||
! _aMY_CXT|5.007003||p
! _pMY_CXT|5.007003||p
! aMY_CXT_|5.007003||p
! aMY_CXT|5.007003||p
! aTHXR_|5.011000||p
! aTHXR|5.011000||p
! aTHX_|5.006000||p
! aTHX|5.006000||p
! add_data|||n
! addmad|||
! allocmy|||
! amagic_call|||
! amagic_cmp_locale|||
! amagic_cmp|||
! amagic_i_ncmp|||
! amagic_ncmp|||
! any_dup|||
! ao|||
! append_elem|||
! append_list|||
! append_madprops|||
! apply_attrs_my|||
! apply_attrs_string||5.006001|
! apply_attrs|||
! apply|||
! 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|||
! av_fetch|||
! av_fill|||
! av_iter_p||5.011000|
! av_len|||
! av_make|||
! av_pop|||
! av_push|||
! av_reify|||
! av_shift|||
! av_store|||
! av_undef|||
! av_unshift|||
! ax|||n
! bad_type|||
! bind_match|||
! block_end|||
! block_gimme||5.004000|
! block_start|||
! boolSV|5.004000||p
! boot_core_PerlIO|||
! boot_core_UNIVERSAL|||
! boot_core_mro|||
! bytes_from_utf8||5.007001|
! bytes_to_uni|||n
! bytes_to_utf8||5.006001|
! 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
! calloc||5.007002|n
! cando|||
! cast_i32||5.006000|
! cast_iv||5.006000|
! cast_ulong||5.006000|
! cast_uv||5.006000|
! check_type_and_open|||
! check_uni|||
! checkcomma|||
! checkposixcc|||
! ckWARN|5.006000||p
! ck_anoncode|||
! ck_bitop|||
! ck_concat|||
! ck_defined|||
! ck_delete|||
! ck_die|||
! ck_each|||
! ck_eof|||
! ck_eval|||
! ck_exec|||
! ck_exists|||
! ck_exit|||
! ck_ftst|||
! ck_fun|||
! ck_glob|||
! ck_grep|||
! ck_index|||
! ck_join|||
! ck_lfun|||
! ck_listiob|||
! ck_match|||
! ck_method|||
! ck_null|||
! ck_open|||
! ck_readline|||
! ck_repeat|||
! ck_require|||
! ck_return|||
! ck_rfun|||
! ck_rvconst|||
! ck_sassign|||
! ck_select|||
! ck_shift|||
! ck_sort|||
! ck_spair|||
! ck_split|||
! ck_subr|||
! ck_substr|||
! ck_svconst|||
! ck_trunc|||
! ck_unpack|||
! ckwarn_d||5.009003|
! ckwarn||5.009003|
! cl_and|||n
! cl_anything|||n
! cl_init_zero|||n
! cl_init|||n
! cl_is_anything|||n
! cl_or|||n
! clear_placeholders|||
! closest_cop|||
! convert|||
! cop_free|||
! cr_textfilter|||
! create_eval_scope|||
! croak_nocontext|||vn
! croak_xs_usage||5.011000|
! croak|||v
! csighandler||5.009003|n
! curmad|||
! custom_op_desc||5.007003|
! custom_op_name||5.007003|
! cv_ckproto_len|||
! cv_clone|||
! cv_const_sv||5.004000|
! cv_dump|||
! cv_undef|||
! cx_dump||5.005000|
! cx_dup|||
! 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.011000||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
! del_sv|||
! delete_eval_scope|||
! delimcpy||5.004000|
! deprecate_old|||
! deprecate|||
! despatch_signals||5.007001|
! destroy_matcher|||
! die_nocontext|||vn
! die_where|||
! die|||v
! dirp_dup|||
! div128|||
! djSP|||
! do_aexec5|||
! do_aexec|||
! do_aspawn|||
! do_binmode||5.004050|
! do_chomp|||
! do_chop|||
! do_close|||
! 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_kv|||
! do_magic_dump||5.006000|
! do_msgrcv|||
! do_msgsnd|||
! do_oddball|||
! do_op_dump||5.006000|
! do_op_xmldump|||
! do_open9||5.006000|
! do_openn||5.007001|
! do_open||5.004000|
! do_pmop_dump||5.006000|
! do_pmop_xmldump|||
! 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|||
! dofile|||
! dofindlabel|||
! doform|||
! doing_taint||5.008001|n
! dooneliner|||
! doopen_pm|||
! doparseform|||
! dopoptoeval|||
! dopoptogiven|||
! dopoptolabel|||
! dopoptoloop|||
! dopoptosub_at|||
! dopoptowhen|||
! doref||5.009003|
! dounwind|||
! dowantarray|||
! dump_all||5.006000|
! dump_eval||5.006000|
! dump_exec_pos|||
! dump_fds|||
! dump_form||5.006000|
! dump_indent||5.006000|v
! dump_mstats|||
! dump_packsubs||5.006000|
! dump_sub||5.006000|
! dump_sv_child|||
! dump_trie_interim_list|||
! dump_trie_interim_table|||
! dump_trie|||
! dump_vindent||5.006000|
! dumpuntil|||
! dup_attrlist|||
! 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|||
! fetch_cop_label||5.011000|
! filter_add|||
! filter_del|||
! filter_gets|||
! filter_read|||
! find_and_forget_pmops|||
! find_array_subscript|||
! find_beginning|||
! find_byclass|||
! find_hash_subscript|||
! find_in_my_stash|||
! find_runcv||5.008001|
! find_rundefsvoffset||5.009002|
! find_script|||
! find_uninit_var|||
! first_symbol|||n
! fold_constants|||
! forbid_setid|||
! force_ident|||
! force_list|||
! force_next|||
! force_version|||
! force_word|||
! forget_pmop|||
! form_nocontext|||vn
! form||5.004000|v
! fp_dup|||
! fprintf_nocontext|||vn
! free_global_struct|||
! free_tied_hv_pool|||
! free_tmps|||
! gen_constant_list|||
! get_arena|||
! get_aux_mg|||
! get_av|5.006000||p
! get_context||5.006000|n
! get_cvn_flags||5.009005|
! get_cv|5.006000||p
! get_db_sub|||
! get_debug_opts|||
! get_hash_seed|||
! get_hv|5.006000||p
! get_isa_hash|||
! 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|||
! glob_assign_ref|||
! gp_dup|||
! gp_free|||
! gp_ref|||
! grok_bin|5.007003||p
! grok_hex|5.007003||p
! 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_autoload4||5.004000|
! gv_check|||
! gv_const_sv||5.009003|
! gv_dump||5.006000|
! gv_efullname3||5.004000|
! gv_efullname4||5.006001|
! gv_efullname|||
! gv_ename|||
! gv_fetchfile_flags||5.009005|
! gv_fetchfile|||
! gv_fetchmeth_autoload||5.007003|
! gv_fetchmethod_autoload||5.004000|
! gv_fetchmethod_flags||5.011000|
! gv_fetchmethod|||
! gv_fetchmeth|||
! gv_fetchpvn_flags|5.009002||p
! gv_fetchpvs|5.009004||p
! gv_fetchpv|||
! gv_fetchsv||5.009002|
! gv_fullname3||5.004000|
! gv_fullname4||5.006001|
! gv_fullname|||
! gv_get_super_pkg|||
! gv_handler||5.007001|
! gv_init_sv|||
! gv_init|||
! gv_name_set||5.009004|
! gv_stashpvn|5.004000||p
! gv_stashpvs|5.009003||p
! gv_stashpv|||
! gv_stashsv|||
! he_dup|||
! hek_dup|||
! hfreeentries|||
! hsplit|||
! hv_assert||5.011000|
! hv_auxinit|||n
! hv_backreferences_p|||
! hv_clear_placeholders||5.009001|
! hv_clear|||
! hv_common_key_len||5.010000|
! hv_common||5.010000|
! hv_copy_hints_hv|||
! hv_delayfree_ent||5.004000|
! hv_delete_common|||
! hv_delete_ent||5.004000|
! hv_delete|||
! hv_eiter_p||5.009003|
! hv_eiter_set||5.009003|
! hv_exists_ent||5.004000|
! hv_exists|||
! hv_fetch_ent||5.004000|
! hv_fetchs|5.009003||p
! hv_fetch|||
! hv_free_ent||5.004000|
! hv_iterinit|||
! hv_iterkeysv||5.004000|
! hv_iterkey|||
! hv_iternext_flags||5.008000|
! hv_iternextsv|||
! hv_iternext|||
! hv_iterval|||
! hv_kill_backrefs|||
! hv_ksplit||5.004000|
! hv_magic_check|||n
! hv_magic|||
! hv_name_set||5.009003|
! hv_notallowed|||
! hv_placeholders_get||5.009003|
! hv_placeholders_p||5.009003|
! hv_placeholders_set||5.009003|
! hv_riter_p||5.009003|
! hv_riter_set||5.009003|
! hv_scalar||5.009001|
! hv_store_ent||5.004000|
! hv_store_flags||5.008000|
! hv_stores|5.009004||p
! hv_store|||
! hv_undef|||
! ibcmp_locale||5.004000|
! ibcmp_utf8||5.007003|
! ibcmp|||
! incline|||
! incpush_if_exists|||
! incpush_use_sep|||
! incpush|||
! ingroup|||
! init_argv_symbols|||
! 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|
! instr|||
! intro_my|||
! intuit_method|||
! intuit_more|||
! invert|||
! io_close|||
! isALNUMC|5.006000||p
! isALNUM|||
! isALPHA|||
! isASCII|5.006000||p
! isBLANK|5.006001||p
! isCNTRL|5.006000||p
! isDIGIT|||
! isGRAPH|5.006000||p
! isGV_with_GP|5.009004||p
! isLOWER|||
! isPRINT|5.004000||p
! isPSXSPC|5.006001||p
! isPUNCT|5.006000||p
! isSPACE|||
! isUPPER|||
! isXDIGIT|5.006000||p
! is_an_int|||
! is_gv_magical_sv|||
! is_handle_constructor|||n
! is_list_assignment|||
! is_lvalue_sub||5.007001|
! is_uni_alnum_lc||5.006000|
! is_uni_alnumc_lc||5.006000|
! is_uni_alnumc||5.006000|
! 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_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.006000|
! is_utf8_alnum||5.006000|
! is_utf8_alpha||5.006000|
! is_utf8_ascii||5.006000|
! is_utf8_char_slow|||n
! is_utf8_char||5.006000|
! 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_print||5.006000|
! is_utf8_punct||5.006000|
! is_utf8_space||5.006000|
! is_utf8_string_loclen||5.009003|
! is_utf8_string_loc||5.008001|
! is_utf8_string||5.006001|
! is_utf8_upper||5.006000|
! is_utf8_xdigit||5.006000|
! isa_lookup|||
! items|||n
! ix|||n
! jmaybe|||
! join_exact|||
! keyword|||
! leave_scope|||
! lex_end|||
! lex_start|||
! linklist|||
! 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.011000||p
! mPUSHu|5.009002||p
! mXPUSHi|5.009002||p
! mXPUSHn|5.009002||p
! mXPUSHp|5.009002||p
! mXPUSHs|5.011000||p
! mXPUSHu|5.009002||p
! mad_free|||
! madlex|||
! madparse|||
! magic_clear_all_env|||
! magic_clearenv|||
! magic_clearhint|||
! magic_clearisa|||
! magic_clearpack|||
! magic_clearsig|||
! magic_dump||5.006000|
! magic_existspack|||
! magic_freearylen_p|||
! magic_freeovrld|||
! magic_getarylen|||
! magic_getdefelem|||
! magic_getnkeys|||
! magic_getpack|||
! magic_getpos|||
! magic_getsig|||
! magic_getsubstr|||
! magic_gettaint|||
! magic_getuvar|||
! magic_getvec|||
! magic_get|||
! magic_killbackrefs|||
! magic_len|||
! magic_methcall|||
! magic_methpack|||
! magic_nextpack|||
! magic_regdata_cnt|||
! magic_regdatum_get|||
! magic_regdatum_set|||
! magic_scalarpack|||
! magic_set_all_env|||
! magic_setamagic|||
! magic_setarylen|||
! magic_setcollxfrm|||
! magic_setdbline|||
! magic_setdefelem|||
! magic_setenv|||
! magic_sethint|||
! magic_setisa|||
! 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_failtable|||
! make_trie|||
! malloc_good_size|||n
! malloced_size|||n
! malloc||5.007002|n
! markstack_grow|||
! matcher_matches_sv|||
! measure_struct|||
! memEQ|5.004000||p
! memNE|5.004000||p
! mem_collxfrm|||
! mem_log_common|||n
! mess_alloc|||
! mess_nocontext|||vn
! mess||5.006000|v
! method_common|||
! mfree||5.007002|n
! mg_clear|||
! mg_copy|||
! mg_dup|||
! mg_find|||
! mg_free|||
! mg_get|||
! mg_length||5.005000|
! mg_localize|||
! mg_magical|||
! mg_set|||
! mg_size||5.005000|
! mini_mktime||5.007002|
! missingterm|||
! mode_from_discipline|||
! modkids|||
! mod|||
! more_bodies|||
! more_sv|||
! moreswitches|||
! mro_get_from_name||5.011000|
! mro_get_linear_isa_dfs|||
! mro_get_linear_isa||5.009005|
! mro_get_private_data||5.011000|
! mro_isa_changed_in|||
! mro_meta_dup|||
! mro_meta_init|||
! mro_method_changed_in||5.009005|
! mro_register||5.011000|
! mro_set_mro||5.011000|
! mro_set_private_data||5.011000|
! mul128|||
! mulexp10|||n
! my_atof2||5.007002|
! my_atof||5.006000|
! my_attrs|||
! my_bcopy|||n
! my_betoh16|||n
! my_betoh32|||n
! my_betoh64|||n
! my_betohi|||n
! my_betohl|||n
! my_betohs|||n
! my_bzero|||n
! my_chsize|||
! my_clearenv|||
! my_cxt_index|||
! my_cxt_init|||
! my_dirfd||5.009005|
! my_exit_jump|||
! my_exit|||
! my_failure_exit||5.004000|
! my_fflush_all||5.006000|
! my_fork||5.007003|n
! my_htobe16|||n
! my_htobe32|||n
! my_htobe64|||n
! my_htobei|||n
! my_htobel|||n
! my_htobes|||n
! my_htole16|||n
! my_htole32|||n
! my_htole64|||n
! my_htolei|||n
! my_htolel|||n
! my_htoles|||n
! my_htonl|||
! my_kid|||
! my_letoh16|||n
! my_letoh32|||n
! my_letoh64|||n
! my_letohi|||n
! my_letohl|||n
! my_letohs|||n
! my_lstat|||
! my_memcmp||5.004000|n
! my_memset|||n
! my_ntohl|||
! my_pclose||5.004000|
! my_popen_list||5.007001|
! my_popen||5.004000|
! my_setenv|||
! my_snprintf|5.009004||pvn
! my_socketpair||5.007003|n
! my_sprintf|5.009003||pvn
! my_stat|||
! my_strftime||5.007002|
! my_strlcat|5.009004||pn
! my_strlcpy|5.009004||pn
! my_swabn|||n
! my_swap|||
! my_unexec|||
! my_vsnprintf||5.009004|n
! need_utf8|||n
! newANONATTRSUB||5.006000|
! newANONHASH|||
! newANONLIST|||
! newANONSUB|||
! newASSIGNOP|||
! newATTRSUB||5.006000|
! newAVREF|||
! newAV|||
! newBINOP|||
! newCONDOP|||
! newCONSTSUB|5.004050||p
! newCVREF|||
! newDEFSVOP|||
! newFORM|||
! newFOROP|||
! newGIVENOP||5.009003|
! newGIVWHENOP|||
! newGP|||
! newGVOP|||
! newGVREF|||
! newGVgen|||
! newHVREF|||
! newHVhv||5.005000|
! newHV|||
! newIO|||
! newLISTOP|||
! newLOGOP|||
! newLOOPEX|||
! newLOOPOP|||
! newMADPROP|||
! newMADsv|||
! newMYSUB|||
! newNULLLIST|||
! newOP|||
! newPADOP|||
! newPMOP|||
! newPROG|||
! newPVOP|||
! newRANGE|||
! newRV_inc|5.004000||p
! newRV_noinc|5.004000||p
! newRV|||
! newSLICEOP|||
! newSTATEOP|||
! newSUB|||
! newSVOP|||
! newSVREF|||
! newSV_type|5.009005||p
! newSVhek||5.009003|
! newSViv|||
! newSVnv|||
! newSVpvf_nocontext|||vn
! newSVpvf||5.004000|v
! newSVpvn_flags|5.011000||p
! newSVpvn_share|5.007001||p
! newSVpvn_utf8|5.011000||p
! newSVpvn|5.004050||p
! newSVpvs_flags|5.011000||p
! newSVpvs_share||5.009003|
! newSVpvs|5.009003||p
! newSVpv|||
! newSVrv|||
! newSVsv|||
! newSVuv|5.006000||p
! newSV|||
! newTOKEN|||
! newUNOP|||
! newWHENOP||5.009003|
! newWHILEOP||5.009003|
! newXS_flags||5.009004|
! 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|||
! no_bareword_allowed|||
! no_fh_allowed|||
! no_op|||
! not_a_number|||
! nothreadhook||5.008000|
! nuke_stacks|||
! num_overflow|||n
! offer_nice_chunk|||
! oopsAV|||
! oopsHV|||
! op_clear|||
! op_const_sv|||
! op_dump||5.006000|
! op_free|||
! op_getmad_weak|||
! op_getmad|||
! op_null||5.007002|
! op_refcnt_dec|||
! op_refcnt_inc|||
! op_refcnt_lock||5.009002|
! op_refcnt_unlock||5.009002|
! op_xmldump|||
! open_script|||
! 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|||
! packlist||5.008001|
! pad_add_anon|||
! pad_add_name|||
! pad_alloc|||
! pad_block_start|||
! pad_check_dup|||
! pad_compname_type|||
! pad_findlex|||
! pad_findmy|||
! pad_fixup_inner_anons|||
! pad_free|||
! pad_leavemy|||
! pad_new|||
! pad_peg|||n
! pad_push|||
! pad_reset|||
! pad_setsv|||
! pad_sv||5.011000|
! pad_swipe|||
! pad_tidy|||
! pad_undef|||
! parse_body|||
! parse_unicode_opts|||
! parser_dup|||
! parser_free|||
! path_is_absolute|||n
! peep|||
! pending_Slabs_to_ro|||
! 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|||
! pmflag|||
! pmop_dump||5.006000|
! pmop_xmldump|||
! pmruntime|||
! pmtrans|||
! pop_scope|||
! pregcomp||5.009005|
! pregexec|||
! pregfree2||5.011000|
! pregfree|||
! prepend_elem|||
! prepend_madprops|||
! printbuf|||
! printf_nocontext|||vn
! process_special_blocks|||
! 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_byte|||
! pv_display|5.006000||p
! pv_escape|5.009004||p
! pv_pretty|5.009004||p
! pv_uni_display||5.007003|
! qerror|||
! qsortsvu|||
! re_compile||5.009005|
! re_croak2|||
! re_dup_guts|||
! re_intuit_start||5.009005|
! re_intuit_string||5.006000|
! readpipe_override|||
! realloc||5.007002|n
! reentrant_free|||
! reentrant_init|||
! reentrant_retry|||vn
! reentrant_size|||
! ref_array_or_hash|||
! refcounted_he_chain_2hv|||
! refcounted_he_fetch|||
! refcounted_he_free|||
! refcounted_he_new_common|||
! refcounted_he_new|||
! refcounted_he_value|||
! refkids|||
! refto|||
! ref||5.011000|
! reg_check_named_buff_matched|||
! 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_namedseq|||
! reg_node|||
! reg_numbered_buff_fetch|||
! reg_numbered_buff_length|||
! reg_numbered_buff_store|||
! reg_qr_package|||
! reg_recode|||
! reg_scan_name|||
! reg_skipcomment|||
! reg_temp_copy|||
! reganode|||
! regatom|||
! regbranch|||
! regclass_swash||5.009004|
! regclass|||
! regcppop|||
! regcppush|||
! regcurly|||n
! regdump_extflags|||
! regdump||5.005000|
! regdupe_internal|||
! regexec_flags||5.005000|
! regfree_internal||5.009005|
! reghop3|||n
! reghop4|||n
! reghopmaybe3|||n
! reginclass|||
! reginitcolors||5.006000|
! reginsert|||
! regmatch|||
! regnext||5.005000|
! regpiece|||
! regpposixcc|||
! regprop|||
! regrepeat|||
! regtail_study|||
! regtail|||
! regtry|||
! reguni|||
! regwhite|||n
! reg|||
! repeatcpy|||
! report_evil_fh|||
! report_uninit|||
! require_pv||5.006000|
! require_tie_mod|||
! restore_magic|||
! rninstr|||
! rsignal_restore|||
! rsignal_save|||
! rsignal_state||5.004000|
! rsignal||5.004000|
! run_body|||
! run_user_filter|||
! runops_debug||5.005000|
! runops_standard||5.005000|
! 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||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_hek_flags|||n
! save_helem_flags||5.011000|
! save_helem||5.004050|
! save_hints|||
! save_hptr|||
! save_int|||
! save_item|||
! save_iv||5.005000|
! save_lines|||
! save_list|||
! save_long|||
! save_magic|||
! save_mortalizesv||5.007001|
! save_nogv|||
! save_op|||
! save_padsv_and_mortalize||5.011000|
! save_pptr|||
! save_pushi32ptr|||
! save_pushptri32ptr|||
! save_pushptrptr|||
! save_pushptr||5.011000|
! save_re_context||5.006000|
! save_scalar_at|||
! save_scalar|||
! save_set_svflags||5.009000|
! save_shared_pvref||5.007003|
! save_sptr|||
! save_svref|||
! save_vptr||5.006000|
! savepvn|||
! savepvs||5.009003|
! savepv|||
! savesharedpvn||5.009005|
! savesharedpv||5.007003|
! savestack_grow_cnt||5.008001|
! savestack_grow|||
! savesvpv||5.009002|
! 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|||
! scope|||
! screaminstr||5.005000|
! search_const|||
! seed||5.008001|
! sequence_num|||
! sequence_tail|||
! sequence|||
! set_context||5.006000|n
! set_numeric_local||5.006000|
! set_numeric_radix||5.006000|
! set_numeric_standard||5.006000|
! setdefout|||
! share_hek_flags|||
! share_hek||5.004000|
! si_dup|||
! sighandler|||n
! simplify_sort|||
! skipspace0|||
! skipspace1|||
! skipspace2|||
! skipspace|||
! softref2xv|||
! sortcv_stacked|||
! sortcv_xsub|||
! sortcv|||
! sortsv_flags||5.009003|
! sortsv||5.007003|
! space_join_names_mortal|||
! ss_dup|||
! stack_grow|||
! start_force|||
! start_glob|||
! start_subparse||5.004000|
! stashpv_hvname_match||5.011000|
! stdize_locale|||
! store_cop_label|||
! 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|||
! sv_2cv|||
! sv_2io|||
! sv_2iuv_common|||
! sv_2iuv_non_preserve|||
! sv_2iv_flags||5.009001|
! sv_2iv|||
! sv_2mortal|||
! sv_2num|||
! sv_2nv|||
! 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|||
! sv_bless|||
! sv_cat_decode||5.008001|
! sv_catpv_mg|5.004050||p
! 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|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_catxmlpvn|||
! sv_catxmlsv|||
! sv_chop|||
! sv_clean_all|||
! sv_clean_objs|||
! sv_clear|||
! sv_cmp_locale||5.004000|
! sv_cmp|||
! sv_collxfrm|||
! sv_compile_2op||5.008001|
! sv_copypv||5.007003|
! sv_dec|||
! sv_del_backref|||
! sv_derived_from||5.004000|
! sv_destroyable||5.010000|
! sv_does||5.009004|
! sv_dump|||
! sv_dup_inc_multiple|||
! sv_dup|||
! sv_eq|||
! sv_exp_grow|||
! sv_force_normal_flags||5.007001|
! sv_force_normal||5.006000|
! sv_free2|||
! sv_free_arenas|||
! sv_free|||
! sv_gets||5.004000|
! sv_grow|||
! sv_i_ncmp|||
! sv_inc|||
! sv_insert_flags||5.011000|
! sv_insert|||
! sv_isa|||
! sv_isobject|||
! sv_iv||5.005000|
! sv_kill_backrefs|||
! sv_len_utf8||5.006000|
! sv_len|||
! sv_magic_portable|5.011000|5.004000|p
! sv_magicext||5.007003|
! sv_magic|||
! sv_mortalcopy|||
! sv_ncmp|||
! sv_newmortal|||
! sv_newref|||
! sv_nolocking||5.007003|
! sv_nosharing||5.007003|
! sv_nounlocking|||
! sv_nv||5.005000|
! sv_peek||5.005000|
! sv_pos_b2u_midway|||
! sv_pos_b2u||5.006000|
! sv_pos_u2b_cached|||
! 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_release_COW|||
! sv_replace|||
! sv_report_used|||
! sv_reset|||
! sv_rvweaken||5.006000|
! 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|5.009004||p
! sv_setpv|||
! sv_setref_iv|||
! sv_setref_nv|||
! sv_setref_pvn|||
! 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_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||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
! sv_xmlpeek|||
! svtype|||
! swallow_bom|||
! swap_match_buff|||
! swash_fetch||5.007002|
! swash_get|||
! swash_init||5.006000|
! 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|||
! tmps_grow||5.006000|
! toLOWER|||
! toUPPER|||
! to_byte_substr|||
! 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.007003|
! to_utf8_lower||5.007003|
! to_utf8_substr|||
! to_utf8_title||5.007003|
! to_utf8_upper||5.007003|
! token_free|||
! token_getmad|||
! tokenize_use|||
! tokeq|||
! tokereport|||
! too_few_arguments|||
! too_many_arguments|||
! uiv_2buf|||n
! unlnk|||
! unpack_rec|||
! unpack_str||5.007003|
! unpackstring||5.008001|
! unshare_hek_or_pvn|||
! unshare_hek|||
! unsharepvn||5.004000|
! unwind_handler_stack|||
! update_debugger_info|||
! upg_version||5.009005|
! usage|||
! utf16_to_utf8_reversed||5.006001|
! utf16_to_utf8||5.006001|
! utf8_distance||5.006000|
! utf8_hop||5.006000|
! utf8_length||5.007001|
! utf8_mg_pos_cache_update|||
! utf8_to_bytes||5.006001|
! utf8_to_uvchr||5.007001|
! utf8_to_uvuni||5.007001|
! utf8n_to_uvchr|||
! utf8n_to_uvuni||5.007001|
! utilize|||
! uvchr_to_utf8_flags||5.007003|
! uvchr_to_utf8|||
! uvuni_to_utf8_flags||5.007003|
! uvuni_to_utf8||5.007001|
! validate_suid|||
! varname|||
! vcmp||5.009000|
! vcroak||5.006000|
! vdeb||5.007003|
! vdie_common|||
! vdie_croak_common|||
! vdie|||
! vform||5.006000|
! visit|||
! vivify_defelem|||
! vivify_ref|||
! vload_module|5.006000||p
! vmess||5.006000|
! 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|||vn
! warner_nocontext|||vn
! warner|5.006000|5.004000|pv
! warn|||v
! watch|||
! whichsig|||
! write_no_mem|||
! write_to_stderr|||
! xmldump_all|||
! xmldump_attr|||
! xmldump_eval|||
! xmldump_form|||
! xmldump_indent|||v
! xmldump_packsubs|||
! xmldump_sub|||
! xmldump_vindent|||
! yyerror|||
! yylex|||
! yyparse|||
! 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 _dpppDEC2BCD(dec) ((((dec)/100)<<8)|((((dec)%100)/10)<<4)|((dec)%10))
! #define PERL_BCDVERSION ((_dpppDEC2BCD(PERL_REVISION)<<24)|(_dpppDEC2BCD(PERL_VERSION)<<12)|_dpppDEC2BCD(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 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 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 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 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 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 isALNUMC
! # define isALNUMC(c) (isALPHA(c) || isDIGIT(c))
! #endif
!
! #ifndef isASCII
! # define isASCII(c) ((c) <= 127)
! #endif
!
! #ifndef isCNTRL
! # define isCNTRL(c) ((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
!
! #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
! * doint. 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
!
! #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)
!
! #if defined(NEED_eval_pv) || defined(NEED_eval_pv_GLOBAL)
!
! 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 && SvTRUE(GvSV(errgv)))
! croak(SvPVx(GvSV(errgv), na));
!
! 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
+
+ #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)
+
+ #if defined(NEED_vload_module) || defined(NEED_vload_module_GLOBAL)
+
+ 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);
+ #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
+ #ifdef load_module
+ # undef load_module
+ #endif
+ #define load_module DPPP_(my_load_module)
+ #define Perl_load_module DPPP_(my_load_module)
+
+ #if defined(NEED_load_module) || defined(NEED_load_module_GLOBAL)
+
+ 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
+
+ #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)
+
+ #if defined(NEED_newRV_noinc) || defined(NEED_newRV_noinc_GLOBAL)
+ 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
+ #ifdef newCONSTSUB
+ # undef newCONSTSUB
+ #endif
+ #define newCONSTSUB(a,b,c) DPPP_(my_newCONSTSUB)(aTHX_ a,b,c)
+ #define Perl_newCONSTSUB DPPP_(my_newCONSTSUB)
+
#if defined(NEED_newCONSTSUB) || defined(NEED_newCONSTSUB_GLOBAL)
+
+ /* 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)
*************** SV *sv;
*** 391,414 ****
newSUB(
! #if (PERL_VERSION < 3) || ((PERL_VERSION == 3) && (PERL_SUBVERSION < 22))
! /* before 5.003_22 */
! start_subparse(),
! #else
! #if (PERL_VERSION == 3) && (PERL_SUBVERSION == 22)
! /* 5.003_22 */
! start_subparse(0),
! #else
! /* 5.003_23 onwards */
! start_subparse(FALSE, 0),
! #endif
#endif
! newSVOP(OP_CONST, 0, newSVpv(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;
--- 4508,4525 ----
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;
*************** SV *sv;
*** 416,424 ****
PL_curcop->cop_line = oldline;
}
#endif
! #endif /* newCONSTSUB */
!
! #ifndef START_MY_CXT
/*
* Boilerplate macros for initializing and accessing interpreter-local
--- 4527,4533 ----
PL_curcop->cop_line = oldline;
}
#endif
! #endif
/*
* Boilerplate macros for initializing and accessing interpreter-local
*************** SV *sv;
*** 429,465 ****
* 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)
/* 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_VERSION < 4 || (PERL_VERSION == 4 && PERL_SUBVERSION < 68 ))
/* Fetches the SV that keeps the per-interpreter data. */
#define dMY_CXT_SV \
! SV *my_cxt_sv = perl_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))
--- 4538,4576 ----
* 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))
*************** SV *sv;
*** 485,496 ****
#define aMY_CXT my_cxtp
#define aMY_CXT_ aMY_CXT,
#define _aMY_CXT ,aMY_CXT
! #else /* single interpreter */
#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
--- 4596,4621 ----
#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
*************** SV *sv;
*** 499,814 ****
#define aMY_CXT
#define aMY_CXT_
#define _aMY_CXT
#endif
- #endif /* START_MY_CXT */
#ifndef IVdf
! #if IVSIZE == LONGSIZE
! #define IVdf "ld"
! #define UVuf "lu"
! #define UVof "lo"
! #define UVxf "lx"
! #define UVXf "lX"
#else
! #if IVSIZE == INTSIZE
! #define IVdf "d"
! #define UVuf "u"
! #define UVof "o"
! #define UVxf "x"
! #define UVXf "X"
#endif
#endif
#endif
! #ifndef NVef
! #if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
! defined(PERL_PRIfldbl) /* 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
! #ifndef AvFILLp /* Older perls (<=5.003) lack AvFILLp */
! #define AvFILLp AvFILL
#endif
#ifdef SvPVbyte
! #if PERL_REVISION == 5 && PERL_VERSION < 7
! /* SvPVbyte does not work in perl-5.6.1, borrowed version for 5.7.3 */
#undef SvPVbyte
! #define SvPVbyte(sv, lp) \
! ((SvFLAGS(sv) & (SVf_POK|SVf_UTF8)) == (SVf_POK) \
! ? ((lp = SvCUR(sv)), SvPVX(sv)) : my_sv_2pvbyte(aTHX_ sv, &lp))
! static char *
! my_sv_2pvbyte(pTHX_ register SV *sv, STRLEN *lp)
{
! sv_utf8_downgrade(sv, 0);
! return SvPV(sv, *lp);
}
#endif
#else
! #define SvPVbyte SvPV
#endif
#ifndef SvPV_nolen
! #define SvPV_nolen(sv) \
! ((SvFLAGS(sv) & (SVf_POK)) == SVf_POK \
! ? SvPVX(sv) : sv_2pv_nolen(sv))
! static char *
! sv_2pv_nolen(pTHX_ register SV *sv)
{
! STRLEN n_a;
! return sv_2pv(sv, &n_a);
}
#endif
! #ifndef get_cv
! #define get_cv(name,create) perl_get_cv(name,create)
#endif
! #ifndef get_sv
! #define get_sv(name,create) perl_get_sv(name,create)
#endif
! #ifndef get_av
! #define get_av(name,create) perl_get_av(name,create)
#endif
! #ifndef get_hv
! #define get_hv(name,create) perl_get_hv(name,create)
#endif
! #ifndef call_argv
! #define call_argv perl_call_argv
#endif
! #ifndef call_method
! #define call_method perl_call_method
#endif
! #ifndef call_pv
! #define call_pv perl_call_pv
#endif
! #ifndef call_sv
! #define call_sv perl_call_sv
#endif
! #ifndef eval_pv
! #define eval_pv perl_eval_pv
#endif
! #ifndef eval_sv
! #define eval_sv perl_eval_sv
#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
! #if (PERL_VERSION > 6) || ((PERL_VERSION == 6) && (PERL_SUBVERSION >= 1))
! #define I32_CAST
#else
! #define I32_CAST (I32*)
#endif
! #ifndef IN_LOCALE
! #define IN_LOCALE \
! (PL_curcop == &PL_compiling ? IN_LOCALE_COMPILETIME : IN_LOCALE_RUNTIME)
#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 IS_NUMBER_IN_UV
! #define IS_NUMBER_IN_UV 0x01
! #define IS_NUMBER_GREATER_THAN_UV_MAX 0x02
! #define IS_NUMBER_NOT_INT 0x04
! #define IS_NUMBER_NEG 0x08
! #define IS_NUMBER_INFINITY 0x10
! #define IS_NUMBER_NAN 0x20
#endif
#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
! #endif /* _P_P_PORTABILITY_H_ */
/* End of File ppport.h */
--- 4624,7063 ----
#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 IVdf
! # if IVSIZE == LONGSIZE
! # define IVdf "ld"
! # define UVuf "lu"
! # define UVof "lo"
! # define UVxf "lx"
! # define UVXf "lX"
! # else
! # if IVSIZE == INTSIZE
! # define IVdf "d"
! # define UVuf "u"
! # define UVof "o"
! # define UVxf "x"
! # define UVXf "X"
! # endif
! # 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
!
! #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
+
+ #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)
+
+ #if defined(NEED_newSV_type) || defined(NEED_newSV_type_GLOBAL)
+
+ 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
!
! #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)
!
! #if defined(NEED_newSVpvn_flags) || defined(NEED_newSVpvn_flags_GLOBAL)
!
! 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
!
! #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)
!
! #if defined(NEED_sv_2pvbyte) || defined(NEED_sv_2pvbyte_GLOBAL)
!
! 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
!
! #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)
!
! #if defined(NEED_sv_2pv_flags) || defined(NEED_sv_2pv_flags_GLOBAL)
!
! 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
!
! #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)
+
+ #if defined(NEED_sv_pvn_force_flags) || defined(NEED_sv_pvn_force_flags_GLOBAL)
+ 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 DPPP_SVPV_NOLEN_LP_ARG &PL_na
+ #else
+ # define DPPP_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, DPPP_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, DPPP_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, DPPP_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, DPPP_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_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
!
! #ifdef vnewSVpvf
! # undef vnewSVpvf
! #endif
! #define vnewSVpvf(a,b) DPPP_(my_vnewSVpvf)(aTHX_ a,b)
! #define Perl_vnewSVpvf DPPP_(my_vnewSVpvf)
!
! #if defined(NEED_vnewSVpvf) || defined(NEED_vnewSVpvf_GLOBAL)
!
! 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
!
! #define Perl_sv_catpvf_mg DPPP_(my_sv_catpvf_mg)
!
! #if defined(NEED_sv_catpvf_mg) || defined(NEED_sv_catpvf_mg_GLOBAL)
!
! 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
! #define sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
! #define Perl_sv_catpvf_mg_nocontext DPPP_(my_sv_catpvf_mg_nocontext)
!
! #if defined(NEED_sv_catpvf_mg_nocontext) || defined(NEED_sv_catpvf_mg_nocontext_GLOBAL)
!
! 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
! #define Perl_sv_setpvf_mg DPPP_(my_sv_setpvf_mg)
!
! #if defined(NEED_sv_setpvf_mg) || defined(NEED_sv_setpvf_mg_GLOBAL)
!
! 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
! #define sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
! #define Perl_sv_setpvf_mg_nocontext DPPP_(my_sv_setpvf_mg_nocontext)
!
! #if defined(NEED_sv_setpvf_mg_nocontext) || defined(NEED_sv_setpvf_mg_nocontext_GLOBAL)
!
! 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
! #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
! #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)
+
+ #if defined(NEED_newSVpvn_share) || defined(NEED_newSVpvn_share_GLOBAL)
+
+ 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 GvSVn
! # define GvSVn(gv) GvSV(gv)
#endif
! #ifndef isGV_with_GP
! # define isGV_with_GP(gv) isGV(gv)
! #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
+ #define Perl_warner DPPP_(my_warner)
! #if defined(NEED_warner) || defined(NEED_warner_GLOBAL)
!
! 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 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_fetchpvn_flags
! # define gv_fetchpvn_flags(name, len, flags, svt) gv_fetchpv(name, flags, svt)
#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 SvGETMAGIC
+ # define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END
+ #endif
#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
!
! #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 */
! #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
!
! #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)
!
! #if defined(NEED_grok_numeric_radix) || defined(NEED_grok_numeric_radix_GLOBAL)
! 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
!
! #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)
!
! #if defined(NEED_grok_number) || defined(NEED_grok_number_GLOBAL)
! 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
!
! #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)
!
! #if defined(NEED_grok_bin) || defined(NEED_grok_bin_GLOBAL)
! 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
!
! #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)
!
! #if defined(NEED_grok_hex) || defined(NEED_grok_hex_GLOBAL)
! 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
!
! #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)
!
! #if defined(NEED_grok_oct) || defined(NEED_grok_oct_GLOBAL)
! 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
!
! #define my_snprintf DPPP_(my_my_snprintf)
! #define Perl_my_snprintf DPPP_(my_my_snprintf)
!
! #if defined(NEED_my_snprintf) || defined(NEED_my_snprintf_GLOBAL)
!
! 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
!
! #define my_sprintf DPPP_(my_my_sprintf)
! #define Perl_my_sprintf DPPP_(my_my_sprintf)
!
! #if defined(NEED_my_sprintf) || defined(NEED_my_sprintf_GLOBAL)
!
! 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
!
! #define my_strlcat DPPP_(my_my_strlcat)
! #define Perl_my_strlcat DPPP_(my_my_strlcat)
!
! #if defined(NEED_my_strlcat) || defined(NEED_my_strlcat_GLOBAL)
!
! 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
!
! #define my_strlcpy DPPP_(my_my_strlcpy)
! #define Perl_my_strlcpy DPPP_(my_my_strlcpy)
!
! #if defined(NEED_my_strlcpy) || defined(NEED_my_strlcpy_GLOBAL)
!
! 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
!
! #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)
!
! #if defined(NEED_pv_escape) || defined(NEED_pv_escape_GLOBAL)
!
! 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
!
! #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)
!
! #if defined(NEED_pv_pretty) || defined(NEED_pv_pretty_GLOBAL)
!
! 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
!
! #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)
!
! #if defined(NEED_pv_display) || defined(NEED_pv_display_GLOBAL)
!
! 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 */