3 # Copyright (C) 2003-2006, Parrot Foundation.
9 use File
::Basename qw
/basename/;
11 my $cline = my $prefix = 'syn keyword pirOp';
15 ## make sure files have been globbed on non-globbing OSes
16 ## and make sure at least one command-line parameter has been passed
19 ?
map { glob $_ } @ARGV
20 : die "usage: " . basename
($0) . " FILE [ FILE [ ... ] ]\n";
23 if (/\bop \s+ (\w+) \s* \(/x) {
25 if ( length($1) + length($cline) > 72 ) {
38 # cperl-indent-level: 4
41 # vim: expandtab shiftwidth=4: