#!/bin/sh
pname=`basename "$0"`
g=/usr/share/local/xml/gellmu
grep=grep
nsgmls=onsgmls
SP_CHARSET_FIXED="1"
SP_ENCODING="UTF-8"
export SP_CHARSET_FIXED SP_ENCODING
PERL5LIB="$g/perllib"
export PERL5LIB
fname=""
stem=""
if [ -r "${1}.xml" ] ; then
  stem="${1}"
  fname="${1}.xml"
elif [ -r "${1}" ] ; then
  fname="${1}"
  stem="`echo ${1} | sed -e 's/\.xml//'`"
else
  echo "${pname}:  Can read neither ${1}.xml nor ${1}"
  exit
fi
shift
$nsgmls -l -oempty -wxml -c "$g/xml/ocatalog" "$fname" | \
       perl $g/perllib/sgmlspl.pl "$@"
