mirror of
https://github.com/dkogan/feedgnuplot.git
synced 2025-05-05 22:11:12 +08:00
driveGnuPlots can dump its output to stdout for debugging
Ignore-this: 209901071caa48bd58c68edd1fae9eaf darcs-hash:20090915232513-0cb85-1fe5f99c0825a0ecb48f554b266717140a0f1a36.gz
This commit is contained in:
parent
3e6fabaf97
commit
aed7b353ea
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user