File: keywords.pl

package info (click to toggle)
mgp 1.13a+upstream20090219-11
  • links: PTS
  • area: main
  • in suites: bullseye, buster, sid
  • size: 4,128 kB
  • sloc: ansic: 32,387; sh: 4,295; lisp: 1,405; yacc: 945; lex: 264; makefile: 158; perl: 117; awk: 9
file content (14 lines) | stat: -rw-r--r-- 247 bytes parent folder | download | duplicates (9)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
@keywords = ();

die if (@ARGV != 1);
open(IN, "< $ARGV[0]") || die;
while (<IN>) {
	next if (! /^\/\*CTL\*\//);
	next if (! /CTL_([A-Z0-9]+),/);
	$t = $1;
	$t =~ tr/A-Z/a-z/;
	push(@keywords, $t);
}
close(IN);

print join(' ', @keywords) . "\n";