move subroutine sival() out of readline loop

[barcat.git] / barcat

diff --git a/barcat b/barcat
index ae9fff17b9138d671f9910802971b892976c7f63..88dc55ce88a646ae1925d84f7bf6a29ffa240f8b 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -179,6 +179,16 @@ sub color {
        $_ = color(@_) . $_ . color(0) if defined;
 }
 
        $_ = color(@_) . $_ . color(0) if defined;
 }
 

+sub sival {
+       my $unit = int(log(abs $_[0] || 1) / log(10) - 3*($_[0] < 1) + 1e-15);
+       my $float = $_[0] !~ /^0*[-0-9]{1,3}$/;
+       sprintf('%3.*f%1s',
+               $float && ($unit % 3) == ($unit < 0),  # tenths
+               $_[0] / 1000 ** int($unit/3),   # number
+               $#{$opt{units}} * 1.5 < abs $unit ? "e$unit" : $opt{units}->[$unit/3]
+       );
+}
+

 sub show_lines {
 
 state $nr = $opt{hidemin} ? $opt{hidemin} - 1 : 0;
 sub show_lines {
 
 state $nr = $opt{hidemin} ? $opt{hidemin} - 1 : 0;


@@ -236,16 +246,6 @@ if ($opt{markers} and $size > 0) {
 
 @lines > $nr or return if $opt{hidemin};
 
 
 @lines > $nr or return if $opt{hidemin};
 

-sub sival {
-       my $unit = int(log(abs $_[0] || 1) / log(10) - 3*($_[0] < 1) + 1e-15);
-       my $float = $_[0] !~ /^0*[-0-9]{1,3}$/;
-       sprintf('%3.*f%1s',
-               $float && ($unit % 3) == ($unit < 0),  # tenths
-               $_[0] / 1000 ** int($unit/3),   # number
-               $#{$opt{units}} * 1.5 < abs $unit ? "e$unit" : $opt{units}->[$unit/3]
-       );
-}
-

 say(
        color(31), sprintf('%*s', $lenval, $minval),
        color(90), '-', color(36), '+',
 say(
        color(31), sprintf('%*s', $lenval, $minval),
        color(90), '-', color(36), '+',


@@ -445,7 +445,7 @@ These options can be set to customize this range.
 
 Override colors of parsed numbers.
 Can be any CSI escape, such as I<90> for default dark grey,
 
 Override colors of parsed numbers.
 Can be any CSI escape, such as I<90> for default dark grey,

-or alternatively I<1;30> for bold black.
+or alternatively I<1;30> for bright black.

 
 In case of additional colors,
 the last is used for values equal to the maximum, the first for minima.
 
 In case of additional colors,
 the last is used for values equal to the maximum, the first for minima.