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/

Reply

Author sunny256
Full name Øyvind A. Holm
Date 2006-03-12 14:25:28 PST
Message User: sunny256
Date: 2006/03/12 14:25:28

Modified:
   svnutils/trunk/src/sident

Log:
 r168 | sunny256 | 2006-03-12 22:10:30 +0000 (Sun, 12 Mar 2006) | 3 lines
 
 * /trunk/src/sident
   Added Vim folds.

File Changes:

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

File [changed]: sident
Url: http://svnutils.tigr​is.org/source/browse​/svnutils/trunk/src/​sident?r1=1.17&r​2=1.18
Delta lines: +16 -4
--------------------
--- sident 11 Mar 2006 03:00:46 -0000 1.17
+++ sident 12 Mar 2006 22:25:24 -0000 1.18
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 #===================​====================​====================​============
-# $Id: sident 166 2006-03-11 02:57:06Z sunny256 $
+# $Id: sident 168 2006-03-12 22:10:30Z sunny256 $
 # Lists RCS-like keywords in files. Replacement for ident(1).
 #
 # Character set: UTF-8
@@ -17,6 +17,7 @@
 our $Debug = 0;
 
 our %Opt = (
+ # Initialise option variables {{{
     'debug' => 0,
     'expanded' => 0,
     'filesfrom' => "",
@@ -27,17 +28,19 @@
     'verbose' => 0,
     'version' => 0,
     'xml' => 0
+ # }}}
 );
 
 our $progname = $0;
 $progname =~ s#^.*/(.*?)$#$1#;
 
-my $rcs_id = '$Id: sident 166 2006-03-11 02:57:06Z sunny256 $';
+my $rcs_id = '$Id: sident 168 2006-03-12 22:10:30Z sunny256 $';
 my $id_date = $rcs_id;
 $id_date =~ s/^.*?\d+ (\d\d\d\d-.*?\d​\d:\d\d:\d\d\S​+).*/$1/;
 
 Getopt::Long::Config​ure("bundling");
 GetOptions(
+ # Define command line options {{{
     "debug" => \$Opt{'debug'},
     "expanded-only|e" => \$Opt{'expanded'},
     "filenames-from|f=s" => \$Opt{'filesfrom'},
@@ -48,6 +51,7 @@
     "verbose|v" => \$Opt{'verbose'},
     "version" => \$Opt{'version'},
     "xml|x" => \$Opt{'xml'}
+ # }}}
 ) || die("$progname: Option error. Use -h for help.\n");
 
 $Opt{'debug'} && ($Debug = 1);
@@ -55,6 +59,7 @@
 $Opt{'version'} && print_version();
 
 my @Keywords = (
+ # List of recognised keywords {{{
                 "Id",
                 "Author", "LastChangedBy",
                 "Date", "LastChangedDate",
@@ -67,6 +72,7 @@
                 "RCSfile",
                 "Source",
                 "State"
+ # }}}
                );
 my $Keyw = $Opt{'known'} ? join('|', @Keywords) : '[A-Za-z]+'; # Used in regexps
 
@@ -80,6 +86,7 @@
 my @Files = @ARGV;
 
 if (length($Opt{'filesfrom'})) {
+ # {{{
     if (open(FromFP, "<$Opt{'filesfrom'}")) {
         while(<FromFP>) {
             chomp;
@@ -89,9 +96,11 @@
     } else {
         die("$progname: $Opt{'filesfrom'}: Cannot read filenames from file: $!\n");
     }
+ # }}}
 }
 
 for (@Files) {
+ # {{{
     my @Out = ();
     my $File = $_;
     if (open(FromFP, "<$File")) {
@@ -156,13 +165,16 @@
             }
         }
     }
+ # }}}
 }
 
 $Opt{'xml'} && print("</sident>\n");
 
 sub print_version {
+ # {{{
     xml_print("$rcs_id\n");
     exit(0);
+ # }}}
 }
 
 sub xml_print {
@@ -277,7 +289,7 @@
 
 =head1 REVISION
 
-$Id: sident 166 2006-03-11 02:57:06Z sunny256 $
+$Id: sident 168 2006-03-12 22:10:30Z sunny256 $
 
 =head1 SYNOPSIS
 
@@ -373,4 +385,4 @@
 # }}}
 
 # vim: set fenc=UTF-8 ft=perl fdm=marker ts=4 sw=4 sts=4 et fo+=w :
-# End of file $Id: sident 166 2006-03-11 02:57:06Z sunny256 $
+# End of file $Id: sident 168 2006-03-12 22:10:30Z 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 2006-03-12 14:25:28 PST
Messages per page: