home *** CD-ROM | disk | FTP | other *** search
- #!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
-
-