Compare commits

..

24 Commits

Author SHA1 Message Date
Dima Kogan
c6ad42fa3c version bump 2021-02-03 14:51:17 -08:00
Dima Kogan
12d148f258 Merge branch 'master' into debian 2021-02-03 14:50:55 -08:00
Dima Kogan
fce0b9bb99 version bump 2021-02-03 14:49:06 -08:00
Dima Kogan
47957cfed6 changelog bump 2021-02-03 14:42:22 -08:00
Dima Kogan
bb9220ea97 updated default hardcopy settings 2021-02-03 14:41:28 -08:00
Dima Kogan
099ef33843 fixed typo in docs 2021-01-11 15:12:06 -08:00
Dima Kogan
b2c57797a7 ping example doesn't use -A
There's just no reason for that at all
2020-11-13 20:48:32 -08:00
Dima Kogan
bfc12f82a0 changelog bump 2020-07-20 15:55:17 -07:00
Dima Kogan
09d2000bec Merge branch 'master' into debian 2020-07-20 15:54:38 -07:00
Dima Kogan
c8dac15db3 version bump 2020-07-20 15:51:49 -07:00
Dima Kogan
4244299169 Revert "Removed reference to no-longer-existing variable"
This reverts commit 7e1e6af184.

This commit did nothing other than introduce a bug. --style is supposed to
override --with, but after this commit, --style was ADDED to --with, which is
wrong
2020-07-20 15:47:32 -07:00
Dima Kogan
4234c94737 minor documentation update 2020-05-19 08:59:56 -07:00
Dima Kogan
154377691c minor documentation update 2020-05-19 08:54:01 -07:00
Dima Kogan
0c209a8a2a changelog bump 2020-04-17 14:21:17 -07:00
Dima Kogan
04f966ea17 Merge branch 'master' into debian 2020-04-17 14:19:49 -07:00
Dima Kogan
bdb9919c39 documented --every 2020-04-17 14:18:09 -07:00
Dima Kogan
4e85f991c4 version bump 2020-04-17 14:07:08 -07:00
Dima Kogan
2e6c9d6ea3 added tab completions for --every and --everyall 2020-04-17 14:06:10 -07:00
Dima Kogan
c4eef7a167 --timefmt can be used with --histogram 2020-04-17 14:01:17 -07:00
Dima Kogan
7e1e6af184 Removed reference to no-longer-existing variable 2020-03-06 22:16:07 -08:00
Dima Kogan
e9c9ff02e4 Minor no-op refactoring 2020-03-06 22:16:07 -08:00
Dima Kogan
2f9a6acdb3 Minor no-op refactoring
The ID->curve hash %curveIndices is now called $curveFromID, and now gives you a
curve reference, not an index to @curves

I can thus reorder @curves as I like, and %curveFromID remains valid
2020-03-06 22:14:40 -08:00
Dima Kogan
5e0869dc25 Added support for --every and --everyall
Needs documentation, tab completion
2020-01-24 19:24:02 -08:00
Dima Kogan
592ce20d1f readme update
github had a bug where it wouldn't render symlinks to embedded POD. Is this
still broken?
2020-01-08 21:20:50 -08:00
6 changed files with 156 additions and 42 deletions

20
Changes
View File

@@ -1,3 +1,23 @@
feedgnuplot (1.56) unstable; urgency=medium
* Updated default hardcopy settings
-- Dima Kogan <dkogan@debian.org> Wed, 03 Feb 2021 14:42:15 -0800
feedgnuplot (1.55)
* Fixed regression introduced in 1.54:
--style now correctly overrides --with
-- Dima Kogan <dkogan@debian.org> Mon, 20 Jul 2020 15:51:23 -0700
feedgnuplot (1.54)
* Added --every and --everyall to decimate the input data
* --timefmt can be used with --histogram
-- Dima Kogan <dkogan@debian.org> Fri, 17 Apr 2020 14:06:55 -0700
feedgnuplot (1.53) feedgnuplot (1.53)
* Full support for all 4 axes. Added --x2... * Full support for all 4 axes. Added --x2...

View File

