Lines Matching refs:elements
3757 my @elements = split(/($ops|;)/, $opline);
3767 foreach my $el (@elements) {
3777 for (my $n = 0; $n < $#elements; $n += 2) {
3783 $off += length($elements[$n]);
3788 if (length($opline) >= ($off + length($elements[$n + 1]))) {
3789 $cc = substr($opline, $off + length($elements[$n + 1]));
3794 $a = 'V' if ($elements[$n] ne '');
3795 $a = 'W' if ($elements[$n] =~ /\s$/);
3796 $a = 'C' if ($elements[$n] =~ /$;$/);
3797 $a = 'B' if ($elements[$n] =~ /(\[|\()$/);
3798 $a = 'O' if ($elements[$n] eq '');
3801 my $op = $elements[$n + 1];
3804 if (defined $elements[$n + 2]) {
3805 $c = 'V' if ($elements[$n + 2] ne '');
3806 $c = 'W' if ($elements[$n + 2] =~ /^\s/);
3807 $c = 'C' if ($elements[$n + 2] =~ /^$;/);
3808 $c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
3809 $c = 'O' if ($elements[$n + 2] eq '');
3810 $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
4038 $off += length($elements[$n + 1]);
4045 if (($#elements % 2) == 0) {
4046 $fixed_line = $fixed_line . $fix_elements[$#elements];