View/Edit #13:eval_value_to_string

Name(s): eval_value_to_string

1:  "Copied from Generic Programmer (#59):eval_value_to_string by Slacker (#2) May 29 21:49:03 1997"
2:  set_task_perms(caller_perms())
3:  if (typeof(val = args[1]) == $OBJ)
4:    return tostr("=&gt; ", val, "  ", valid(val) ? "(" + val.name + ")" | ((a = listassoc({{#-1, "&lt;$nothing&gt;"}, {#-2, "&lt;$ambiguous_match&gt;"}, {#-3, "&lt;$failed_match&gt;"}}, val)) ? a[2] | "&lt;invalid&gt;"))
5:  elseif (typeof(val) == $ERR)
6:    return tostr("=&gt; ", $code_utils:error_name(val), "  (", val, ")")
7:  else
8:    return "=&gt; " + $html_utils:literal_text(toliteral(val))
9:  endif
10: "Last modified by whiz (#3135) on Wed Jan 24 00:30:15 2007 EST."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.