@@ -62,6 +62,7 @@ Simple plotting of piped data:
2 +-----------------------------------------------------------------+ 0 2 +-----------------------------------------------------------------+ 0
1 1.5 2 2.5 3 3.5 4 4.5 5 1 1.5 2 2.5 3 3.5 4 4.5 5
Here we asked for ASCII plotting, which is useful for documentation.
Simple real-time plotting example: plot how much data is received on the wlan0 Simple real-time plotting example: plot how much data is received on the wlan0
network interface in bytes/second (uses bash, awk and Linux): network interface in bytes/second (uses bash, awk and Linux):
@@ -524,10 +525,10 @@ plot I<only> histograms or I<only> I<non>-histograms.
=item =item
C<--xmin/xmax/ymin/ymax/y2min/y2max/zmin/zmax xxx> C<--xmin/xmax/x2min/x2max/ymin/ymax/y2min/y2max/zmin/zmax xxx>
Set the range for the given axis. These x-axis bounds are ignored in a streaming Set the range for the given axis. These x-axis bounds are ignored in a streaming
plot. The y2-axis bound do not apply in 3d plots. The z-axis bounds apply plot. The x2/y2-axis bounds do not apply in 3d plots. The z-axis bounds apply
I<only> to 3d plots or colormaps. Note that there is no C<--xrange> to set both I<only> to 3d plots or colormaps. Note that there is no C<--xrange> to set both
sides at once or C<--xinv> to flip the axis around: anything more than the sides at once or C<--xinv> to flip the axis around: anything more than the
basics supported in this option is clearly obtainable by talking to gnuplot, for basics supported in this option is clearly obtainable by talking to gnuplot, for
@@ -535,23 +536,29 @@ instance C<--set 'xrange [20:10]'> to set the given inverted bounds.
=item =item
C<--xlabel/ylabel/y2label/zlabel xxx> C<--xlabel/x2label/ylabel/y2label/zlabel xxx>
Label the given axis. The y2-axis label does not apply to 3d plots while the Label the given axis. The x2/y2-axis labels do not apply to 3d plots while the
z-axis label applies I<only> to 3d plots. z-axis label applies I<only> to 3d plots.
=item =item
C<--y2 xxx> C<--x2/--y2/--x1y2/--x2y1/--x2y2 xxx>
Plot the data specified by this curve ID on the y2 axis. Without C<--dataid>, By default data is plotted against the x1 and y1 axes (the left and bottom one
the ID is just an ordered 0-based index. Does not apply to 3d plots. Can be respectively). If we want a particular curve plotted against a different axis,
passed multiple times, or passed a comma-separated list. By default the y2-axis we can specify that with these options. You pass C<--AXIS ID> where C<AXIS>
curves look the same as the y-axis ones. I.e. the viewer of the resulting plot defines the axis (C<x2> or C<y2> or C<x1y2> or C<x2y1> or C<x2y2>) and the C<ID>
has to be told which is which via an axes label, legend, etc. Prior to version is the curve ID. C<--x2> is a synonym for C<--x2y1> and C<--y2> is a synonym for
1.25 of feedgnuplot the curves plotted on the y2 axis were drawn with a thicker C<--x1y2>. The curve ID is an ordered 0-based index or a specific ID if
line. This is no longer the case, but that behavior can be brought back by C<--dataid> or C<--vnlog>. None of these apply to 3d plots. Can be passed
passing something like multiple times for different curve IDs, multiple IDs can be passed in as a
comma-separated list. By default the curves plotted against the various axes
aren not drawn in any differentiated way: the viewer of the resulting plot has
to be told which is which via an axes label, legend, colors, etc. Prior to
version 1.25 of C<feedgnuplot> the curves plotted on the y2 axis were drawn with
a thicker line. This is no longer the case, but that behavior can be brought
back by passing something like
--y2 curveid --style curveid 'linewidth 3' --y2 curveid --style curveid 'linewidth 3'
@@ -634,6 +641,21 @@ Exclusive with C<--styleall>.
=item =item
C<--every curveID factor>
Decimates the input. Instead of plotting every point in the given curve, plot
one point per factor. This is useful to quickly process huge datasets. For
instance, to plot 1% of the data, pass a factor of 100.
=item
C<--everyallID factor>
Decimates the input. This works exactly like C<--every>, except it applies to
I<all> the curves.
=item
C<--extracmds xxx> C<--extracmds xxx>
Additional commands to pass on to gnuplot verbatim. These could contain extra Additional commands to pass on to gnuplot verbatim. These could contain extra

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.53'; my $VERSION = '1.56';
my %options; my %options;
interpretCommandline(); interpretCommandline();
@@ -31,8 +31,8 @@ interpretCommandline();
# datastring # datastring
my @curves = (); my @curves = ();
# list mapping curve names to their indices in the @curves list # Maps a curve ID to the corresponding curve
my %curveIndices = (); my %curveFromID = ();
# Whether any new data has arrived since the last replot # Whether any new data has arrived since the last replot
my $haveNewData; my $haveNewData;
@@ -90,6 +90,7 @@ sub interpretCommandline
$options{legend} = []; $options{legend} = [];
$options{curvestyle} = []; $options{curvestyle} = [];
$options{style} = []; $options{style} = [];
$options{every} = [];
$options{histogram} = []; $options{histogram} = [];
$options{x1y2} = []; $options{x1y2} = [];
$options{x2y1} = []; $options{x2y1} = [];
@@ -114,6 +115,7 @@ sub interpretCommandline
'zmin=f', 'zmax=f', 'zmin=f', 'zmax=f',
'x2=s@', 'y2=s@', 'x1y2=s@', 'x2y1=s@', 'x2y2=s@', 'x2=s@', 'y2=s@', 'x1y2=s@', 'x2y1=s@', 'x2y2=s@',
'style=s{2}', 'curvestyle=s{2}', 'curvestyleall=s', 'styleall=s', 'with=s', 'extracmds=s@', 'set=s@', 'unset=s@', 'style=s{2}', 'curvestyle=s{2}', 'curvestyleall=s', 'styleall=s', 'with=s', 'extracmds=s@', 'set=s@', 'unset=s@',
'every=s{2}', 'everyall=s',
'square!', 'square_xy!', 'square-xy!', 'squarexy!', 'hardcopy=s', 'maxcurves=i', 'monotonic!', 'timefmt=s', 'square!', 'square_xy!', 'square-xy!', 'squarexy!', 'hardcopy=s', 'maxcurves=i', 'monotonic!', 'timefmt=s',
'equation=s@', 'equation=s@',
'image=s', 'image=s',
@@ -178,7 +180,7 @@ sub interpretCommandline
@{$options{$listkey}} = map split('\s*,\s*', $_), @{$options{$listkey}} @{$options{$listkey}} = map split('\s*,\s*', $_), @{$options{$listkey}}
if defined $options{$listkey}; if defined $options{$listkey};
} }
for my $listkey (qw(curvestyle rangesize tuplesize)) for my $listkey (qw(curvestyle rangesize tuplesize every))
{ {
next unless defined $options{$listkey}; next unless defined $options{$listkey};
my @in = @{$options{$listkey}}; my @in = @{$options{$listkey}};
@@ -253,7 +255,7 @@ sub interpretCommandline
# arrays in order to preserve the ordering. I parse both of these into hashes # arrays in order to preserve the ordering. I parse both of these into hashes
# because those are useful to have later. After this I can access individual # because those are useful to have later. After this I can access individual
# legends with $options{legend_hash}{curveid} # legends with $options{legend_hash}{curveid}
for my $listkey (qw(legend curvestyle rangesize)) for my $listkey (qw(legend curvestyle rangesize every))
{ {
$options{"${listkey}_hash"} = {}; $options{"${listkey}_hash"} = {};
@@ -395,9 +397,9 @@ sub interpretCommandline
} }
else else
{ {
if ( $options{timefmt} && !$options{domain} ) if ( $options{timefmt} && !$options{domain} && !@{$options{histogram}} )
{ {
print STDERR "--timefmt makes sense only with --domain\n"; print STDERR "--timefmt makes sense only with --domain or --histogram\n";
exit -1; exit -1;
} }
@@ -647,11 +649,11 @@ sub mainThread
} }
my %terminalOpts = my %terminalOpts =
( eps => 'postscript noenhanced solid color enhanced eps', ( eps => 'postscript noenhanced solid color eps',
ps => 'postscript noenhanced solid color landscape 12', ps => 'postscript noenhanced solid color landscape 12',
pdf => 'pdfcairo noenhanced solid color font ",12" size 11in,8.5in', pdf => 'pdfcairo noenhanced solid color font ",12" size 8in,6in',
png => 'png noenhanced size 1280,1024', png => 'pngcairo noenhanced size 1024,768 transparent crop font ",12"',
svg => 'svg noenhanced', svg => 'svg noenhanced solid dynamic size 800,600 font ",14"',
gp => 'gp'); gp => 'gp');
if( !defined $options{terminal} && if( !defined $options{terminal} &&
@@ -812,6 +814,17 @@ sub mainThread
$options{curvestyle}[$idx*2 + 1]); $options{curvestyle}[$idx*2 + 1]);
} }
} }
if(@{$options{every}})
{
# @{$options{every}} is a list where consecutive pairs are (curveID,
# every).
my $n = scalar @{$options{every}}/2;
foreach my $idx (0..$n-1)
{
addEveryOption($options{every}[$idx*2 ],
$options{every}[$idx*2 + 1]);
}
}
addCurveOption($_, 'axes x1y2') foreach (@{$options{x1y2}}); addCurveOption($_, 'axes x1y2') foreach (@{$options{x1y2}});
addCurveOption($_, 'axes x2y1') foreach (@{$options{x2y1}}); addCurveOption($_, 'axes x2y1') foreach (@{$options{x2y1}});
@@ -989,8 +1002,8 @@ sub mainThread
} }
else else
{ {
$domain[0] = $line_number; $domain[0] = $line_number;
$domain0_numeric = makeDomainNumeric( $domain[0] ); $domain0_numeric = $line_number;
} }
my $id = -1; my $id = -1;
@@ -1143,7 +1156,7 @@ sub updateCurveOptions
my $histoptions = $curve->{histoptions} || ''; my $histoptions = $curve->{histoptions} || '';
my $usingoptions = ''; my $usingoptions = '';
if( $options{timefmt} ) if( $options{timefmt} && !$histoptions )
{ {
# with --timefmt I need an explicit 'using' specification. I specify the # with --timefmt I need an explicit 'using' specification. I specify the
# columns as 1:2:3..... I need the right number of columns (this is given # columns as 1:2:3..... I need the right number of columns (this is given
@@ -1156,7 +1169,7 @@ sub updateCurveOptions
} }
$curve->{options} = "$histoptions $usingoptions $titleoption $curve->{extraoptions}"; $curve->{options} = "$curve->{everyoptions} $histoptions $usingoptions $titleoption $curve->{extraoptions}";
} }
sub getCurve sub getCurve
@@ -1173,19 +1186,23 @@ sub getCurve
my ($id) = @_; my ($id) = @_;
if( !exists $curveIndices{$id} ) if( !exists $curveFromID{$id} )
{ {
push @curves, {# if we have a catch-all style and no specific style, use my $curve = {# if we have a catch-all style and no specific style, use
# the catch-all style # the catch-all style
extraoptions => (!exists $options{curvestyle_hash}{$id} && extraoptions => (!exists $options{curvestyle_hash}{$id} &&
exists $options{curvestyleall}) ? exists $options{curvestyleall}) ?
"$options{curvestyleall} " : ' ', "$options{curvestyleall} " : ' ',
datastring => '', everyoptions => (!exists $options{every_hash}{$id} &&
datastring_meta => [], exists $options{everyall}) ?
datastring_offset => 0}; # push a curve with no data and no options "every $options{everyall} " : ' ',
$curveIndices{$id} = $#curves; datastring => '',
datastring_meta => [],
datastring_offset => 0}; # push a curve with no data and no options
push @curves, $curve; # push a curve with no data and no options
$curveFromID{$id} = $curve;
updateCurveOptions($curves[$#curves], $id); updateCurveOptions($curve, $id);
# --xlen has a meaning if we're not plotting histograms at all or if we're # --xlen has a meaning if we're not plotting histograms at all or if we're
@@ -1202,8 +1219,11 @@ sub getCurve
print STDERR "--xlen only makes sense when plotting ONLY histograms or ONLY NON-histograms\n"; print STDERR "--xlen only makes sense when plotting ONLY histograms or ONLY NON-histograms\n";
exit -1; exit -1;
} }
return $curve;
} }
return $curves[$curveIndices{$id}];
return $curveFromID{$id};
} }
sub addCurveOption sub addCurveOption
@@ -1214,6 +1234,14 @@ sub addCurveOption
$curve->{extraoptions} .= "$str "; $curve->{extraoptions} .= "$str ";
updateCurveOptions($curve, $id); updateCurveOptions($curve, $id);
} }
sub addEveryOption
{
my ($id, $str) = @_;
my $curve = getCurve($id);
$curve->{everyoptions} .= "every $str ";
updateCurveOptions($curve, $id);
}
sub setCurveLabel sub setCurveLabel
{ {
@@ -1969,6 +1997,21 @@ Exclusive with C<--styleall>.
=item =item
C<--every curveID factor>
Decimates the input. Instead of plotting every point in the given curve, plot
one point per factor. This is useful to quickly process huge datasets. For
instance, to plot 1% of the data, pass a factor of 100.
=item
C<--everyall factor>
Decimates the input. This works exactly like C<--every>, except it applies to
I<all> the curves.
=item
C<--extracmds xxx> C<--extracmds xxx>
Additional commands to pass on to gnuplot verbatim. These could contain extra Additional commands to pass on to gnuplot verbatim. These could contain extra
@@ -2206,7 +2249,10 @@ also.
C<--geometry> C<--geometry>
If using X11, specifies the size, position of the plot window Specifies the size, position of the plot window. This applies I<only> to the
C<x11> gnuplot terminal, and has no effect otherwise. To control the window size
for any other terminal, ask for the terminal explicitly, with the options
specifying the size. For instance C<--terminal 'qt size 1024,768'>
=item =item
@@ -2263,7 +2309,7 @@ in a Thinkpad.
=head2 Plotting a live histogram of the ping round-trip times for the past 20 seconds =head2 Plotting a live histogram of the ping round-trip times for the past 20 seconds
$ ping -A -D 8.8.8.8 | $ ping -D 8.8.8.8 |
perl -anE 'BEGIN { $| = 1; } perl -anE 'BEGIN { $| = 1; }
$F[0] =~ s/[\[\]]//g or next; $F[0] =~ s/[\[\]]//g or next;
$F[7] =~ s/.*=//g or next; $F[7] =~ s/.*=//g or next;

View File

@@ -9,6 +9,8 @@ complete -W \
--curvestyleall \ --curvestyleall \
--style \ --style \
--styleall \ --styleall \
--every \
--everyall \
--with \ --with \
--dataid \ --dataid \
--domain \ --domain \

View File

@@ -54,6 +54,8 @@ _arguments -S
'--geometry[The X11 geometry string]:geometry string:' \ '--geometry[The X11 geometry string]:geometry string:' \
'*--curvestyle[Additional styles for a curve]:curve id: :style:' \ '*--curvestyle[Additional styles for a curve]:curve id: :style:' \
'*--style[Additional styles for a curve]:curve id: :style:' \ '*--style[Additional styles for a curve]:curve id: :style:' \
'*--every[Decimation factor for a curve]:curve id: :decimation factor:' \
'--everyall[Decimation factor for ALL curves]:decimation factor' \
'(--3d)*--histogram:plot to treat as a histogram:' \ '(--3d)*--histogram:plot to treat as a histogram:' \
'--binwidth:Histogram bin width:' \ '--binwidth:Histogram bin width:' \
'--histstyle:Style of histogram:(frequency fnormal unique cumulative cnormal)' \ '--histstyle:Style of histogram:(frequency fnormal unique cumulative cnormal)' \

22
debian/changelog vendored
View File

@@ -1,3 +1,25 @@
feedgnuplot (1.56-1) unstable; urgency=medium
* New upstream release
- Updated default hardcopy settings
-- Dima Kogan <dkogan@debian.org> Wed, 03 Feb 2021 14:44:44 -0800
feedgnuplot (1.55-1) unstable; urgency=medium
* New upstream release
- Fixed regression in 1.54: --style overrides --with
-- Dima Kogan <dkogan@debian.org> Mon, 20 Jul 2020 15:55:13 -0700
feedgnuplot (1.54-1) unstable; urgency=medium
* New upstream release
- Added --every and --everyall to decimate the input data
- --timefmt can be used with --histogram
-- Dima Kogan <dkogan@debian.org> Fri, 17 Apr 2020 14:21:07 -0700
feedgnuplot (1.53-1) unstable; urgency=medium feedgnuplot (1.53-1) unstable; urgency=medium
* New upstream release * New upstream release