package DDS.Ximages  is

type SampleInfoField is (Sample_State,
                            View_State,
                            Instance_State,
                            Source_Timestamp,
                            Instance_Handle,
                            Publication_Handle,
                            Disposed_Generation_Count,
                            No_Writers_Generation_Count,
                            Sample_Rank,
                            Generation_Rank,
                            Absolute_Generation_Rank,
                            Valid_Data,
                            Reception_Timestamp,
                            Publication_Sequence_Number,
                            Reception_Sequence_Number,
                            Publication_Virtual_Guid,
                            Publication_Virtual_Sequence_Number,
                            Original_Publication_Virtual_Guid,
                            Original_Publication_Virtual_Sequence_Number,
                            Related_Original_Publication_Virtual_Guid,
                            Related_Original_Publication_Virtual_Sequence_Number,
                            Flag,
                            Source_Guid,
                            Related_Source_Guid,
                            Related_Subscription_Guid,
                            Topic_Query_Guid,
                            Sample_Info_Hash,
                            Sample_Signature);

type SampleInfoFields is array (SampleInfoField) of Boolean;

function Image 
(
Item
: DDS.SampleFlag) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Boolean) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Short) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Unsigned_Short) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Long) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Long_Long) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Unsigned_Long) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Unsigned_Long_Long) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Enum) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Float) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.Double) return Standard.String is (Item'Img);

function Image 
(
Item
: DDS.String) return Standard.String is (To_Standard_String (Item));

function Image 
(
Item
: DDS.SampleLostStatusKind) return Standard.String is (case Item is when DDS.NOT_LOST                                              => "NOT_LOST", when DDS.LOST_BY_WRITER                                        => "WRITER", when DDS.LOST_BY_INSTANCES_LIMIT                               => "INSTANCES", when DDS.LOST_BY_REMOTE_WRITERS_PER_INSTANCE_LIMIT             => "REMOTE_WRITERS_PER_INSTANCE", when DDS.LOST_BY_INCOMPLETE_COHERENT_SET                       => "INCOMPLETE_COHERENT_SET", when DDS.LOST_BY_LARGE_COHERENT_SET                            => "LARGE_COHERENT_SET", when DDS.LOST_BY_SAMPLES_PER_REMOTE_WRITER_LIMIT               => "SAMPLES_PER_REMOTE_WRITER", when DDS.LOST_BY_VIRTUAL_WRITERS_LIMIT                         => "VIRTUAL_WRITERS", when DDS.LOST_BY_REMOTE_WRITERS_PER_SAMPLE_LIMIT               => "REMOTE_WRITERS_PER_SAMPLE", when DDS.LOST_BY_AVAILABILITY_WAITING_TIME                     => "AVAILABILITY_WAITING_TIME", when DDS.LOST_BY_REMOTE_WRITER_SAMPLES_PER_VIRTUAL_QUEUE_LIMIT => "REMOTE_WRITER_SAMPLES_PER_VIRTUAL_QUEUE", when others                                                    => "lost_by_unkown_reason");

function Image 
(
Item
: DDS.SampleLostStatus) return Standard.String is ("(Total_Count => " & Image (Item.Total_Count) & "Total_Count_Change => " &  Image (Item.Total_Count_Change) & "Last_Reason =>" & Image (Item.Last_Reason) & ")");

function Image 
(
Item
: DDS.SampleStateKind) return Standard.String is (case Item is when DDS.READ_SAMPLE_STATE     => "READ", when DDS.NOT_READ_SAMPLE_STATE => "NOT_READ", when DDS.ANY_SAMPLE_STATE      => "ANY", when others                    => "UNKOWMN");

function Image 
(
Item
: DDS.ViewStateKind) return Standard.String is (case Item is when DDS.NEW_VIEW_STATE        => "NEW", when DDS.NOT_NEW_VIEW_STATE    => "NOT_NEW", when DDS.ANY_VIEW_STATE        => "ANY", when others                    => "UNKOWMN_VIWE_STATE");

function Image 
(
Item
: DDS.InstanceStateKind) return Standard.String is (case Item is when DDS.ALIVE_INSTANCE_STATE                     => "ALIVE", when DDS.NOT_ALIVE_DISPOSED_INSTANCE_STATE        => "NOT_ALIVE_DISPOSED", when DDS.NOT_ALIVE_NO_WRITERS_INSTANCE_STATE      => "NOT_ALIVE_NO_WRITERS", when DDS.NOT_ALIVE_INSTANCE_STATE                 => "NOT_ALIVE", when DDS.ANY_INSTANCE_STATE                       => "ANY", when others                                       => "UNKOWMN");

function Image 
(
Item
: DDS.Time_T) return Standard.String is (Image (Item.Sec) & "." & Image (Item.Nanosec));

function Image 
(
Item
: DDS.SequenceNumber_T) return Standard.String is (Image (Item.High) & "." & Image (Item.Low));

function Image 
(
Item
: RTIDDS.Low_Level.ndds_mig_mig_rtps_h.MIGRtpsKeyHash) return Standard.String;

function Image 
(
Item
: RTIDDS.Low_Level.ndds_osapi_osapi_hash_h.RTIOsapiHash) return Standard.String is ("RTIOsapiHash");

function Image 
(
Item
: RTIDDS.Low_Level.ndds_pres_pres_common_impl_h.PRESSampleSignature) return Standard.String is ("PRESSampleSignature");

function Image 
(
Item
: DDS.InstanceHandle_T) return Standard.String is (if Item.isValid /= 0 then Image (Item.keyHash) else "");

function Image 
(
Item
: DDS.Guid_T) return Standard.String is ("Guid_T");

function Image 
(
Item
: DDS.SampleInfo;
Fields
: SampleInfoFields := (others => True)) return Standard.String is ((if Fields (Sample_State) then " Sample_State =>" & Image (Item.Sample_State) else "") & (if Fields (View_State) then " View_State =>" & Image (Item.View_State) else "") & (if Fields (Instance_State) then " Instance_State =>" & Image (Item.Instance_State) else "") & (if Fields (Source_Timestamp) then " Source_Timestamp =>" & Image (Item.Source_Timestamp) else "") & (if Fields (Instance_Handle) then " Instance_Handle =>" & Image (Item.Instance_Handle) else "") & (if Fields (Publication_Handle) then " Publication_Handle =>" & Image (Item.Publication_Handle) else "") & (if Fields (Disposed_Generation_Count) then " Disposed_Generation_Count =>" & Image (Item.Disposed_Generation_Count) else "") & (if Fields (No_Writers_Generation_Count) then " No_Writers_Generation_Count =>" & Image (Item.No_Writers_Generation_Count) else "") & (if Fields (Sample_Rank) then " Sample_Rank =>" & Image (Item.Sample_Rank) else "") & (if Fields (Generation_Rank) then " Generation_Rank =>" & Image (Item.Generation_Rank) else "") & (if Fields (Absolute_Generation_Rank) then " Absolute_Generation_Rank =>" & Image (Item.Absolute_Generation_Rank) else "") & (if Fields (Valid_Data) then " Valid_Data =>" & Image (Item.Valid_Data) else "") & (if Fields (Reception_Timestamp) then " Reception_Timestamp =>" & Image (Item.Reception_Timestamp) else "") & (if Fields (Publication_Sequence_Number) then " Publication_Sequence_Number =>" & Image (Item.Publication_Sequence_Number) else "") & (if Fields (Reception_Sequence_Number) then " Reception_Sequence_Number =>" & Image (Item.Reception_Sequence_Number) else "") & (if Fields (Publication_Virtual_Guid) then (" Publication_Virtual_Guid =>" & Standard.String'(Image (Item.Publication_Virtual_Guid))) else "") & (if Fields (Publication_Virtual_Sequence_Number) then " Publication_Virtual_Sequence_Number =>" & Image (Item.Publication_Virtual_Sequence_Number) else "") & (if Fields (Original_Publication_Virtual_Guid) then " Original_Publication_Virtual_Guid =>" & Standard.String'(Image (Item.Original_Publication_Virtual_Guid)) else "") & (if Fields (Original_Publication_Virtual_Sequence_Number) then " Original_Publication_Virtual_Sequence_Number =>" & Image (Item.Original_Publication_Virtual_Sequence_Number) else "") & (if Fields (Related_Original_Publication_Virtual_Guid) then " Related_Original_Publication_Virtual_Guid =>" & Standard.String'(Image (Item.Related_Original_Publication_Virtual_Guid)) else "") & (if Fields (Related_Original_Publication_Virtual_Sequence_Number) then " Related_Original_Publication_Virtual_Sequence_Number =>" & Image (Item.Related_Original_Publication_Virtual_Sequence_Number) else "") & (if Fields (Flag) then " Flag =>" & Image (Item.Flag) else "") & (if Fields (Source_Guid) then " Source_Guid =>" & Standard.String'(Image (Item.Source_Guid)) else "") & (if Fields (Related_Source_Guid) then " Related_Source_Guid =>" & Standard.String'(Image (Item.Related_Source_Guid)) else "") & (if Fields (Related_Subscription_Guid) then " Related_Subscription_Guid =>" & Standard.String'(Image (Item.Related_Subscription_Guid)) else "") & (if Fields (Topic_Query_Guid) then " Topic_Query_Guid =>" & Standard.String'(Image (Item.Topic_Query_Guid)) else "") & (if Fields (Sample_Info_Hash) then " Sample_Info_Hash =>" & Image (Item.Sample_Info_Hash) else "") & (if Fields (Sample_Signature) then " Sample_Signature =>" & Standard.String'(Image (Item.Sample_Signature.all)) else ""));