tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-21 13:37:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel: mbtrunc speedup.

Browse source
This commit is contained in:
Ole Tange 2023-04-22 21:17:48 +02:00
parent 327e271565
commit 72a55906d3
1 changed files with 12 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/parallel
View file

@ -11430,18 +11430,21 @@ sub print_files($) {
}
}
sub truncate_mbs($$) {
sub mbtrunc($$) {
# Simple mbtrunc to avoid using Text::WideChar::Util
my $str = shift;
my $len = shift;
if(::mbswidth($str) == length($str)) {
$str = substr($str,0,$len);
} else {
$str=~s/(.{$len}).*/$1/;
my $rlen = (::mbswidth($str) - $len)/2;
$str=~s/.{$rlen}$//;
while(::mbswidth($str) > $len) {
$str=~s/.$//;
}
# mb chars (ヌー平行) are wider than 1 char on screen
# We need at most $len chars - they may be wide
$str =~ s/(.{$len}).*/$1/;
my $rlen = int((::mbswidth($str) - $len)/2+0.5);
do {
$str =~ s/.{$rlen}$//;
$rlen = int((::mbswidth($str) - $len)/2+0.5);
} while($rlen >= 1);
}
return $str;
}
@ -11468,10 +11471,10 @@ sub print_files($) {
::untabify(::decode_utf8($self->{$out_fh,'latestline'}));
# -1 to make space for $truncated_str
my $maxtaglen = $termcol - 1;
$untabify_tag = truncate_mbs($untabify_tag,$maxtaglen);
$untabify_tag = mbtrunc($untabify_tag,$maxtaglen);
my $taglen = ::mbswidth($untabify_tag);
my $maxstrlen = $termcol - $taglen - 1;
$untabify_str = truncate_mbs($untabify_str,$maxstrlen);
$untabify_str = mbtrunc($untabify_str,$maxstrlen);
my $strlen = ::mbswidth($untabify_str);
my $truncated_tag = "";
my $truncated_str = "";