File: hdr

package info (click to toggle)

dibbler 0.7.3-1.3

links: PTS
area: main
in suites: squeeze
size: 11,148 kB
ctags: 8,720
sloc: cpp: 54,863; sh: 9,389; ansic: 8,659; yacc: 2,570; makefile: 1,061; lex: 842; perl: 49; xml: 6

file content (18 lines) | stat: -rwxr-xr-x 292 bytes

parent folder | download | duplicates (6)

#!/usr/bin/perl -w

if (1) {
@list = `find .. -name \*.cpp -or -name \*.h`;
} else {
open(FILE, $ARGV[0]) or die "Unable to open $ARGV[0] file.";
@list = <FILE>;
close(FILE);
};

foreach $file (@list) {
    if (`grep "GPL" $file`) {
#	print "GPL $file";
    } else {
	print "$file";
    }
}