@verb #5110:"my_match" this none this rxdo #55
@program #5110:"my_match" this none this
"Copied from MOO Canada NNTP object v2.0 (#7294):my_match by Dizzy_Devil (#9299)Jan 30 23:39:28 1999"
"Copied from Generic Player (#12):my_match by manta (#7165)Jan 22 23:27:45 1999"
"Decides, from the point-of-view of `who', which of the following `visible' objects `string' matches"
{string, objects, ?who = this} = args
objects = $list_utils:remove_duplicates(objects)
if (string in $msg.me)
  return who
elseif (string in $msg.here)
  return who.location
elseif (matches = $match_utils:match_absolute(string))
  return length(matches) > 1 ? $ambiguous_match | matches[1]
elseif (matches = $match_utils:match_all(string, objects))
  return length(matches) > 1 ? $ambiguous_match | matches[1]
  "elseif (parsed = $match_utils:parse_ordinal_reference(string))"
elseif (parsed = $match_utils:parse_possessive_reference(string))
  {whostr, objstr} = parsed
  if (valid(who = this:my_match(whostr, objects, this)))
    return who:match(objstr, this)
  endif
  return who
endif
return $failed_match
.