@verb #2992:"nn_list" this none this rxdo #562
@program #2992:"nn_list" this none this
"name_and_number(object [,sepr]) => \"ObjectName (#object)\""
"Return name and number for OBJECT.  Second argument is optional separator (forthose who want no space, use \"\").  If OBJECT is a list of objects, this maps the above function over the list and then passes it to $string_utils:english_list"
objs = args[1]
sepr = length(args) > 1 ? args[2] | " "
if (typeof(objs) != $LIST)
  objs = {objs}
endif
name_list = {}
for what in (objs)
  name = valid(what) ? what.name | {"<invalid>", "$nothing", "$ambiguous_match", "$failed_match"}[1 + (what in {#-1, #-2, #-3})]
  name = tostr(name, sepr, "(", what, ")")
  name_list = {@name_list, name}
endfor
name_list = $list_utils:sort(name_list)
$command_utils:suspend_if_needed(1)
return $string_utils:english_list(name_list)
"Last modified by Dax (#789) on Wed May  4 06:46:03 2005 MDT."
.