1eb
@verb #1200:"parse_query" this none this rxdo #9988
@program #1200:"parse_query" this none this
{query} = args
i = index(query[2..$], "?") + 1
if (!i)
  return {query[2..$]}
endif
args = query[i + 1..$]
vname = query[2..i - 1]
u = {}
for iter in ($string_utils:explode(args, "&"))
  arg = $string_utils:explode(iter, "=")
  arg = this:decode(arg)
  arg = length(arg) < 2 ? {arg[1], ""} | {arg[1], length(arg) > 2 ? arg | arg[2]}
  u = {@u, arg}
endfor
return {vname, @u}
.

0