Lines Matching refs:coff
1612 my $coff = $off - 1;
1678 $coff = $off + length($1) - 1;
1680 #warn "CSB: mark coff<$coff> soff<$soff> 1<$1>\n";
1681 #warn "[" . substr($blk, $soff, $coff - $soff + 1) . "]\n";
1692 if ($level == 0 && $coff < $soff) {
1693 $coff = $off;
1695 #warn "CSB: mark coff<$coff>\n";
1730 my $condition = substr($blk, $soff, $coff - $soff + 1);
1735 #print "coff<$coff> soff<$off> loff<$loff>\n";