#!c:sksh

# by WB
# convert autodocs to prototypes

local tmpfile, outfile, files

tmpfile="t:tmp.auto2proto"

if [ $# = 0 ]
then files=`echo man:2/auto2/*.doc`
else files=`echo $*`
fi

[ ! -d error ] && mkdir error

for i in $files
do
  filebase=`Basename $i .doc`
  outfile="proto/$filebase.h"
  gawk -f auto "stderr=error/$filebase" $i >$tmpfile
#  echo "1,\$s/\^\t//\n1,\$s/\^ *//\nw" | ked $tmpfile >nil:
  cat $tmpfile
  rm $tmpfile
done

