Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: nwellnhof/comp…
Fetching contributors…

Cannot retrieve contributors at this time

41 lines (31 sloc) 0.789 kB
#! perl
# Copyright (C) 2003-2006, Parrot Foundation.
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
@ARGV =
@ARGV
? map { glob $_ } @ARGV
: die "usage: " . basename($0) . " FILE [ FILE [ ... ] ]\n";
while (<>) {
if (/\bop \s+ (\w+) \s* \(/x) {
next if $seen{$1}++;
if ( length($1) + length($cline) > 72 ) {
print "$cline\n";
$cline = $prefix;
}
$cline .= " $1";
}
}
###
print "$cline\n";
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4:
Jump to Line
Something went wrong with that request. Please try again.