#! /usr/bin/perl
#
# Include new and DESTROY function for the given class

my $classtop = shift(@ARGV) || die "Usage: $0 class\n";
my $class = $classtop . "Plotter";

my $xsub =<<'END'; 

MODULE = Graphics::Plotter		PACKAGE = Graphics::Plotter::$classtop

$class *
$class::new(infile = 0, outfile = 0, errfile = 0)
   CASE: items == 1
	CODE:
	RETVAL = new $class();
	OUTPUT:
	RETVAL
   CASE: items == 2
	FILE	*	infile;
	CODE:
	RETVAL = new $class(infile);
	OUTPUT:
	RETVAL
   CASE: items == 3
	CODE:
	croak("Usage: $class::new([outfile = STDOUT]|[infile, outfile, errfile])");
   CASE: items == 4
	FILE	*	infile;
	FILE	*	outfile;
	FILE	*	errfile;
	CODE:
	RETVAL = new $class(infile, outfile, errfile);
	OUTPUT:
	RETVAL

void
$class::DESTROY()

END

$xsub =~ s/\$classtop/$classtop/g;
$xsub =~ s/\$class/$class/g;

print $xsub;