1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#include "Process_Name.h"
#include "dance/DAnCE_PropertiesC.h"
#include "dance/Deployment/Deployment_StartErrorC.h"
#include "dance/Logger/Log_Macros.h"
#if defined (LINUX_VERSION_CODE) && defined (KERNEL_VERSION)
# if (LINUX_VERSION_CODE >= KERNEL_VERSION(2,6,9))
#include <sys/prctl.h>
#include <sstream>
#include "ace/Auto_Ptr.h"
#endif
#endif
namespace DAnCE
{
Process_Name::Process_Name (void)
{
}
// Implementation skeleton destructor
Process_Name::~Process_Name (void)
{
}
char * Process_Name::type (void)
{
return CORBA::string_dup (DAnCE::DANCE_LM_PROCESSNAME);
}
void Process_Name::configure (const ::Deployment::Property & prop)
{
#if defined (LINUX_VERSION_CODE) && defined (KERNEL_VERSION)
# if (LINUX_VERSION_CODE >= KERNEL_VERSION(2,6,9))
const char *pname;
if (! (prop.value >>= CORBA::Any::to_string (pname, 0)))
{
DANCE_ERROR (DANCE_LOG_TERMINAL_ERROR,
(LM_ERROR, DLINFO
ACE_TEXT ("Process_Name::configure - ")
ACE_TEXT ("Unable to extract process name string")));
throw ::Deployment::StartError (prop.name.in (),
"Unable to extract process name string");
}
unsigned long arg (0);
ACE_Auto_Basic_Array_Ptr<char> safe_array;
if (!(ACE_OS::strlen (pname) <= 16))
{
char *tmp (0);
ACE_NEW_THROW_EX (tmp,
char[16],
CORBA::NO_MEMORY ());
safe_array.reset (tmp);
ACE_OS::strncpy (tmp, pname, 15);
tmp[15] = '\0';
arg = reinterpret_cast<unsigned long> (tmp);
}
else
arg = reinterpret_cast<unsigned long> (pname);
int const retval = ::prctl (PR_SET_NAME, arg);
if (retval != 0)
{
std::stringstream str;
ACE_Auto_Basic_Array_Ptr<char> safe_error (ACE_OS::strerror (ACE_OS::last_error ()));
str << "Unable to set process name to <" << pname << ">: "
<< safe_error.get ();
std::string message = str.str ();
DANCE_ERROR (DANCE_LOG_TERMINAL_ERROR,
(LM_ERROR, DLINFO
ACE_TEXT ("Process_Name::configure - %C\n"),
message.c_str ()));
throw ::Deployment::StartError (prop.name,
message.c_str ());
}
return;
#endif
#endif
throw ::Deployment::StartError (prop.name,
"Setting process name not supported on this platform");
}
}
extern "C"
{
DAnCE::LocalityConfiguration_ptr create_Process_Name (void)
{
DAnCE::LocalityConfiguration_ptr retval (0);
ACE_NEW_RETURN (retval,
DAnCE::Process_Name (),
0);
return retval;
}
}
|
