------------------------------------- ------------------------------------------- -- -- -- OCARINA COMPONENTS -- -- -- -- OCARINA.GENERATORS.PO_QOS_ADA.RUNTIME -- -- -- -- S p e c -- -- -- -- Copyright (C) 2006-2007, GET-Telecom Paris. -- -- -- -- Ocarina is free software; you can redistribute it and/or modify -- -- it under terms of the GNU General Public License as published by the -- -- Free Software Foundation; either version 2, or (at your option) any -- -- later version. Ocarina is distributed in the hope that it will be -- -- useful, but WITHOUT ANY WARRANTY; without even the implied warranty of -- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General -- -- Public License for more details. You should have received a copy of the -- -- GNU General Public License distributed with Ocarina; see file COPYING. -- -- If not, write to the Free Software Foundation, 51 Franklin Street, Fifth -- -- Floor, Boston, MA 02111-1301, USA. -- -- -- -- As a special exception, if other files instantiate generics from this -- -- unit, or you link this unit with other files to produce an executable, -- -- this unit does not by itself cause the resulting executable to be -- -- covered by the GNU General Public License. This exception does not -- -- however invalidate any other reasons why the executable file might be -- -- covered by the GNU Public License. -- -- -- -- Ocarina is maintained by the Ocarina team -- -- (ocarina-users@listes.enst.fr) -- -- -- ------------------------------------------------------------------------------ package Ocarina.Generators.PO_QoS_Ada.Runtime is -- Runtime Units type ru_id is (ru_null, ru_arao, ru_arao_obj_adapters, ru_arao_object_adapter_g, ru_arao_object_adapter, ru_arao_rt_obj_adapters, ru_arao_periodic_threads, ru_arao_requests, ru_arao_utils, ru_arao_cyclic_array, ru_arao_setup, ru_arao_threads, ru_arao_setup_base, ru_arao_setup_ocarina_oa, ru_arao_setup_application, ru_arao_setup_tasking, ru_arao_setup_tasking_full_tasking, ru_arao_setup_tasking_no_tasking, ru_arao_setup_oa, ru_arao_setup_oa_monothreaded, ru_arao_setup_oa_multithreaded, ru_arao_setup_oa_multithreaded_prio, ru_ada, ru_ada_exceptions, ru_ada_real_time, ru_ada_strings, ru_ada_strings_bounded, ru_ada_strings_bounded_generic_bounded_length, ru_ada_strings_wide_bounded, ru_ada_strings_wide_bounded_generic_bounded_length, ru_helpers, ru_servants, ru_polyorb, ru_polyorb_any, ru_polyorb_any_initialization, ru_polyorb_any_exceptionlist, ru_polyorb_any_nvlist, ru_polyorb_any_nvlist_internals, ru_polyorb_any_nvlist_internals_nv_lists, ru_polyorb_any_typecode, ru_polyorb_components, ru_polyorb_errors, ru_polyorb_initialization, ru_polyorb_orb_controller, ru_polyorb_orb_controller_workers, ru_polyorb_orb, ru_polyorb_references, ru_polyorb_requests, ru_polyorb_servants, ru_polyorb_servants_iface, ru_polyorb_setup, ru_polyorb_setup_base, ru_polyorb_setup_iiop, ru_polyorb_setup_diop, ru_polyorb_setup_oa, ru_polyorb_setup_oa_simple_oa, ru_polyorb_setup_oa_basic_rt_poa, ru_polyorb_setup_access_points, ru_polyorb_setup_access_points_iiop, ru_polyorb_setup_access_points_diop, ru_polyorb_setup_access_points_soap, ru_polyorb_setup_tasking, ru_polyorb_setup_tasking_full_tasking, ru_polyorb_setup_tasking_no_tasking, ru_polyorb_tasking, ru_polyorb_tasking_mutexes, ru_polyorb_parameters, ru_polyorb_parameters_partition, ru_polyorb_types, ru_polyorb_utils, ru_polyorb_utils_strings, ru_polyorb_utils_strings_lists, ru_standard, ru_system); -- Runtime Entities type re_id is (re_null, -- Workaround to denote a null RE re_ref_1, -- Ref re_from_any_1, -- From_Any re_to_any_1, -- To_Any re_false, -- False re_true, -- True re_on, -- On re_off, -- Off re_get, -- Get re_append, -- Append re_push_back, -- Push_Back re_link_to_obj_adapter, -- ARAO.Obj_Adapters.Link_To_Obj_Adapter re_link_to_obj_adapter_2, -- ARAO.RT_Object_Adapters -- Link_To_Obj_Adapter re_create_periodic_thread, -- ARAO.Periodic_Threads. -- Create_Periodic_Thread re_emit_msg, -- ARAO.Requests.Emit_Msg re_get_ref, -- ARAO.Utils.Get_Ref re_get_giop_ref, -- ARAO.Utils.Get_GIOP_Ref re_clock, -- Ada.Real_Time.Clock re_nanoseconds, -- Ada.Real_Time.Nanoseconds re_microseconds, -- Ada.Real_Time.Microseconds re_milliseconds, -- Ada.Real_Time.Milliseconds re_seconds, -- Ada.Real_Time.Seconds re_minutes, -- Ada.Real_Time.Minutes re_time, -- Ada.Real_Time.Time re_time_span, -- Ada.Real_Time.Time_Span re_add_aggregate_element, -- PolyORB.Any.Add_Aggregate_Element, re_any, -- PolyORB.Any.Any re_arg_in, -- PolyORB.Any.ARG_IN re_arg_inout, -- PolyORB.Any.ARG_INOUT re_arg_out, -- PolyORB.Any.ARG_OUT re_namedvalue, -- PolyORB.Any.NamedValue re_from_any_2, -- PolyORB.Any.From_Any re_get_aggregate_element, -- PolyORB.Any.Get_Aggregate_Element re_get_empty_any, -- PolyORB.Any.Get_Empty_Any re_get_empty_any_aggregate, -- PolyORB.Any.Get_Empty_Any_Aggregate re_set_type, -- PolyORB.Any.Set_Type re_tc_boolean, -- PolyORB.Any.TC_Boolean re_tc_float, -- PolyORB.Any.TC_Float re_tc_long, -- PolyORB.Any.TC_Long re_tc_character, -- PolyORB.Any.TC_Character re_tc_wide_character, -- PolyORB.Any.TC_Wide_Character re_tc_string, -- PolyORB.Any.TC_String re_tc_wide_string, -- PolyORB.Any.TC_Wide_String re_to_any_2, -- PolyORB.Any.To_Any re_add_item, -- PolyORB.Any.NVList.Add_Item re_create, -- PolyORB.Any.NVList.Create re_ref_2, -- PolyORB.Any.NVList.Ref re_add_parameter, -- PolyORB.Any.TypeCode.Add_Parameter re_local_ref, -- PolyORB.Any.TypeCode.Local_Ref re_object_ptr, -- PolyORB.Any.TypeCode.Object_Ptr re_object_of, -- PolyORB.Any.TypeCode.Object_Of re_to_ref, -- PolyORB.Any.TypeCode.To_Ref re_disable_reference_counting, -- PolyORB.Any.TypeCode -- .Disable_Reference_Counting re_tc_alias, -- PolyORB.Any.TypeCode.TC_Alias re_tc_struct, -- PolyORB.Any.TypeCode.TC_Struct re_message, -- PolyORB.Components.Message re_error_container, -- PolyORB.Errors.Error_Container re_catch, -- PolyORB.Errors.Catch re_found, -- PolyORB.Errors.Found re_initialize_world, -- PolyORB.Initialization.Initialize_World re_module_info, -- PolyORB.Initialization.Module_Info re_register_module, -- PolyORB.Initialization.Register_Module re_run, -- PolyORB.ORB.Run re_ref_3, -- PolyORB.References.Ref re_arguments, -- PolyORB.Requests.Arguments re_request_access, -- PolyORB.Requests.Request_Access re_servant, -- PolyORB.Servants.Servant re_execute_request, -- PolyORB.Servants.Iface.Execute_Request re_executed_request, -- PolyORB.Servants.Iface.Executed_Request re_the_orb, -- PolyORB.Setup.The_ORB re_boolean_1, -- PolyORB.Types.Boolean re_character_1, -- PolyORB.Types.Character re_wide_character_1, -- PolyORB.Types.Wide_Character re_float_1, -- PolyORB.Types.Float re_long, -- PolyORB.Types.Long re_string_1, -- PolyORB.Types.String re_wide_string_1, -- PolyORB.Types.Wide_String re_to_polyorb_string, -- PolyORB.Types.To_PolyORB_String re_to_standard_string, -- PolyORB.Types.To_Standard_String re_to_polyorb_wide_string, -- PolyORB.Types.To_PolyORB_String re_to_standard_wide_string, -- PolyORB.Types.To_Standard_String re_string_ptr, -- PolyORB_Utils_Strings.String_Ptr re_add, -- PolyORB.Utils.Strings."+" re_and, -- PolyORB.Utils.Strings.Lists."&" re_empty, -- PolyORB.Utils.Strings.Lists.Empty re_boolean_2, -- Standard.Boolean re_character_2, -- Standard.Character re_wide_character_2, -- Standard.Wide_Character re_integer, -- Standard.Integer re_natural, -- Standard.Natural re_float_2, -- Standard.Float re_string_2, -- Standard.String re_wide_string_2, -- Standard.Wide_String re_thread_properties, -- ARAO.Threads.Thread_Properties re_thread_properties_array, -- ARAO.Threads.Thread_Properties_Array re_thread_array_access, -- ARAO.Threads.Thread_Array_Access re_parameters_source, -- PolyORB.Parameters re_default_priority, -- System.Default_Priority re_priority, -- System.Priority re_mutex_access, -- PolyORB.Tasking.Mutexes.Mutex_Access re_create_2, -- PolyORB.Tasking.Advanced_Mutexes.Create re_enter, -- PolyORB.Tasking.Advanced_Mutexes.Enter re_leave); -- PolyORB.Tasking.Advanced_Mutexes.Leave RE_Unit_Table : constant array (re_id) of ru_id := (re_null => ru_null, re_ref_1 => ru_null, re_from_any_1 => ru_null, re_to_any_1 => ru_null, re_false => ru_null, re_true => ru_null, re_on => ru_null, re_off => ru_null, re_get => ru_null, re_append => ru_null, re_push_back => ru_null, re_link_to_obj_adapter => ru_arao_obj_adapters, re_link_to_obj_adapter_2 => ru_arao_rt_obj_adapters, re_create_periodic_thread => ru_arao_periodic_threads, re_emit_msg => ru_arao_requests, re_get_ref => ru_arao_utils, re_get_giop_ref => ru_arao_utils, re_clock => ru_ada_real_time, re_nanoseconds => ru_ada_real_time, re_microseconds => ru_ada_real_time, re_milliseconds => ru_ada_real_time, re_seconds => ru_ada_real_time, re_minutes => ru_ada_real_time, re_time => ru_ada_real_time, re_time_span => ru_ada_real_time, re_add_aggregate_element => ru_polyorb_any, re_any => ru_polyorb_any, re_arg_in => ru_polyorb_any, re_arg_inout => ru_polyorb_any, re_arg_out => ru_polyorb_any, re_from_any_2 => ru_polyorb_any, re_get_aggregate_element => ru_polyorb_any, re_get_empty_any => ru_polyorb_any, re_get_empty_any_aggregate => ru_polyorb_any, re_set_type => ru_polyorb_any, re_tc_boolean => ru_polyorb_any, re_tc_float => ru_polyorb_any, re_tc_long => ru_polyorb_any, re_tc_character => ru_polyorb_any, re_tc_wide_character => ru_polyorb_any, re_tc_string => ru_polyorb_any, re_tc_wide_string => ru_polyorb_any, re_to_any_2 => ru_polyorb_any, re_namedvalue => ru_polyorb_any, re_add_item => ru_polyorb_any_nvlist, re_create => ru_polyorb_any_nvlist, re_ref_2 => ru_polyorb_any_nvlist, re_add_parameter => ru_polyorb_any_typecode, re_local_ref => ru_polyorb_any_typecode, re_object_ptr => ru_polyorb_any_typecode, re_object_of => ru_polyorb_any_typecode, re_to_ref => ru_polyorb_any_typecode, re_disable_reference_counting => ru_polyorb_any_typecode, re_tc_alias => ru_polyorb_any_typecode, re_tc_struct => ru_polyorb_any_typecode, re_message => ru_polyorb_components, re_error_container => ru_polyorb_errors, re_catch => ru_polyorb_errors, re_found => ru_polyorb_errors, re_initialize_world => ru_polyorb_initialization, re_module_info => ru_polyorb_initialization, re_register_module => ru_polyorb_initialization, re_run => ru_polyorb_orb, re_ref_3 => ru_polyorb_references, re_arguments => ru_polyorb_requests, re_request_access => ru_polyorb_requests, re_servant => ru_polyorb_servants, re_execute_request => ru_polyorb_servants_iface, re_executed_request => ru_polyorb_servants_iface, re_the_orb => ru_polyorb_setup, re_boolean_1 => ru_polyorb_types, re_character_1 => ru_polyorb_types, re_wide_character_1 => ru_polyorb_types, re_float_1 => ru_polyorb_types, re_long => ru_polyorb_types, re_string_1 => ru_polyorb_types, re_wide_string_1 => ru_polyorb_types, re_to_polyorb_string => ru_polyorb_types, re_to_standard_string => ru_polyorb_types, re_to_polyorb_wide_string => ru_polyorb_types, re_to_standard_wide_string => ru_polyorb_types, re_string_ptr => ru_polyorb_utils_strings, re_add => ru_polyorb_utils_strings, re_and => ru_polyorb_utils_strings_lists, re_empty => ru_polyorb_utils_strings_lists, re_boolean_2 => ru_standard, re_character_2 => ru_standard, re_wide_character_2 => ru_standard, re_integer => ru_standard, re_natural => ru_standard, re_float_2 => ru_standard, re_string_2 => ru_standard, re_wide_string_2 => ru_standard, re_thread_properties => ru_arao_threads, re_thread_properties_array => ru_arao_threads, re_thread_array_access => ru_arao_threads, re_parameters_source => ru_polyorb_parameters, re_default_priority => ru_system, re_priority => ru_system, re_mutex_access => ru_polyorb_tasking_mutexes, re_create_2 => ru_polyorb_tasking_mutexes, re_enter => ru_polyorb_tasking_mutexes, re_leave => ru_polyorb_tasking_mutexes); procedure Initialize; procedure Reset; function RE (Id : re_id; Withed : Boolean := True) return node_id; -- Return a designator for entity Id function RU (Id : ru_id; Withed : Boolean := True) return node_id; -- Return a node for Unit Id end Ocarina.Generators.PO_QoS_Ada.Runtime;