#!/bin/csh -f

set tempscript = /tmp/subdivide.awk.$user.$$
set tempfile = /tmp/subdivide.inp.$user.$$

if ($#argv < 1) then
  echo "Usage: subdivide file [pattern fileroot ...]"
  exit (1)
endif

set basefile = `echo $1 | sed 's+^\([^/]\)+./\1+'`
set ext = $basefile:e

cp $basefile $tempfile
del $basefile:h $basefile:t

echo 'BEGIN {outfile = "'"$1"'"}' > $tempscript
shift
while ($#argv > 0)
  if ($#argv < 2) then
    echo "Usage: subdivide file [pattern file ...]"
    exit (2)
  endif
  echo /"$1"/ '{outfile = "'"$2.$ext"'"}' >> $tempscript
  shift; shift
end
echo '{print > outfile}' >> $tempscript

awk -f $tempscript $tempfile

\rm -r $tempscript $tempfile