Lines Matching refs:file
161 my ($file, $rheader, $rcc) = @_;
163 insert($file , $insert, $inssearch{header}, $insafter{header});
167 my ($file, $rheader, $rcc, $mode) = @_;
171 insert($file , $cc, $inssearch{$mode}, $insafter{$mode});
173 insert($file , $header, $inssearch{header}, $insafter{header});
177 my ($file, $rheader, $rcc) = @_;
178 applymixedlocation($file, $rheader, $rcc, "commit");
183 my ($file, $rheader, $rcc) = @_;
184 applymixedlocation($file, $rheader, $rcc, "comment");
188 my ($file, $rheader, $rcc) = @_;
189 applymixedlocation($file, $rheader, $rcc, "end");
296 my $file;
300 foreach my $file (@patches) {
301 if ($file =~ /\/\Q$patch_prefix$cover_letter\E/) {
303 $cover_letter_file = $file;
318 print "Processing: ".basename($file)."\n";
322 getmaintainers($file, \@header, \@cc);
326 gettagsfrompatch($file, \@headerpatch, \@ccpatch, \@extrapatch);
346 $applylocation{$plocation}($file, \@header_only, \@cc_only);
421 my ($file, $rto, $rcc) = @_;
423 open($fh, "-|", $get_maintainer, @get_maintainer_args, $file)
442 my ($file, $rto, $rcc, $rextra) = @_;
445 open($fh, "<", $file)
446 or die "Failed to open '$file'\n";
501 my ($file) = @_;
504 open($fh, "<", $file)
505 or die "Could not open file '$file' $!";
514 my ($content, $file) = @_;
516 open($fh, ">", "$file.tmp")
517 or die "Could not open file '$file.tmp' $!";
520 rename "$file.tmp", $file or die "Could not rename '$file' into place $!";
524 my ($file, $insert, $delimiter, $insafter) = @_;
532 $content = readfile($file) or die $!;
537 writefile($`.$delimiter."\n".$insert."\n".$', $file);
540 print "\nInserted into ".basename($file).' after "'.
544 writefile($`.$insert."\n".$delimiter.$', $file);
547 print "\nInserted into ".basename($file).' before "'.
553 print "Error: Didn't find '$delimiter' in '$file'\n";