#!/bin/csh
swig-v1.3.17 -c++ -perl mpfc.i
./cn mpfc_wrap.cxx
mv mpfc.pm x;cat x | \
    sed -e '1,2s/mpfc/mpfc_perl/' \
        -e '1,11s/bootstrap mpfc/bootstrap mpfc_perl/' \
    > mpfc.pm
/bin/rm -f x
mv mpfc_wrap.cxx mpfc_wrap.cpp1

swig-v1.3.17 -DMSW -c++ -perl mpfc.i
./cn mpfc_wrap.cxx
mv mpfc.pm x;cat x | \
    sed -e '1,2s/mpfc/mpfc_perl/' \
        -e '1,11s/bootstrap mpfc/bootstrap mpfc_perl/' \
    > mpfc.pm
#mv mpfc.pm x;cat x | sed 's/mpfc/mpfc_perl/' > mpfc.pm
/bin/rm -f x
mv mpfc_wrap.cxx mpfc_wrap.cpp2

#echo Please copy mpfc_wrap.cpp1 to ../mpfc_wrap.cpp1
#echo Please copy mpfc_wrap.cpp2 to ../mpfc_wrap.cpp2
#echo Please copy mpfc.pm to ../mpfc.pm
mv -f mpfc_wrap.cpp1 ..
mv -f mpfc_wrap.cpp2 ..
mv -f mpfc.pm ..
