/*
 * find_object.c
 *
 * Find the object at a path if it exists
 *
 * (C) Frank Schmidt, Jesus@NorseMUD
 *
 */


#ifdef DEFAULT_SRC_EXTENSION

/* find an object */
static object find_object(string file) {
  /* accept objectnames ending with ".c" */
  int i;
  if ((i=strlen(file)) >= 2 && file[i-2..] == DEFAULT_SRC_EXTENSION)
    file = file[0..i-3];

  return ::find_object(file);
}

#endif