test-operator-cleanup 214 B

1234567891011
  1. #!/usr/bin/perl -w -p -i
  2. next if m#^ */\*# or m#^ *\* #;
  3. s/<([,)])/OP_LT$1/;
  4. s/(?<=[\s,])>([,)])/OP_GT$1/;
  5. #s/>([,)])/OP_GT$1/;
  6. s/==([,)])/OP_EQ$1/;
  7. s/>=([,)])/OP_GE$1/;
  8. s/<=([,)])/OP_LE$1/;
  9. s/!=([,)])/OP_NE$1/;