From: guido Date: Tue, 16 May 2006 12:51:31 +0000 (+0000) Subject: allow for output of revision number with OK status X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8643384ef15be92e11807b7ac04eae8641694375;p=dealii-svn.git allow for output of revision number with OK status git-svn-id: https://svn.dealii.org/trunk@13117 0785d39b-7218-0410-832d-ea1e28bc413d --- diff --git a/deal.II/common/scripts/status.pl b/deal.II/common/scripts/status.pl index 9b43f4075a..a601258e86 100644 --- a/deal.II/common/scripts/status.pl +++ b/deal.II/common/scripts/status.pl @@ -5,14 +5,20 @@ my $short = 0; my $cvs_args = ''; my $process_cvs_args = 0; my $debug = 0; +my $revision = 0; +# Command line switches foreach (@ARGV) { if ($process_cvs_args) { $cvs_args .= " $_"; } +# If true, do not show up to date files without sticky tag $compress = 1 if (m/-c/); +# Show current revision number + $revision = 1 if (m/-r/); +# Abbreviate repository path $short = 1 if (m/-s/); $debug = 1 if (m/-d/); $process_cvs_args = 1 if (m/^--$/); @@ -49,6 +55,7 @@ while() if ($status eq 'Up-to-date') { $status = 'OK '; + $status .= "$work " if ($revision); } elsif ($status eq 'Needs Patch') { $status = "P $work<-$rep "; @@ -69,7 +76,7 @@ while() $status .= $stick; printf "%-40s %-30s %s\n", $file, $status, (($short) ? '' : $rep_file) - unless ($compress && ($status eq 'OK ')); + unless ($compress && ($status =~ m/OK (\d+\.\d+(\.\d+\.\d+)? )?$/)); } else {