Lines Matching refs:fn
99 my $fn = shift;
120 if ($fn !~ m,\.c$,) {
121 warn("$fn: not C source, ignoring\n");
125 open(FILE, "<", "$fn")
126 or die("$fn: open(): $!\n");
150 $func = $fn;
153 warn("$fn: can't find $func\n");
330 'source' => $fn,
360 my $fn;
380 $fn = $$func{source};
381 $fn =~ s/$$func{name}/$ref/;
382 parse_source($fn);
434 my $fn;
536 $fn = "$$func{name}.3";
537 if (open(FILE, ">", $fn)) {
541 warn("$fn: open(): $!\n");
546 my $fn = shift; # File name
551 open(FILE, "<", "$fn")
552 or die("$fn: open(): $!\n");
670 foreach my $fn (@ARGV) {
671 readproto($fn);
678 foreach my $fn (@ARGV) {
679 my $func = parse_source($fn);