[svn:parrot] r11835 - in trunk: config/gen/makefiles editor

[particle]

Author: particle
Date: Thu Mar  9 06:12:00 2006
New Revision: 11835

Modified:
   trunk/config/gen/makefiles/editor.in
   trunk/editor/ops2vim.pl

Log:
editor: fixes
~ make sure files have been globbed on non-globbing OSes
~ make sure at least one command-line parameter has been passed
~ makefile dependencies fix


Modified: trunk/config/gen/makefiles/editor.in
==============================================================================
--- trunk/config/gen/makefiles/editor.in        (original)
+++ trunk/config/gen/makefiles/editor.in        Thu Mar  9 06:12:00 2006
@@ -31,7 +31,7 @@
        @echo "  realclean:         clean up local files including Makefile"
        @echo ""
 
-pir.vim: pir.vim.in $(OPS_DIR)/*.ops
+pir.vim: pir.vim.in $(OPS_DIR)/*.ops ops2vim.pl
        $(CP) pir.vim.in pir.vim
        $(PERL) ops2vim.pl $(OPS_DIR)/*.ops >> pir.vim
 

Modified: trunk/editor/ops2vim.pl
==============================================================================
--- trunk/editor/ops2vim.pl     (original)
+++ trunk/editor/ops2vim.pl     Thu Mar  9 06:12:00 2006
@@ -1,9 +1,20 @@
-#! perl -w
+#! perl
+use strict;
+use warnings;
+
+use File::Basename qw/basename/;
+
 
 my $cline = my $prefix = 'syn keyword pirOp';
 
 my %seen;
 
+## make sure files have been globbed on non-globbing OSes
+## and make sure at least one command-line parameter has been passed
[EMAIL PROTECTED] = @ARGV
+    ? map {glob $_} @ARGV
+    : die "usage: " . basename($0) . " FILE [ FILE [ ... ] ]\n";
+
 while (<>) {
     if (/\bop \s+ (\w+) \s* \(/x) {
         next if $seen{$1}++;
@@ -12,6 +23,8 @@
             $cline = $prefix;
         }
         $cline .= " $1";
-    } 
+    }
 }
+
+###
 print "$cline\n";