Cross Reference: /solaris-desktop/scripts/copyright-extractor

Lines Matching refs:fname
109 # fname: the file name to classify
112     my $fname = shift;
114     if ($fname =~ /([~]$|\/(ChangeLog|configure\.in|Makefile|ltmain\.sh|README|NEWS|INSTALL|HACKING|configure$|config\.)$)/) {
116 	push (@files_omitted, $fname);
118     } elsif ($fname =~ /\.(am|ac|o|lo|ps|la|cache|diff|out|log|guess|spec)$/) {
120 	push (@files_omitted, $fname);
122     } elsif ($fname =~ /\.(c|h|hpp|cpp|C|CPP|cc|CC)$/) {
124     } elsif ($fname =~ /\.pl$/) {
126     } elsif ($fname =~ /\.py$/) {
128     } elsif ($fname =~ /\.(sh|ksh|csh)$/) {
130     } elsif ($fname =~ /\.(java)$/) {
134 	push (@files_omitted, $fname);
156     my $fname = shift;
160     open SRCFILE, "<$fname" or die "failed to open file $fname";
168 		    if (defined($blurbs{$fname})) {
169 			push(@{$blurbs{$fname}}, $blurb);
172 			$blurbs{$fname} = \@b;
198 	if (defined ($blurbs{$fname})) {
199 	    push(@{$blurbs{$fname}}, $blurb);
202 	    $blurbs{$fname} = \@b;
208     my $fname = shift;
212     open SRCFILE, "<$fname" or die "failed to open file $fname";
248 			if (defined($blurbs{$fname})) {
249 			    push(@{$blurbs{$fname}}, $blurb);
252 			    $blurbs{$fname} = \@b;
279 	if (defined ($blurbs{$fname})) {
280 	    push(@{$blurbs{$fname}}, $blurb);
283 	    $blurbs{$fname} = \@b;
289     my $fname = shift;
293     open SRCFILE, "<$fname" or die "failed to open file $fname";
323 			if (defined($blurbs{$fname})) {
324 			    push(@{$blurbs{$fname}}, $blurb);
327 			    $blurbs{$fname} = \@b;
351 	if (defined ($blurbs{$fname})) {
352 	    push(@{$blurbs{$fname}}, $blurb);
355 	    $blurbs{$fname} = \@b;
365     my $fname = shift;
366     if (-d $fname) {
368 	opendir(DIR, $fname) || die("Cannot open directory $fname");
376 	    extract_comments ("$fname/$f");
378     } elsif (-f $fname) {
380 	my $ftype = get_file_type ($fname);
383 	    extract_comments_c ($fname);
385 	    extract_comments_shell ($fname);
387 	    extract_comments_shell ($fname);
389 	    extract_comments_python ($fname);
391 	    extract_comments_c ($fname);
394 	print STDERR "ERROR: $fname: no such file or directory\n";
687     foreach my $fname (keys %blurbs) {
688 	foreach my $blurb (@{$blurbs{$fname}}) {
694 		$comments{$blurb} .= ", $fname";
696 		$comments{$blurb} = $fname;
793 	foreach my $fname (@files_omitted) {
794 	    print "    $fname\n";