y extents are optional

Ignore-this: 809894afece147f868685c0bbeaac9f5

darcs-hash:20090810200439-0cb85-a14ece790280871a4ff71949502d1c9ae0548232.gz
This commit is contained in:
Dima Kogan 2009-08-10 13:04:39 -07:00
parent 1d33ed48bb
commit 7a3ca33118

View File

@ -14,7 +14,11 @@ my @curves = ();
# point plotting by default # point plotting by default
my %options = ( "stream" => 1, my %options = ( "stream" => 1,
"points" => 0, "points" => 0,
"lines" => 0,); "lines" => 0,
"ymin" => "",
"ymax" => "",
"y2min" => "",
"y2max" => "");
GetOptions(\%options, GetOptions(\%options,
"stream!", "stream!",
"lines!", "lines!",
@ -66,18 +70,6 @@ sub main {
usage; usage;
return; return;
} }
if( defined $options{"ymin"} && !defined $options{"ymax"} ||
!defined $options{"ymin"} && defined $options{"ymax"} )
{
usage;
die("Both or neither of ymin,ymax should be specified\n");
}
if( defined $options{"y2min"} && !defined $options{"y2max"} ||
!defined $options{"y2min"} && defined $options{"y2max"} )
{
usage;
die("Both or neither of y2min,y2max should be specified\n");
}
if( defined $options{"hardcopy"} && $options{"stream"} ) if( defined $options{"hardcopy"} && $options{"stream"} )
{ {
usage; usage;