Lines Matching refs:line_number
14122 my $line_number = shift;
14137 $line_number->{'file_name'} = $name;
14138 $line_number->{'line_nr'} = 1;
14187 my $line_number = shift;
14191 $line_number->{'file_name'} = $file->{'name'};
14195 $line_number->{'macro'} = $file->{'input_spool'}->{'macro'};
14196 $line_number->{'line_nr'} = $file->{'line_nr'};
14204 $line_number->{'macro'} = '';
14212 $line_number->{'line_nr'} = $file->{'line_nr'};
14227 my $line_number = shift;
14228 warn "$WARN $text " . format_line_number($line_number) . "\n";
14235 my $line_number = shift;
14236 warn "$ERROR $text " . format_line_number($line_number) . "\n";
14241 my $line_number = shift;
14243 #$line_number = undef;
14244 return '' unless (defined($line_number));
14245 $macro_text = " in $line_number->{'macro'}" if ($line_number->{'macro'} ne '');
14247 $file_text = "(in $line_number->{'file_name'} " if ($line_number->{'file_name'} ne $docu);
14248 return "${file_text}l. $line_number->{'line_nr'}" . $macro_text . ')';