#ident	"%Z%%M%	%I%	%E% SMI"	/* SVr4.0 1.7	*/
#
# CDDL HEADER START
#
# The contents of this file are subject to the terms of the
# Common Development and Distribution License, Version 1.0 only
# (the "License").  You may not use this file except in compliance
# with the License.
#
# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
# or http://www.opensolaris.org/os/licensing.
# See the License for the specific language governing permissions
# and limitations under the License.
#
# When distributing Covered Code, include this CDDL HEADER in each
# file and include the License file at usr/src/OPENSOLARIS.LICENSE.
# If applicable, add the following below this CDDL HEADER, with the
# fields enclosed by brackets "[]" replaced with your own identifying
# information: Portions Copyright [yyyy] [name of copyright owner]
#
# CDDL HEADER END
#

###########
##
## Simple shell script that saves the Spooler alot of headaches.
## This routine invokes a slow filter on each of the files in a
## user's print request, sending the output to separate files.
## The Spooler will take ANYTHING that goes to standard error
## and give it to the user. Non-empty standard error or non-zero
## exit code cause cancellation of the print request.
##
## Calling sequence:
##
##	slow.filter prefix file1 file2 ... fileN
##
## "prefix" is prefix of full path name for output files. All we
## do is append a ``-k'' for k = 1, 2, ..., N.
##########

#####
#
# Most of the time we don't want the standard error to be captured
# by the Spooler, mainly to avoid "Terminated" messages that the
# shell puts out when we get a SIGTERM. We'll save the standard
# error channel under another number, so we can use it when it
# should be captured.
#####
exec 5>&2 2>/dev/null

#####
# Error message formatter:
#
# Invoke as
#
#	errmsg severity message-number problem help
#
# where severity is "ERROR" or "WARNING", message-number is
# a unique identifier, problem is a short description of the
# problem, and help is a short suggestion for fixing the problem.
#####

LP_ERR_LABEL="UX:lp"

E_IP_ARGS=1
E_IP_OPTS=2
E_IP_FILTER=3
E_IP_STTY=4
E_IP_UNKNOWN=5
E_IP_BADFILE=6
E_IP_BADCHARSET=7
E_IP_BADCPI=8
E_IP_BADLPI=9
E_IP_BADWIDTH=10
E_IP_BADLENGTH=11
E_IP_ERRORS=12

errmsg () {
	case $1 in
	ERROR )
		sev="  ERROR";
		;;
	WARNING )
		sev="WARNING";
		;;
	esac
#	tag=`expr "${LP_ERR_LABEL}" : "\(.*\):"``expr "${LP_ERR_LABEL}" : ".*:\(.*\)"`
	echo "${LP_ERR_LABEL}: ${sev}: $3
        TO FIX: $4" >&5
}

prefix=$1
shift

k=1
for file in "$@"
do
	if [ ! -r "${file}" ]
	then
		errmsg ERROR ${E_IP_BADFILE} \
			"Cannot read the file \"${file}\"." \
			"See if it still exists and is readable, or
		consult your system administrator."
	else
		0<${file} 1>${prefix}-${k} eval "2>&5 ${FILTER}" || {
			exit_code=$?
			while [ 127 -lt "${exit_code}" ]
			do
				exit_code=`expr "${exit_code}" - 128`
			done
			exit ${exit_code}
		}
	fi
	k=`expr "${k}" + 1`
done