Lines Matching refs:blk

1011 	my $blk = '';
1038 				$blk .= $lines[$line] . "\n";
1039 				$len = length($blk);
1048 			if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1054 		$c = substr($blk, $off, 1);
1055 		$remainder = substr($blk, $off);
1108 				if (substr($blk, $off + 1, 1) eq ';') {
1130 	my $statement = substr($blk, $soff, $off - $soff + 1);
1131 	my $condition = substr($blk, $soff, $coff - $soff + 1);
1218 	my $blk = '';
1229 		$blk .= $rawlines[$line];