#!/bin/sh
rm -f TestsOld/*.pro
for i in tst_*.pro
  do
  new=$( basename $i .pro )
  sed -e "/@update/d" \
      -e "s/@cm_4mesh/@common/g" \
      -e "s/@cm_4cal/@common/g" \
      -e "s/@cm_4data/@common/g" \
      -e "s/@cm_4ps/@common/g" \
      -e "s/@cm_general/@common/g" \
      -e "s/boxzoom/boite/g" \
      -e "s/realcont/carte/g" \
      -e "s/coast_thick/cont_thick/g" \
      -e "s/def_key_periodic/def_key_periodique/g" \
      -e "s/gridtype/grille/g" \
      -e "s/zratio/hzsurht/g" \
      -e "s/nofill/nocouleur/g" \
      -e "s/small/petit/g" \
      -e "s/small/petitdessin/g" \
      -e "s/yxaspect/ysurx/g" \
      -e "s/triangles_list/triangles/g" \
      -e "s/tst_pltz$/tst_pltz_old/g" \
      -e "s/tst_pltt$/tst_pltt_old/g" \
      -e "s/tst_plt$/tst_plt_old/g" \
      -e "s/tst_basic/tst_basic_old/g" \
      $i > TestsOld/${new}_old.pro
done

cd TestsOld
for i in $( egrep -il "^ *(pro|function) .*," *.pro )
do
  a=$( egrep -ih "^ *(pro|function) .*," $i )
  b=${a%%,*}_old,${a#*,}
  sed -e "s/${a}/${b}/" $i > tmp_$$
  mv tmp_$$ $i
done