Lines Matching refs:file
15 # Provide option to put new ChangeLog into a separate file
17 # For new files, just say "New file" instead of listing
23 # Leave a diff file behind if asked, but in unified format.
28 # file or just spew it out stdout.
32 # Add CVS version numbers for each file too (can't do that until
64 # Update the change log file.
78 # For each file, build a list of modified lines.
81 my $file;
95 $file = $1 if /^Index: (\S+)$/;
96 my $basename = basename ($file);
97 if (defined $file
99 and (/^\d+(,\d+)?[acd](\d+)(,(\d+))?/ or /^Binary files/ or /^Cannot display: file marked as a binary type./) )
101 push @{$changed_line_ranges{$file}}, [ $2, $4 || $2 ];
111 # For each ".c" file, convert line range to function list.
114 foreach my $file (keys %changed_line_ranges)
117 $function_lists{$file} = "";
120 next unless $file =~ /\.(c|java|cs)/;
122 # Find all the functions in the file.
123 open SOURCE, $file or next;
124 my @function_ranges = get_function_line_ranges(\*SOURCE, $file);
130 my @change_ranges = (@{$changed_line_ranges{$file}}, []);
159 $function_lists{$file} = " (" . join("), (", @functions) . "):" if @functions;
162 # Write out a new ChangeLog file.
165 foreach my $file (sort keys %function_lists) {
166 $file = dirname ($file);
167 while ($file ne '.' and $file ne '/') {
168 if (-f "$file/ChangeLog") {
169 $changelogs{"./$file"} = 1;
172 $file = dirname ($file);
181 print STDERR " Editing the ChangeLog file(s).\n";
198 open OLD_CHANGE_LOG, "${chlog}/ChangeLog" or die "Could not open ChangeLog file: $OS_ERROR.\n";
203 foreach my $file (sort keys %function_lists) {
204 my $fname = "./$file";
207 my $lines = wrap("\t", "\t", "XX$fname:$function_lists{$file}");
210 delete ($function_lists{$file});
239 # Read a file and get all the line ranges of the things that look like C functions.
397 # Read a file and get all the line ranges of the things that look like Java