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: --colour-failed: If tput fails, choose some defaults.

Browse source
This commit is contained in:
Ole Tange 2022-09-22 19:36:58 +02:00
parent edb60d07bd
commit b963066e9e
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/parallel
View file

@ -2607,6 +2607,7 @@ sub parse_options(@) {
if($opt::sqlworker and not $opt::sqlmaster) {
$Global::max_number_of_args = 1;
}
if($Global::color or $opt::colorfailed) { Job::init_color(); }
}
sub check_invalid_option_combinations() {
@ -11637,14 +11638,16 @@ sub tag($) {
} @color_combinations;
# clr_eol el = clear to end of line
$eol = `tput el </dev/tty`;
$eol = `sh -c "tput el </dev/tty" 2>/dev/null`;
chomp($eol);
if($eol eq "") { $eol = "\033[K"; }
# exit_attribute_mode sgr0 = turn off all attributes
$reset_color = `tput sgr0 </dev/tty`;
$reset_color = `sh -c "tput sgr0 </dev/tty" 2>/dev/null`;
chomp($reset_color);
if($reset_color eq "") { $reset_color = "\033[m"; }
}
}
sub color($) {
my $self = shift;
if(not defined $self->{'color'}) {