Esta é uma solução bem ruim, mas parece fazer o truque:
BEGIN {
w = ""
while (++i < ARGC) {
x = split(ARGV[i], y, w)
for (each in y) {
if (y[each] ~ /[^[:alnum:]%+,./:=@_-]/)
printf w y[each] w
else
printf y[each]
if (each < x)
printf "\" w
}
if (i == ARGC - 1)
printf RS
else
printf FS
}
}
Resultado:
$ awk -f charlie.awk touch "alfa bravo"
touch 'alfa bravo'
$ awk -f charlie.awk touch 'alfa"bravo'
touch 'alfa"bravo'
$ awk -f charlie.awk touch "alfa'bravo"
touch alfa\'bravo