cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

if terminal can clear to eol, use it.

Browse Source
This commit is contained in:
espie 2010-03-21 19:44:02 +00:00
parent 273cfbc702
commit c8394fba61
1 changed files with 21 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
infrastructure/build/DPB/Reporter.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Reporter.pm,v 1.9 2010/03/20 18:30:04 espie Exp $
# $OpenBSD: Reporter.pm,v 1.10 2010/03/21 19:44:02 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -270,6 +270,16 @@ sub clamped
}
}
sub clear_clamped
{
my ($self, $line) = @_;
if (!$self->{glitch} && length $line == $self->{width}) {
return $line;
} else {
return $self->{cleareol}.$line."\n";
}
}
sub lines
{
my ($self, @new) = @_;
@ -289,14 +299,22 @@ sub lines
}
# adjust newline to correct length
if (defined $oldline && (length $oldline) > (length $newline)) {
if ($self->{cleareol}) {
$r .= $self->clear_clamped($newline);
next;
}
$newline .= " "x ((length $oldline) - (length $newline));
}
$r .= $self->clamped($newline);
}
# extra lines must disappear
while (my $line = shift(@{$self->{oldlines}})) {
$line = " "x (length $line);
$r .= $self->clamped($line);
if ($self->{cleareol}) {
$r .= $self->clear_clamped('');
} else {
$line = " "x (length $line);
$r .= $self->clamped($line);
}
return if $n++ > $self->{height};
}
return $r;