if ($c eq 'AV') {
$n = $sv->FILL + 1
} elsif ($c eq 'HV') {
- $n = 2 * $sv->FILL
+ $n = 2 * $sv->KEYS
}
return undef, $n
$op = $op->first;
my ($r1, $l1);
- if (name($op) eq 'enteriter') {
+ my $for;
+ if (name($op) eq 'enteriter') { # for loop ?
+ $for = 1;
($r1, $l1) = $self->inspect($op);
- return $r1, $l1 if $r1 and zero $l1;
+ return $r1, $l1 if defined $r1 and zero $l1;
}
$op = $op->sibling;
- my $r;
+ my ($r2, $l2);
if (name($op->first) eq 'and') {
- ($r, my $l) = ($self->inspect($op->first->first))[0];
- return $r, $l if $r and zero $l;
- $r = ($self->inspect($op->first->first->sibling))[0];
+ ($r2, $l2) = $self->inspect($op->first->first);
+ return $r2, $l2 if defined $r2 and zero $l2;
+ my $c = count $l2;
+ return { list => 1 }, undef if !$for and defined $r2;
+ my ($r3, $l3) = $self->inspect($op->first->first->sibling);
+ return { list => 1 }, undef if defined $r3 and defined $l3;
+ $r2 = add $r2, scale $c, $r3;
} else {
- $r = ($self->inspect($op))[0];
+ ($r2, $l2) = $self->inspect($op);
+ return { list => 1 }, undef if defined $r2 and defined $l2;
}
+ my $r = (defined $r1) ? add $r1, scale +(1 - count $r1), $r2
+ : $r2;
my $c = 1 - count $r;
diag "& leaveloop $c" if $DEBUG;
return $r, $c ? { 0 => $c } : undef;