defluaescapestring#1{%
  expandafterexpandafterexpandafterexpandafterexpandafterexpandafter
  expandafternextexpandafterexpandafterexpandaftergobbleone
  expandafterdetokenizeexpandafter{csname#1endcsname}relax}%
defgobbleone#1{}%
begingroup
  catcode`"=12%
  catcode`|=0%
  catcode`\=12%
  |gdef|next#1{%
    |if#1|relax|else
      |if#1"%
        "|expandafter|expandafter|expandafter
          |next
      |else
        |if#1%
          \|expandafter|expandafter|expandafter|expandafter
            |expandafter|expandafter|expandafter|next
        |else
          #1|expandafter|expandafter|expandafter|expandafter
            |expandafter|expandafter|expandafter|next
        |fi
      |fi
    |fi}%
|endgroup