/*
 * children.c
 *
 * Get a list of objects sharing a source_file_name
 * NB! This function is slow. Do not overuse!
 *
 * (C) Frank Schmidt, Jesus@NorseMUD
 *
 */

#include <objects.h>

static object *children(string file) {
  object *obs, *childs;
  int i;
  /* search through objects() for similar source-filenames */
  file = source_file_name(file);
  childs = ({ });
  for (i=::sizeof(obs=objects()); --i >= 0; ) {
    if (file == source_file_name(obs[i]))
      childs += ({ obs[i] });
  }
  return childs;
}