#!/bin/sh

echo
echo ' n2o> create Tcl-7.6 compatible tcl scripts'
echo ' n2o> to be used when a namespace error occured' 
echo ' n2o> -----------------------------------------'

rm ref_targ.old.tcl
rm conv_coord.old.tcl
rm conv_mc.old.tcl
rm conv_wc.old.tcl
rm mxu_class.old.tcl 
rm old.makefile
rm fims.old.tcl 
rm statuspanel.old.tcl

sed 's/namespace eval fors/namespace fors/g' ref_targ.tcl   > ref_targ.old.tcl
echo ' n2o> ref_targ.tcl   > ref_targ.old.tcl' 
sed 's/namespace eval fors/namespace fors/g' conv_coord.tcl > conv_coord.old.tcl
echo ' n2o> conv_coord.tcl > conv_coord.old.tcl'
sed 's/namespace eval fors/namespace fors/g' conv_mc.tcl    > conv_mc.old.tcl
echo ' n2o> conv_mc.tcl    > conv_mc.old.tcl'  
sed 's/namespace eval fors/namespace fors/g' conv_wc.tcl    > conv_wc.old.tcl
echo ' n2o> conv_wc.tcl    > conv_wc.old.tcl'  
sed 's/namespace eval fors/namespace fors/g' mxu_class.tcl  > mxu_class.old.tcl 
echo ' n2o> mxu_class.tcl  > mxu_class.old.tcl' 
sed 's/namespace eval fors/namespace fors/g' statuspanel.tcl  > statuspanel.old.tcl 
echo ' n2o> statuspanel.tcl> statuspanel.old.tcl' 

sed 's/namespace eval fors/namespace fors/
s/itcl::find objects/info objects/' fims.tcl   > fims.old.tcl
echo ' n2o>     fims.tcl   > fims.old.tcl'     

sed 's/cp fims.tcl/cp fims.old.tcl/
s/cp ref_targ.tcl/cp ref_targ.old.tcl/
s/cp mxu_class.tcl/cp mxu_class.old.tcl/
s/cp conv_coord.tcl/cp conv_coord.old.tcl/
s/cp statuspanel.tcl/cp statuspanel.old.tcl/
s/cp conv_mc.tcl/cp conv_mc.old.tcl/
s/cp conv_wc.tcl/cp conv_wc.old.tcl/' makefile > old.makefile
echo ' n2o> makefile       > old.makefile' 
echo
echo "continue with:"
echo "make -f old.makefile p"