debuggers: import openocd-0.7.0
Initial check-in of openocd-0.7.0 as it can be downloaded from http://sourceforge.net/projects/openocd/files/openocd/0.7.0/ Any modifications will follow. Change-Id: I6949beaefd589e046395ea0cb80f4e1ab1654d55
This commit is contained in:
40
debuggers/openocd/tools/logger.pl
Normal file
40
debuggers/openocd/tools/logger.pl
Normal file
@ -0,0 +1,40 @@
|
||||
#!/usr/bin/perl
|
||||
# logger.pl: masks long meaningless output with pretty lines of dots
|
||||
# Details: 1) reads lines from STDIN and echos them on STDOUT,
|
||||
# 2) print a '.' to STDERR every $N lines.
|
||||
# 3) print a newline after a sequence of $C dots
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
# make sure all output gets displayed immediately
|
||||
$| = 1;
|
||||
|
||||
# TODO: add -n and -c options w/ zero checks)
|
||||
# line and column limits
|
||||
my $N = 10;
|
||||
my $C = 72;
|
||||
|
||||
# current line and column counters
|
||||
my $n = 0;
|
||||
my $c = 0;
|
||||
|
||||
# read all lines from STDIN
|
||||
while (<STDIN>)
|
||||
{
|
||||
# echo line to output
|
||||
print STDOUT $_;
|
||||
# echo line to console if it is important
|
||||
if (/(Warning|Error)/) {
|
||||
print STDERR "\n" if $c;
|
||||
print STDERR $_;
|
||||
$c = 0;
|
||||
}
|
||||
# only display progress every Nth step
|
||||
next if ++$n % $N;
|
||||
print STDERR ".";
|
||||
# wrap at column C to provide fixed-width rows of dots
|
||||
print STDERR "\n" unless ++$c % $C;
|
||||
}
|
||||
|
||||
print STDERR "\n" if $c;
|
||||
Reference in New Issue
Block a user