1. pragma Ada_2012; 
  2. --  (c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ 
  3. --  All rights reserved. 
  4. -- 
  5. --  No duplications, whole or partial, manual or electronic, may be made 
  6. --  without express written permission.  Any such copies, or 
  7. --  revisions thereof, must display this notice unaltered. 
  8. --  This code contains trade secrets of Real-Time Innovations, Inc. 
  9.  
  10. with Ada.Strings.Unbounded; 
  11. with DDS_Support.Sequences_Generic.Image_Generic; 
  12. package DDS.Images is 
  13.  
  14.    function Image 
  15.      (Item     : RequestedIncompatibleQosStatus; Indent : Standard.String  := "") 
  16.       return Ada.Strings.Unbounded.Unbounded_String; 
  17.  
  18.    function Image (Index : DDS.Natural; Item  : QosPolicyCount; Indent : Standard.String := "") 
  19.                    return Ada.Strings.Unbounded.Unbounded_String; 
  20.  
  21.    function Image (Item  : QosPolicyCount; Indent : Standard.String := "") 
  22.                    return Ada.Strings.Unbounded.Unbounded_String; 
  23.  
  24.    function Image 
  25.      (Item     : LivelinessChangedStatus; Indent : Standard.String  := "") 
  26.       return Ada.Strings.Unbounded.Unbounded_String; 
  27.  
  28.    function Image 
  29.      (Item     : SampleRejectedStatus; Indent : Standard.String  := "") 
  30.       return Ada.Strings.Unbounded.Unbounded_String; 
  31.  
  32.    function Image 
  33.      (Item     : DataReaderQoS; Indent : Standard.String  := "") 
  34.       return Ada.Strings.Unbounded.Unbounded_String; 
  35.  
  36.    function Image 
  37.      (Item     : DataWriterQos; Indent : Standard.String  := "") 
  38.       return Ada.Strings.Unbounded.Unbounded_String; 
  39.  
  40.    function Image 
  41.      (Item     : DurabilityQosPolicy; Indent : Standard.String  := "") 
  42.       return Ada.Strings.Unbounded.Unbounded_String; 
  43.    function Image 
  44.      (Item     : DeadlineQosPolicy; Indent : Standard.String  := "") 
  45.       return Ada.Strings.Unbounded.Unbounded_String; 
  46.  
  47.    function Image 
  48.      (Item     : LatencyBudgetQosPolicy; Indent : Standard.String  := "") 
  49.       return Ada.Strings.Unbounded.Unbounded_String; 
  50.    function Image 
  51.      (Item     : LivelinessQosPolicy; Indent : Standard.String  := "") 
  52.       return Ada.Strings.Unbounded.Unbounded_String; 
  53.    function Image 
  54.      (Item     : ReliabilityQosPolicy; Indent : Standard.String  := "") 
  55.       return Ada.Strings.Unbounded.Unbounded_String; 
  56.    function Image 
  57.      (Item     : DestinationOrderQosPolicy; Indent : Standard.String  := "") 
  58.       return Ada.Strings.Unbounded.Unbounded_String; 
  59.    function Image 
  60.      (Item     : HistoryQosPolicy; Indent : Standard.String  := "") 
  61.       return Ada.Strings.Unbounded.Unbounded_String; 
  62.    function Image 
  63.      (Item     : ResourceLimitsQosPolicy; Indent : Standard.String  := "") 
  64.       return Ada.Strings.Unbounded.Unbounded_String; 
  65.    function Image 
  66.      (Item     : UserDataQosPolicy; Indent : Standard.String  := "") 
  67.       return Ada.Strings.Unbounded.Unbounded_String; 
  68.    function Image 
  69.      (Item     : OwnershipQosPolicy; Indent : Standard.String  := "") 
  70.       return Ada.Strings.Unbounded.Unbounded_String; 
  71.    function Image 
  72.      (Item     : TimeBasedFilterQosPolicy; Indent : Standard.String  := "") 
  73.       return Ada.Strings.Unbounded.Unbounded_String; 
  74.    function Image 
  75.      (Item     : ReaderDataLifecycleQosPolicy; Indent : Standard.String  := "") 
  76.       return Ada.Strings.Unbounded.Unbounded_String; 
  77.    function Image 
  78.      (Item     : DataReaderResourceLimitsQosPolicy; Indent : Standard.String  := "") 
  79.       return Ada.Strings.Unbounded.Unbounded_String; 
  80.    function Image 
  81.      (Item     : DataReaderProtocolQosPolicy; Indent : Standard.String  := "") 
  82.       return Ada.Strings.Unbounded.Unbounded_String; 
  83.    function Image 
  84.      (Item     : TransportSelectionQosPolicy; Indent : Standard.String  := "") 
  85.       return Ada.Strings.Unbounded.Unbounded_String; 
  86.    function Image 
  87.      (Item     : TransportUnicastQosPolicy; Indent : Standard.String  := "") 
  88.       return Ada.Strings.Unbounded.Unbounded_String; 
  89.    function Image 
  90.      (Item     : TransportMulticastQosPolicy; Indent : Standard.String  := "") 
  91.       return Ada.Strings.Unbounded.Unbounded_String; 
  92.    function Image 
  93.      (Item     : TypeSupportQosPolicy; Indent : Standard.String  := "") 
  94.       return Ada.Strings.Unbounded.Unbounded_String; 
  95.    function Image 
  96.      (Item     : PropertyQosPolicy; Indent : Standard.String  := "") 
  97.       return Ada.Strings.Unbounded.Unbounded_String; 
  98.    function Image 
  99.      (Item     : ServiceQosPolicy; Indent : Standard.String  := "") 
  100.       return Ada.Strings.Unbounded.Unbounded_String; 
  101.    function Image 
  102.      (Item     : Duration_T; Indent : Standard.String  := "") 
  103.       return Ada.Strings.Unbounded.Unbounded_String; 
  104.  
  105.    function Image 
  106.      (Item     : SubscriptionMatchedStatus; Indent : Standard.String  := "") 
  107.       return Ada.Strings.Unbounded.Unbounded_String; 
  108.  
  109.    function Image 
  110.      (Item     : Guid_T; Indent : Standard.String  := "") 
  111.       return Ada.Strings.Unbounded.Unbounded_String; 
  112.  
  113.    function Image 
  114.      (Item     : RequestedDeadlineMissedStatus; Indent : Standard.String  := "") 
  115.       return Ada.Strings.Unbounded.Unbounded_String; 
  116.  
  117.    function Image 
  118.      (Item     : SampleLostStatus; Indent : Standard.String  := "") 
  119.       return Ada.Strings.Unbounded.Unbounded_String; 
  120.  
  121.    function Image 
  122.      (Item     : RtpsReliableReaderProtocol_T; Indent : Standard.String  := "") 
  123.       return Ada.Strings.Unbounded.Unbounded_String; 
  124.  
  125.    function Image 
  126.      (Item     : StatusKind; Indent : Standard.String  := "") 
  127.       return Ada.Strings.Unbounded.Unbounded_String; 
  128.  
  129.  
  130.    function Image 
  131.      (Index : DDS.Natural; Item : Octet; Indent : Standard.String := "") 
  132.       return Ada.Strings.Unbounded.Unbounded_String; 
  133.    function Image 
  134.      (Item     : InstanceHandle_T; Indent : Standard.String  := "") 
  135.       return Ada.Strings.Unbounded.Unbounded_String; 
  136.  
  137.    function Image 
  138.      (Item     : SampleLostStatusKind; Indent : Standard.String  := "") 
  139.       return Ada.Strings.Unbounded.Unbounded_String; 
  140.  
  141.    function Image 
  142.      (Item     : Long; Indent : Standard.String  := "") 
  143.       return Ada.Strings.Unbounded.Unbounded_String; 
  144.    function Image 
  145.      (Item     : Long_Long; Indent : Standard.String  := "") 
  146.       return Ada.Strings.Unbounded.Unbounded_String; 
  147.    function Image 
  148.      (Item     : Unsigned_Long; Indent : Standard.String  := "") 
  149.       return Ada.Strings.Unbounded.Unbounded_String; 
  150.    function Image 
  151.      (Item     : SequenceNumber_T; Indent : Standard.String  := "") 
  152.       return Ada.Strings.Unbounded.Unbounded_String; 
  153.  
  154.    function Image 
  155.      (Item     : DDS.String; Indent : Standard.String  := "") 
  156.       return Ada.Strings.Unbounded.Unbounded_String; 
  157.  
  158.    function Image 
  159.      (Item     : DDS.Locator_T; Indent : Standard.String  := "") 
  160.       return Ada.Strings.Unbounded.Unbounded_String; 
  161.  
  162.    function Image 
  163.      (Item     : DDS.Locator_Address_Array_T; Indent : Standard.String  := "") 
  164.       return Ada.Strings.Unbounded.Unbounded_String; 
  165.  
  166.    function Image (Item : in EncapsulationId_T; Indent : Standard.String := "") 
  167.                    return Ada.Strings.Unbounded.Unbounded_String; 
  168.  
  169.    function Image (Index : in Natural; Item : in EncapsulationId_T; Indent : Standard.String := "") 
  170.                    return Ada.Strings.Unbounded.Unbounded_String; 
  171.  
  172.    function Image is new EncapsulationId_Seq.Image_Generic; 
  173.  
  174.  
  175.    function Image 
  176.      (Item     : DDS.SampleIdentity_T; Indent : Standard.String  := "") 
  177.       return Ada.Strings.Unbounded.Unbounded_String; 
  178.  
  179.    function Image 
  180.      (Item     : DDS.Octet_Array; Indent : Standard.String  := "") 
  181.       return Ada.Strings.Unbounded.Unbounded_String; 
  182.  
  183.    function Image 
  184.      (Item     : DDS.SampleStateKind; Indent : Standard.String  := "") 
  185.       return Ada.Strings.Unbounded.Unbounded_String; 
  186.  
  187.    function Image 
  188.      (Item     : DDS.ViewStateKind; Indent : Standard.String  := "") 
  189.       return Ada.Strings.Unbounded.Unbounded_String; 
  190.  
  191.    function Image 
  192.      (Item     : DDS.InstanceStateKind; Indent : Standard.String  := "") 
  193.       return Ada.Strings.Unbounded.Unbounded_String; 
  194.  
  195.    function Image 
  196.      (Item     : DDS.Cookie_T; Indent : Standard.String  := "") 
  197.       return Ada.Strings.Unbounded.Unbounded_String; 
  198.  
  199.    function Image is new Octet_Seq.Image_Generic (Image); 
  200.  
  201.    function Image 
  202.      (Item     : DDS.WriteParams_T; Indent : Standard.String  := "") 
  203.       return Ada.Strings.Unbounded.Unbounded_String; 
  204.  
  205.    function Image 
  206.      (Item     : DDS.OwnershipQosPolicyKind; Indent : Standard.String  := "") 
  207.       return Ada.Strings.Unbounded.Unbounded_String; 
  208.    function Image 
  209.      (Item     : DDS.Boolean; Indent : Standard.String  := "") 
  210.       return Ada.Strings.Unbounded.Unbounded_String; 
  211.  
  212.    function Image 
  213.      (Item     : DDS.Time_T; Indent : Standard.String  := "") 
  214.       return Ada.Strings.Unbounded.Unbounded_String; 
  215.    function Image 
  216.      (Item     : DDS.RtpsWellKnownPorts_T; Indent : Standard.String  := "") 
  217.       return Ada.Strings.Unbounded.Unbounded_String; 
  218.  
  219. end DDS.Images;