Lines Matching refs:fn
117 my $fn = shift;
132 if ($fn !~ m,\.c$,) {
133 warn("$fn: not C source, ignoring\n");
137 sysopen(FILE, $fn, O_RDONLY)
138 or die("$fn: open(): $!\n");
145 $func = $fn;
148 warn("$fn: can't find $func\n");
277 'source' => $fn,
302 my $fn;
322 $fn = $func->{'source'};
323 $fn =~ s/$func->{'name'}/$ref/;
324 parse_source($fn);
376 my $fn;
455 $fn = "$func->{'name'}.3";
456 if (sysopen(FILE, $fn, O_RDWR|O_CREAT|O_TRUNC)) {
460 warn("$fn: open(): $!\n");
465 my $fn = shift; # File name
470 sysopen(FILE, $fn, O_RDONLY)
471 or die("$fn: open(): $!\n");
586 foreach my $fn (@ARGV) {
587 readproto($fn);
594 foreach my $fn (@ARGV) {
595 my $func = parse_source($fn);