xf

   1 #!/usr/bin/perl -i.bak
   2
   3 while (<>) {
   4     study;
   5     s/\bSTR\b/SV/g && study;
   6     s/\bARRAY\b/AV/g && study;
   7     s/\bARG\b/OP/g && study;
   8     s/\bHASH\b/HV/g && study;
   9     s/\bHENT\b/HE/g && study;
  10     s/\bCMD\b/COP/g && study;
  11     s/\bSPAT\b/PM/g && study;
  12     s/\bSTIO\b/IO/g && study;
  13     s/\bSTAB\b/GV/g && study;
  14     s/\bSTBP\b/GP/g && study;
  15     s/\bSUBR\b/CV/g && study;
  16
  17     s/\bNullstr\b/Nullsv/g && study;
  18     s/\bNullarg\b/Nullop/g && study;
  19     s/\bNullcmd\b/Nullcop/g && study;
  20     s/\bNullstab\b/Nullgv/g && study;
  21
  22     s/\bstruct stab\b/struct gv/g && study;
  23     s/\bstruct stabptrs\b/struct gp/g && study;
  24     s/\bstruct stio\b/struct io/g && study;
  25     s/\bstruct string\b/struct sv/g && study;
  26     s/\bstruct scanpat\b/struct pm/g && study;
  27     s/\bstruct formcmd\b/struct ff/g && study;
  28     s/\bstruct hentry\b/struct he/g && study;
  29     s/\bstruct atbl\b/struct av/g && study;
  30     s/\bstruct htbl\b/struct hv/g && study;
  31     s/\bstruct cmd\b/struct cop/g && study;
  32
  33     s/\bcmdname\b/cop_name/g && study;
  34     s/\bopname\b/op_name/g && study;
  35
  36     s/\bstab_stab\b/GvGV/g && study;
  37     s/\bstab_estab\b/GvEGV/g && study;
  38     s/\bstab_stash\b/GvSTASH/g && study;
  39     s/\bstab_estash\b/GvESTASH/g && study;
  40     s/\bstab_name\b/GvNAME/g && study;
  41     s/\bstab_ename\b/GvENAME/g && study;
  42     s/\bstab_hash\b/GvHVn/g && study;
  43     s/\bstab_xhash\b/GvHV/g && study;
  44     s/\bstab_array\b/GvAVn/g && study;
  45     s/\bstab_xarray\b/GvAV/g && study;
  46     s/\bstab_sub\b/GvCV/g && study;
  47     s/\bstab_form\b/GvFORM/g && study;
  48     s/\bstab_magic\b/GvMAGIC/g && study;
  49     s/\bstab_val\b/GvSV/g && study;
  50     s/\bstab_xio\b/GvIO/g && study;
  51     s/\bstab_io\b/GvIOn/g && study;
  52     s/\bstab_lastexpr\b/GvLASTEXPR/g && study;
  53     s/\bstab_line\b/GvLINE/g && study;
  54     s/\bstab_flags\b/GvFLAGS/g && study;
  55
  56     s/\bstbp_val\b/gp_sv/g && study;
  57     s/\bstbp_array\b/gp_av/g && study;
  58     s/\bstbp_hash\b/gp_hv/g && study;
  59     s/\bstbp_stab\b/gp_egv/g && study;
  60
  61     s/\bstr_array\b/sv_av/g && study;
  62     s/\bstr_hash\b/sv_hv/g && study;
  63     s/\bstr_cmd\b/sv_cop/g && study;
  64     s/\bstr_args\b/sv_op/g && study;
  65     s/\bstr_nval\b/sv_nv/g && study;
  66     s/\bstr_pval\b/sv_pv/g && study;
  67
  68     s/\bSTABSET\b/SvSETMAGIC/g && study;
  69     s/\bstabset\b/sv_setmagic/g && study;
  70     s/\bSTR_SSET\b/sv_setsv/g && study;
  71     s/\bSTR_GROW\b/SvGROW/g && study;
  72
  73     s/\bstr_true\b/SvTRUE/g && study;
  74     s/\bstr_peek\b/SvPEEK/g && study;
  75     s/\bstr_get\b/SvPV/g && study;
  76     s/\bstr_gnum\b/SvNV/g && study;
  77
  78     s/\bstab\b/gv/g && study;
  79     s/\bstr\b/sv/g && study;
  80     s/\bStr\b/Sv/g && study;
  81
  82     s/\baadd\b/gv_AVn/g && study;
  83
  84     s/\baclear\b/av_clear/g && study;
  85     s/\bafake\b/av_fake/g && study;
  86     s/\bafetch\b/av_fetch/g && study;
  87     s/\bafill\b/av_fill/g && study;
  88     s/\bafree\b/av_free/g && study;
  89     s/\balen\b/av_len/g && study;
  90     s/\banew\b/newAV/g && study;
  91     s/\bapop\b/av_pop/g && study;
  92     s/\bapush\b/av_push/g && study;
  93     s/\barg_free\b/op_free/g && study;
  94     s/\bashift\b/av_shift/g && study;
  95     s/\bastore\b/av_store/g && study;
  96     s/\baunshift\b/av_unshift/g && study;
  97     s/\bcastulong\b/cast_ulong/g && study;
  98     s/\bcmd_free\b/op_free/g && study;
  99     s/\bcurcmd\b/curcop/g && study;
 100     s/\bdump_arg\b/dump_op/g && study;
 101     s/\bdump_cmd\b/dump_op/g && study;
 102     s/\bdump_spat\b/dump_pm/g && study;
 103     s/\bdump_stab\b/dump_gv/g && study;
 104     s/\bdumpfds\b/dump_fds/g && study;
 105     s/\bfbmcompile\b/fbm_compile/g && study;
 106     s/\bfbminstr\b/fbm_instr/g && study;
 107     s/\bfstab\b/newGVfile/g && study;
 108     s/\bgenstab\b/newGVgen/g && study;
 109     s/\bgrow_dlevel\b/deb_growlevel/g && study;
 110     s/\bhadd\b/gv_HVn/g && study;
 111     s/\bhclear\b/hv_clear/g && study;
 112     s/\bhdelete\b/hv_delete/g && study;
 113     s/\bhentdelayfree\b/he_delayfree/g && study;
 114     s/\bhentfree\b/he_free/g && study;
 115     s/\bhfetch\b/hv_fetch/g && study;
 116     s/\bhfree\b/hv_free/g && study;
 117     s/\bhiterinit\b/hv_iterinit/g && study;
 118     s/\bhiterkey\b/hv_iterkey/g && study;
 119     s/\bhiternext\b/hv_iternext/g && study;
 120     s/\bhiterval\b/hv_iterval/g && study;
 121     s/\bhnew\b/newHV/g && study;
 122     s/\bhstore\b/hv_store/g && study;
 123     s/\blistish\b/forcelist/g && study;
 124     s/\bmaybelistish\b/maybeforcelist/g && study;
 125     s/\bmylstat\b/my_lstat/g && study;
 126     s/\bmypclose\b/my_pclose/g && study;
 127     s/\bmypfiopen\b/my_pfiopen/g && study;
 128     s/\bmypopen\b/my_popen/g && study;
 129     s/\bmystat\b/my_stat/g && study;
 130     s/\bop_new\b/newOP/g && study;
 131     s/\bperl_alloc\b/perl_alloc/g && study;
 132     s/\bperl_callback\b/perl_callpv/g && study;
 133     s/\bperl_callv\b/perl_callargv/g && study;
 134     s/\bperl_construct\b/perl_construct/g && study;
 135     s/\bperl_destruct\b/perl_destruct/g && study;
 136     s/\bperl_free\b/perl_free/g && study;
 137     s/\bperl_parse\b/perl_parse/g && study;
 138     s/\bperl_run\b/perl_run/g && study;
 139     s/\bregcomp\b/regcomp/g && study;
 140     s/\bregdump\b/regdump/g && study;
 141     s/\bregexec\b/regexec/g && study;
 142     s/\bregfree\b/regfree/g && study;
 143     s/\bregnext\b/regnext/g && study;
 144     s/\bregprop\b/regprop/g && study;
 145     s/\brepeatcpy\b/repeatcpy/g && study;
 146     s/\brestorelist\b/leave_scope/g && study;
 147     s/\bsaveaptr\b/save_aptr/g && study;
 148     s/\bsaveary\b/save_ary/g && study;
 149     s/\bsavehash\b/save_hash/g && study;
 150     s/\bsavehptr\b/save_hptr/g && study;
 151     s/\bsaveint\b/save_int/g && study;
 152     s/\bsaveitem\b/save_item/g && study;
 153     s/\bsavelines\b/save_lines/g && study;
 154     s/\bsavelist\b/save_list/g && study;
 155     s/\bsavelong\b/save_long/g && study;
 156     s/\bsavenostab\b/save_nostab/g && study;
 157     s/\bsavesptr\b/save_sptr/g && study;
 158     s/\bscanconst\b/scan_const/g && study;
 159     s/\bscanhex\b/scan_hex/g && study;
 160     s/\bscanident\b/scan_ident/g && study;
 161     s/\bscanoct\b/scan_oct/g && study;
 162     s/\bscanpat\b/scan_pat/g && study;
 163     s/\bscanstr\b/scan_str/g && study;
 164     s/\bscansubst\b/scan_subst/g && study;
 165     s/\bscantrans\b/scan_trans/g && study;
 166     s/\bstab_check\b/gv_check/g && study;
 167     s/\bstab_clear\b/gv_clear/g && study;
 168     s/\bstab_efullname\b/gv_efullname/g && study;
 169     s/\bstab_fullname\b/gv_fullname/g && study;
 170     s/\bstab_len\b/gv_len/g && study;
 171     s/\bstab_str\b/gv_str/g && study;
 172     s/\bstabent\b/gv_fetchpv/g && study;
 173     s/\bstio_new\b/newIO/g && study;
 174     s/\bstr_2mortal\b/sv_2mortal/g && study;
 175     s/\bstr_2num\b/sv_2num/g && study;
 176     s/\bstr_2ptr\b/sv_2ptr/g && study;
 177     s/\bstr_cat\b/sv_catpv/g && study;
 178     s/\bstr_chop\b/sv_chop/g && study;
 179     s/\bstr_cmp\b/sv_cmp/g && study;
 180     s/\bstr_dec\b/sv_dec/g && study;
 181     s/\bstr_eq\b/sv_eq/g && study;
 182     s/\bstr_free\b/sv_free/g && study;
 183     s/\bstr_gets\b/sv_gets/g && study;
 184     s/\bstr_grow\b/sv_grow/g && study;
 185     s/\bstr_inc\b/sv_inc/g && study;
 186     s/\bstr_insert\b/sv_insert/g && study;
 187     s/\bstr_len\b/sv_len/g && study;
 188     s/\bstr_magic\b/sv_magic/g && study;
 189     s/\bstr_make\b/newSVpv/g && study;
 190     s/\bstr_mortal\b/sv_mortalcopy/g && study;
 191     s/\bstr_ncat\b/sv_catpvn/g && study;
 192     s/\bstr_new\b/newSV/g && study;
 193     s/\bstr_nmake\b/newSVnv/g && study;
 194     s/\bstr_nset\b/sv_setpvn/g && study;
 195     s/\bstr_numset\b/sv_setnv/g && study;
 196     s/\bstr_replace\b/sv_replace/g && study;
 197     s/\bstr_reset\b/sv_reset/g && study;
 198     s/\bstr_scat\b/sv_catsv/g && study;
 199     s/\bstr_set\b/sv_setpv/g && study;
 200     s/\bstr_smake\b/newSVsv/g && study;
 201     s/\bstr_sset\b/sv_setsv/g && study;
 202     s/\btaintenv\b/taint_env/g && study;
 203     s/\btaintproper\b/taint_proper/g && study;
 204     s/\barg\b/op/g && study;
 205     s/\barg_ptr\.//g && study;
 206     s/\barg_/op_/g && study;
 207
 208     s/\bSTR_/SV_/g && study;
 209     s/\bSP_/SVp_/g && study;
 210     s/\bSS_/SVs_/g && study;
 211     s/\bSTAB_/GV_/g && study;
 212     s/\bSF_/GVf_/g && study;
 213     s/\bSPAT_/PMf_/g && study;
 214     #s/\bF_/FFt_/g && study;
 215     s/\bFC_/FFf_/g && study;
 216     s/\bO_/OP_/g && study;
 217     s/\bC_/COP_/g && study;
 218     s/\bCF_/COPf_/g && study;
 219     s/\bCFT_/COPo_/g && study;
 220     s/\bARF_/AVf_/g && study;
 221     s/\bIOF_/IOf_/g && study;
 222     s/\bStr_new\b/NEWSV/g && study;
 223
 224     s/\bstbp_/gp_/g && study;
 225     s/\bstab_/gv_/g && study;
 226     s/\bspat_/pm_/g && study;
 227     s/\bstio/io/g && study;
 228     s/\bf_/ff_/g && study;
 229     s/\bStr_/Sv_/g && study;
 230     s/\bstr_/sv_/g && study;
 231     s/\btbl_/hv_/g && study;
 232     s/\bary_/av_/g && study;
 233     s/acmd\.ac_/acop_/g && study;
 234     s/ccmd\.cc_/ccop_/g && study;
 235     s/scmd\.sc_/scop_/g && study;
 236     s/\bac_/acop_/g;
 237     s/\bcc_/ccop_/g;
 238     s/\bsc_/scop_/g;
 239     s/\bc_/cop_/g;
 240     s/spat/pm/g;
 241     s/stab/gv/g;
 242
 243     print;
 244 }