Script to format HOWTO documents. Currently only tested on the "Using

Kerberos from Python" HOWTO (this will change shortly, I hope).

This needs to be run from it's location in the Doc/tools directory, and
not via a symlink.  I'll try and fix this in the future.

The help message needs work.

diff --git a/Doc/tools/mkhowto.sh b/Doc/tools/mkhowto.sh
new file mode 100755 (executable)
index 0000000..97d3cf9
--- /dev/null
+++ b/Doc/tools/mkhowto.sh
@@ -0,0 +1,122 @@
+#! /depot/gnu/plat/bin/bash
+
+MYDIR=`dirname $0`
+
+# DEFAULT_FORMAT must be upper case...
+DEFAULT_FORMAT=PDF
+USE_DEFAULT_FORMAT=true
+
+# This is needed to support kpathsea based TeX installations.  Others are
+# not supported.  ;-)
+TEXINPUTS=$MYDIR/../texinputs:
+export TEXINPUTS
+
+usage() {
+    echo "usage: $0 [options...] file ..."
+    exit 2
+}
+
+build_html() {
+    # This doesn't work; l2hinit.perl uses the current directory, not it's own
+    # location.  Need a workaround for this.
+    if [ "$ADDRESS" ] ; then
+       latex2html -init_file $MYDIR/../perl/l2hinit.perl -address "$ADDRESS" \
+        $1 || exit $?
+    else
+       latex2html -init_file $MYDIR/../perl/l2hinit.perl $1 || exit $?
+    fi
+    (cd $FILE; $MYDIR/node2label.pl *.html) || exit $?
+}
+
+build_dvi() {
+    latex $1 || exit $?
+    if [ -f $1.idx ] ; then
+       `dirname $0`/fix_hack $1.idx || exit $?
+       makeindex $1.idx || exit $?
+    fi
+    latex $1 || exit $?
+}
+
+build_ps() {
+    dvips -N0 -f $1 >$1.ps || exit $?
+}
+
+build_pdf() {
+    # We really have to do it three times to get all the page numbers right,
+    # since the length of the ToC makes a real difference.
+    pdflatex $1 || exit $?
+    pdflatex $1 || exit $?
+    `dirname $0`/toc2bkm.py -c section $FILE || exit $?
+    if [ -f $1.idx ] ; then
+       `dirname $0`/fix_hack $1.idx || exit $?
+       makeindex $1.idx || exit $?
+    fi
+    pdflatex $1 || exit $?
+}
+
+# figure out what our targets are:
+while [ "$1" ] ; do
+    case "$1" in
+       --pdf|--pd)
+           BUILD_PDF=true
+           USE_DEFAULT_FORMAT=false
+           shift 1
+           ;;
+       --ps)
+           BUILD_PS=true
+           USE_DEFAULT_FORMAT=false
+           shift 1
+           ;;
+       --dvi|--dv|--d)
+           BUILD_DVI=true
+           USE_DEFAULT_FORMAT=false
+           shift 1
+           ;;
+       --html|--htm|--ht|--h)
+           BUILD_HTML=true
+           USE_DEFAULT_FORMAT=false
+           shift 1
+           ;;
+       -a|--address|--addres|--addre|-addr|--add|--ad|--a)
+           ADDRESS="$2"
+           shift 2
+           ;;
+       -*)
+           usage
+           ;;
+       *)
+           break;;
+    esac
+done
+
+if [ $# = 0 ] ; then
+    usage
+fi
+
+if [ $USE_DEFAULT_FORMAT = true ] ; then
+    eval "BUILD_$DEFAULT_FORMAT=true"
+fi
+
+for FILE in $@ ; do
+    FILE=${FILE%.tex}
+    if [ "$BUILD_DVI" -o "$BUILD_PS" ] ; then
+       build_dvi $FILE
+    fi
+    if [ "$BUILD_PDF" ] ; then
+       build_pdf $FILE
+    fi
+    if [ "$BUILD_PS" ] ; then
+       build_ps $FILE
+    fi
+    if [ "$BUILD_HTML" ] ; then
+       if [ ! "$BUILD_DVI" -o ! "$BUILD_PDF" ] ; then
+           # need to get aux file
+           build_dvi $FILE
+       fi
+       build_html $FILE
+    fi
+    rm -f $FILE.aux $FILE.log $FILE.out $FILE.toc $FILE.bkm
+    if [ ! "$BUILD_DVI" ] ; then
+       rm -f $FILE.dvi
+    fi
+done