/* Do not remove the headers from this file! see /USAGE for more info. */

/*
** objfind.c
**
** Find the locations (environments) of instances of the given class
**
** 07-Nov-94. Created. Deathblade.
*/

//:COMMAND
//USAGE idfind <name>
//
//Lists all objects in the mud with the specified id,
//together with their location.

inherit CMD;

mapping envs;
string argo;

private void main(string arg)
{
  object * obs;

  if( !arg )
  {
    write( "Idfind what?\n");
    return;
  }

  argo = arg;
  obs = objects( (: $1->id( argo ) :));

  envs = ([ ]);
  map_array(obs, (: envs[$1] = environment($1) :));

  out(sprintf("%O\n", envs));
}