Merge branch 'gawk-4.1-stable'

1 files changed, 49 insertions, 0 deletions

diff --git a/helpers/quoteconvert2.sh b/helpers/quoteconvert2.sh
new file mode 100755
index 00000000..e33a4d05
--- /dev/null
+++ b/helpers/quoteconvert2.sh
@@ -0,0 +1,49 @@
+#!/bin/sh
+
+# quoteconvert2.sh --- test locale dependent output of numbers
+# Michal Jaegermann, michal@harddata.com, 2014/Mar/1
+
+#AWK="../gawk"
+SCRIPT=`basename $0`
+
+if [ "$AWK" = "" ]
+then
+        echo $0: You must set AWK >&2
+        exit 1
+fi
+
+# The last entry on this list represents "a locale with a typo".
+
+llist="
+C
+en_US
+en_US.utf8
+de_DE
+de_DE.utf8
+fr_FR
+fr_FR.utf8
+pt_PT
+pt_PT.utf8
+pt_BR
+pt_BR.utf8
+ru_RU
+ru_RU.utf8
+pl_PX
+"
+
+error=0
+for lc in $llist ; do
+    wanted=`LC_ALL=$lc locale -c LC_NUMERIC 2>/dev/null | \
+	$AWK 'NR == 2 { decimal_point = $0 }
+	      NR == 3 { thousands_sep = $0 }
+	      END  { printf("123%s456%s789%s15\n",
+		       thousands_sep, thousands_sep, decimal_point)}'`
+    got=`LC_ALL=$lc $AWK "BEGIN {printf(\"%'.2f\n\",123456789.15)}"`
+    if [ "$wanted" != "$got" ] ; then
+	echo "$lc - unexpected output $got instead of $wanted"
+	error=1
+    fi
+done
+
+[ "$error" = 0 ] && echo ok || echo bummer
+exit $error