Lines Matching refs:linenr
1271 my ($linenr, $remain, $off) = @_;
1272 my $line = $linenr - 1;
1448 my ($linenr, $remain, $off) = @_;
1454 ($statement, $condition, $linenr, $remain, $off, $level) =
1455 ctx_statement_block($linenr, $remain, $off);
1459 return ($level, $linenr, @chunks);
1465 ($statement, $condition, $linenr, $remain, $off, $level) =
1466 ctx_statement_block($linenr, $remain, $off);
1473 return ($level, $linenr, @chunks);
1477 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1479 my $start = $linenr - 1;
1527 my ($linenr, $remain) = @_;
1529 my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1533 my ($linenr, $remain) = @_;
1535 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1539 my ($linenr, $remain, $off) = @_;
1541 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1545 my ($linenr, $remain) = @_;
1547 return ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1550 my ($linenr, $remain, $off) = @_;
1552 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1566 for (my $linenr = $first_line; $linenr < $end_line; $linenr++) {
1567 my $line = $rawlines[$linenr - 1];
1569 if ($linenr == $first_line and $line =~ m@^.\s*\*@) {
1598 my ($linenr, $cnt) = @_;
1600 my $offset = $linenr - 1;
2006 my ($linenr, $line) = @_;
2009 LINENR => $linenr,
2016 my ($linenr, $line) = @_;
2019 LINENR => $linenr,
2165 my $linenr=0;
2229 $linenr++;
2256 for (my $ln = $linenr + 1; $cnt > 0; $ln++) {
2276 $rawlines[$linenr] =~ m@^.\s*(?:\*\*+| \*)(?:\s|$)@)
2308 $linenr = 0;
2311 $linenr++;
2316 my $rawline = $rawlines[$linenr - 1];
2323 $first_line = $linenr + 1;
2367 $here = "#$linenr: " if (!$file);
2403 $prefix = "$filename:$linenr: ";
2616 defined $rawlines[$linenr] &&
2617 $rawlines[$linenr] =~ /^\s*\("([^"]+)"\)/) {
2621 defined $rawlines[$linenr] &&
2622 $rawlines[$linenr] =~ /^\s*[^"]+"\)/) {
2625 $rawlines[$linenr] =~ /^\s*([^"]+)"\)/;
2769 my $ln = $linenr + 1;
2927 …if ($line =~ /^\+/ && defined $lines[$linenr] && $lines[$linenr] =~ /^\\ No newline at end of file…
3116 $last_blank_line != ($linenr - 1)) {
3123 $last_blank_line = $linenr;
3202 defined $lines[$linenr] &&
3203 $lines[$linenr] !~ /^[ \+]\t{$tabs,$tabs}return/)) {
3247 if ($linenr > $suppress_statement &&
3250 ctx_statement_block($linenr, $realcnt, 0);
3328 my @ctx = ctx_block_outer($linenr, $realcnt);
3351 my ($level, @ctx) = ctx_statement_level($linenr, $realcnt, 0);
3361 my $ctx_ln = $linenr;
3396 ctx_statement_block($linenr, $realcnt, 0)
3469 my $stat_real = raw_line($linenr, $cond_lines);
3501 print "$linenr > .$outline\n";
3502 print "$linenr > $curr_values\n";
3503 print "$linenr > $curr_vars\n";
3651 if (!defined $suppress_export{$linenr} &&
3656 $suppress_export{$linenr} = 2;
3658 if (defined $suppress_export{$linenr} &&
3659 $suppress_export{$linenr} == 2) {
3838 for (my $ln = $linenr - 1; $ln >= $first_line; $ln--) {
4532 $linenr >= 3 &&
4533 $lines[$linenr - 3] =~ /^[ +]/ &&
4534 $lines[$linenr - 3] !~ /^[ +]\s*$Ident\s*:/) {
4605 ctx_statement_block($linenr, $realcnt, 0)
4624 if (!defined $suppress_whiletrailers{$linenr} &&
4647 $stat_real = raw_line($linenr, $cond_lines)
4722 my ($s, $c) = ctx_statement_block($linenr, $realcnt, 0);
4824 my $ln = $linenr;
4831 ctx_statement_block($linenr, $realcnt, 0);
4891 $herectx .= raw_line($linenr, $n) . "\n";
4968 $herectx .= raw_line($linenr, $n) . "\n";
4992 my $ln = $linenr;
4997 ctx_statement_block($linenr, $realcnt, 0);
5012 $herectx .= raw_line($linenr, $n) . "\n";
5030 $herectx .= raw_line($linenr, $n) . "\n";
5051 ctx_statement_full($linenr, $realcnt, 1);
5059 my $ln = $linenr - 1;
5111 if (!defined $suppress_ifbraces{$linenr - 1} &&
5122 ctx_statement_full($linenr, $realcnt, $-[0]);
5158 $herectx .= raw_line($linenr, $n) . "\n";
5206 $last_coalesced_string_linenr != $linenr - 1) {
5224 $last_coalesced_string_linenr = $linenr;
5319 if ($lines[$linenr - 2] =~ /^\+(\t*)if\s*\(\s*$tested\s*\)\s*$/) {
5324 if ($lines[$linenr - 1] =~ /^\+(\t+)$func\s*\(\s*$tested\s*\)\s*;\s*$/) {
5344 $linenr > 3) {
5346 my $testline = $lines[$linenr - 3];
5348 my ($s, $c) = ctx_statement_block($linenr - 3, $realcnt, 0);
5522 if (!ctx_has_comment($first_line, $linenr)) {
5550 if (!ctx_has_comment($first_line, $linenr)) {
5568 if (!ctx_has_comment($first_line, $linenr)) {
5744 $lc = $lc + $linenr;
5745 for (my $count = $linenr; $count <= $lc; $count++) {
5754 my $stat_real = raw_line($linenr, 0);
5755 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5871 $lc = $lc + $linenr;
5872 my $stat_real = raw_line($linenr, 0);
5873 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5885 $lc = $lc + $linenr;
5886 my $stat_real = raw_line($linenr, 0);
5887 for (my $count = $linenr + 1; $count <= $lc; $count++) {
5966 my $rl = raw_line($linenr, $n);
6023 $herectx .= raw_line($linenr, $n) . "\n";
6083 my $prevline = $linenr;
6111 $herectx .= raw_line($linenr, $n) . "\n";
6283 $lc = $lc + $linenr;
6284 my $stat_real = raw_line($linenr, 0);
6285 for (my $count = $linenr + 1; $count <= $lc; $count++) {