Lines Matching refs:blk
1395 my $blk = '';
1422 $blk .= $lines[$line] . "\n";
1423 $len = length($blk);
1432 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1438 $c = substr($blk, $off, 1);
1439 $remainder = substr($blk, $off);
1492 if (substr($blk, $off + 1, 1) eq ';') {
1514 my $statement = substr($blk, $soff, $off - $soff + 1);
1515 my $condition = substr($blk, $soff, $coff - $soff + 1);
1602 my $blk = '';
1613 $blk .= $rawlines[$line];