awkrun: ajout de la fonction qarr()

lib/ulib/awk

@@ -72,6 +72,10 @@ sqvals(s)
         print \"mycmd\" sqvals()
     L'alias qsvals(s) existe pour compatibilité
 
+qarr(vs)
+    quoter les valeurs du tableau vs pour le shell, e.g:
+        print \"values=(\" qarr(values) \")\"
+
 qsubrepl(s)
     quoter une valeur pour l'argument r des fonctions sub() et gsub(). Les
     caractères suivants sont mis en échappement: \\ &

lib/ulib/base

@@ -1881,13 +1881,22 @@ function qvals(             i, line) {
   line = ""
   for (i = 1; i <= NF; i++) {
     if (i > 1) line = line " "
-    line = line quote_value($i)
+    line = line qval($i)
   }
   return line
 }
 function sqvals() {
   return " " qvals()
 }
+function qarr(values,     i, count, line) {
+  line = ""
+  count = array_len(values)
+  for (i = 1; i <= count; i++) {
+    if (i > 1) line = line " "
+    line = line qval(values[i])
+  }
+  return line
+}
 function qregexp(s) {
   gsub(/[[\\.^$*+?()|{]/, "\\\\&", s)
   return s