Lines Matching refs:file
4 # license that can be found in the LICENSE file.
35 @file = @ARGV[$_+1 .. @ARGV-1];
42 unless(@file) {
45 @file = glob($ARGV[$_] . "/*.go");
51 foreach $file (@file) {
52 open(SRC, $file) || die "BUG: errchk: open $file: $!";
53 $src{$file} = [<SRC>];
96 my $file = shift;
101 foreach my $src (@{$src{$file}}) {
107 print STDERR "$file:$line: malformed regexp\n";
110 @errmsg = grep { /$file:$line[:[]/ } @out;
111 @out = grep { !/$file:$line[:[]/ } @out;
114 print STDERR "errchk: $file:$line: missing expected error: '$all'\n";
128 $regexp = "$`$file:$n$'";
134 print STDERR "errchk: $file:$line: error messages do not match '$regexp'\n";
141 print STDERR "errchk: $file:$line: unmatched error messages:\n";
149 foreach $file (@file) {
150 chk($file)
