Lines Matching refs:remain
466 my ($linenr, $remain, $off) = @_;
486 #warn "CSB: blk<$blk> remain<$remain>\n";
490 for (; $remain > 0; $line++) {
493 $remain--;
573 $remain--;
585 $line, $remain + 1, $off - $loff + 1, $level);
632 my ($linenr, $remain, $off) = @_;
638 ($statement, $condition, $linenr, $remain, $off, $level) =
639 ctx_statement_block($linenr, $remain, $off);
640 #print "F: c<$condition> s<$statement> remain<$remain>\n";
642 if (!($remain > 0 && $condition =~ /^\s*(?:\n[+-])?\s*(?:if|else|do)\b/s)) {
649 ($statement, $condition, $linenr, $remain, $off, $level) =
650 ctx_statement_block($linenr, $remain, $off);
651 #print "C: c<$condition> s<$statement> remain<$remain>\n";
652 last if (!($remain > 0 && $condition =~ /^(?:\s*\n[+-])*\s*(?:else|do)\b/s));
661 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
671 for ($line = $start; $remain > 0; $line++) {
673 $remain--;
711 my ($linenr, $remain) = @_;
713 my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
717 my ($linenr, $remain) = @_;
719 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
723 my ($linenr, $remain, $off) = @_;
725 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
729 my ($linenr, $remain) = @_;
731 return ctx_block_get($linenr, $remain, 0, '{', '}', 0);
734 my ($linenr, $remain, $off) = @_;
736 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);