Lines Matching refs:remain
1426 my ($linenr, $remain, $off) = @_;
1446 #warn "CSB: blk<$blk> remain<$remain>\n";
1450 for (; $remain > 0; $line++) {
1453 $remain--;
1544 $remain--;
1556 $line, $remain + 1, $off - $loff + 1, $level);
1603 my ($linenr, $remain, $off) = @_;
1609 ($statement, $condition, $linenr, $remain, $off, $level) =
1610 ctx_statement_block($linenr, $remain, $off);
1611 #print "F: c<$condition> s<$statement> remain<$remain>\n";
1613 if (!($remain > 0 && $condition =~ /^\s*(?:\n[+-])?\s*(?:if|else|do)\b/s)) {
1620 ($statement, $condition, $linenr, $remain, $off, $level) =
1621 ctx_statement_block($linenr, $remain, $off);
1622 #print "C: c<$condition> s<$statement> remain<$remain>\n";
1623 last if (!($remain > 0 && $condition =~ /^(?:\s*\n[+-])*\s*(?:else|do)\b/s));
1632 my ($linenr, $remain, $outer, $open, $close, $off) = @_;
1642 for ($line = $start; $remain > 0; $line++) {
1644 $remain--;
1682 my ($linenr, $remain) = @_;
1684 my ($level, @r) = ctx_block_get($linenr, $remain, 1, '{', '}', 0);
1688 my ($linenr, $remain) = @_;
1690 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1694 my ($linenr, $remain, $off) = @_;
1696 my ($level, @r) = ctx_block_get($linenr, $remain, 0, '(', ')', $off);
1700 my ($linenr, $remain) = @_;
1702 return ctx_block_get($linenr, $remain, 0, '{', '}', 0);
1705 my ($linenr, $remain, $off) = @_;
1707 return ctx_block_get($linenr, $remain, 0, '(', ')', $off);