#!/usr/bin/perl
#
#NAME
#  MissingPS -
#
#SYNOPSIS
#  MissingPS [file]..
#
#DESCRIPTION
#  List the *.abc files for which there is no matching *.ps file.
#
#OPTIONS
#
#EXAMPLES
#
#FILES
#
#BUGS
#
#SEE ALSO
#
#AUTHOR
#  John Chambers <jc@trillian.mit.edu>

$| = 1;
($P = $0) =~ s".*/"";
$V = $ENV{"V_$P"} || 1;

for $abc (<*.abc>) {
	($base = $abc) =~ s/\.abc$//;
	$ps = "$base.ps";
	print "$base\n" unless -f $ps;
}