Lines Matching refs:elements
1795 my @elements = split(/($ops|;)/, $opline);
1800 for (my $n = 0; $n < $#elements; $n += 2) {
1801 $off += length($elements[$n]);
1806 if (length($opline) >= ($off + length($elements[$n + 1]))) {
1807 $cc = substr($opline, $off + length($elements[$n + 1]));
1812 $a = 'V' if ($elements[$n] ne '');
1813 $a = 'W' if ($elements[$n] =~ /\s$/);
1814 $a = 'C' if ($elements[$n] =~ /$;$/);
1815 $a = 'B' if ($elements[$n] =~ /(\[|\()$/);
1816 $a = 'O' if ($elements[$n] eq '');
1819 my $op = $elements[$n + 1];
1822 if (defined $elements[$n + 2]) {
1823 $c = 'V' if ($elements[$n + 2] ne '');
1824 $c = 'W' if ($elements[$n + 2] =~ /^\s/);
1825 $c = 'C' if ($elements[$n + 2] =~ /^$;/);
1826 $c = 'B' if ($elements[$n + 2] =~ /^(\)|\]|;)/);
1827 $c = 'O' if ($elements[$n + 2] eq '');
1828 $c = 'E' if ($elements[$n + 2] =~ /^\s*\\$/);
1953 $off += length($elements[$n + 1]);