From 4fa1cdd4d2b00fa505585db6643b259537afcaba Mon Sep 17 00:00:00 2001
From: Emmanuel Giner LCT <eginer@obelixdev.local>
Date: Tue, 31 Mar 2020 19:02:03 +0200
Subject: [PATCH] Better regexp fon non-ascii files

---
 scripts/utility/qp_clean_source_files.sh | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/scripts/utility/qp_clean_source_files.sh b/scripts/utility/qp_clean_source_files.sh
index c2d4e366..e8f42123 100755
--- a/scripts/utility/qp_clean_source_files.sh
+++ b/scripts/utility/qp_clean_source_files.sh
@@ -29,9 +29,12 @@ if [[ -z ${QP_ROOT} ]] ; then
 fi
 
 
-FILES=$(grep -P "\xA0" ${QP_ROOT}/src/*/*.f | cut -d ':' -f 1 | sort | uniq)
+FILES=$(grep -e "[\x{00FF}-\x{FFFF}]" ${QP_ROOT}/src/*/*.f | cut -d ':' -f 1 | sort | uniq)
 for F in $FILES ; do
   echo "Cleaning $F"
-  vim -c "% s/\%xA0/ /g" -c ":wq" $F
+#  vim -c "% s/\%xA0/ /g" -c ":wq" $F
+  perl -pi -e 's/[^[:ascii:]]/ /g' $F
 done
 
+
+