Lines Matching refs:blk
1673 my $blk = '';
1691 #warn "CSB: blk<$blk> remain<$remain>\n";
1700 $blk .= $lines[$line] . "\n";
1701 $len = length($blk);
1706 #warn "CSB: blk<$blk> off<$off> len<$len>\n";
1710 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1716 $c = substr($blk, $off, 1);
1717 $remainder = substr($blk, $off);
1744 #warn "[" . substr($blk, $soff, $coff - $soff + 1) . "]\n";
1770 if (substr($blk, $off + 1, 1) eq ';') {
1792 my $statement = substr($blk, $soff, $off - $soff + 1);
1793 my $condition = substr($blk, $soff, $coff - $soff + 1);
1880 my $blk = '';
1891 $blk .= $rawlines[$line];