zhangyiss/feedgnuplot
1
0
Fork 0
mirror of https://github.com/dkogan/feedgnuplot.git synced 2025-05-05 22:11:12 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

I explicitly ignore all lines that have '-' values

Browse Source 
These may come from vnl-filter -p "dx=diff(x)" ... output. For instance, this
plot is broken before this patch:

  (echo '# x'; seq 5) | vnl-filter --noskipempty -p 'd=diff(x)' \
  | feedgnuplot --lines
This commit is contained in:
Dima Kogan 2024-01-27 17:00:16 -08:00
parent db4fdcb933
commit 96ac271cda
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Changes
View File

@ -1,3 +1,14 @@
feedgnuplot (1.62)
* I explicitly ignore all lines that have '-' values
These may come from vnl-filter -p "dx=diff(x)" ... output. For instance, this
plot is broken before this patch:
(echo '# x'; seq 5) | vnl-filter --noskipempty -p 'd=diff(x)' \
| feedgnuplot --lines
-- Dima Kogan <dkogan@debian.org> Sat, 27 Jan 2024 17:01:18 -0800
feedgnuplot (1.61) feedgnuplot (1.61)
* #! line uses /usr/bin/env to work with nonstandard installations * #! line uses /usr/bin/env to work with nonstandard installations

8
bin/feedgnuplot
View File

@ -16,7 +16,7 @@ use Pod::Usage;
use Time::Piece; use Time::Piece;
# Makefile.PL assumes this is in '' # Makefile.PL assumes this is in ''
my $VERSION = '1.61'; my $VERSION = '1.62';
my %options; my %options;
interpretCommandline(); interpretCommandline();
@ -780,6 +780,12 @@ sub mainThread
$options{curvestyleall} = "with circles $options{curvestyleall}"; $options{curvestyleall} = "with circles $options{curvestyleall}";
} }
# Required to ignore all lines that have '-' values, such as may come from
# vnl-filter -p "dx=diff(x)" ... output. For instance, this plot is broken
# without this extra line:
# (echo '# x'; seq 5) | vnl-filter --noskipempty -p 'd=diff(x)' | ./feedgnuplot --lines
print PIPE "set datafile missing \"-\"\n";
print PIPE "set style data $style\n" if $style; print PIPE "set style data $style\n" if $style;
print PIPE "set grid\n"; print PIPE "set grid\n";