/[net-ssleay]/trunk/ppport.h
ViewVC logotype

Diff of /trunk/ppport.h

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 30 by florian-guest, Fri Jan 20 19:16:15 2006 UTC revision 87 by florian-guest, Fri Jul 14 08:46:50 2006 UTC
# Line 4  Line 4 
4  /*  /*
5  ----------------------------------------------------------------------  ----------------------------------------------------------------------
6    
7      ppport.h -- Perl/Pollution/Portability Version 3.06      ppport.h -- Perl/Pollution/Portability Version 3.06_01
8    
9      Automatically created by Devel::PPPort running under      Automatically created by Devel::PPPort running under
10      perl 5.008007 on Fri Jan 20 03:43:01 2006.      perl 5.008008 on Fri Jul 14 08:18:30 2006.
11    
12      Do NOT edit this file directly! -- Edit PPPort_pm.PL and the      Do NOT edit this file directly! -- Edit PPPort_pm.PL and the
13      includes in parts/inc/ instead.      includes in parts/inc/ instead.
14    
15      Use 'perldoc ppport.h' to view the documentation below.      Use 'perldoc ppport.h' to view the documentation below.
16    
17  ----------------------------------------------------------------------  ----------------------------------------------------------------------
# Line 22  SKIP Line 22  SKIP
22    
23  =head1 NAME  =head1 NAME
24    
25  ppport.h - Perl/Pollution/Portability version 3.06  ppport.h - Perl/Pollution/Portability version 3.06_01
26    
27  =head1 SYNOPSIS  =head1 SYNOPSIS
28    
29    perl ppport.h [options] [files]    perl ppport.h [options] [source files]
30    
31      Searches current directory for files if no [source files] are given
32    
33    --help                      show short help    --help                      show short help
34    
# Line 41  ppport.h - Perl/Pollution/Portability ve Line 43  ppport.h - Perl/Pollution/Portability ve
43    --nodiag                    don't show diagnostics    --nodiag                    don't show diagnostics
44    --nohints                   don't show hints    --nohints                   don't show hints
45    --nochanges                 don't suggest changes    --nochanges                 don't suggest changes
46      --nofilter                  don't filter input files
47    
48    --list-provided             list provided API    --list-provided             list provided API
49    --list-unsupported          list unsupported API    --list-unsupported          list unsupported API
# Line 49  ppport.h - Perl/Pollution/Portability ve Line 52  ppport.h - Perl/Pollution/Portability ve
52  =head1 COMPATIBILITY  =head1 COMPATIBILITY
53    
54  This version of F<ppport.h> is designed to support operation with Perl  This version of F<ppport.h> is designed to support operation with Perl
55  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.
56    
57  =head1 OPTIONS  =head1 OPTIONS
58    
# Line 113  notes. Line 116  notes.
116  Don't suggest any changes. Only give diagnostic output and hints  Don't suggest any changes. Only give diagnostic output and hints
117  unless these are also deactivated.  unless these are also deactivated.
118    
119    =head2 --nofilter
120    
121    Don't filter the list of input files. By default, files not looking
122    like source code (i.e. not *.xs, *.c, *.cc, *.cpp or *.h) are skipped.
123    
124  =head2 --list-provided  =head2 --list-provided
125    
126  Lists the API elements for which compatibility is provided by  Lists the API elements for which compatibility is provided by
# Line 180  For a global function, use: Line 188  For a global function, use:
188  Note that you mustn't have more than one global request for one  Note that you mustn't have more than one global request for one
189  function in your project.  function in your project.
190    
191      Function                  Static Request               Global Request      Function                  Static Request               Global Request
192      -----------------------------------------------------------------------------------------      -----------------------------------------------------------------------------------------
193      eval_pv()                 NEED_eval_pv                 NEED_eval_pv_GLOBAL      eval_pv()                 NEED_eval_pv                 NEED_eval_pv_GLOBAL
194      grok_bin()                NEED_grok_bin                NEED_grok_bin_GLOBAL      grok_bin()                NEED_grok_bin                NEED_grok_bin_GLOBAL
195      grok_hex()                NEED_grok_hex                NEED_grok_hex_GLOBAL      grok_hex()                NEED_grok_hex                NEED_grok_hex_GLOBAL
196      grok_number()             NEED_grok_number             NEED_grok_number_GLOBAL      grok_number()             NEED_grok_number             NEED_grok_number_GLOBAL
197      grok_numeric_radix()      NEED_grok_numeric_radix      NEED_grok_numeric_radix_GLOBAL      grok_numeric_radix()      NEED_grok_numeric_radix      NEED_grok_numeric_radix_GLOBAL
198      grok_oct()                NEED_grok_oct                NEED_grok_oct_GLOBAL      grok_oct()                NEED_grok_oct                NEED_grok_oct_GLOBAL
199      newCONSTSUB()             NEED_newCONSTSUB             NEED_newCONSTSUB_GLOBAL      newCONSTSUB()             NEED_newCONSTSUB             NEED_newCONSTSUB_GLOBAL
200      newRV_noinc()             NEED_newRV_noinc             NEED_newRV_noinc_GLOBAL      newRV_noinc()             NEED_newRV_noinc             NEED_newRV_noinc_GLOBAL
201      sv_2pv_nolen()            NEED_sv_2pv_nolen            NEED_sv_2pv_nolen_GLOBAL      sv_2pv_nolen()            NEED_sv_2pv_nolen            NEED_sv_2pv_nolen_GLOBAL
202      sv_2pvbyte()              NEED_sv_2pvbyte              NEED_sv_2pvbyte_GLOBAL      sv_2pvbyte()              NEED_sv_2pvbyte              NEED_sv_2pvbyte_GLOBAL
203      sv_catpvf_mg()            NEED_sv_catpvf_mg            NEED_sv_catpvf_mg_GLOBAL      sv_catpvf_mg()            NEED_sv_catpvf_mg            NEED_sv_catpvf_mg_GLOBAL
204      sv_catpvf_mg_nocontext()  NEED_sv_catpvf_mg_nocontext  NEED_sv_catpvf_mg_nocontext_GLOBAL      sv_catpvf_mg_nocontext()  NEED_sv_catpvf_mg_nocontext  NEED_sv_catpvf_mg_nocontext_GLOBAL
205      sv_setpvf_mg()            NEED_sv_setpvf_mg            NEED_sv_setpvf_mg_GLOBAL      sv_setpvf_mg()            NEED_sv_setpvf_mg            NEED_sv_setpvf_mg_GLOBAL
206      sv_setpvf_mg_nocontext()  NEED_sv_setpvf_mg_nocontext  NEED_sv_setpvf_mg_nocontext_GLOBAL      sv_setpvf_mg_nocontext()  NEED_sv_setpvf_mg_nocontext  NEED_sv_setpvf_mg_nocontext_GLOBAL
207      vnewSVpvf()               NEED_vnewSVpvf               NEED_vnewSVpvf_GLOBAL      vnewSVpvf()               NEED_vnewSVpvf               NEED_vnewSVpvf_GLOBAL
208    
209  To avoid namespace conflicts, you can change the namespace of the  To avoid namespace conflicts, you can change the namespace of the
210  explicitly exported functions using the C<DPPP_NAMESPACE> macro.  explicitly exported functions using the C<DPPP_NAMESPACE> macro.
# Line 326  my %opt = ( Line 334  my %opt = (
334    hints     => 1,    hints     => 1,
335    changes   => 1,    changes   => 1,
336    cplusplus => 0,    cplusplus => 0,
337      filter    => 1,
338  );  );
339    
340  my($ppport) = $0 =~ /([\w.]+)$/;  my($ppport) = $0 =~ /([\w.]+)$/;
# Line 335  my $HS = "[ \t]";             # horizont Line 344  my $HS = "[ \t]";             # horizont
344  eval {  eval {
345    require Getopt::Long;    require Getopt::Long;
346    Getopt::Long::GetOptions(\%opt, qw(    Getopt::Long::GetOptions(\%opt, qw(
347      help quiet diag! hints! changes! cplusplus      help quiet diag! filter! hints! changes! cplusplus
348      patch=s copy=s diff=s compat-version=s      patch=s copy=s diff=s compat-version=s
349      list-provided list-unsupported api-info=s      list-provided list-unsupported api-info=s
350    )) or usage();    )) or usage();
# Line 354  if (exists $opt{'compat-version'}) { Line 363  if (exists $opt{'compat-version'}) {
363      die "Invalid version number format: '$opt{'compat-version'}'\n";      die "Invalid version number format: '$opt{'compat-version'}'\n";
364    }    }
365    die "Only Perl 5 is supported\n" if $r != 5;    die "Only Perl 5 is supported\n" if $r != 5;
366    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;
367    $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s;    $opt{'compat-version'} = sprintf "%d.%03d%03d", $r, $v, $s;
368  }  }
369  else {  else {
# Line 367  my $cce  = '*'.'/'; Line 376  my $cce  = '*'.'/';
376  my $rccs = quotemeta $ccs;  my $rccs = quotemeta $ccs;
377  my $rcce = quotemeta $cce;  my $rcce = quotemeta $cce;
378    
 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";  
 }  
   
379  my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/  my %API = map { /^(\w+)\|([^|]*)\|([^|]*)\|(\w*)$/
380                  ? ( $1 => {                  ? ( $1 => {
381                        ($2                  ? ( base     => $2 ) : ()),                        ($2                  ? ( base     => $2 ) : ()),
382                        ($3                  ? ( todo     => $3 ) : ()),                        ($3                  ? ( todo     => $3 ) : ()),
383                        (index($4, 'v') >= 0 ? ( varargs  => 1  ) : ()),                        (index($4, 'v') >= 0 ? ( varargs  => 1  ) : ()),
# Line 491  ORIGMARK||| Line 476  ORIGMARK|||
476  PAD_BASE_SV|||  PAD_BASE_SV|||
477  PAD_CLONE_VARS|||  PAD_CLONE_VARS|||
478  PAD_COMPNAME_FLAGS|||  PAD_COMPNAME_FLAGS|||
479    PAD_COMPNAME_GEN_set|||
480  PAD_COMPNAME_GEN|||  PAD_COMPNAME_GEN|||
481  PAD_COMPNAME_OURSTASH|||  PAD_COMPNAME_OURSTASH|||
482  PAD_COMPNAME_PV|||  PAD_COMPNAME_PV|||
# Line 503  PAD_SET_CUR_NOSAVE||| Line 489  PAD_SET_CUR_NOSAVE|||
489  PAD_SET_CUR|||  PAD_SET_CUR|||
490  PAD_SVl|||  PAD_SVl|||
491  PAD_SV|||  PAD_SV|||
492  PERL_BCDVERSION|5.009002||p  PERL_BCDVERSION|5.009003||p
493  PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p  PERL_GCC_BRACE_GROUPS_FORBIDDEN|5.008001||p
494  PERL_INT_MAX|5.004000||p  PERL_INT_MAX|5.004000||p
495  PERL_INT_MIN|5.004000||p  PERL_INT_MIN|5.004000||p
# Line 690  SvIOKp||| Line 676  SvIOKp|||
676  SvIOK|||  SvIOK|||
677  SvIVX|||  SvIVX|||
678  SvIV_nomg|5.009001||p  SvIV_nomg|5.009001||p
679    SvIV_set|||
680  SvIVx|||  SvIVx|||
681  SvIV|||  SvIV|||
682  SvIsCOW_shared_hash||5.008003|  SvIsCOW_shared_hash||5.008003|
683  SvIsCOW||5.008003|  SvIsCOW||5.008003|
684    SvLEN_set|||
685  SvLEN|||  SvLEN|||
686  SvLOCK||5.007003|  SvLOCK||5.007003|
687    SvMAGIC_set||5.009003|
688  SvNIOK_off|||  SvNIOK_off|||
689  SvNIOKp|||  SvNIOKp|||
690  SvNIOK|||  SvNIOK|||
# Line 705  SvNOK_on||| Line 694  SvNOK_on|||
694  SvNOKp|||  SvNOKp|||
695  SvNOK|||  SvNOK|||
696  SvNVX|||  SvNVX|||
697    SvNV_set|||
698  SvNVx|||  SvNVx|||
699  SvNV|||  SvNV|||
700  SvOK|||  SvOK|||
# Line 720  SvPV_force_nomg|5.007002||p Line 710  SvPV_force_nomg|5.007002||p
710  SvPV_force|||  SvPV_force|||
711  SvPV_nolen|5.006000||p  SvPV_nolen|5.006000||p
712  SvPV_nomg|5.007002||p  SvPV_nomg|5.007002||p
713    SvPV_set|||
714  SvPVbyte_force||5.009002|  SvPVbyte_force||5.009002|
715  SvPVbyte_nolen||5.006000|  SvPVbyte_nolen||5.006000|
716  SvPVbytex_force||5.006000|  SvPVbytex_force||5.006000|
# Line 738  SvREFCNT||| Line 729  SvREFCNT|||
729  SvROK_off|||  SvROK_off|||
730  SvROK_on|||  SvROK_on|||
731  SvROK|||  SvROK|||
732    SvRV_set||5.009003|
733  SvRV|||  SvRV|||
734  SvSETMAGIC|||  SvSETMAGIC|||
735  SvSHARE||5.007003|  SvSHARE||5.007003|
736    SvSTASH_set||5.009003|
737  SvSTASH|||  SvSTASH|||
738  SvSetMagicSV_nosteal||5.004000|  SvSetMagicSV_nosteal||5.004000|
739  SvSetMagicSV||5.004000|  SvSetMagicSV||5.004000|
# Line 761  SvUTF8||5.006000| Line 754  SvUTF8||5.006000|
754  SvUVXx|5.004000||p  SvUVXx|5.004000||p
755  SvUVX|5.004000||p  SvUVX|5.004000||p
756  SvUV_nomg|5.009001||p  SvUV_nomg|5.009001||p
757    SvUV_set||5.009003|
758  SvUVx|5.004000||p  SvUVx|5.004000||p
759  SvUV|5.004000||p  SvUV|5.004000||p
760  SvVOK||5.008001|  SvVOK||5.008001|
# Line 824  asIV||| Line 818  asIV|||
818  asUV|||  asUV|||
819  atfork_lock||5.007003|n  atfork_lock||5.007003|n
820  atfork_unlock||5.007003|n  atfork_unlock||5.007003|n
821    av_arylen_p||5.009003|
822  av_clear|||  av_clear|||
823  av_delete||5.006000|  av_delete||5.006000|
824  av_exists||5.006000|  av_exists||5.006000|
# Line 870  cast_uv||5.006000| Line 865  cast_uv||5.006000|
865  check_uni|||  check_uni|||
866  checkcomma|||  checkcomma|||
867  checkposixcc|||  checkposixcc|||
868    ck_anoncode|||
869    ck_bitop|||
870    ck_concat|||
871    ck_defined|||
872    ck_delete|||
873    ck_die|||
874    ck_eof|||
875    ck_eval|||
876    ck_exec|||
877    ck_exists|||
878    ck_exit|||
879    ck_ftst|||
880    ck_fun|||
881    ck_glob|||
882    ck_grep|||
883    ck_index|||
884    ck_join|||
885    ck_lengthconst|||
886    ck_lfun|||
887    ck_listiob|||
888    ck_match|||
889    ck_method|||
890    ck_null|||
891    ck_open|||
892    ck_repeat|||
893    ck_require|||
894    ck_retarget|||
895    ck_return|||
896    ck_rfun|||
897    ck_rvconst|||
898    ck_sassign|||
899    ck_select|||
900    ck_shift|||
901    ck_sort|||
902    ck_spair|||
903    ck_split|||
904    ck_subr|||
905    ck_substr|||
906    ck_svconst|||
907    ck_trunc|||
908    ck_unpack|||
909  cl_and|||  cl_and|||
910  cl_anything|||  cl_anything|||
911  cl_init_zero|||  cl_init_zero|||
# Line 893  cv_undef||| Line 929  cv_undef|||
929  cx_dump||5.005000|  cx_dump||5.005000|
930  cx_dup|||  cx_dup|||
931  cxinc|||  cxinc|||
932    dAXMARK||5.009003|
933  dAX|5.007002||p  dAX|5.007002||p
934  dITEMS|5.007002||p  dITEMS|5.007002||p
935  dMARK|||  dMARK|||
# Line 922  debstack||5.007003| Line 959  debstack||5.007003|
959  deb||5.007003|v  deb||5.007003|v
960  del_he|||  del_he|||
961  del_sv|||  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|||  
962  delimcpy||5.004000|  delimcpy||5.004000|
963  depcom|||  depcom|||
964  deprecate_old|||  deprecate_old|||
# Line 997  do_vecset||| Line 1022  do_vecset|||
1022  do_vop|||  do_vop|||
1023  docatch_body|||  docatch_body|||
1024  docatch|||  docatch|||
 doencodes|||  
1025  doeval|||  doeval|||
1026  dofile|||  dofile|||
1027  dofindlabel|||  dofindlabel|||
# Line 1053  form_nocontext|||vn Line 1077  form_nocontext|||vn
1077  form||5.004000|v  form||5.004000|v
1078  fp_dup|||  fp_dup|||
1079  fprintf_nocontext|||vn  fprintf_nocontext|||vn
1080    free_global_struct|||
1081  free_tied_hv_pool|||  free_tied_hv_pool|||
1082  free_tmps|||  free_tmps|||
1083  gen_constant_list|||  gen_constant_list|||
# Line 1112  gv_stashpvn|5.006000||p Line 1137  gv_stashpvn|5.006000||p
1137  gv_stashpv|||  gv_stashpv|||
1138  gv_stashsv|||  gv_stashsv|||
1139  he_dup|||  he_dup|||
1140    hek_dup|||
1141  hfreeentries|||  hfreeentries|||
1142  hsplit|||  hsplit|||
1143  hv_assert||5.009001|  hv_assert||5.009001|
1144    hv_auxinit|||
1145  hv_clear_placeholders||5.009001|  hv_clear_placeholders||5.009001|
1146  hv_clear|||  hv_clear|||
1147  hv_delayfree_ent||5.004000|  hv_delayfree_ent||5.004000|
1148  hv_delete_common|||  hv_delete_common|||
1149  hv_delete_ent||5.004000|  hv_delete_ent||5.004000|
1150  hv_delete|||  hv_delete|||
1151    hv_eiter_p||5.009003|
1152    hv_eiter_set||5.009003|
1153  hv_exists_ent||5.004000|  hv_exists_ent||5.004000|
1154  hv_exists|||  hv_exists|||
1155  hv_fetch_common|||  hv_fetch_common|||
# Line 1137  hv_iterval||| Line 1166  hv_iterval|||
1166  hv_ksplit||5.004000|  hv_ksplit||5.004000|
1167  hv_magic_check|||  hv_magic_check|||
1168  hv_magic|||  hv_magic|||
1169    hv_name_set||5.009003|
1170  hv_notallowed|||  hv_notallowed|||
1171    hv_placeholders_get||5.009003|
1172    hv_placeholders_p||5.009003|
1173    hv_placeholders_set||5.009003|
1174    hv_riter_p||5.009003|
1175    hv_riter_set||5.009003|
1176  hv_scalar||5.009001|  hv_scalar||5.009001|
1177  hv_store_ent||5.004000|  hv_store_ent||5.004000|
1178  hv_store_flags||5.008000|  hv_store_flags||5.008000|
# Line 1152  incpush||| Line 1187  incpush|||
1187  ingroup|||  ingroup|||
1188  init_argv_symbols|||  init_argv_symbols|||
1189  init_debugger|||  init_debugger|||
1190    init_global_struct|||
1191  init_i18nl10n||5.006000|  init_i18nl10n||5.006000|
1192  init_i18nl14n||5.006000|  init_i18nl14n||5.006000|
1193  init_ids|||  init_ids|||
# Line 1179  is_an_int||| Line 1215  is_an_int|||
1215  is_gv_magical_sv|||  is_gv_magical_sv|||
1216  is_gv_magical|||  is_gv_magical|||
1217  is_handle_constructor|||  is_handle_constructor|||
1218    is_list_assignment|||
1219  is_lvalue_sub||5.007001|  is_lvalue_sub||5.007001|
1220  is_uni_alnum_lc||5.006000|  is_uni_alnum_lc||5.006000|
1221  is_uni_alnumc_lc||5.006000|  is_uni_alnumc_lc||5.006000|
# Line 1212  is_utf8_alnumc||5.006000| Line 1249  is_utf8_alnumc||5.006000|
1249  is_utf8_alnum||5.006000|  is_utf8_alnum||5.006000|
1250  is_utf8_alpha||5.006000|  is_utf8_alpha||5.006000|
1251  is_utf8_ascii||5.006000|  is_utf8_ascii||5.006000|
1252    is_utf8_char_slow|||
1253  is_utf8_char||5.006000|  is_utf8_char||5.006000|
1254  is_utf8_cntrl||5.006000|  is_utf8_cntrl||5.006000|
1255  is_utf8_digit||5.006000|  is_utf8_digit||5.006000|
# Line 1223  is_utf8_mark||5.006000| Line 1261  is_utf8_mark||5.006000|
1261  is_utf8_print||5.006000|  is_utf8_print||5.006000|
1262  is_utf8_punct||5.006000|  is_utf8_punct||5.006000|
1263  is_utf8_space||5.006000|  is_utf8_space||5.006000|
1264    is_utf8_string_loclen||5.009003|
1265  is_utf8_string_loc||5.008001|  is_utf8_string_loc||5.008001|
1266  is_utf8_string||5.006001|  is_utf8_string||5.006001|
1267  is_utf8_upper||5.006000|  is_utf8_upper||5.006000|
# Line 1236  leave_scope||| Line 1275  leave_scope|||
1275  lex_end|||  lex_end|||
1276  lex_start|||  lex_start|||
1277  linklist|||  linklist|||
 list_assignment|||  
1278  listkids|||  listkids|||
1279  list|||  list|||
1280  load_module_nocontext|||vn  load_module_nocontext|||vn
# Line 1258  magic_clearpack||| Line 1296  magic_clearpack|||
1296  magic_clearsig|||  magic_clearsig|||
1297  magic_dump||5.006000|  magic_dump||5.006000|
1298  magic_existspack|||  magic_existspack|||
1299    magic_freearylen_p|||
1300  magic_freeovrld|||  magic_freeovrld|||
1301  magic_freeregexp|||  magic_freeregexp|||
1302  magic_getarylen|||  magic_getarylen|||
# Line 1307  magic_set||| Line 1346  magic_set|||
1346  magic_sizepack|||  magic_sizepack|||
1347  magic_wipepack|||  magic_wipepack|||
1348  magicname|||  magicname|||
1349    make_trie|||
1350  malloced_size|||n  malloced_size|||n
1351  malloc||5.007002|n  malloc||5.007002|n
1352  markstack_grow|||  markstack_grow|||
# Line 1326  mg_find||| Line 1366  mg_find|||
1366  mg_free|||  mg_free|||
1367  mg_get|||  mg_get|||
1368  mg_length||5.005000|  mg_length||5.005000|
1369    mg_localize|||
1370  mg_magical|||  mg_magical|||
1371  mg_set|||  mg_set|||
1372  mg_size||5.005000|  mg_size||5.005000|
# Line 1334  missingterm||| Line 1375  missingterm|||
1375  mode_from_discipline|||  mode_from_discipline|||
1376  modkids|||  modkids|||
1377  mod|||  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|||  
1378  moreswitches|||  moreswitches|||
1379  mul128|||  mul128|||
1380  mulexp10|||n  mulexp10|||n
# Line 1445  newSTATEOP||| Line 1472  newSTATEOP|||
1472  newSUB|||  newSUB|||
1473  newSVOP|||  newSVOP|||
1474  newSVREF|||  newSVREF|||
1475    newSVhek||5.009003|
1476  newSViv|||  newSViv|||
1477  newSVnv|||  newSVnv|||
1478  newSVpvf_nocontext|||vn  newSVpvf_nocontext|||vn
# Line 1457  newSVsv||| Line 1485  newSVsv|||
1485  newSVuv|5.006000||p  newSVuv|5.006000||p
1486  newSV|||  newSV|||
1487  newUNOP|||  newUNOP|||
1488  newWHILEOP||5.004040|  newWHILEOP||5.009003|
1489  newXSproto||5.006000|  newXSproto||5.006000|
1490  newXS||5.006000|  newXS||5.006000|
1491  new_collate||5.006000|  new_collate||5.006000|
# Line 1468  new_logop||| Line 1496  new_logop|||
1496  new_numeric||5.006000|  new_numeric||5.006000|
1497  new_stackinfo||5.005000|  new_stackinfo||5.005000|
1498  new_version||5.009000|  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|||  
1499  next_symbol|||  next_symbol|||
1500  nextargv|||  nextargv|||
1501  nextchar|||  nextchar|||
# Line 1515  pad_add_name||| Line 1531  pad_add_name|||
1531  pad_alloc|||  pad_alloc|||
1532  pad_block_start|||  pad_block_start|||
1533  pad_check_dup|||  pad_check_dup|||
1534    pad_compname_type|||
1535  pad_findlex|||  pad_findlex|||
1536  pad_findmy|||  pad_findmy|||
1537  pad_fixup_inner_anons|||  pad_fixup_inner_anons|||
# Line 1621  rsignal||5.004000| Line 1638  rsignal||5.004000|
1638  run_body|||  run_body|||
1639  runops_debug||5.005000|  runops_debug||5.005000|
1640  runops_standard||5.005000|  runops_standard||5.005000|
1641    rvpv_dup|||
1642  rxres_free|||  rxres_free|||
1643  rxres_restore|||  rxres_restore|||
1644  rxres_save|||  rxres_save|||
# Line 1724  ss_dup||| Line 1742  ss_dup|||
1742  stack_grow|||  stack_grow|||
1743  start_glob|||  start_glob|||
1744  start_subparse||5.004000|  start_subparse||5.004000|
1745    stashpv_hvname_match||5.009003|
1746  stdize_locale|||  stdize_locale|||
1747  strEQ|||  strEQ|||
1748  strGE|||  strGE|||
# Line 1944  uvchr_to_utf8||5.007001| Line 1963  uvchr_to_utf8||5.007001|
1963  uvuni_to_utf8_flags||5.007003|  uvuni_to_utf8_flags||5.007003|
1964  uvuni_to_utf8||5.007001|  uvuni_to_utf8||5.007001|
1965  validate_suid|||  validate_suid|||
1966    varname|||
1967  vcmp||5.009000|  vcmp||5.009000|
1968  vcroak||5.006000|  vcroak||5.006000|
1969  vdeb||5.007003|  vdeb||5.007003|
# Line 2062  if (exists $opt{'list-provided'}) { Line 2082  if (exists $opt{'list-provided'}) {
2082    exit 0;    exit 0;
2083  }  }
2084    
2085    my @files;
2086    my @srcext = qw( xs c h cc cpp );
2087    my $srcext = join '|', @srcext;
2088    
2089    if (@ARGV) {
2090      my %seen;
2091      @files = grep { -f && !exists $seen{$_} } map { glob $_ } @ARGV;
2092    }
2093    else {
2094      eval {
2095        require File::Find;
2096        File::Find::find(sub {
2097          $File::Find::name =~ /\.($srcext)$/i
2098              and push @files, $File::Find::name;
2099        }, '.');
2100      };
2101      if ($@) {
2102        @files = map { glob "*.$_" } @srcext;
2103      }
2104    }
2105    
2106    if (!@ARGV || $opt{filter}) {
2107      my(@in, @out);
2108      my %xsc = map { /(.*)\.xs$/ ? ("$1.c" => 1, "$1.cc" => 1) : () } @files;
2109      for (@files) {
2110        my $out = exists $xsc{$_} || /\b\Q$ppport\E$/i || !/\.($srcext)$/i;
2111        push @{ $out ? \@out : \@in }, $_;
2112      }
2113      if (@ARGV && @out) {
2114        warning("Skipping the following files (use --nofilter to avoid this):\n| ", join "\n| ", @out);
2115      }
2116      @files = @in;
2117    }
2118    
2119    unless (@files) {
2120      die "No input files given!\n";
2121    }
2122    
2123  my(%files, %global, %revreplace);  my(%files, %global, %revreplace);
2124  %revreplace = reverse %replace;  %revreplace = reverse %replace;
2125  my $filename;  my $filename;
# Line 2596  __DATA__ Line 2654  __DATA__
2654    
2655  #define PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + PERL_SUBVERSION)  #define PERL_BCDVERSION ((PERL_REVISION * 0x1000000L) + (PERL_VERSION * 0x1000L) + PERL_SUBVERSION)
2656    
2657  /* 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
2658     (or greater), but who knows.     (or greater), but who knows.
2659   */   */
2660  #if PERL_REVISION != 5  #if PERL_REVISION != 5
# Line 3032  __DATA__ Line 3090  __DATA__
3090  /* Replace: 0 */  /* Replace: 0 */
3091  #endif  #endif
3092    
3093  #ifdef HASATTRIBUTE  #ifndef PERL_UNUSED_DECL
3094  #  if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)  #  ifdef HASATTRIBUTE
3095  #    define PERL_UNUSED_DECL  #    if (defined(__GNUC__) && defined(__cplusplus)) || defined(__INTEL_COMPILER)
3096    #      define PERL_UNUSED_DECL
3097    #    else
3098    #      define PERL_UNUSED_DECL __attribute__((unused))
3099    #    endif
3100  #  else  #  else
3101  #    define PERL_UNUSED_DECL __attribute__((unused))  #    define PERL_UNUSED_DECL
3102  #  endif  #  endif
 #else  
 #  define PERL_UNUSED_DECL  
