driveGnuPlots can dump its output to stdout for debugging

Ignore-this: 209901071caa48bd58c68edd1fae9eaf

darcs-hash:20090915232513-0cb85-1fe5f99c0825a0ecb48f554b266717140a0f1a36.gz
This commit is contained in:
Dima Kogan 2009-09-15 16:25:13 -07:00
parent 3e6fabaf97
commit aed7b353ea

View File

@ -40,7 +40,8 @@ GetOptions(\%options,
"y2max=f", "y2max=f",
"y2=i@", "y2=i@",
"hardcopy=s", "hardcopy=s",
"help"); "help",
"dump");
# set up plotting style # set up plotting style
my $style = ""; my $style = "";
@ -108,7 +109,14 @@ sub mainThread {
my $dopersist = ""; my $dopersist = "";
$dopersist = "--persist" if(!$options{"stream"}); $dopersist = "--persist" if(!$options{"stream"});
open PIPE, "|gnuplot $dopersist" || die "Can't initialize gnuplot\n"; if(exists $options{"dump"})
{
*PIPE = *STDOUT;
}
else
{
open PIPE, "|gnuplot $dopersist" || die "Can't initialize gnuplot\n";
}
autoflush PIPE 1; autoflush PIPE 1;
my $temphardcopyfile; my $temphardcopyfile;