#!/usr/bin/perl
# -- findfixed.pl
# -- (c) 2000 - missnglnk <missnglnk@tribune.intranova.net>

foreach $file (@ARGV) {
	open(HI, $file) or die "$!\n";
	$line = 0;
	print "$file\n";
	while(<HI>) {
		chomp;
		$line++;
		if (($_ =~ /char\s*/) && ($_ =~ /\s*(\w*)\[(\d*)\]/)) {
			if ($1 && $2) {
				print "\tLine: $line\t$1 - $2 bytes\n";
			}
		}
	}
	close(HI);
}