#!/bin/sh

# xdviの問題2つを解消するスクリプト
# (1) xdviがPS描画に使っている/executeがgs9.27でなくなった
# (2) -gsalphaを指定しないとPS描画が以前のページのと重なる
# 本来のxdviが/usr/binにあると仮定している

if [ X"$__XDVI_IS_GS" = Xt ]; then
	exec perl -e '
		pipe(RD, WR) && defined($pid = fork) || die "$0: $!\n";
		if($pid){
			close(WR); open(STDIN, "<&RD"); close(RD);
			exec {"gs"} "gs", @ARGV;
			die "$0: $!\n";
		} else {
			close(RD); open(STDOUT, ">&WR"); close(WR); $| = 1;
			print <<'\''EOF'\'';
				/execute {		% <obj> execute -
				  stopped $error /newerror get and
				   { /handleerror .systemvar exec flush //true }
				   { //false } ifelse pop
				} bind def
EOF
			exec "cat";
			exit;
		}
	' -- "$@"
fi

__XDVI_IS_GS=t; export __XDVI_IS_GS
exec /usr/bin/xdvi -gsalpha -interpreter "$0" "$@"