1 files changed, 87 insertions, 0 deletions
diff --git a/cpukit/score/src/objectnametoidstring.c b/cpukit/score/src/objectnametoidstring.c
new file mode 100644
index 0000000000..17b43d725d
--- /dev/null
+++ b/cpukit/score/src/objectnametoidstring.c
@@ -0,0 +1,87 @@
+/*
+ *  Object Handler - Object ID to Name (String)
+ *
+ *  COPYRIGHT (c) 1989-2010.
+ *  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 <string.h>
+
+#include <rtems/system.h>
+#include <rtems/score/address.h>
+#include <rtems/score/chain.h>
+#include <rtems/score/object.h>
+#if defined(RTEMS_MULTIPROCESSING)
+#include <rtems/score/objectmp.h>
+#endif
+#include <rtems/score/thread.h>
+#include <rtems/score/wkspace.h>
+#include <rtems/score/sysstate.h>
+#include <rtems/score/isr.h>
+
+#if defined(RTEMS_SCORE_OBJECT_ENABLE_STRING_NAMES)
+/*PAGE
+ *
+ *  _Objects_Name_to_id_string
+ *
+ *  These kernel routines search the object table(s) for the given
+ *  object name and returns the associated object id.
+ *
+ *  Input parameters:
+ *    information - object information
+ *    name        - user defined object name
+ *    id          - address of return ID
+ *
+ *  Output parameters:
+ *    id                                   - object id
+ *    OBJECTS_NAME_OR_ID_LOOKUP_SUCCESSFUL - if successful
+ *    error code                           - if unsuccessful
+ */
+
+Objects_Name_or_id_lookup_errors _Objects_Name_to_id_string(
+  Objects_Information *information,
+  const char          *name,
+  Objects_Id          *id
+)
+{
+  Objects_Control           *the_object;
+  uint32_t                   index;
+
+  /* ASSERT: information->is_string == true */
+
+  if ( !id )
+    return OBJECTS_INVALID_ADDRESS;
+
+  if ( !name )
+    return OBJECTS_INVALID_NAME;
+
+  if ( information->maximum != 0 ) {
+
+    for ( index = 1; index <= information->maximum; index++ ) {
+      the_object = information->local_table[ index ];
+      if ( !the_object )
+        continue;
+
+      if ( !the_object->name.name_p )
+        continue;
+
+      if (!strncmp( name, the_object->name.name_p, information->name_length)) {
+        *id = the_object->id;
+        return OBJECTS_NAME_OR_ID_LOOKUP_SUCCESSFUL;
+      }
+    }
+  }
+
+  return OBJECTS_INVALID_NAME;
+}
+#endif