diff options
Diffstat (limited to 'TAO/orbsvcs/lib/RtecSchedulerS.cpp')
-rw-r--r-- | TAO/orbsvcs/lib/RtecSchedulerS.cpp | 325 |
1 files changed, 0 insertions, 325 deletions
diff --git a/TAO/orbsvcs/lib/RtecSchedulerS.cpp b/TAO/orbsvcs/lib/RtecSchedulerS.cpp deleted file mode 100644 index 43679b79f97..00000000000 --- a/TAO/orbsvcs/lib/RtecSchedulerS.cpp +++ /dev/null @@ -1,325 +0,0 @@ -// ****** Code generated by the The ACE ORB (TAO) IDL Compiler ******* -// TAO ORB and the TAO IDL Compiler have been developed by Washington -// University Computer Science's Distributed Object Computing Group. -// -// Information on TAO is available at -// http://www.cs.wustl.edu/~schmidt/TAO.html - -#include "RtecSchedulerS.h" - -#if !defined (__ACE_INLINE__) -#include "RtecSchedulerS.i" -#endif // !defined INLINE - -static const TAO_operation_db_entry Scheduler_operations [] = { - {"create", &POA_RtecScheduler::Scheduler::create_skel}, - {"lookup", &POA_RtecScheduler::Scheduler::lookup_skel}, - {"get", &POA_RtecScheduler::Scheduler::get_skel}, - {"set", &POA_RtecScheduler::Scheduler::set_skel}, - {"add_dependency", &POA_RtecScheduler::Scheduler::add_dependency_skel}, - {"priority", &POA_RtecScheduler::Scheduler::priority_skel}, - {"entry_point_priority", &POA_RtecScheduler::Scheduler::entry_point_priority_skel}, - {"compute_scheduling", &POA_RtecScheduler::Scheduler::compute_scheduling_skel}, - {"_is_a", &POA_RtecScheduler::Scheduler::_is_a_skel} -}; - -TAO_Dynamic_Hash_OpTable tao_Scheduler_optable (Scheduler_operations, 9, 18); -// skeleton constructor -POA_RtecScheduler::Scheduler::Scheduler (const char *obj_name) -{ - const CORBA::String repoID = "IDL:RtecScheduler/Scheduler:1.0"; // repository ID - IIOP_Object *data; // Actual object reference - TAO_ORB_Core *ocp = TAO_ORB_Core_instance (); // underlying ORB core instance - CORBA::POA_ptr oa = TAO_ORB_Core_instance ()->root_poa (); // underlying OA - const ACE_INET_Addr &addr = ocp->orb_params ()->addr (); - this->optable_ = &tao_Scheduler_optable; - - // set up an IIOP object - data = new IIOP_Object (CORBA::string_dup (repoID), addr, obj_name); - this->set_parent (data); // store the IIOP obj ref with us - this->sub_ = this; // set the most derived type to be us - if (oa) oa->bind (data->profile.object_key, this); // register ourselves -} - -void POA_RtecScheduler::Scheduler::create_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - CORBA::Any *result; - RtecScheduler::handle_t *retval = new RtecScheduler::handle_t; - char *entry_point; - CORBA::NamedValue_ptr nv_entry_point; - CORBA::Any any_entry_point (CORBA::_tc_string, &entry_point); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_entry_point = nvlist->add_value ("entry_point", any_entry_point, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - *retval = impl->create(entry_point, _tao_environment); - -result = new CORBA::Any (RtecScheduler::_tc_handle_t, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecScheduler::Scheduler::lookup_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - CORBA::Any *result; - RtecScheduler::handle_t *retval = new RtecScheduler::handle_t; - char *entry_point; - CORBA::NamedValue_ptr nv_entry_point; - CORBA::Any any_entry_point (CORBA::_tc_string, &entry_point); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_entry_point = nvlist->add_value ("entry_point", any_entry_point, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - *retval = impl->lookup(entry_point, _tao_environment); - -result = new CORBA::Any (RtecScheduler::_tc_handle_t, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecScheduler::Scheduler::get_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - CORBA::Any *result; - RtecScheduler::RT_Info *retval; - RtecScheduler::handle_t handle; - CORBA::NamedValue_ptr nv_handle; - CORBA::Any any_handle (RtecScheduler::_tc_handle_t, &handle); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_handle = nvlist->add_value ("handle", any_handle, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - retval = impl->get(handle, _tao_environment); - -result = new CORBA::Any (RtecScheduler::_tc_RT_Info, retval, 1); // ORB owns - _tao_server_request.result (result, _tao_environment); - -} - -void POA_RtecScheduler::Scheduler::set_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - RtecScheduler::handle_t handle; - CORBA::NamedValue_ptr nv_handle; - CORBA::Any any_handle (RtecScheduler::_tc_handle_t, &handle); // ORB does not own - RtecScheduler::Time time; - CORBA::NamedValue_ptr nv_time; - CORBA::Any any_time (RtecScheduler::_tc_Time, &time); // ORB does not own - RtecScheduler::Time typical_time; - CORBA::NamedValue_ptr nv_typical_time; - CORBA::Any any_typical_time (RtecScheduler::_tc_Time, &typical_time); // ORB does not own - RtecScheduler::Time cached_time; - CORBA::NamedValue_ptr nv_cached_time; - CORBA::Any any_cached_time (RtecScheduler::_tc_Time, &cached_time); // ORB does not own - RtecScheduler::Period period; - CORBA::NamedValue_ptr nv_period; - CORBA::Any any_period (RtecScheduler::_tc_Period, &period); // ORB does not own - RtecScheduler::Importance importance; - CORBA::NamedValue_ptr nv_importance; - CORBA::Any any_importance (RtecScheduler::_tc_Importance, &importance); // ORB does not own - RtecScheduler::Quantum quantum; - CORBA::NamedValue_ptr nv_quantum; - CORBA::Any any_quantum (RtecScheduler::_tc_Quantum, &quantum); // ORB does not own - CORBA::Long threads; - CORBA::NamedValue_ptr nv_threads; - CORBA::Any any_threads (CORBA::_tc_long, &threads); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_handle = nvlist->add_value ("handle", any_handle, CORBA::ARG_IN, _tao_environment); - nv_time = nvlist->add_value ("time", any_time, CORBA::ARG_IN, _tao_environment); - nv_typical_time = nvlist->add_value ("typical_time", any_typical_time, CORBA::ARG_IN, _tao_environment); - nv_cached_time = nvlist->add_value ("cached_time", any_cached_time, CORBA::ARG_IN, _tao_environment); - nv_period = nvlist->add_value ("period", any_period, CORBA::ARG_IN, _tao_environment); - nv_importance = nvlist->add_value ("importance", any_importance, CORBA::ARG_IN, _tao_environment); - nv_quantum = nvlist->add_value ("quantum", any_quantum, CORBA::ARG_IN, _tao_environment); - nv_threads = nvlist->add_value ("threads", any_threads, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - impl->set(handle, time, typical_time, cached_time, period, importance, quantum, threads, _tao_environment); - - -} - -void POA_RtecScheduler::Scheduler::add_dependency_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - RtecScheduler::handle_t handle; - CORBA::NamedValue_ptr nv_handle; - CORBA::Any any_handle (RtecScheduler::_tc_handle_t, &handle); // ORB does not own - RtecScheduler::handle_t dependency; - CORBA::NamedValue_ptr nv_dependency; - CORBA::Any any_dependency (RtecScheduler::_tc_handle_t, &dependency); // ORB does not own - CORBA::Long number_of_calls; - CORBA::NamedValue_ptr nv_number_of_calls; - CORBA::Any any_number_of_calls (CORBA::_tc_long, &number_of_calls); // ORB does not own - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_handle = nvlist->add_value ("handle", any_handle, CORBA::ARG_IN, _tao_environment); - nv_dependency = nvlist->add_value ("dependency", any_dependency, CORBA::ARG_IN, _tao_environment); - nv_number_of_calls = nvlist->add_value ("number_of_calls", any_number_of_calls, CORBA::ARG_IN, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - impl->add_dependency(handle, dependency, number_of_calls, _tao_environment); - - -} - -void POA_RtecScheduler::Scheduler::priority_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - RtecScheduler::handle_t handle; - CORBA::NamedValue_ptr nv_handle; - CORBA::Any any_handle (RtecScheduler::_tc_handle_t, &handle); // ORB does not own - RtecScheduler::OS_Priority *priority = new RtecScheduler::OS_Priority; - CORBA::NamedValue_ptr nv_priority; - CORBA::Any any_priority (RtecScheduler::_tc_OS_Priority, priority, 1); // ORB owns - RtecScheduler::Sub_Priority *subpriority = new RtecScheduler::Sub_Priority; - CORBA::NamedValue_ptr nv_subpriority; - CORBA::Any any_subpriority (RtecScheduler::_tc_Sub_Priority, subpriority, 1); // ORB owns - RtecScheduler::Preemption_Priority *p_priority = new RtecScheduler::Preemption_Priority; - CORBA::NamedValue_ptr nv_p_priority; - CORBA::Any any_p_priority (RtecScheduler::_tc_Preemption_Priority, p_priority, 1); // ORB owns - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_handle = nvlist->add_value ("handle", any_handle, CORBA::ARG_IN, _tao_environment); - nv_priority = nvlist->add_value ("priority", any_priority, CORBA::ARG_OUT, _tao_environment); - nv_subpriority = nvlist->add_value ("subpriority", any_subpriority, CORBA::ARG_OUT, _tao_environment); - nv_p_priority = nvlist->add_value ("p_priority", any_p_priority, CORBA::ARG_OUT, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - impl->priority(handle, *priority, *subpriority, *p_priority, _tao_environment); - - -} - -void POA_RtecScheduler::Scheduler::entry_point_priority_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - char *entry_point; - CORBA::NamedValue_ptr nv_entry_point; - CORBA::Any any_entry_point (CORBA::_tc_string, &entry_point); // ORB does not own - RtecScheduler::OS_Priority *priority = new RtecScheduler::OS_Priority; - CORBA::NamedValue_ptr nv_priority; - CORBA::Any any_priority (RtecScheduler::_tc_OS_Priority, priority, 1); // ORB owns - RtecScheduler::Sub_Priority *subpriority = new RtecScheduler::Sub_Priority; - CORBA::NamedValue_ptr nv_subpriority; - CORBA::Any any_subpriority (RtecScheduler::_tc_Sub_Priority, subpriority, 1); // ORB owns - RtecScheduler::Preemption_Priority *p_priority = new RtecScheduler::Preemption_Priority; - CORBA::NamedValue_ptr nv_p_priority; - CORBA::Any any_p_priority (RtecScheduler::_tc_Preemption_Priority, p_priority, 1); // ORB owns - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_entry_point = nvlist->add_value ("entry_point", any_entry_point, CORBA::ARG_IN, _tao_environment); - nv_priority = nvlist->add_value ("priority", any_priority, CORBA::ARG_OUT, _tao_environment); - nv_subpriority = nvlist->add_value ("subpriority", any_subpriority, CORBA::ARG_OUT, _tao_environment); - nv_p_priority = nvlist->add_value ("p_priority", any_p_priority, CORBA::ARG_OUT, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - impl->entry_point_priority(entry_point, *priority, *subpriority, *p_priority, _tao_environment); - - -} - -void POA_RtecScheduler::Scheduler::compute_scheduling_skel (CORBA::ServerRequest &_tao_server_request, CORBA::Object_ptr _tao_object_reference, CORBA::Environment &_tao_environment) -{ - CORBA::NVList_ptr nvlist; - POA_RtecScheduler::Scheduler_ptr impl; - CORBA::Long minimum_priority; - CORBA::NamedValue_ptr nv_minimum_priority; - CORBA::Any any_minimum_priority (CORBA::_tc_long, &minimum_priority); // ORB does not own - CORBA::Long maximum_priority; - CORBA::NamedValue_ptr nv_maximum_priority; - CORBA::Any any_maximum_priority (CORBA::_tc_long, &maximum_priority); // ORB does not own - RtecScheduler::RT_Info_Set *infos; - RtecScheduler::RT_Info_Set_out infos_out (infos); - CORBA::NamedValue_ptr nv_infos; - CORBA::Any any_infos (RtecScheduler::_tc_RT_Info_Set, infos, 1); // ORB owns - - // create an NV list and populate it with typecodes - _tao_server_request.orb ()->create_list (0, nvlist); // initialize a list - // add each argument according to the in, out, inout semantics - nv_minimum_priority = nvlist->add_value ("minimum_priority", any_minimum_priority, CORBA::ARG_IN, _tao_environment); - nv_maximum_priority = nvlist->add_value ("maximum_priority", any_maximum_priority, CORBA::ARG_IN, _tao_environment); - nv_infos = nvlist->add_value ("infos", any_infos, CORBA::ARG_OUT, _tao_environment); - // parse the arguments - _tao_server_request.params (nvlist, _tao_environment); - if (_tao_environment.exception ()) return; - -impl = (POA_RtecScheduler::Scheduler_ptr) _tao_object_reference->get_subclass (); - impl->compute_scheduling(minimum_priority, maximum_priority, infos_out, _tao_environment); - - -} - -void POA_RtecScheduler::Scheduler::_is_a_skel (CORBA::ServerRequest &req, CORBA::Object_ptr /* obj */, CORBA::Environment &env) -{ - const CORBA::String type_id = "IDL:RtecScheduler/Scheduler:1.0"; // repository ID - CORBA::NVList_ptr nvlist; - CORBA::NamedValue_ptr nv; - CORBA::Any temp_value (CORBA::_tc_string); - CORBA::Any *any; - CORBA::Boolean *retval; - CORBA::String value; - - req.orb()->create_list (0, nvlist); - nv = nvlist->add_value (0, temp_value, CORBA::ARG_IN, env); - req.params (nvlist, env); // parse the args - if (env.exception () != 0) return; - value = *(CORBA::String *)nv->value ()->value (); - if (ACE_OS::strcmp ((char *)value, (char *)type_id) == 0 - || ACE_OS::strcmp ((char *)value, CORBA::_tc_Object->id (env)) == 0) - - retval = new CORBA::Boolean (CORBA::B_TRUE); - else - retval = new CORBA::Boolean (CORBA::B_FALSE); - any = new CORBA::Any (CORBA::_tc_boolean, retval, CORBA::B_TRUE); - req.result (any, env); -} - |