Lines Matching full:blk
1395 my $blk = '';
1413 #warn "CSB: blk<$blk> remain<$remain>\n";
1422 $blk .= $lines[$line] . "\n";
1423 $len = length($blk);
1428 #warn "CSB: blk<$blk> off<$off> len<$len>\n";
1432 if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1438 $c = substr($blk, $off, 1);
1439 $remainder = substr($blk, $off);
1466 #warn "[" . substr($blk, $soff, $coff - $soff + 1) . "]\n";
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];