Lines Matching refs:blk

1055 	my $blk = '';
1082 				$blk .= $lines[$line] . "\n";
1083 				$len = length($blk);
1092 			if ($level == 0 && substr($blk, $off) =~ /^.\s*#\s*define/) {
1098 		$c = substr($blk, $off, 1);
1099 		$remainder = substr($blk, $off);
1152 				if (substr($blk, $off + 1, 1) eq ';') {
1174 	my $statement = substr($blk, $soff, $off - $soff + 1);
1175 	my $condition = substr($blk, $soff, $coff - $soff + 1);
1262 	my $blk = '';
1273 		$blk .= $rawlines[$line];