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     : Octet; Indent : Standard.String  := "") 
  114.       return Ada.Strings.Unbounded.Unbounded_String; 
  115.  
  116.    function Image 
  117.      (Item     : RequestedDeadlineMissedStatus; Indent : Standard.String  := "") 
  118.       return Ada.Strings.Unbounded.Unbounded_String; 
  119.  
  120.    function Image 
  121.      (Item     : SampleLostStatus; Indent : Standard.String  := "") 
  122.       return Ada.Strings.Unbounded.Unbounded_String; 
  123.  
  124.    function Image 
  125.      (Item     : RtpsReliableReaderProtocol_T; Indent : Standard.String  := "") 
  126.       return Ada.Strings.Unbounded.Unbounded_String; 
  127.  
  128.    function Image 
  129.      (Item     : StatusKind; Indent : Standard.String  := "") 
  130.       return Ada.Strings.Unbounded.Unbounded_String; 
  131.  
  132.  
  133.    function Image 
  134.      (Index : DDS.Natural; Item : Octet; Indent : Standard.String := "") 
  135.       return Ada.Strings.Unbounded.Unbounded_String; 
  136.    function Image 
  137.      (Item     : InstanceHandle_T; Indent : Standard.String  := "") 
  138.       return Ada.Strings.Unbounded.Unbounded_String; 
  139.  
  140.    function Image 
  141.      (Item     : SampleLostStatusKind; Indent : Standard.String  := "") 
  142.       return Ada.Strings.Unbounded.Unbounded_String; 
  143.  
  144.    function Image 
  145.      (Item     : 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;