Lines Matching refs:elements
3590 my @elements = split(/($ops|;)/, $opline);
3600 foreach my $el (@elements) {
3610 for (my $n = 0; $n < $#elements; $n += 2) {
3616 $off += length($elements[$n]);
3621 if (length($opline) >= ($off + length($elements[$n + 1]))) {
3622 $cc = substr($opline, $off + length($elements[$n + 1]));
3627 $a = 'V' if ($elements[$n] ne '');
3628 $a = 'W' if ($elements[$n] =~ /\s$/);
3629 $a = 'C' if ($elements[$n] =~ /$;$/);
3630 $a = 'B' if ($elements[$n] =~ /(\[|\()$/);
3631 $a = 'O' if ($elements[$n] eq '');
3634 my $op = $elements[$n + 1];
3637 if (defined $elements[$n + 2]) {
3638 $c = 'V' if ($elements[$n + 2] ne '');
3639 $c = 'W' if ($elements[$n + 2] =~ /^\s/);
3640 $c = 'C' if ($elements[$n + 2] =~ /^$;/);
3641 $c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
3642 $c = 'O' if ($elements[$n + 2] eq '');
3643 $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
3871 $off += length($elements[$n + 1]);
3878 if (($#elements % 2) == 0) {
3879 $fixed_line = $fixed_line . $fix_elements[$#elements];