Compare commits

...

3 Commits
v1.47 ... v1.48

Author SHA1 Message Date
Dima Kogan
319e86b667 version bump 2018-02-24 12:34:18 -08:00
Dima Kogan
938e360e84 --vnlog now works with --domain. For real this time 2018-02-23 14:59:40 -08:00
Dima Kogan
d5e8906946 --vnlog now works with --domain 2018-02-23 12:39:49 -08:00
2 changed files with 15 additions and 6 deletions

View File

@@ -1,3 +1,9 @@
feedgnuplot (1.48)
* --vnlog works properly with --domain
-- Dima Kogan <dima@secretsauce.net> Sat, 24 Feb 2018 12:33:50 -0800
feedgnuplot (1.47) feedgnuplot (1.47)
* Fixed typo. Everything is un-broken now * Fixed typo. Everything is un-broken now

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.47'; my $VERSION = '1.48';
my %options; my %options;
interpretCommandline(); interpretCommandline();
@@ -865,6 +865,7 @@ sub mainThread
# 3d plots require $options{domain}, and dictate "x y" for the domain instead of just "x" # 3d plots require $options{domain}, and dictate "x y" for the domain instead of just "x"
my @fields = split; my @fields = split;
my $i_column = 0;
if($options{domain}) if($options{domain})
{ {
@@ -876,6 +877,7 @@ sub mainThread
$domain[0] = join (' ', splice( @fields, 0, $options{timefmt_Ncols}) ); $domain[0] = join (' ', splice( @fields, 0, $options{timefmt_Ncols}) );
$domain0_numeric = makeDomainNumeric( $domain[0] ); $domain0_numeric = makeDomainNumeric( $domain[0] );
$i_column += $options{timefmt_Ncols};
} }
elsif(!$options{'3d'}) elsif(!$options{'3d'})
{ {
@@ -884,6 +886,7 @@ sub mainThread
next if @fields < 1+1; next if @fields < 1+1;
$domain[0] = $domain0_numeric = shift @fields; $domain[0] = $domain0_numeric = shift @fields;
$i_column += 1;
} }
else else
{ {
@@ -892,6 +895,7 @@ sub mainThread
next if @fields < 2+1; next if @fields < 2+1;
@domain = splice(@fields, 0, 2); @domain = splice(@fields, 0, 2);
$i_column += 2;
} }
if( $options{monotonic} ) if( $options{monotonic} )
@@ -915,8 +919,7 @@ sub mainThread
$domain0_numeric = makeDomainNumeric( $domain[0] ); $domain0_numeric = makeDomainNumeric( $domain[0] );
} }
my $id = -1; my $id = -1;
my $i_curve = 0;
while(@fields) while(@fields)
{ {
if ($options{dataid}) if ($options{dataid})
@@ -925,14 +928,14 @@ sub mainThread
} }
elsif($options{vnlog} ) elsif($options{vnlog} )
{ {
if( $i_curve >= @vnlog_headers ) if( $i_column >= @vnlog_headers )
{ {
# Got more columns than vnlog headers. The data is probably # Got more columns than vnlog headers. The data is probably
# bogus, but I don't want to barf at the user, so I silently # bogus, but I don't want to barf at the user, so I silently
# ignore the data # ignore the data
last; last;
} }
$id = $vnlog_headers[$i_curve]; $id = $vnlog_headers[$i_column];
} }
else else
{ {
@@ -948,7 +951,7 @@ sub mainThread
splice( @fields, 0, $rangesize ) ) . "\n", splice( @fields, 0, $rangesize ) ) . "\n",
$domain0_numeric); $domain0_numeric);
$i_curve++; $i_column++;
} }
} }