Lines Matching refs:linenr
1009 my ($linenr, $remain, $off) = @_;
1010 my $line = $linenr - 1;
1186 my ($linenr, $remain, $off) = @_;
1192 ($statement, $condition, $linenr, $remain, $off, $level) =
1193 ctx_statement_block($linenr, $remain, $off);
1197 return ($level, $linenr, @chunks);
1203 ($statement, $condition, $linenr, $remain, $off, $level) =
1204 ctx_statement_block($linenr, $remain, $off);
1211 return ($level, $linenr, @chunks);
1215 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1217 my $start = $linenr - 1;
1265 my ($linenr, $remain) = @_;
1267 my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1271 my ($linenr, $remain) = @_;
1273 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1277 my ($linenr, $remain, $off) = @_;
1279 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1283 my ($linenr, $remain) = @_;
1285 return ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1288 my ($linenr, $remain, $off) = @_;
1290 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1304 for (my $linenr = $first_line; $linenr < $end_line; $linenr++) {
1305 my $line = $rawlines[$linenr - 1];
1307 if ($linenr == $first_line and $line =~ m@^.\s*\*@) {
1336 my ($linenr, $cnt) = @_;
1338 my $offset = $linenr - 1;
1725 my ($linenr, $line) = @_;
1728 LINENR => $linenr,
1735 my ($linenr, $line) = @_;
1738 LINENR => $linenr,
1884 my $linenr=0;
1945 $linenr++;
1972 for (my $ln = $linenr + 1; $cnt > 0; $ln++) {
1992 $rawlines[$linenr] =~ m@^.\s*(?:\*\*+| \*)(?:\s|$)@)
2024 $linenr = 0;
2027 $linenr++;
2032 my $rawline = $rawlines[$linenr - 1];
2037 $first_line = $linenr + 1;
2078 $prefix = "$filename:$linenr: " if ($emacs && !$file);
2080 $here = "#$linenr: " if (!$file);
2267 defined $rawlines[$linenr] &&
2268 $rawlines[$linenr] =~ /^\s*\("([^"]+)"\)/) {
2272 defined $rawlines[$linenr] &&
2273 $rawlines[$linenr] =~ /^\s*[^"]+"\)/) {
2276 $rawlines[$linenr] =~ /^\s*([^"]+)"\)/;
2416 my $ln = $linenr + 1;
2526 …if ($line =~ /^\+/ && defined $lines[$linenr] && $lines[$linenr] =~ /^\\ No newline at end of file…
2675 $last_blank_line != ($linenr - 1)) {
2682 $last_blank_line = $linenr;
2750 defined $lines[$linenr] &&
2751 $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
2801 if ($linenr >= $suppress_statement &&
2804 ctx_statement_block($linenr, $realcnt, 0);
2882 my @ctx = ctx_block_outer($linenr, $realcnt);
2905 my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
2915 my $ctx_ln = $linenr;
2950 ctx_statement_block($linenr, $realcnt, 0)
3016 my $stat_real = raw_line($linenr, $cond_lines);
3044 print "$linenr > .$outline\n";
3045 print "$linenr > $curr_values\n";
3046 print "$linenr > $curr_vars\n";
3158 if (!defined $suppress_export{$linenr} &&
3163 $suppress_export{$linenr} = 2;
3165 if (defined $suppress_export{$linenr} &&
3166 $suppress_export{$linenr} == 2) {
3354 for (my $ln = $linenr - 1; $ln >= $first_line; $ln--) {
4048 $linenr >= 3 &&
4049 $lines[$linenr - 3] =~ /^[ +]/ &&
4050 $lines[$linenr - 3] !~ /^[ +]\s*$Ident\s*:/) {
4092 ctx_statement_block($linenr, $realcnt, 0)
4111 if (!defined $suppress_whiletrailers{$linenr} &&
4134 $stat_real = raw_line($linenr, $cond_lines)
4209 my ($s, $c) = ctx_statement_block($linenr, $realcnt, 0);
4311 my $ln = $linenr;
4318 ctx_statement_block($linenr, $realcnt, 0);
4378 $herectx .= raw_line($linenr, $n) . "\n";
4397 $herectx .= raw_line($linenr, $n) . "\n";
4421 my $ln = $linenr;
4426 ctx_statement_block($linenr, $realcnt, 0);
4441 $herectx .= raw_line($linenr, $n) . "\n";
4459 $herectx .= raw_line($linenr, $n) . "\n";
4480 ctx_statement_full($linenr, $realcnt, 1);
4488 my $ln = $linenr - 1;
4540 if (!defined $suppress_ifbraces{$linenr - 1} &&
4551 ctx_statement_full($linenr, $realcnt, $-[0]);
4587 $herectx .= raw_line($linenr, $n) . "\n";
4629 $last_coalesced_string_linenr != $linenr - 1) {
4647 $last_coalesced_string_linenr = $linenr;
4717 $linenr > 3) {
4719 my $testline = $lines[$linenr - 3];
4721 my ($s, $c) = ctx_statement_block($linenr - 3, $realcnt, 0);
4889 if (!ctx_has_comment($first_line, $linenr)) {
4896 if (!ctx_has_comment($first_line, $linenr)) {
5086 $lc = $lc + $linenr;
5087 my $stat_real = raw_line($linenr, 0);
5088 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5100 $lc = $lc + $linenr;
5101 my $stat_real = raw_line($linenr, 0);
5102 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5243 my $prevline = $linenr;
5271 $herectx .= raw_line($linenr, $n) . "\n";