scripts/coccinelle/test-operator-cleanup


1
2
3
4
5
6
7
8
9
10
11

#!/usr/bin/perl -w -p -i

next if m#^ */\*# or m#^ *\* #;

s/<([,)])/OP_LT$1/;
s/(?<=[\s,])>([,)])/OP_GT$1/;
#s/>([,)])/OP_GT$1/;
s/==([,)])/OP_EQ$1/;
s/>=([,)])/OP_GE$1/;
s/<=([,)])/OP_LE$1/;
s/!=([,)])/OP_NE$1/;