3103  #endif  #endif
3104  #ifndef NOOP  #ifndef NOOP
3105  #  define NOOP                           (void)0  #  define NOOP                           (void)0
# Line 3080  typedef NVTYPE NV; Line 3140  typedef NVTYPE NV;
3140  #  if PTRSIZE == LONGSIZE  #  if PTRSIZE == LONGSIZE
3141  #    define PTR2ul(p)     (unsigned long)(p)  #    define PTR2ul(p)     (unsigned long)(p)
3142  #  else  #  else
3143  #    define PTR2ul(p)     INT2PTR(unsigned long,p)  #    define PTR2ul(p)     INT2PTR(unsigned long,p)
3144  #  endif  #  endif
3145    
3146  #endif /* !INT2PTR */  #endif /* !INT2PTR */
# Line 3246  typedef NVTYPE NV; Line 3306  typedef NVTYPE NV;
3306  #endif  #endif
3307    
3308  #ifndef pTHX_  #ifndef pTHX_
3309  #  define pTHX_  #  define pTHX_
3310  #endif  #endif
3311    
3312  #ifndef aTHX  #ifndef aTHX
3313  #  define aTHX  #  define aTHX
3314  #endif  #endif
3315    
3316  #ifndef aTHX_  #ifndef aTHX_
3317  #  define aTHX_  #  define aTHX_
3318  #endif  #endif
3319  #ifndef dTHXoa  #ifndef dTHXoa
3320  #  define dTHXoa(x)                      dTHXa(x)  #  define dTHXoa(x)                      dTHXa(x)
# Line 3572  DPPP_(my_newCONSTSUB)(HV *stash, char *n Line 3632  DPPP_(my_newCONSTSUB)(HV *stash, char *n
3632    
3633  #ifndef NVef  #ifndef NVef
3634  #  if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \  #  if defined(USE_LONG_DOUBLE) && defined(HAS_LONG_DOUBLE) && \
3635        defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */        defined(PERL_PRIfldbl) /* Not very likely, but let's try anyway. */
3636  #    define NVef          PERL_PRIeldbl  #    define NVef          PERL_PRIeldbl
3637  #    define NVff          PERL_PRIfldbl  #    define NVff          PERL_PRIfldbl
3638  #    define NVgf          PERL_PRIgldbl  #    define NVgf          PERL_PRIgldbl
# Line 3602  extern char * DPPP_(my_sv_2pv_nolen)(pTH Line 3662  extern char * DPPP_(my_sv_2pv_nolen)(pTH
3662    
3663  char *  char *
3664  DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv)  DPPP_(my_sv_2pv_nolen)(pTHX_ register SV *sv)
3665  {  {
3666    STRLEN n_a;    STRLEN n_a;
3667    return sv_2pv(sv, &n_a);    return sv_2pv(sv, &n_a);
3668  }  }
# Line 3646  extern char * DPPP_(my_sv_2pvbyte)(pTHX_ Line 3706  extern char * DPPP_(my_sv_2pvbyte)(pTHX_
3706    
3707  char *  char *
3708  DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp)  DPPP_(my_sv_2pvbyte)(pTHX_ register SV *sv, STRLEN *lp)
3709  {  {
3710    sv_utf8_downgrade(sv,0);    sv_utf8_downgrade(sv,0);
3711    return SvPV(sv,*lp);    return SvPV(sv,*lp);
3712  }  }
# Line 4324  DPPP_(my_grok_numeric_radix)(pTHX_ const Line 4384  DPPP_(my_grok_numeric_radix)(pTHX_ const
4384  {  {
4385  #ifdef USE_LOCALE_NUMERIC  #ifdef USE_LOCALE_NUMERIC
4386  #ifdef PL_numeric_radix_sv  #ifdef PL_numeric_radix_sv
4387      if (PL_numeric_radix_sv && IN_LOCALE) {      if (PL_numeric_radix_sv && IN_LOCALE) {
4388          STRLEN len;          STRLEN len;
4389          char* radix = SvPV(PL_numeric_radix_sv, len);          char* radix = SvPV(PL_numeric_radix_sv, len);
4390          if (*sp + len <= send && memEQ(*sp, radix, len)) {          if (*sp + len <= send && memEQ(*sp, radix, len)) {
4391              *sp += len;              *sp += len;
4392              return TRUE;              return TRUE;
4393          }          }
4394      }      }
4395  #else  #else
# Line 4340  DPPP_(my_grok_numeric_radix)(pTHX_ const Line 4400  DPPP_(my_grok_numeric_radix)(pTHX_ const
4400      dTHR;  /* needed for older threaded perls */      dTHR;  /* needed for older threaded perls */
4401      struct lconv *lc = localeconv();      struct lconv *lc = localeconv();
4402      char *radix = lc->decimal_point;      char *radix = lc->decimal_point;
4403      if (radix && IN_LOCALE) {      if (radix && IN_LOCALE) {
4404          STRLEN len = strlen(radix);          STRLEN len = strlen(radix);
4405          if (*sp + len <= send && memEQ(*sp, radix, len)) {          if (*sp + len <= send && memEQ(*sp, radix, len)) {
4406              *sp += len;              *sp += len;
4407              return TRUE;              return TRUE;
4408          }          }
4409      }      }
4410  #endif /* PERL_VERSION */  #endif /* PERL_VERSION */
# Line 4657  DPPP_(my_grok_bin)(pTHX_ char *start, ST Line 4717  DPPP_(my_grok_bin)(pTHX_ char *start, ST
4717              warn("Illegal binary digit '%c' ignored", *s);              warn("Illegal binary digit '%c' ignored", *s);
4718          break;          break;
4719      }      }
4720    
4721      if (   ( overflowed && value_nv > 4294967295.0)      if (   ( overflowed && value_nv > 4294967295.0)
4722  #if UVSIZE > 4  #if UVSIZE > 4
4723          || (!overflowed && value > 0xffffffff  )          || (!overflowed && value > 0xffffffff  )
# Line 4759  DPPP_(my_grok_hex)(pTHX_ char *start, ST Line 4819  DPPP_(my_grok_hex)(pTHX_ char *start, ST
4819              warn("Illegal hexadecimal digit '%c' ignored", *s);              warn("Illegal hexadecimal digit '%c' ignored", *s);
4820          break;          break;
4821      }      }
4822    
4823      if (   ( overflowed && value_nv > 4294967295.0)      if (   ( overflowed && value_nv > 4294967295.0)
4824  #if UVSIZE > 4  #if UVSIZE > 4
4825          || (!overflowed && value > 0xffffffff  )          || (!overflowed && value > 0xffffffff  )
# Line 4852  DPPP_(my_grok_oct)(pTHX_ char *start, ST Line 4912  DPPP_(my_grok_oct)(pTHX_ char *start, ST
4912          }          }
4913          break;          break;
4914      }      }
4915    
4916      if (   ( overflowed && value_nv > 4294967295.0)      if (   ( overflowed && value_nv > 4294967295.0)
4917  #if UVSIZE > 4  #if UVSIZE > 4
4918          || (!overflowed && value > 0xffffffff  )          || (!overflowed && value > 0xffffffff  )
Legend:
Removed from v.30  
changed lines
  Added in v.87
  ViewVC Help
Powered by ViewVC 1.1.5