modules
/
nutools
10
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

awkrun: ajout de la fonction qarr()

This commit is contained in:
Jephté Clain 2016-02-26 11:19:30 +04:00
parent 81e7f9b672
commit 4648b3f744
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/ulib/awk
View File

@ -72,6 +72,10 @@ sqvals(s)
print \"mycmd\" sqvals() print \"mycmd\" sqvals()
L'alias qsvals(s) existe pour compatibilité 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) qsubrepl(s)
quoter une valeur pour l'argument r des fonctions sub() et gsub(). Les quoter une valeur pour l'argument r des fonctions sub() et gsub(). Les
caractères suivants sont mis en échappement: \\ & caractères suivants sont mis en échappement: \\ &

11
lib/ulib/base
View File

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