Lines Matching refs:elements
4481 my @elements = split(/($ops|;)/, $opline);
4491 foreach my $el (@elements) {
4501 for (my $n = 0; $n < $#elements; $n += 2) {
4507 $off += length($elements[$n]);
4512 if (length($opline) >= ($off + length($elements[$n + 1]))) {
4513 $cc = substr($opline, $off + length($elements[$n + 1]));
4518 $a = 'V' if ($elements[$n] ne '');
4519 $a = 'W' if ($elements[$n] =~ /\s$/);
4520 $a = 'C' if ($elements[$n] =~ /$;$/);
4521 $a = 'B' if ($elements[$n] =~ /(\[|\()$/);
4522 $a = 'O' if ($elements[$n] eq '');
4525 my $op = $elements[$n + 1];
4528 if (defined $elements[$n + 2]) {
4529 $c = 'V' if ($elements[$n + 2] ne '');
4530 $c = 'W' if ($elements[$n + 2] =~ /^\s/);
4531 $c = 'C' if ($elements[$n + 2] =~ /^$;/);
4532 $c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
4533 $c = 'O' if ($elements[$n + 2] eq '');
4534 $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
4769 $off += length($elements[$n + 1]);
4776 if (($#elements % 2) == 0) {
4777 $fixed_line = $fixed_line . $fix_elements[$#elements];