improved tools/enforce_style.

This commit is contained in:
Léonard Gérard 2010-09-20 23:32:22 +02:00
parent acdd480e0c
commit 1e6ec0a7d0

View file

@ -1,4 +1,2 @@
#!/bin/sh
find . \( -iname "*.ml" -or -iname "*.mli" \) -exec perl -pi -e 's/( |\t)+$//g' {} \;
find . \( -iname "*.ml" -or -iname "*.mli" \) -exec perl -pi -e 's/\t/ /g' {} \;
find . \! -path "*_build*" -and \( -iname "*.ml" -or -iname "*.mli" \) -exec perl -pi -e 's/( |\t)+$//gi; s/\t/ /g' {} \;