aboutsummaryrefslogtreecommitdiff
path: root/sbolint
diff options
context:
space:
mode:
Diffstat (limited to 'sbolint')
-rwxr-xr-xsbolint22
1 files changed, 21 insertions, 1 deletions
diff --git a/sbolint b/sbolint
index da5318e..675685f 100755
--- a/sbolint
+++ b/sbolint
@@ -318,6 +318,7 @@ $g_warncount = 0;
$g_errcount = 0;
$warncount = 0;
$errcount = 0;
+$progress_bar = 0;
$tempdir = 0;
@@ -374,6 +375,10 @@ if($stdin) {
}
if($recursive_git) {
+ if(-t STDOUT) {
+ die "$SELF: you don't want to use -a without redirecting. Example:\n $SELF -a > lint.log\n";
+ }
+
@ARGV=();
my $pwd;
@@ -392,7 +397,7 @@ if($recursive_git) {
}
warn "$SELF: linting " . scalar(@ARGV) . " builds from git repo at $pwd\n" unless $quiet;
- $quiet = 1;
+ $quiet = $progress_bar = 1;
}
push @ARGV, "." unless @ARGV;
@@ -401,6 +406,7 @@ push @ARGV, "." unless @ARGV;
# the junkfile check is skipped.
$in_git_repo = system("git rev-parse >/dev/null 2>/dev/null") == 0;
+$argv_count = 0;
for(@ARGV) {
run_checks($_);
$g_errcount += $errcount;
@@ -413,6 +419,20 @@ for(@ARGV) {
print "$SELF: $buildname: " . $red . "errors $errcount" . $color_off . ", " . $yellow . "warnings $warncount" . $color_off . "\n";
}
}
+
+ if($progress_bar) {
+ $argv_count++;
+ my $pct = ($argv_count / @ARGV) * 100;
+ printf STDERR " %d/%d, %2.1f%%\r", $argv_count, scalar @ARGV, $pct;
+ }
+}
+
+if($progress_bar) {
+ chomp (my $now = `date +%s`);
+ my $elapsed = $now - $^T;
+ my $min = int($elapsed / 60);
+ my $sec = $elapsed % 60;
+ printf STDERR "\nElapsed time %d:%02d\n", $min, $sec;
}
# print total errs/warns only if >1 build checked