1 files changed, 73 insertions, 0 deletions
diff --git a/cpukit/score/src/objectidtoname.c b/cpukit/score/src/objectidtoname.c
new file mode 100644
index 0000000000..bb96010957
--- /dev/null
+++ b/cpukit/score/src/objectidtoname.c
@@ -0,0 +1,73 @@
+/*
+ *  Obtain Object Name Given ID
+ *
+ *
+ *  COPYRIGHT (c) 1989-2003.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
+#if HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <rtems/system.h>
+#include <rtems/score/object.h>
+#include <rtems/score/thread.h>
+
+/*PAGE
+ *
+ *  _Objects_Id_to_name
+ *
+ *  DESCRIPTION:
+ *
+ *  This routine returns the name associated with the given ID.
+ *
+ *  INPUT:
+ *
+ *  id   - id of object to lookup name
+ *  name - pointer to location in which to store name
+ *
+ */
+
+
+Objects_Name_or_id_lookup_errors _Objects_Id_to_name (
+  Objects_Id      id,
+  Objects_Name   *name
+)
+{
+  uint32_t             the_api;
+  uint32_t             the_class;
+  Objects_Information *information;
+  Objects_Control     *the_object = (Objects_Control *) 0;
+  Objects_Locations    ignored_location;
+
+  if ( !name )
+    return OBJECTS_INVALID_NAME;
+
+  the_api = _Objects_Get_API( id );
+  if ( the_api && the_api > OBJECTS_APIS_LAST )
+    return OBJECTS_INVALID_ID;
+
+  the_class = _Objects_Get_class( id );
+
+  information = _Objects_Information_table[ the_api ][ the_class ];
+  if ( !information )
+    return OBJECTS_INVALID_ID;
+
+  if ( information->is_string )
+    return OBJECTS_INVALID_ID;
+
+  the_object = _Objects_Get( information, id, &ignored_location );
+  if ( !the_object )
+    return OBJECTS_INVALID_ID;
+
+  *name = the_object->name;
+  _Thread_Enable_dispatch();
+  return OBJECTS_NAME_OR_ID_LOOKUP_SUCCESSFUL;
+}