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