334
@verb #0:"find_ref*erence" this none this rxdo #55
@program #0:"find_ref*erence" this none this
"$find_reference(OBJ) => '$object' | 0"
"Find the `$' reference of an object on #0 and all of its parents (including the Reference Database).  Understands #-1, #-2 & #-3."
"If no match, return 0"
{what} = args
"Check the reverse reference database for a non-authoritative hint."
cache = $reverse_refdb:find_exact(tostr(toint(what)))
if (cache != $failed_match && this.(cache) == what)
  "Hey, the hint checks out!  That was fast."
  return "$" + cache
endif
"The reverse reference database was no help.  Scan all properties for a match."
for x in (this:all_properties())
  if (this.(x) == what)
    return "$" + x
  endif
endfor
return 0
"Last modified by Dax (#789) on Sat May 21 04:53:00 2005 MDT."
.

0