#!/bin/sh

while true
do
	case "$1" in
	-?*) OPTIONS="$OPTIONS $1" ;;
	*)  break ;;
	esac
	shift
done

infile="$1";

if [ $# -eq 1 ]
then
        case "${infile}" in
	  -)            tempfile=- ;;
	  *.txt)        base=`basename "${infile}" .txt`; tempfile=" -o ${base}" ;;
	  *.tex)        base=`basename "${infile}" .tex`; tempfile=" --delegate=no -o ${base}" ;;
	  *)            base=`basename "${infile}"`; tempfile=" -o ${base}" ;;
	esac
else
	tempfile="$2"
fi

a2ps ${OPTIONS} ${infile} ${tempfile}.ps

## for ps2pdf
perl -pi -e 's@^\(\) @\( \) @; s@ \(\) S$@@; s@\(\) @\( \) @g' ${base}.ps
ps2pdf14 -sPAPERSIZE=a4 ${base}.ps
#rm -f ${base}.ps
