[svn:modperl-modules] r270 - Apache-Peek/trunk
"[email protected]"@cvs.perl.org Sun, 6 Aug 2006 18:56:52 -0700 (PDT)
| Newsgroups | perl.modperl.modules.svn |
|---|---|
| Message-ID | <[email protected]> |
Author: [email protected] Date: Sun Aug 6 18:56:51 2006 New Revision: 270 Modified: Apache-Peek/trunk/ppport.h Log: regenerate to fix unix builds with perl 5.8.8+ Modified: Apache-Peek/trunk/ppport.h ============================================================================== --- Apache-Peek/trunk/ppport.h (original) +++ Apache-Peek/trunk/ppport.h Sun Aug 6 18:56:51 2006 @@ -4,14 +4,14 @@ /* ---------------------------------------------------------------------- - ppport.h -- Perl/Pollution/Portability Version 3.06 - + ppport.h -- Perl/Pollution/Portability Version 3.06_01 + Automatically created by Devel::PPPort running under - perl 5.008007 on Sat Jul 9 19:06:56 2005. - + perl 5.008008 on Sun Aug 6 18:58:09 2006. + 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. ---------------------------------------------------------------------- @@ -22,11 +22,13 @@ =head1 NAME -ppport.h - Perl/Pollution/Portability version 3.06 +ppport.h - Perl/Pollution/Portability version 3.06_01 =head1 SYNOPSIS - perl ppport.h [options] [files] + perl ppport.h [options] [source files] + + Searches current directory for files if no [source files] are given --help show short help @@ -41,6 +43,7 @@ --nodiag don't show diagnostics --nohints don't show hints --nochanges don't suggest changes + --nofilter don't filter input files --list-provided list provided API --list-unsupported list unsupported API @@ -49,7 +52,7 @@ =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.9.2. +installations back to 5.003, and has been tested up to 5.9.3. =head1 OPTIONS @@ -113,6 +116,11 @@ 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 --list-provided Lists the API elements for which compatibility is provided by @@ -180,23 +188,23 @@ Note that you mustn't have more than one global request for one function in your project. - Function Static Request Global Request + Function Static Request Global Request ----------------------------------------------------------------------------------------- - 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 - newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL - newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL - sv_2pv_nolen() NEED_sv_2pv_nolen NEED_sv_2pv_nolen_GLOBAL - sv_2pvbyte() NEED_sv_2pvbyte NEED_sv_2pvbyte_GLOBAL - sv_catpvf_mg() NEED_sv_catpvf_mg NEED_sv_catpvf_mg_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 + newCONSTSUB() NEED_newCONSTSUB NEED_newCONSTSUB_GLOBAL + newRV_noinc() NEED_newRV_noinc NEED_newRV_noinc_GLOBAL + sv_2pv_nolen() NEED_sv_2pv_nolen NEED_sv_2pv_nolen_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_setpvf_mg() NEED_sv_setpvf_mg NEED_sv_setpvf_mg_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 - vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL + vnewSVpvf() NEED_vnewSVpvf NEED_vnewSVpvf_GLOBAL To avoid namespace conflicts, you can change the namespace of the explicitly exported functions using the C<DPPP_NAMESPACE> macro. @@ -326,6 +334,7 @@ hints => 1, changes => 1, cplusplus => 0, + filter => 1, ); my($ppport) = $0 =~ /([\w.]+)$/; @@ -335,7 +344,7 @@ eval { require Getopt::Long; Getopt::Long::GetOptions(\%opt, qw( - help quiet diag! hints! changes! cplusplus + help quiet diag! filter! hints! changes! cplusplus patch=s copy=s diff=s compat-version=s list-provided list-unsupported api-info=s )) or usage(); @@ -354,7 +363,7 @@ 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 || $v >= 1000; + die "Invalid version number: $opt{'compat-version'}\n" if $v >= 1000 || $s >= 1000; $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s; } else { @@ -367,32 +376,8 @@ my $rccs = quotemeta $ccs; my $rcce = quotemeta $cce; -my @files; - -if (@ARGV) { - @files = map { glob $_ } @ARGV; -} -else { - eval { - require File::Find; - File::Find::find(sub { - $File::Find::name =~ /\.(xs|c|h|cc)$/i - and push @files, $File::Find::name; - }, '.'); - }; - if ($@) { - @files = map { glob $_ } qw(*.xs *.c *.h *.cc); - } - my %filter = map { /(.*)\.xs$/ ? ("$1.c" => 1) : () } @files; - @files = grep { !/\b\Q$ppport\E$/i && !exists $filter{$_} } @files; -} - -unless (@files) { - die "No input files given!\n"; -} - my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/ - ? ( $1 => { + ? ( $1 => { ($2 ? ( base => $2 ) : ()), ($3 ? ( todo => $3 ) : ()), (index($4, 'v') >= 0 ? ( varargs => 1 ) : ()), @@ -491,6 +476,7 @@ PAD_BASE_SV||| PAD_CLONE_VARS||| PAD_COMPNAME_FLAGS||| +PAD_COMPNAME_GEN_set||| PAD_COMPNAME_GEN||| PAD_COMPNAME_OURSTASH||| PAD_COMPNAME_PV||| @@ -503,7 +489,7 @@ PAD_SET_CUR||| PAD_SVl||| PAD_SV||| -PERL_BCDVERSION|5.009002||p +PERL_BCDVERSION|5.009003||p PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p PERL_INT_MAX|5.004000||p PERL_INT_MIN|5.004000||p @@ -690,12 +676,15 @@ 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| SvNIOK_off||| SvNIOKp||| SvNIOK||| @@ -705,6 +694,7 @@ SvNOKp||| SvNOK||| SvNVX||| +SvNV_set||| SvNVx||| SvNV||| SvOK||| @@ -720,6 +710,7 @@ SvPV_force||| SvPV_nolen|5.006000||p SvPV_nomg|5.007002||p +SvPV_set||| SvPVbyte_force||5.009002| SvPVbyte_nolen||5.006000| SvPVbytex_force||5.006000| @@ -738,9 +729,11 @@ SvROK_off||| SvROK_on||| SvROK||| +SvRV_set||5.009003| SvRV||| SvSETMAGIC||| SvSHARE||5.007003| +SvSTASH_set||5.009003| SvSTASH||| SvSetMagicSV_nosteal||5.004000| SvSetMagicSV||5.004000| @@ -761,6 +754,7 @@ SvUVXx|5.004000||p SvUVX|5.004000||p SvUV_nomg|5.009001||p +SvUV_set||5.009003| SvUVx|5.004000||p SvUV|5.004000||p SvVOK||5.008001| @@ -824,6 +818,7 @@ asUV||| atfork_lock||5.007003|n atfork_unlock||5.007003|n +av_arylen_p||5.009003| av_clear||| av_delete||5.006000| av_exists||5.006000| @@ -870,6 +865,47 @@ check_uni||| checkcomma||| checkposixcc||| +ck_anoncode||| +ck_bitop||| +ck_concat||| +ck_defined||| +ck_delete||| +ck_die||| +ck_eof||| +ck_eval||| +ck_exec||| +ck_exists||| +ck_exit||| +ck_ftst||| +ck_fun||| +ck_glob||| +ck_grep||| +ck_index||| +ck_join||| +ck_lengthconst||| +ck_lfun||| +ck_listiob||| +ck_match||| +ck_method||| +ck_null||| +ck_open||| +ck_repeat||| +ck_require||| +ck_retarget||| +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||| cl_and||| cl_anything||| cl_init_zero||| @@ -893,6 +929,7 @@ cx_dump||5.005000| cx_dup||| cxinc||| +dAXMARK||5.009003| dAX|5.007002||p dITEMS|5.007002||p dMARK||| @@ -922,18 +959,6 @@ deb||5.007003|v del_he||| del_sv||| -del_xiv||| -del_xnv||| -del_xpvav||| -del_xpvbm||| -del_xpvcv||| -del_xpvhv||| -del_xpviv||| -del_xpvlv||| -del_xpvmg||| -del_xpvnv||| -del_xpv||| -del_xrv||| delimcpy||5.004000| depcom||| deprecate_old||| @@ -997,7 +1022,6 @@ do_vop||| docatch_body||| docatch||| -doencodes||| doeval||| dofile||| dofindlabel||| @@ -1053,6 +1077,7 @@ form||5.004000|v fp_dup||| fprintf_nocontext|||vn +free_global_struct||| free_tied_hv_pool||| free_tmps||| gen_constant_list||| @@ -1112,15 +1137,19 @@ gv_stashpv||| gv_stashsv||| he_dup||| +hek_dup||| hfreeentries||| hsplit||| hv_assert||5.009001| +hv_auxinit||| hv_clear_placeholders||5.009001| hv_clear||| 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_common||| @@ -1137,7 +1166,13 @@ hv_ksplit||5.004000| hv_magic_check||| 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| @@ -1152,6 +1187,7 @@ ingroup||| init_argv_symbols||| init_debugger||| +init_global_struct||| init_i18nl10n||5.006000| init_i18nl14n||5.006000| init_ids||| @@ -1179,6 +1215,7 @@ is_gv_magical_sv||| is_gv_magical||| is_handle_constructor||| +is_list_assignment||| is_lvalue_sub||5.007001| is_uni_alnum_lc||5.006000| is_uni_alnumc_lc||5.006000| @@ -1212,6 +1249,7 @@ is_utf8_alnum||5.006000| is_utf8_alpha||5.006000| is_utf8_ascii||5.006000| +is_utf8_char_slow||| is_utf8_char||5.006000| is_utf8_cntrl||5.006000| is_utf8_digit||5.006000| @@ -1223,6 +1261,7 @@ 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| @@ -1236,7 +1275,6 @@ lex_end||| lex_start||| linklist||| -list_assignment||| listkids||| list||| load_module_nocontext|||vn @@ -1258,6 +1296,7 @@ magic_clearsig||| magic_dump||5.006000| magic_existspack||| +magic_freearylen_p||| magic_freeovrld||| magic_freeregexp||| magic_getarylen||| @@ -1307,6 +1346,7 @@ magic_sizepack||| magic_wipepack||| magicname||| +make_trie||| malloced_size|||n malloc||5.007002|n markstack_grow||| @@ -1326,6 +1366,7 @@ mg_free||| mg_get||| mg_length||5.005000| +mg_localize||| mg_magical||| mg_set||| mg_size||5.005000| @@ -1334,20 +1375,6 @@ mode_from_discipline||| modkids||| mod||| -more_he||| -more_sv||| -more_xiv||| -more_xnv||| -more_xpvav||| -more_xpvbm||| -more_xpvcv||| -more_xpvhv||| -more_xpviv||| -more_xpvlv||| -more_xpvmg||| -more_xpvnv||| -more_xpv||| -more_xrv||| moreswitches||| mul128||| mulexp10|||n @@ -1445,6 +1472,7 @@ newSUB||| newSVOP||| newSVREF||| +newSVhek||5.009003| newSViv||| newSVnv||| newSVpvf_nocontext|||vn @@ -1457,7 +1485,7 @@ newSVuv|5.006000||p newSV||| newUNOP||| -newWHILEOP||5.004040| +newWHILEOP||5.009003| newXSproto||5.006000| newXS||5.006000| new_collate||5.006000| @@ -1468,18 +1496,6 @@ new_numeric||5.006000| new_stackinfo||5.005000| new_version||5.009000| -new_xiv||| -new_xnv||| -new_xpvav||| -new_xpvbm||| -new_xpvcv||| -new_xpvhv||| -new_xpviv||| -new_xpvlv||| -new_xpvmg||| -new_xpvnv||| -new_xpv||| -new_xrv||| next_symbol||| nextargv||| nextchar||| @@ -1515,6 +1531,7 @@ pad_alloc||| pad_block_start||| pad_check_dup||| +pad_compname_type||| pad_findlex||| pad_findmy||| pad_fixup_inner_anons||| @@ -1621,6 +1638,7 @@ run_body||| runops_debug||5.005000| runops_standard||5.005000| +rvpv_dup||| rxres_free||| rxres_restore||| rxres_save||| @@ -1724,6 +1742,7 @@ stack_grow||| start_glob||| start_subparse||5.004000| +stashpv_hvname_match||5.009003| stdize_locale||| strEQ||| strGE||| @@ -1944,6 +1963,7 @@ uvuni_to_utf8_flags||5.007003| uvuni_to_utf8||5.007001| validate_suid||| +varname||| vcmp||5.009000| vcroak||5.006000| vdeb||5.007003| @@ -2062,6 +2082,44 @@ exit 0; } +my @files; +my @srcext = qw( xs c h cc cpp ); +my $srcext = join '|', @srcext; + +if (@ARGV) { + my %seen; + @files = grep { -f && !exists $seen{$_} } map { glob $_ } @ARGV; +} +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; +} + +unless (@files) { + die "No input files given!\n"; +} + my(%files, %global, %revreplace); %revreplace = reverse %replace; my $filename; @@ -2596,7 +2654,7 @@ #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 +/* It is very unlikely that anyone will try to use this with Perl 6 (or greater), but who knows. */ #if PERL_REVISION != 5 @@ -3032,14 +3090,16 @@ /* Replace: 0 */ #endif -#ifdef HASATTRIBUTE -# if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER) -# define PERL_UNUSED_DECL +#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 __attribute__((unused)) +# define PERL_UNUSED_DECL # endif -#else -# define PERL_UNUSED_DECL #endif #ifndef NOOP # define NOOP (void)0 @@ -3080,7 +3140,7 @@ # if PTRSIZE == LONGSIZE # define PTR2ul(p) (unsigned long)(p) # else -# define PTR2ul(p) INT2PTR(unsigned long,p) +# define PTR2ul(p) INT2PTR(unsigned long,p) # endif #endif /* !INT2PTR */ @@ -3246,15 +3306,15 @@ #endif #ifndef pTHX_ -# define pTHX_ +# define pTHX_ #endif #ifndef aTHX -# define aTHX +# define aTHX #endif #ifndef aTHX_ -# define aTHX_ +# define aTHX_ #endif #ifndef dTHXoa # define dTHXoa(x) dTHXa(x) @@ -3572,7 +3632,7 @@ #ifndef NVef # if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \ - defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */ + defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */ # define NVef PERL_PRIeldbl # define NVff PERL_PRIfldbl # define NVgf PERL_PRIgldbl @@ -3602,7 +3662,7 @@ char * DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv) -{ +{ STRLEN n_a; return sv_2pv(sv, &n_a); } @@ -3646,7 +3706,7 @@ char * DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp) -{ +{ sv_utf8_downgrade(sv,0); return SvPV(sv,*lp); } @@ -4324,12 +4384,12 @@ { #ifdef USE_LOCALE_NUMERIC #ifdef PL_numeric_radix_sv - if (PL_numeric_radix_sv && IN_LOCALE) { + 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; + return TRUE; } } #else @@ -4340,11 +4400,11 @@ dTHR; /* needed for older threaded perls */ struct lconv *lc = localeconv(); char *radix = lc->decimal_point; - if (radix && IN_LOCALE) { + if (radix && IN_LOCALE) { STRLEN len = strlen(radix); if (*sp + len <= send && memEQ(*sp, radix, len)) { *sp += len; - return TRUE; + return TRUE; } } #endif /* PERL_VERSION */ @@ -4657,7 +4717,7 @@ warn("Illegal binary digit '%c' ignored", *s); break; } - + if ( ( overflowed && value_nv > 4294967295.0) #if UVSIZE > 4 || (!overflowed && value > 0xffffffff ) @@ -4759,7 +4819,7 @@ warn("Illegal hexadecimal digit '%c' ignored", *s); break; } - + if ( ( overflowed && value_nv > 4294967295.0) #if UVSIZE > 4 || (!overflowed && value > 0xffffffff ) @@ -4852,7 +4912,7 @@ } break; } - + if ( ( overflowed && value_nv > 4294967295.0) #if UVSIZE > 4 || (!overflowed && value > 0xffffffff )