int2sint.perl 610 B

123456789101112131415161718192021
  1. #!PATH_TO_PERL
  2. while (<STDIN>) {
  3. s/([\s;\}\/])uint(\s)/$1unsigned int$2/g;
  4. s/^uint(\s)/unsigned int$1/g;
  5. s/([\s;\}\/\(\)])long(\s+)int([\s\)\+\-\*\/])/$1_WONX_LONG_$2_WONX_INT_$3/g;
  6. s/([\s;\}\/\(\)])short(\s+)int([\s\)\+\-\*\/])/$1_WONX_SHORT_$2_WONX_INT_$3/g;
  7. s/^long(\s+)int([\s\)\+\-\*\/])/_WONX_LONG_$1_WONX_INT_$2/g;
  8. s/^short(\s+)int([\s\)\+\-\*\/])/_WONX_SHORT_$1_WONX_INT_$2/g;
  9. s/([\s;\}\/\(\)])int([\s\)\+\-\*\/])/$1_WONX_SHORT_ _WONX_INT_$2/g;
  10. s/^int([\s\)\+\-\*\/])/_WONX_SHORT_ _WONX_INT_$1/g;
  11. s/_WONX_LONG_/long/g;
  12. s/_WONX_SHORT_/short/g;
  13. s/_WONX_INT_/int/g;
  14. print $_;
  15. }
  16. exit (0);