1 files changed, 79 insertions, 0 deletions
diff --git a/cpukit/score/src/objectidtoname.c b/cpukit/score/src/objectidtoname.c
new file mode 100644
index 0000000000..870d424986
--- /dev/null
+++ b/cpukit/score/src/objectidtoname.c
@@ -0,0 +1,79 @@
+/*
+ *  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 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>
+
+/*
+ *  _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_Id           tmpId;
+  Objects_Information *information;
+  Objects_Control     *the_object = (Objects_Control *) 0;
+  Objects_Locations    ignored_location;
+
+  /*
+   *  Caller is trusted for name != NULL.
+   */
+
+  tmpId = (id == OBJECTS_ID_OF_SELF) ? _Thread_Executing->Object.id : id;
+
+  the_api = _Objects_Get_API( tmpId );
+  if ( !_Objects_Is_api_valid( the_api ) )
+    return OBJECTS_INVALID_ID;
+
+  if ( !_Objects_Information_table[ the_api ] )
+    return OBJECTS_INVALID_ID;
+
+  the_class = _Objects_Get_class( tmpId );
+
+  information = _Objects_Information_table[ the_api ][ the_class ];
+  if ( !information )
+    return OBJECTS_INVALID_ID;
+
+  #if defined(RTEMS_SCORE_OBJECT_ENABLE_STRING_NAMES)
+    if ( information->is_string )
+      return OBJECTS_INVALID_ID;
+  #endif
+
+  the_object = _Objects_Get( information, tmpId, &ignored_location );
+  if ( !the_object )
+    return OBJECTS_INVALID_ID;
+
+  *name = the_object->name;
+  _Thread_Enable_dispatch();
+  return OBJECTS_NAME_OR_ID_LOOKUP_SUCCESSFUL;
+}