@verb #4133:"bf_toliteral" this none this rxdo #8084
@program #4133:"bf_toliteral" this none this
set_task_perms(caller_perms())
if (typeof(args[1]) != WAIF)
  return pass(@args)
endif
l = tostr(args[1]->class) + ":new({"
first = 1
for x in (args[1]->class:all_properties())
  if (length(x) && x[1] == ":")
    l = l + (first ? "" | ", ") + "{\"" + x[2..$] + "\", " + toliteral(args[1]->(x[2..$])) + "}"
    first = 0
  endif
endfor
l = l + "});"
return l
.