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
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
//$Id$
#include "../Scheduler.h"
#include "tao/RTScheduling/RTScheduler_Manager.h"
#include "tao/ORB.h"
#include "Thread_Action.h"
#include "ace/Thread_Manager.h"
#include "ace/SString.h"
#include "ace/Argv_Type_Converter.h"
int
ACE_TMAIN (int argc, ACE_TCHAR* argv [])
{
ACE_Argv_Type_Converter convert (argc, argv);
CORBA::ORB_var orb;
RTScheduling::Current_var current;
const char * name = 0;
CORBA::Policy_ptr sched_param = 0;
CORBA::Policy_ptr implicit_sched_param = 0;
Test_Thread_Action thread_action;
ACE_TRY_NEW_ENV
{
orb = CORBA::ORB_init (convert.get_argc(),
convert.get_ASCII_argv(),
""
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
CORBA::Object_var manager_obj = orb->resolve_initial_references ("RTSchedulerManager"
ACE_ENV_ARG_PARAMETER);
ACE_CHECK_RETURN (-1);
TAO_RTScheduler_Manager_var manager = TAO_RTScheduler_Manager::_narrow (manager_obj.in ()
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
TAO_Scheduler* scheduler;
ACE_NEW_RETURN (scheduler,
TAO_Scheduler (orb.in ()),
-1);
RTScheduling::Scheduler_var safe_scheduler = scheduler;
manager->rtscheduler (scheduler);
CORBA::Object_var current_obj = orb->resolve_initial_references ("RTScheduler_Current"
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
current = RTScheduling::Current::_narrow (current_obj.in ()
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
ACE_TRY_EX (block1)
{
ACE_DEBUG ((LM_DEBUG,
"Invoking DT spawn without calling begin_scheduling_segment...\n"));
ACE_CString data ("Harry Potter");
current->spawn (&thread_action,
const_cast<char *> (data.c_str ()),
name,
sched_param,
implicit_sched_param,
0,
0
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK_EX (block1);
}
ACE_CATCH (CORBA::BAD_INV_ORDER, thr_ex)
{
ACE_DEBUG ((LM_DEBUG,
"Spawn should be in the context of a Scheduling Segment - Expected Exception\n"));
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
"\n");
}
ACE_ENDTRY;
ACE_DEBUG ((LM_DEBUG,
"Start - Scheduling Segment...\n"));
current->begin_scheduling_segment ("Potter",
sched_param,
implicit_sched_param
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
size_t count = 0;
ACE_OS::memcpy (&count,
current->id ()->get_buffer (),
current->id ()->length ());
ACE_DEBUG ((LM_DEBUG,
"The Current DT Guid is %d\n",
count));
//Initialize data to be passed to the Thread_Action::do method
Data spawn_data;
spawn_data.data = "Harry Potter";
spawn_data.current = RTScheduling::Current::_duplicate (current.in ());
ACE_DEBUG ((LM_DEBUG,
"Spawning a new DT...\n"));
RTScheduling::DistributableThread_var dt =
current->spawn (&thread_action,
&spawn_data,
"Chamber of Secrets",
sched_param,
implicit_sched_param,
0,
0
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
current->end_scheduling_segment (name
ACE_ENV_ARG_PARAMETER);
ACE_TRY_CHECK;
ACE_DEBUG ((LM_DEBUG,
"End - Scheduling Segment %d\n",
count));
}
ACE_CATCHANY
{
ACE_PRINT_EXCEPTION (ACE_ANY_EXCEPTION,
"Caught Exception\n");
}
ACE_ENDTRY;
ACE_Thread_Manager::instance ()->wait ();
return 0;
}
|
