1. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 
  2. --  All rights reserved. 
  3. -- 
  4. --  No duplications, whole or partial, manual or electronic, may be made 
  5. --  without express written permission.  Any such copies, or 
  6. --  revisions thereof, must display this notice unaltered. 
  7. --  This code contains trade secrets of Real-Time Innovations, Inc. 
  8.  
  9. pragma Ada_2012; 
  10.  
  11. with Ada.Streams; 
  12. with DDS_Support.Sequences_Generic.Output_Generic; 
  13. package DDS.XML_Output is 
  14.  
  15.    procedure Output (Item : Standard.Integer; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  16.    procedure Output (Item : Standard.String; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  17.    procedure Output (Item : Short; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  18.    procedure Output (Item : Long; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  19.    procedure Output (Item : Interfaces.C.long; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  20.    procedure Output (Item : Long_Long; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  21.    procedure Output (Item : Unsigned_Long; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  22.    procedure Output (Item : Unsigned_Long_Long; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  23.  
  24.    procedure Output (Item : Enum; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  25.    procedure Output (Item : Float; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  26.    procedure Output (Item : Double; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  27.    procedure Output (Item : Long_Double; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  28.    procedure Output (Item : Char; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  29.    procedure Output (Item : Wchar; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  30.    procedure Output (Item : Octet; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  31.    procedure Output (Item : Boolean; To : not null access Ada.Streams.Root_Stream_Type'Class) with Inline_Always; 
  32.    -- 
  33.  
  34.    procedure Output (Item : ThreadSettings; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  35.    procedure Output (Item : ThreadSettingsCpuRotationKind_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  36.    procedure Output (Item : Unsigned_Short; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  37.    procedure Output (Item : Builtin_Topic_Key_Type_Native; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  38.    procedure Output (Item : InstanceHandle_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  39.    procedure Output (Item : StatusKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  40.    procedure Output (Item : QosPolicyId_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  41.    procedure Output (Item : EntityKind_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  42.    procedure Output (Item : DurabilityQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  43.    procedure Output (Item : PresentationQosPolicyAccessScopeKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  44.    procedure Output (Item : OwnershipQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  45.    procedure Output (Item : LivelinessQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  46.    procedure Output (Item : ReliabilityQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  47.    procedure Output (Item : ReliabilityQosPolicyAcknowledgmentModeKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  48.    procedure Output (Item : DestinationOrderQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  49.    procedure Output (Item : DestinationOrderQosPolicyScopeKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  50.    procedure Output (Item : HistoryQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  51.    procedure Output (Item : EncapsulationId_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  52.    procedure Output (Item : TransportMulticastQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  53.    procedure Output (Item : TransportBuiltinKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  54.    procedure Output (Item : RtpsReservedPortKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  55.    procedure Output (Item : WireProtocolQosPolicyAutoKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  56.    procedure Output (Item : DataWriterResourceLimitsInstanceReplacementKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  57.    procedure Output (Item : ServiceQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  58.    procedure Output (Item : PublishModeQosPolicyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  59.    procedure Output (Item : DiscoveryConfigBuiltinPluginKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  60.    procedure Output (Item : DiscoveryPluginPromiscuityKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  61.    procedure Output (Item : RemoteParticipantPurgeKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  62.    procedure Output (Item : ThreadBlockingKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  63.    procedure Output (Item : TypeConsistencyKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  64.    procedure Output (Item : SampleLostStatusKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  65.    procedure Output (Item : SampleStateKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  66.    procedure Output (Item : ViewStateKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  67.    procedure Output (Item : InstanceStateKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  68.    procedure Output (Item : DomainId_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  69.    procedure Output (Item : FlowControllerSchedulingPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  70.    procedure Output (Item : ObjectSubState; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  71.    procedure Output (Item : TimeOutDuration; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  72.    procedure Output (Item : RelatedObjectDepth; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  73.    -- 
  74.  
  75.    procedure Output (Item : Octets; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  76.    procedure Output (Item : String; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  77.    procedure Output (Item : KeyedString; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  78.    procedure Output (Item : KeyedOctets; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  79.    procedure Output (Item : Wide_String; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  80.    procedure Output (Item : Time_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  81.    procedure Output (Item : Duration_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  82.    procedure Output (Item : Guid_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  83.    procedure Output (Item : SequenceNumber_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  84.    procedure Output (Item : OriginalWriterInfo_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  85.    procedure Output (Item : ThreadSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  86.    procedure Output (Item : QosPolicyCount; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  87.    procedure Output (Item : UserDataQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  88.    procedure Output (Item : TopicDataQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  89.    procedure Output (Item : GroupDataQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  90.    procedure Output (Item : TopicProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  91.    procedure Output (Item : DomainParticipantProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  92.    procedure Output (Item : DurabilityQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  93.    procedure Output (Item : PresentationQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  94.    procedure Output (Item : DeadlineQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  95.    procedure Output (Item : LatencyBudgetQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  96.    procedure Output (Item : OwnershipQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  97.    procedure Output (Item : OwnershipStrengthQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  98.    procedure Output (Item : LivelinessQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  99.    procedure Output (Item : TimeBasedFilterQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  100.    procedure Output (Item : PartitionQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  101.    procedure Output (Item : ReliabilityQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  102.    procedure Output (Item : DestinationOrderQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  103.    procedure Output (Item : HistoryQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  104.    procedure Output (Item : DurabilityServiceQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  105.    procedure Output (Item : ResourceLimitsQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  106.    procedure Output (Item : TransportPriorityQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  107.    procedure Output (Item : LifespanQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  108.    procedure Output (Item : WriterDataLifecycleQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  109.    procedure Output (Item : ReaderDataLifecycleQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  110.    procedure Output (Item : EntityFactoryQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  111.    procedure Output (Item : AllocationSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  112.    procedure Output (Item : RtpsReliableReaderProtocol_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  113.    procedure Output (Item : RtpsReliableWriterProtocol_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  114.    procedure Output (Item : UserObjectSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  115.    procedure Output (Item : TransportUnicastSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  116.    procedure Output (Item : TransportMulticastSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  117.    procedure Output (Item : TransportMulticastMappingFunction_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  118.    procedure Output (Item : TransportMulticastMapping_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  119.    procedure Output (Item : TransportEncapsulationSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  120.    procedure Output (Item : TransportSelectionQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  121.    procedure Output (Item : TransportUnicastQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  122.    procedure Output (Item : TransportMulticastQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  123.    procedure Output (Item : TransportMulticastMappingQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  124.    procedure Output (Item : TransportEncapsulationQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  125.    procedure Output (Item : DiscoveryQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  126.    procedure Output (Item : Discovery_ParticipantInformation; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  127.    procedure Output (Item : Discovery_EndpointInformation; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  128.    procedure Output (Item : TransportBuiltinQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  129.    procedure Output (Item : RtpsWellKnownPorts_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  130.    procedure Output (Item : WireProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  131.    procedure Output (Item : Locator_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  132.    procedure Output (Item : ProtocolVersion_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  133.    procedure Output (Item : VendorId_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  134.    procedure Output (Item : ProductVersion_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  135.    procedure Output (Item : DataReaderResourceLimitsQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  136.    procedure Output (Item : DataWriterResourceLimitsQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  137.    procedure Output (Item : ServiceQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  138.    procedure Output (Item : PublisherProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  139.    procedure Output (Item : SubscriberProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  140.    procedure Output (Item : DataReaderProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  141.    procedure Output (Item : DataWriterProtocolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  142.    procedure Output (Item : SystemResourceLimitsQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  143.    procedure Output (Item : DomainParticipantResourceLimitsQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  144.    procedure Output (Item : EventQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  145.    procedure Output (Item : DatabaseQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  146.    procedure Output (Item : ReceiverPoolQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  147.    procedure Output (Item : BuiltinTopicReaderResourceLimits_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  148.    procedure Output (Item : BuiltinTopicKey_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  149.    procedure Output (Item : PublishModeQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  150.    procedure Output (Item : DiscoveryBuiltinReaderFragmentationResourceLimits_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  151.    procedure Output (Item : TypeSupportQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  152.    procedure Output (Item : AsynchronousPublisherQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  153.    procedure Output (Item : DiscoveryConfigQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  154.    procedure Output (Item : UserObjectQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  155.    procedure Output (Item : ExclusiveAreaQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  156.    procedure Output (Item : BatchQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  157.    procedure Output (Item : TypeConsistencyEnforcementQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  158.    procedure Output (Item : LocatorFilter_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  159.    procedure Output (Item : LocatorFilterQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  160.    procedure Output (Item : ChannelSettings_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  161.    procedure Output (Item : MultiChannelQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  162.    procedure Output (Item : Property_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  163.    procedure Output (Item : PropertyQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  164.    procedure Output (Item : WaitSetProperty_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  165.    procedure Output (Item : EndpointGroup_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  166.    procedure Output (Item : AvailabilityQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  167.    procedure Output (Item : ContentFilterProperty_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  168.    procedure Output (Item : EntityNameQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  169.    procedure Output (Item : ProfileQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  170.    procedure Output (Item : SampleIdentity_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  171.    procedure Output (Item : Cookie_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  172.    procedure Output (Item : AckResponseData_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  173.    procedure Output (Item : WriteParams_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  174.    procedure Output (Item : TypeCode; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  175.    procedure Output (Item : ParticipantBuiltinTopicData; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  176.    procedure Output (Item : TopicBuiltinTopicData; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  177.    procedure Output (Item : PublicationBuiltinTopicData; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  178.    procedure Output (Item : SubscriptionBuiltinTopicData; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  179.    procedure Output (Item : KeyHash_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  180.    procedure Output (Item : InconsistentTopicStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  181.    procedure Output (Item : TopicQos; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  182.    procedure Output (Item : OfferedDeadlineMissedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  183.    procedure Output (Item : LivelinessLostStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  184.    procedure Output (Item : OfferedIncompatibleQosStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  185.    procedure Output (Item : PublicationMatchedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  186.    procedure Output (Item : ReliableWriterCacheEventCount; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  187.    procedure Output (Item : ReliableWriterCacheChangedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  188.    procedure Output (Item : ReliableReaderActivityChangedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  189.    procedure Output (Item : AcknowledgmentInfo; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  190.    procedure Output (Item : DataWriterQos; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  191.    procedure Output (Item : PublisherQos; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  192.    procedure Output (Item : DataWriterCacheStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  193.    procedure Output (Item : DataWriterProtocolStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  194.    procedure Output (Item : RequestedDeadlineMissedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  195.    procedure Output (Item : LivelinessChangedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  196.    procedure Output (Item : RequestedIncompatibleQosStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  197.    procedure Output (Item : SampleLostStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  198.    procedure Output (Item : SampleRejectedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  199.    procedure Output (Item : SubscriptionMatchedStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  200.    procedure Output (Item : DataReaderCacheStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  201.    procedure Output (Item : DataReaderProtocolStatus; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  202.    procedure Output (Item : SampleInfo; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  203.    procedure Output (Item : DataReaderQoS; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  204.    procedure Output (Item : SubscriberQos; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  205.    procedure Output (Item : DomainParticipantQos; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  206.    procedure Output (Item : DomainParticipantFactoryQos; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  207.    procedure Output (Item : FlowControllerTokenBucketProperty_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  208.    procedure Output (Item : FlowControllerProperty_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  209.    procedure Output (Item : DLRLOid; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  210.    procedure Output (Item : ObjectReference; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  211.  
  212.    -- 
  213.  
  214.    procedure Output (Item : Short_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  215.    procedure Output (Item : Long_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  216.    procedure Output (Item : Long_Long_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  217.    procedure Output (Item : Unsigned_Short_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  218.    procedure Output (Item : Unsigned_Long_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  219.    procedure Output (Item : Unsigned_Long_Long_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  220.    procedure Output (Item : Enum_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  221.    procedure Output (Item : Float_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  222.    procedure Output (Item : Double_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  223.    procedure Output (Item : Long_Double_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  224.    --  procedure Output (Item : Char_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  225.    --  procedure Output (Item : Wchar_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  226.    procedure Output (Item : Octet_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  227.    procedure Output (Item : Octets_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  228.    procedure Output (Item : Boolean_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  229.    procedure Output (Item : String_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  230.    procedure Output (Item : KeyedString_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  231.    procedure Output (Item : KeyedOctets_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  232.    procedure Output (Item : Wide_String_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  233.    procedure Output (Item : InstanceHandle_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  234.    procedure Output (Item : QosPolicyCount_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  235.    procedure Output (Item : TransportUnicastSettings_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  236.    procedure Output (Item : TransportMulticastSettings_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  237.    procedure Output (Item : TransportMulticastMapping_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  238.    procedure Output (Item : EncapsulationId_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  239.    procedure Output (Item : TransportEncapsulationSettings_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  240.    procedure Output (Item : Discovery_ParticipantInformation_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  241.    procedure Output (Item : Discovery_EndpointInformation_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  242.    procedure Output (Item : Locator_Address_Array_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  243.    procedure Output (Item : Locator_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  244.    procedure Output (Item : VendorId_Array_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  245.    procedure Output (Item : BuiltinTopicKey_Array_T; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  246.    procedure Output (Item : LocatorFilter_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  247.    procedure Output (Item : ChannelSettings_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  248.    procedure Output (Item : Property_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  249.    procedure Output (Item : EndpointGroup_T_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  250.    procedure Output (Item : ParticipantBuiltinTopicData_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  251.    procedure Output (Item : TopicBuiltinTopicData_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  252.    procedure Output (Item : PublicationBuiltinTopicData_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  253.    procedure Output (Item : SubscriptionBuiltinTopicData_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  254.    procedure Output (Item : KeyHash_Value_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  255.    procedure Output (Item : SampleInfo_Array; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  256.  
  257.    procedure Pre_Sequence 
  258.      (To   : not null access Ada.Streams.Root_Stream_Type'Class); 
  259.    procedure Post_Sequence 
  260.      (To   : not null access Ada.Streams.Root_Stream_Type'Class); 
  261.    procedure Pre_Element 
  262.      (To   : not null access Ada.Streams.Root_Stream_Type'Class); 
  263.    procedure Between_Element 
  264.      (To   : not null access Ada.Streams.Root_Stream_Type'Class) is null; 
  265.    procedure Post_Element 
  266.      (To   : not null access Ada.Streams.Root_Stream_Type'Class); 
  267.  
  268.    procedure Output is new Short_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  269.    procedure Output is new Long_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  270.    procedure Output is new Long_Long_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  271.    procedure Output is new Unsigned_Short_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  272.    procedure Output is new Unsigned_Long_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  273.    procedure Output is new Unsigned_Long_Long_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  274.    procedure Output is new Enum_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  275.    procedure Output is new Float_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  276.    procedure Output is new Double_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  277.    procedure Output is new Long_Double_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  278.    procedure Output is new Char_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  279.    procedure Output is new Wchar_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  280.    procedure Output is new Octet_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  281.    procedure Output is new Octets_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  282.    procedure Output is new Boolean_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  283.    procedure Output is new String_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  284.    procedure Output is new KeyedString_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  285.    procedure Output is new KeyedOctets_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  286.    procedure Output is new Wide_String_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  287.    procedure Output is new InstanceHandle_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  288.    procedure Output is new QosPolicyCount_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  289.    procedure Output is new TransportUnicastSettings_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  290.    procedure Output is new TransportMulticastSettings_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  291.    procedure Output is new TransportMulticastMapping_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  292.    procedure Output is new EncapsulationId_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  293.    procedure Output is new TransportEncapsulationSettings_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  294.    procedure Output is new Discovery_ParticipantInformationSeq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  295.    procedure Output is new Discovery_EndpointInformationSeq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  296.    procedure Output is new Locator_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  297.    procedure Output is new LocatorFilter_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  298.    procedure Output is new ChannelSettings_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  299.    procedure Output is new Property_T_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  300.    procedure Output is new EndpointGroup_T_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  301.    procedure Output is new ParticipantBuiltinTopicData_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  302.    procedure Output is new TopicBuiltinTopicData_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  303.    procedure Output is new PublicationBuiltinTopicData_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  304.    procedure Output is new SubscriptionBuiltinTopicData_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  305.    procedure Output is new SampleInfo_Seq.Output_Generic (Ada.Streams.Root_Stream_Type'Class); 
  306.  
  307.    procedure Output (Item : DDS_Support.Void_Ptr; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  308.    procedure Output (Item : TypeObject_Access; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  309.    procedure Output (Item : SampleRejectedStatusKind; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  310.    procedure Output (Item : DDS_LoggingQosPolicy; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  311.    procedure Output (Item : TypeCode_Access; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  312.    procedure Output (Item : Interfaces.C.Strings.chars_ptr; To : not null access Ada.Streams.Root_Stream_Type'Class); 
  313.  
  314.    procedure Print (Item : DataWriterQos; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; profile : Standard.String := ""); 
  315.    procedure Print (Item : PublisherQos; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; profile : Standard.String := ""); 
  316.    procedure Print (Item : DataReaderQoS; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; profile : Standard.String := ""); 
  317.    procedure Print (Item : SubscriberQos; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; profile : Standard.String := ""); 
  318.    procedure Print (Item : TopicQos; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; Profile : Standard.String := ""; Topic_Name : Standard.String := ""); 
  319.    procedure Print (Item : DomainParticipantQos; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; profile : Standard.String := ""); 
  320.    procedure Print (Item : DomainParticipantFactoryQos; To : not null access Ada.Streams.Root_Stream_Type'Class; Library : Standard.String := ""; profile : Standard.String := ""); 
  321.  
  322.    procedure Print (Item : DataWriterQos; To_File : Standard.String; Library : Standard.String := ""; profile : Standard.String := ""); 
  323.    procedure Print (Item : PublisherQos; To_File : Standard.String; Library : Standard.String := ""; profile : Standard.String := ""); 
  324.    procedure Print (Item : DataReaderQoS; To_File : Standard.String; Library : Standard.String := ""; profile : Standard.String := ""); 
  325.    procedure Print (Item : SubscriberQos; To_File : Standard.String; Library : Standard.String := ""; profile : Standard.String := ""); 
  326.    procedure Print (Item : TopicQos; To_File : Standard.String; Library : Standard.String := ""; Profile : Standard.String := ""; Topic_Name : Standard.String := ""); 
  327.    procedure Print (Item : DomainParticipantQos; To_File : Standard.String; Library : Standard.String := ""; profile : Standard.String := ""); 
  328.    procedure Print (Item : DomainParticipantFactoryQos; To_File : Standard.String; Library : Standard.String := ""; profile : Standard.String := ""); 
  329.  
  330. end DDS.XML_Output;