Lines Matching refs:op
2068 my $op = $elements[$n + 1];
2093 my $opv = $op . substr($curr_vars, $off, 1);
2103 } elsif ($op eq ';') {
2106 ERROR("space required after that '$op' $at\n" . $hereptr);
2110 } elsif ($op eq '//') {
2115 } elsif ($op eq '->' || $opv eq ':B') {
2117 ERROR("spaces prohibited around that '$op' $at\n" . $hereptr);
2121 } elsif ($op eq ',') {
2123 ERROR("space required after that '$op' $at\n" . $hereptr);
2133 } elsif ($op eq '!' || $op eq '~' ||
2137 ERROR("space required before that '$op' $at\n" . $hereptr);
2139 if ($op eq '*' && $cc =~/\s*$Modifier\b/) {
2143 ERROR("space prohibited after that '$op' $at\n" . $hereptr);
2147 } elsif ($op eq '++' or $op eq '--') {
2149 ERROR("space required one side of that '$op' $at\n" . $hereptr);
2153 ERROR("space prohibited before that '$op' $at\n" . $hereptr);
2156 ERROR("space prohibited after that '$op' $at\n" . $hereptr);
2161 } elsif ($op eq '<<' or $op eq '>>' or
2162 $op eq '&' or $op eq '^' or $op eq '|' or
2163 $op eq '+' or $op eq '-' or
2164 $op eq '*' or $op eq '/' or
2165 $op eq '%')
2168 ERROR("need consistent spacing around '$op' $at\n" .
2176 ERROR("space prohibited before that '$op' $at\n" . $hereptr);
2184 if (($op eq '<' &&
2186 ($op eq '>' &&
2194 ($op eq '?' && $cc =~ /^:/)) {
2199 ERROR("spaces required around that '$op' $at\n" . $hereptr);