editor/ops2vim.pl

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