]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
allow for output of revision number with OK status
authorguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 16 May 2006 12:51:31 +0000 (12:51 +0000)
committerguido <guido@0785d39b-7218-0410-832d-ea1e28bc413d>
Tue, 16 May 2006 12:51:31 +0000 (12:51 +0000)
git-svn-id: https://svn.dealii.org/trunk@13117 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/status.pl

index 9b43f4075aaacd7668f15faf9b477a936694cea0..a601258e86c7dd2416d0a8836d57af138531e24c 100644 (file)
@@ -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(<CVS>)
        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(<CVS>)
        $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
     {

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.