#!/bin/csh -f
#Jinsung 1995.7.1.
unset echo

if ( $#argv < 2 || $#argv > 2 ) then
   echo "Usage: $0 listfile Targetfile"
   exit 1
endif

if(! -f $1 ) then
   echo "   Error : Can't find file name '$1'. "
   exit 1
endif

set file=(`cat $1`);

if( -f $2.out ) then
  echo " $2.out exist"
  exit 1
endif

cp $2 $2.out

echo "#\!/bin/csh" > $1.com
echo "vi $2.out << \! >& /dev/null" >> $1.com

@ i=1;
while($i<= $#file)
   echo -n ":%s/$file[$i]" >> $1.com
   @ i++
   echo "/$file[$i]/g" >> $1.com
   @ i++
end

echo ":wq" >> $1.com
echo "\!" >> $1.com
chmod 755 $1.com