path: root/xf

#!/usr/bin/perl -i.bak

while (<>) {
    study;
    s/\bFCMD\b/FF/g && study;
    s/\bSTR\b/SV/g && study;
    s/\bARRAY\b/AV/g && study;
    s/\bARG\b/OP/g && study;
    s/\bHASH\b/HV/g && study;
    s/\bHENT\b/HE/g && study;
    s/\bCMD\b/COP/g && study;
    s/\bSPAT\b/PM/g && study;
    s/\bSTIO\b/IO/g && study;
    s/\bSTAB\b/GV/g && study;
    s/\bSTBP\b/GP/g && study;
    s/\bSUBR\b/SUB/g && study;

    s/\bNullfcmd\b/Nullfield/g && study;
    s/\bNullstr\b/Nullsv/g && study;
    s/\bNullarg\b/Nullop/g && study;
    s/\bNullcmd\b/Nullcop/g && study;
    s/\bNullstab\b/Nullgv/g && study;

    s/\bstruct stab\b/struct gv/g && study;
    s/\bstruct stabptrs\b/struct gp/g && study;
    s/\bstruct stio\b/struct io/g && study;
    s/\bstruct string\b/struct sv/g && study;
    s/\bstruct scanpat\b/struct pm/g && study;
    s/\bstruct formcmd\b/struct ff/g && study;
    s/\bstruct hentry\b/struct he/g && study;
    s/\bstruct atbl\b/struct av/g && study;
    s/\bstruct htbl\b/struct hv/g && study;
    s/\bstruct cmd\b/struct cop/g && study;

    s/\bcmdname\b/cop_name/g && study;
    s/\bopname\b/op_name/g && study;

    s/\bstab_stab\b/GvGV/g && study;
    s/\bstab_estab\b/GvEGV/g && study;
    s/\bstab_stash\b/GvSTASH/g && study;
    s/\bstab_estash\b/GvESTASH/g && study;
    s/\bstab_name\b/GvNAME/g && study;
    s/\bstab_ename\b/GvENAME/g && study;
    s/\bstab_hash\b/GvHVn/g && study;
    s/\bstab_xhash\b/GvHV/g && study;
    s/\bstab_array\b/GvAVn/g && study;
    s/\bstab_xarray\b/GvAV/g && study;
    s/\bstab_sub\b/GvSUB/g && study;
    s/\bstab_form\b/GvFORM/g && study;
    s/\bstab_magic\b/GvMAGIC/g && study;
    s/\bstab_val\b/GvSV/g && study;
    s/\bstab_xio\b/GvIO/g && study;
    s/\bstab_io\b/GvIOn/g && study;
    s/\bstab_lastexpr\b/GvLASTEXPR/g && study;
    s/\bstab_line\b/GvLINE/g && study;
    s/\bstab_flags\b/GvFLAGS/g && study;

    s/\bstbp_val\b/gp_sv/g && study;
    s/\bstbp_array\b/gp_av/g && study;
    s/\bstbp_hash\b/gp_hv/g && study;
    s/\bstbp_stab\b/gp_egv/g && study;

    s/\bstr_array\b/sv_av/g && study;
    s/\bstr_hash\b/sv_hv/g && study;
    s/\bstr_cmd\b/sv_cop/g && study;
    s/\bstr_args\b/sv_op/g && study;
    s/\bstr_nval\b/sv_nv/g && study;
    s/\bstr_pval\b/sv_pv/g && study;

    s/\bSTABSET\b/SvSETMAGIC/g && study;
    s/\bstabset\b/sv_setmagic/g && study;
    s/\bSTR_SSET\b/SvSetSV/g && study;
    s/\bSTR_SSET\b/SvSetPV/g && study;
    s/\bSTR_SSET\b/SvSetNV/g && study;
    s/\bSTR_GROW\b/SvGROW/g && study;
    s/SINGLE\b/CONST/g && study;
    s/DOUBLE\b/INTERP/g && study;

    s/\bstr_true\b/SvTRUE/g && study;
    s/\bstr_peek\b/SvPEEK/g && study;
    s/\bstr_get\b/SvPV/g && study;
    s/\bstr_gnum\b/SvNV/g && study;

    s/\bstab\b/gv/g && study;
    s/\bstr\b/sv/g && study;
    s/\bStr\b/Sv/g && study;

    s/\baadd\b/gv_AVn/g && study;

    s/\baclear\b/av_clear/g && study;
    s/\bafake\b/av_fake/g && study;
    s/\bafetch\b/av_fetch/g && study;
    s/\bafill\b/av_fill/g && study;
    s/\bafree\b/av_free/g && study;
    s/\balen\b/av_len/g && study;
    s/\banew\b/newAV/g && study;
    s/\bapop\b/av_pop/g && study;
    s/\bapush\b/av_push/g && study;
    s/\barg_free\b/op_free/g && study;
    s/\bashift\b/av_shift/g && study;
    s/\bastore\b/av_store/g && study;
    s/\baunshift\b/av_unshift/g && study;
    s/\bcastulong\b/cast_ulong/g && study;
    s/\bcmd_exec\b/cop_exec/g && study;
    s/\bcmd_free\b/cop_free/g && study;
    s/\bcmd_to_arg\b/cop_to_arg/g && study;
    s/\bcurcmd\b/curcop/g && study;
    s/\bcval_to_arg\b/pv_to_op/g && study;
    s/\bdehoist\b/dehoistXXX/g && study;
    s/\bldehoist\b/ldehoistXXX/g && study;
    s/\bdodb\b/CopDBadd/g && study;
    s/\bdump_arg\b/dump_op/g && study;
    s/\bdump_cmd\b/dump_cop/g && study;
    s/\bdump_spat\b/dump_pm/g && study;
    s/\bdump_stab\b/dump_gv/g && study;
    s/\bdumpfds\b/dump_fds/g && study;
    s/\benvix\b/setenv_getix/g && study;
    s/\beval\b/oldeval/g && study;
    s/\bevalstatic\b/op_fold_const/g && study;
    s/\bfbmcompile\b/fbm_compile/g && study;
    s/\bfbminstr\b/fbm_instr/g && study;
    s/\bfixl\b/fixlXXX/g && study;
    s/\bform_parseargs\b/XXX/g && study;
    s/\bformat\b/run_format/g && study;
    s/\bfree_arg\b/op_behead/g && study;
    s/\bfstab\b/newGVfile/g && study;
    s/\bgenstab\b/newGVgen/g && study;
    s/\bgrow_dlevel\b/deb_growlevel/g && study;
    s/\bgrowstr\b/cv_grow/g && study;
    s/\bhadd\b/gv_HVn/g && study;
    s/\bhclear\b/hv_clear/g && study;
    s/\bhdbmclose\b/hv_dbmclose/g && study;
    s/\bhdbmopen\b/hv_dbmopen/g && study;
    s/\bhdbmstore\b/hv_dbmstore/g && study;
    s/\bhdelete\b/hv_delete/g && study;
    s/\bhentdelayfree\b/he_delayfree/g && study;
    s/\bhentfree\b/he_free/g && study;
    s/\bhfetch\b/hv_fetch/g && study;
    s/\bhfree\b/hv_free/g && study;
    s/\bhide_ary\b/hide_aryXXX/g && study;
    s/\bhiterinit\b/hv_iterinit/g && study;
    s/\bhiterkey\b/hv_iterkey/g && study;
    s/\bhiternext\b/hv_iternext/g && study;
    s/\bhiterval\b/hv_iterval/g && study;
    s/\bhnew\b/newHV/g && study;
    s/\bhstore\b/hv_store/g && study;
    s/\binterp\b/sv_interp/g && study;
    s/\bintrpcompile\b/sv_intrpcompile/g && study;
    s/\blistish\b/forcelist/g && study;
    s/\bload_format\b/parse_format/g && study;
    s/\bmake_acmd\b/newACOP/g && study;
    s/\bmake_ccmd\b/newCCOP/g && study;
    s/\bmake_form\b/newFORM/g && study;
    s/\bmake_icmd\b/newICOP/g && study;
    s/\bmake_list\b/flatten/g && study;
    s/\bmake_match\b/newPM/g && study;
    s/\bmake_op\b/newOP/g && study;
    s/\bmake_split\b/newSPLIT/g && study;
    s/\bmake_sub\b/newSUB/g && study;
    s/\bmake_usub\b/newUSUB/g && study;
    s/\bmaybelistish\b/maybeforcelist/g && study;
    s/\bmod_match\b/bind_match/g && study;
    s/\bmylstat\b/my_lstat/g && study;
    s/\bmypclose\b/my_pclose/g && study;
    s/\bmypfiopen\b/my_pfiopen/g && study;
    s/\bmypopen\b/my_popen/g && study;
    s/\bmystat\b/my_stat/g && study;
    s/\bop_new\b/newOP/g && study;
    s/\bopt_arg\b/op_optimize/g && study;
    s/\bparselist\b/parse_list/g && study;
    s/\bperl_alloc\b/perl_alloc/g && study;
    s/\bperl_callback\b/perl_callback/g && study;
    s/\bperl_callv\b/perl_callv/g && study;
    s/\bperl_construct\b/perl_construct/g && study;
    s/\bperl_destruct\b/perl_destruct/g && study;
    s/\bperl_free\b/perl_free/g && study;
    s/\bperl_parse\b/perl_parse/g && study;
    s/\bperl_run\b/perl_run/g && study;
    s/\bregcomp\b/regcomp/g && study;
    s/\bregdump\b/regdump/g && study;
    s/\bregexec\b/regexec/g && study;
    s/\bregfree\b/regfree/g && study;
    s/\bregnext\b/regnext/g && study;
    s/\bregprop\b/regprop/g && study;
    s/\brepeatcpy\b/repeatcpy/g && study;
    s/\brestorelist\b/leave_scope/g && study;
    s/\bsaveaptr\b/save_aptr/g && study;
    s/\bsaveary\b/save_ary/g && study;
    s/\bsavehash\b/save_hash/g && study;
    s/\bsavehptr\b/save_hptr/g && study;
    s/\bsaveint\b/save_int/g && study;
    s/\bsaveitem\b/save_item/g && study;
    s/\bsavelines\b/save_lines/g && study;
    s/\bsavelist\b/save_list/g && study;
    s/\bsavelong\b/save_long/g && study;
    s/\bsavenostab\b/save_nostab/g && study;
    s/\bsavesptr\b/save_sptr/g && study;
    s/\bscanconst\b/scan_const/g && study;
    s/\bscanhex\b/scan_hex/g && study;
    s/\bscanident\b/scan_ident/g && study;
    s/\bscanoct\b/scan_oct/g && study;
    s/\bscanpat\b/scan_pat/g && study;
    s/\bscanstr\b/scan_str/g && study;
    s/\bscansubst\b/scan_subst/g && study;
    s/\bscantrans\b/scan_trans/g && study;
    s/\bspat_free\b/pm_free/g && study;
    s/\bstab2arg\b/gv_to_op/g && study;
    s/\bstab_check\b/gv_check/g && study;
    s/\bstab_clear\b/gv_clear/g && study;
    s/\bstab_efullname\b/gv_efullname/g && study;
    s/\bstab_fullname\b/gv_fullname/g && study;
    s/\bstab_len\b/gv_len/g && study;
    s/\bstab_str\b/gv_str/g && study;
    s/\bstabent\b/gv_fetchpv/g && study;
    s/\bstio_new\b/newIO/g && study;
    s/\bstr_2mortal\b/sv_2mortal/g && study;
    s/\bstr_2num\b/sv_2num/g && study;
    s/\bstr_2ptr\b/sv_2ptr/g && study;
    s/\bstr_append_till\b/sv_append_till/g && study;
    s/\bstr_cat\b/sv_catpv/g && study;
    s/\bstr_chop\b/sv_chop/g && study;
    s/\bstr_cmp\b/sv_cmp/g && study;
    s/\bstr_dec\b/sv_dec/g && study;
    s/\bstr_eq\b/sv_eq/g && study;
    s/\bstr_free\b/sv_free/g && study;
    s/\bstr_gets\b/sv_gets/g && study;
    s/\bstr_grow\b/sv_grow/g && study;
    s/\bstr_inc\b/sv_inc/g && study;
    s/\bstr_insert\b/sv_insert/g && study;
    s/\bstr_len\b/sv_len/g && study;
    s/\bstr_magic\b/sv_magic/g && study;
    s/\bstr_make\b/newSVpv/g && study;
    s/\bstr_mortal\b/sv_mortalcopy/g && study;
    s/\bstr_ncat\b/sv_catpvn/g && study;
    s/\bstr_new\b/newSV/g && study;
    s/\bstr_nmake\b/newSVnv/g && study;
    s/\bstr_nset\b/sv_setpvn/g && study;
    s/\bstr_numset\b/sv_setnv/g && study;
    s/\bstr_replace\b/sv_replace/g && study;
    s/\bstr_reset\b/sv_reset/g && study;
    s/\bstr_scat\b/sv_catsv/g && study;
    s/\bstr_set\b/sv_setpv/g && study;
    s/\bstr_smake\b/newSVsv/g && study;
    s/\bstr_sset\b/sv_setsv/g && study;
    s/\btaintenv\b/taint_env/g && study;
    s/\btaintproper\b/taint_proper/g && study;
    s/\barg\b/op/g && study;
    s/\barg_ptr\.//g && study;
    s/\barg_/op_/g && study;

    s/\bSTR_/SV_/g && study;
    s/\bSP_/SVp_/g && study;
    s/\bSS_/SVs_/g && study;
    s/\bSTAB_/GV_/g && study;
    s/\bSF_/GVf_/g && study;
    s/\bSPAT_/PMf_/g && study;
    s/\bF_/FFt_/g && study;
    s/\bFC_/FFf_/g && study;
    s/\bO_/OP_/g && study;
    s/\bC_/COP_/g && study;
    s/\bCF_/COPf_/g && study;
    s/\bCFT_/COPo_/g && study;
    s/\bARF_/AVf_/g && study;
    s/\bIOF_/IOf_/g && study;
    s/\bStr_new\b/NEWSV/g && study;

    s/\bstbp_/gp_/g && study;
    s/\bstab_/gv_/g && study;
    s/\bspat_/pm_/g && study;
    s/\bstio/io/g && study;
    s/\bf_/ff_/g && study;
    s/\bStr_/Sv_/g && study;
    s/\bstr_/sv_/g && study;
    s/\btbl_/hv_/g && study;
    s/\bary_/av_/g && study;
    s/acmd\.ac_/acop_/g && study;
    s/ccmd\.cc_/ccop_/g && study;
    s/scmd\.sc_/scop_/g && study;
    s/\bac_/acop_/g;
    s/\bcc_/ccop_/g;
    s/\bsc_/scop_/g;
    s/\bc_/cop_/g;
    s/spat/pm/g;
    s/stab/gv/g;

    print;
}