editor/ops2vim.pl

   1 #! perl
   2
   3 # Copyright (C) 2003-2006, Parrot Foundation.
   4 # $Id$
   5
   6 use strict;
   7 use warnings;
   8
   9 use File::Basename qw/basename/;
  10
  11 my $cline = my $prefix = 'syn keyword pirOp';
  12
  13 my %seen;
  14
  15 ## make sure files have been globbed on non-globbing OSes
  16 ## and make sure at least one command-line parameter has been passed
  17 @ARGV =
  18     @ARGV
  19     ? map { glob $_ } @ARGV
  20     : die "usage: " . basename($0) . " FILE [ FILE [ ... ] ]\n";
  21
  22 while (<>) {
  23     if (/\bop \s+ (\w+) \s* \(/x) {
  24         next if $seen{$1}++;
  25         if ( length($1) + length($cline) > 72 ) {
  26             print "$cline\n";
  27             $cline = $prefix;
  28         }
  29         $cline .= " $1";
  30     }
  31 }
  32
  33 ###
  34 print "$cline\n";
  35
  36 # Local Variables:
  37 #   mode: cperl
  38 #   cperl-indent-level: 4
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4: