Lines Matching refs:soff
1611 my $soff = $off;
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) {
1729 my $statement = substr($blk, $soff, $off - $soff + 1);
1730 my $condition = substr($blk, $soff, $coff - $soff + 1);
1735 #print "coff<$coff> soff<$off> loff<$loff>\n";