#!/bin/sh
set -e

PATH=/usr/lib/debiandoc-sgml/bin:$PATH
export PATH

[ "$DEBIANDOCSGMLSPEC" ] || DEBIANDOCSGMLSPEC=/usr/lib/debiandoc-sgml/spec
export DEBIANDOCSGMLSPEC
PERL5LIB=/usr/lib/debiandoc-sgml/spec:$PERL5LIB
export PERL5LIB

usageversion () {
	cat >&2 <<'END'
debiandoc2texinfo version 1.1

Copyright (C) 1998 Ardo van Rangelrooij
Copyright (C) 1996 Ian Jackson

This is free software; see the GNU General Public Licence
version 2 or later for copying conditions.  There is NO warranty.

usage: debiandoc2texinfo [options] <filename>.sgml
options:  -k      keep intermediate files
          -O      send output to stdout instead of <filename>.texinfo
END
}

usageerror () { echo >&2 "debiandoc2texinfo: $@"; exit 2; }

keep=false
stdout=false

while [ $# != 0 ]
do
	case "$1" in
	-k)	keep=true	;;
	-O)	stdout=true	;;
	-?*)	usageerror "unknown option \`$1'" ;;
	--)	shift; break	;;
	*)	break		;;
	esac
	shift
done

[ $# = 1 ] || usageerror "need exactly one input filename"

case "$1" in
-)	nsgmlsi="-"
	stdout=true
	$stdout || usageerror "stdin not allowed with debiandoc2texinfo"
	! $keep || usageerror "-k not allowed with input from stdin"
	;;
-?*)	nsgmlsi="./$1"
	bn="`basename \"$1\" .sgml`"
	;;
*)	nsgmlsi="$1"
	bn="`basename \"$1\" .sgml`"
	;;
esac

case "$bn" in -*) bn="./$bn" ;; esac

tf1="$bn.sasp"
tf2="$bn.sasp-texinfo"
tf3="$bn.sasp-texinfo2"

nsgmls -l "$nsgmlsi" >"$tf1"
saspconvert opt <"$tf1" >"$tf2"
saspconvert2 . <"$tf2" >"$tf3"
$stdout || exec >"$bn.texinfo"
sgmlspl "$DEBIANDOCSGMLSPEC"/texinfo "" <"$tf3"

if ! $keep
then
	rm -f $tf1 $tf2 $tf3
fi
