git.shiar.nl
/
barcat.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
apply hide limits in length calculation
[barcat.git]
/
barcat
diff --git
a/barcat
b/barcat
index e898b6c117e0604cc58fdf044180467a71c55206..bf38f120d4414cc26db20726060c0d89938f8b10 100755
(executable)
--- a/
barcat
+++ b/
barcat
@@
-180,9
+180,8
@@
if (defined $opt{interval}) {
} or warn $@, "Expect slowdown with large datasets!\n";
}
} or warn $@, "Expect slowdown with large datasets!\n";
}
-my $valmatch = qr<
- $opt{anchor} ( \h* -? [0-9]* [.]? [0-9]+ (?: e[+-]?[0-9]+ )? |)
->x;
+my $float = qr<[0-9]* [.]? [0-9]+ (?: e[+-]?[0-9]+ )?>; # positive numberish
+my $valmatch = qr< $opt{anchor} ( \h* -? $float |) >x;
while (defined ($_ = $opt{input} ? shift @{ $opt{input} } : readline)) {
s/\r?\n\z//;
s/\A\h*// unless $opt{unmodified};
while (defined ($_ = $opt{input} ? shift @{ $opt{input} } : readline)) {
s/\r?\n\z//;
s/\A\h*// unless $opt{unmodified};
@@
-240,8
+239,8
@@
my $range = $maxval - $minval;
$range &&= log $range if $opt{log};
my $lenval = $opt{'value-length'} // max map { length } @order;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
$range &&= log $range if $opt{log};
my $lenval = $opt{'value-length'} // max map { length } @order;
my $len = defined $opt{trim} && $opt{trim} <= 0 ? -$opt{trim} + 1 :
- max
map { length $values[$_] && length $lines[$_] }
-
0 .. min $#lines, $opt{hidemax} || ()
; # left padding
+ max
(map { length $values[$_] && length $lines[$_] } $nr .. $limit)
+
// 0
; # left padding
my $size = defined $opt{width} && $range &&
($opt{width} - $lenval - $len - !!$opt{indicators}); # bar multiplication
my $size = defined $opt{width} && $range &&
($opt{width} - $lenval - $len - !!$opt{indicators}); # bar multiplication
@@
-249,7
+248,7
@@
my @barmark;
if ($opt{markers} and $size > 0) {
for my $markspec (split /\h/, $opt{markers}) {
my ($char, $func) = split //, $markspec, 2;
if ($opt{markers} and $size > 0) {
for my $markspec (split /\h/, $opt{markers}) {
my ($char, $func) = split //, $markspec, 2;
- my
$
pos = eval {
+ my
@
pos = eval {
if ($func eq 'avg') {
return sum(@order) / @order;
}
if ($func eq 'avg') {
return sum(@order) / @order;
}
@@
-263,18
+262,28
@@
if ($opt{markers} and $size > 0) {
elsif ($func =~ /\A-?[0-9.]+\z/) {
return $func;
}
elsif ($func =~ /\A-?[0-9.]+\z/) {
return $func;
}
+ elsif ($func =~ /\A\/($float)\z/) {
+ my @range = my $multiple = my $next = $1;
+ while ($next < $maxval) {
+ $multiple *= 10 if $opt{log};
+ push @range, $next += $multiple;
+ }
+ return @range;
+ }
else {
die "Unknown marker $char: $func\n";
}
};
else {
die "Unknown marker $char: $func\n";
}
};
-
defined $
pos or do {
+
@
pos or do {
warn $@ if $@;
next;
};
warn $@ if $@;
next;
};
- $pos -= $minval;
- $pos &&= log $pos if $opt{log};
- $pos >= 0 or next;
- color(36) for $barmark[$pos / $range * $size] = $char;
+ for my $pos (@pos) {
+ $pos -= $minval;
+ $pos &&= log $pos if $opt{log};
+ $pos >= 0 or next;
+ color(36) for $barmark[$pos / $range * $size] = $char;
+ }
}
state $lastmax = $maxval;
}
state $lastmax = $maxval;
@@
-566,7
+575,12
@@
A single indicator glyph precedes each position:
Exact value to match on the axis.
A vertical bar at the zero crossing is displayed by I<|0>
for negative values.
Exact value to match on the axis.
A vertical bar at the zero crossing is displayed by I<|0>
for negative values.
-For example I<:3.14> would show a colon at pi.
+For example I<π3.14> would locate pi.
+
+=item I</><interval>
+
+Repeated at every multiple of a number.
+For example I<:/1> for a grid at every integer.
=item <percentage>I<v>
=item <percentage>I<v>
@@
-741,7
+755,7
@@
Total population history in XML from the World Bank:
curl http://api.worldbank.org/v2/country/1W/indicator/SP.POP.TOTL |
xmlstarlet sel -t -m '*/*' -v wb:date -o ' ' -v wb:value -n |
curl http://api.worldbank.org/v2/country/1W/indicator/SP.POP.TOTL |
xmlstarlet sel -t -m '*/*' -v wb:date -o ' ' -v wb:value -n |
- barcat -f1 -H
+ barcat -f1 -H
--markers=+/1e9
Population and other information for all countries:
Population and other information for all countries: