r848 - in /trunk/packages/vim-scripts/debian: vim-registry/vim-scripts.yaml vim-scripts.pl

[zack at users.alioth.debian.org]

Author: zack
Date: Wed Jan 17 19:52:16 2007
New Revision: 848

URL: http://svn.debian.org/wsvn/pkg-vim/?sc=1&rev=848
Log:
bug fix in vim-scripts.pl: now also the last addon in the registry will have a corresponding yaml registry entry

Modified:
    trunk/packages/vim-scripts/debian/vim-registry/vim-scripts.yaml
    trunk/packages/vim-scripts/debian/vim-scripts.pl

Modified: trunk/packages/vim-scripts/debian/vim-registry/vim-scripts.yaml
URL: http://svn.debian.org/wsvn/pkg-vim/trunk/packages/vim-scripts/debian/vim-registry/vim-scripts.yaml?rev=848&op=diff
==============================================================================
--- trunk/packages/vim-scripts/debian/vim-registry/vim-scripts.yaml (original)
+++ trunk/packages/vim-scripts/debian/vim-registry/vim-scripts.yaml Wed Jan 17 19:52:16 2007
@@ -3,6 +3,7 @@
 basedir: /usr/share/vim-scripts/
 files:
   - plugin/a.vim
+  - doc/alternate.txt
 ---
 addon: whatdomain
 description: "query the meaning of a Top Level Domain"
@@ -286,3 +287,10 @@
 files:
   - plugin/NERD_comments.vim
 ---
+addon: project
+description: "organize and navigate file projects (like IDE/buffer explorer)"
+basedir: /usr/share/vim-scripts/
+files:
+  - plugin/project.vim
+  - doc/project.txt
+---

Modified: trunk/packages/vim-scripts/debian/vim-scripts.pl
URL: http://svn.debian.org/wsvn/pkg-vim/trunk/packages/vim-scripts/debian/vim-scripts.pl?rev=848&op=diff
==============================================================================
--- trunk/packages/vim-scripts/debian/vim-scripts.pl (original)
+++ trunk/packages/vim-scripts/debian/vim-scripts.pl Wed Jan 17 19:52:16 2007
@@ -18,6 +18,8 @@
 # You should have received a copy of the GNU General Public License along with
 # this program; if not, write to the Free Software Foundation, Inc., 59 Temple
 # Place, Suite 330, Boston, MA  02111-1307  USA
+
+# XXX this script is getting uglier and uglier ... please, rewrite it! :-/
 
 my $usage =
   "Usage:\n" .
@@ -82,6 +84,24 @@
   close INDEX;
 }
 
+sub emit_registry($$$$) {
+  my ($addon, $description, $script_name, $extras) = @_;
+  print "addon: $addon\n";
+  print "description: \"$description\"\n";
+  print "basedir: /usr/share/vim-scripts/\n";
+  print "files:\n";
+  my @files = ($script_name);
+  if ($extras ne '') {
+    for my $pat (split(/,\s*/, $extras)) {
+      push @files, glob $pat;
+    }
+  }
+  foreach my $file (@files) {
+    print "  - $file\n";
+  }
+  print "---\n";
+}
+
 open STATUS, "< $status" or die "Can't open $status";
 my ($script_name, $script_url, $author, $author_url, $email, $license, $extras,
   $description, $version, $addon);
@@ -91,27 +111,16 @@
   # assumption: each plugin "block" of lines starts with the "script_name:"
   # field
   chomp $line;
-  $skip = not $skip if ($line =~ /^--\s*$/);
+  if ($line =~ /^--\s*$/) {
+    $skip = not $skip;
+    emit_registry($addon, $description, $script_name, $extras) if $skip;
+  }
   print $line, "\n" if $skip and $action eq "copyright";
   next if $skip;
   if ($line =~ /^script_name:\s*(.*)/) {
     if ($script_name ne '') { # new plugin, process data collected so far
-      if ($action eq "registry") {
-	print "addon: $addon\n";
-	print "description: \"$description\"\n";
-	print "basedir: /usr/share/vim-scripts/\n";
-	print "files:\n";
-	my @files = ($script_name);
-	if ($extras ne '') {
-	  for my $pat (split(/,\s*/, $extras)) {
-	    push @files, glob $pat;
-	  }
-	}
-	foreach my $file (@files) {
-	  print "  - $file\n";
-	}
-	print "---\n";
-      }
+      emit_registry($addon, $description, $script_name, $extras)
+	if $action eq "registry";
       $extras = '';
     }
     $script_name = $1;