1 files changed, 69 insertions, 0 deletions
diff --git a/cpukit/score/src/objectsetname.c b/cpukit/score/src/objectsetname.c
new file mode 100644
index 0000000000..793e0914dd
--- /dev/null
+++ b/cpukit/score/src/objectsetname.c
@@ -0,0 +1,69 @@
+/*
+ *  COPYRIGHT (c) 1989-2009.
+ *  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$
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include <rtems/system.h>
+#include <rtems/score/object.h>
+#include <rtems/score/thread.h>
+#include <rtems/score/wkspace.h>
+#include <stdlib.h>
+#include <ctype.h>
+#include <inttypes.h>
+#include <string.h>
+
+
+/*
+ *  This method sets the name of an object based upon a C string.
+ */
+
+bool _Objects_Set_name(
+  Objects_Information *information,
+  Objects_Control     *the_object,
+  const char          *name
+)
+{
+  size_t                 length;
+  const char            *s;
+
+  s      = name;
+  length = strnlen( name, information->name_length );
+
+#if defined(RTEMS_SCORE_OBJECT_ENABLE_STRING_NAMES)
+  if ( information->is_string ) {
+    char *d;
+
+    d = _Workspace_Allocate( length + 1 );
+    if ( !d )
+      return false;
+
+    _Workspace_Free( (void *)the_object->name.name_p );
+    the_object->name.name_p = NULL;
+
+    strncpy( d, name, length );
+    d[length] = '\0';
+    the_object->name.name_p = d;
+  } else
+#endif
+  {
+    the_object->name.name_u32 =  _Objects_Build_name(
+      ((0 <= length) ? s[ 0 ] : ' '),
+      ((1 <  length) ? s[ 1 ] : ' '),
+      ((2 <  length) ? s[ 2 ] : ' '),
+      ((3 <  length) ? s[ 3 ] : ' ')
+    );
+
+  }
+
+  return true;
+}