This is a pretty awful workaround, but seems to do the trick:
BEGIN {
w = "\47"
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
}
}
Result:
$ 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