Login | Register
My pages Projects Community openCollabNet

Discussions > cvs > CVS update: /svnutils/trunk/src/

svnutils
Discussion topic

Back to topic list

CVS update: /svnutils/trunk/src/

Author sunny256
Full name Øyvind A. Holm
Date 2005-08-20 07:38:30 PDT
Message User: sunny256
Date: 2005/08/20 07:38:30

Modified:
   svnutils/trunk/src/sident

Log:
 r151 | sunny256 | 2005-08-20 02:43:18 +0000 (Sat, 20 Aug 2005) | 3 lines
 
 * /trunk/src/sident
   Added the "-v"/"--verbose" option.

File Changes:

Directory: /svnutils/trunk/src/
===============================

File [changed]: sident
Url: http://svnutils.tigr​is.org/source/browse​/svnutils/trunk/src/​sident?r1=1.8&r2​=1.9
Delta lines: +16 -7
--------------------
--- sident 20 Aug 2005 14:38:01 -0000 1.8
+++ sident 20 Aug 2005 14:38:27 -0000 1.9
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #===================​====================​====================​============
-# $Id: sident 150 2005-08-20 02:09:55Z sunny256 $
+# $Id: sident 151 2005-08-20 02:43:18Z sunny256 $
 # Lists RCS-like keywords in files. Replacement for ident(1).
 #
 # Character set: UTF-8
@@ -16,15 +16,15 @@
 
 our $Debug = 0;
 
-our ($opt_help, $opt_known, $opt_namesonly) =
- ( 0, 0, 0);
+our ($opt_help, $opt_known, $opt_namesonly, $opt_verbose) =
+ ( 0, 0, 0, 0);
 
 my $VERSION = "0.0";
 
 our $progname = $0;
 $progname =~ s#^.*/(.*?)$#$1#;
 
-my $rcs_id = '$Id: sident 150 2005-08-20 02:09:55Z sunny256 $';
+my $rcs_id = '$Id: sident 151 2005-08-20 02:43:18Z sunny256 $';
 my $id_date = $rcs_id;
 $id_date =~ s/^.*?\d+ (\d\d\d\d-.*?\d​\d:\d\d:\d\d\S​+).*/$1/;
 
@@ -32,7 +32,8 @@
 GetOptions(
     "help|h" => \$opt_help,
     "known-keywords-only|k" => \$opt_known,
- "filenames-only|l" => \$opt_namesonly
+ "filenames-only|l" => \$opt_namesonly,
+ "verbose|v" => \$opt_verbose
 ) || die("$progname: Option error. Use -h for help.\n");
 
 $opt_help && usage(0);
@@ -70,6 +71,8 @@
                     print($_);
                 }
             }
+ } else {
+ print("\n$File:\n") if ($opt_verbose);
         }
     }
 }
@@ -94,6 +97,8 @@
   -l, --filenames-only
       Suppress normal output; only list names of files which contain
       keywords
+ -v, --verbose
+ Also list files without keywords.
 
 END
     exit($Retval);
@@ -125,7 +130,7 @@
 
 =head1 REVISION
 
-$Id: sident 150 2005-08-20 02:09:55Z sunny256 $
+$Id: sident 151 2005-08-20 02:43:18Z sunny256 $
 
 =head1 SYNOPSIS
 
@@ -152,6 +157,10 @@
 Suppress normal output; only list names of files which contains
 keywords.
 
+=item B<-v>, B<--verbose>
+
+In addition to list keywords, also list names of files without keywords.
+
 =back
 
 =head1 BUGS
@@ -190,4 +199,4 @@
 # }}}
 
 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :
-# End of file $Id: sident 150 2005-08-20 02:09:55Z sunny256 $
+# End of file $Id: sident 151 2005-08-20 02:43:18Z sunny256 $

« Previous message in topic | 1 of 1 | Next message in topic »

Messages

Show all messages in topic

CVS update: /svnutils/trunk/src/ sunny256 Øyvind A. Holm 2005-08-20 07:38:30 PDT
Messages per page: