612 | 612 |
terminal options as an argument list.
|
613 | 613 |
|
614 | 614 |
The routine C<PDL::Graphics::Gnuplot::terminfo> prints a list of all
|
615 | |
availale terminals or, if you pass in a terminal name, options accepted
|
|
615 |
available terminals or, if you pass in a terminal name, options accepted
|
616 | 616 |
by that terminal.
|
617 | 617 |
|
618 | 618 |
|
|
1951 | 1951 |
our $debug_echo = 0; # If set, mock up Losedows half-duplex pipes
|
1952 | 1952 |
|
1953 | 1953 |
|
1954 | |
our $VERSION = '2.004';
|
|
1954 |
our $VERSION = '2.005';
|
1955 | 1955 |
$VERSION = eval $VERSION;
|
1956 | 1956 |
|
1957 | 1957 |
our $gp_version = undef; # eventually gets the extracted gnuplot(1) version number.
|
|
5755 | 5755 |
if( $words[0] =~ s/\"?(\#[0-9a-fA-F]{6})\"?/\"$1\"/ ) {
|
5756 | 5756 |
$s .= " rgb " unless($s =~ m/rgb/);
|
5757 | 5757 |
$s .= " ".join(" ",@words);
|
5758 | |
print "returning '$s' from colorspec parser\n";
|
5759 | 5758 |
return $s;
|
5760 | 5759 |
}
|
5761 | 5760 |
elsif($PDL::Graphics::Gnuplot::colornames->{lc($words[0])}) {
|
|
6828 | 6827 |
|
6829 | 6828 |
$s .= "\n\n FILE TERMINALS\n";
|
6830 | 6829 |
for my $k(sort keys %$termTab) {
|
|
6830 |
next unless($this->{valid_terms}->{$k});
|
6831 | 6831 |
next if($termTab->{$k}->{int} || $termTab->{$k}->{mouse});
|
6832 | 6832 |
$s .= sprintf(" %10.10s: %s %s\n",$k," ", $termTab->{$k}->{desc});
|
6833 | 6833 |
}
|
|
7393 | 7393 |
_logEvent($this, "Trying to read from gnuplot (suffix $suffix)") if $this->{options}{tee};
|
7394 | 7394 |
|
7395 | 7395 |
my $terminal =$this->{options}->{terminal};
|
7396 | |
my $delay = (_def($this->{'wait'}, 0) + 0) || 5;
|
|
7396 |
my $delay = (_def($this->{'wait'}, 0) + 0) || 10;
|
7397 | 7397 |
|
7398 | 7398 |
if($this->{"echobuffer-$suffix"}) {
|
7399 | 7399 |
$fromerr = $this->{"echobuffer-$suffix"};
|
|
7474 | 7474 |
|
7475 | 7475 |
# Find, report, and strip warnings. This is complicated by the fact
|
7476 | 7476 |
# that some warnings come with a line specifier and others don't.
|
|
7477 |
|
7477 | 7478 |
WARN: while( $fromerr =~ m/^(\s*(line \d+\:\s*)?[wW]arning\:.*)$/m ) {
|
7478 | 7479 |
if($2){
|
7479 | 7480 |
# it's a warning with a line specifier. Break off two more lines before it.
|
|
7486 | 7487 |
print STDERR "Gnuplot w$3\n" if($printwarnings);
|
7487 | 7488 |
}
|
7488 | 7489 |
|
7489 | |
}
|
|
7490 |
}
|
7490 | 7491 |
|
7491 | 7492 |
# Anything else is an error -- except on Microsoft Windows where we
|
7492 | 7493 |
# get additional chaff on the channel. Try to take it out.
|
7493 | 7494 |
if($MS_io_braindamage) {
|
7494 | 7495 |
$fromerr =~ s/^\s*Terminal type set to \'[^\']*\'.*Options are \'[^\']*\'//s;
|
|
7496 |
} else {
|
|
7497 |
# Hack to avoid spurious the pdfcairo errors in MacOS 10.5 - strip out obsolete-function errors.
|
|
7498 |
while( $fromerr =~ s/^.*obsolete\s*function.*system\s*performance.\s*//o ) {
|
|
7499 |
# do nothing
|
|
7500 |
}
|
7495 | 7501 |
}
|
7496 | 7502 |
|
7497 | 7503 |
if((!$ignore_errors) and (($fromerr =~ m/^\s+\^\s*$/ms or $fromerr=~ m/^\s*line/ms) or
|
|
7510 | 7516 |
# strip whitespace
|
7511 | 7517 |
$fromerr =~ s/^\s*//s;
|
7512 | 7518 |
$fromerr =~ s/\s*$//s;
|
7513 | |
|
7514 | 7519 |
return $fromerr;
|
7515 | 7520 |
} else {
|
7516 | 7521 |
# dumping - never generate an error.
|