with Interfaces;
with System;
with Ada.Unchecked_Deallocation;
with Ada.Strings;
with Ada.Strings.Wide_Unbounded;
with Ada.Strings.Unbounded;
package RTIDDS.Types is
pragma Preelaborate;
subtype Address is System.Address;
type short is new Interfaces.Integer_16;
type long is new Interfaces.Integer_32;
type Long_Long is new Interfaces.Integer_64;
type unsigned_short is new Interfaces.Unsigned_16;
type unsigned_long is new Interfaces.Unsigned_32;
type Unsigned_Long_Long is new Interfaces.Unsigned_64;
pragma Warnings (Off);
type Float is new Interfaces.IEEE_Float_32;
pragma Warnings (On);
type Double is new Interfaces.IEEE_Float_64;
type Long_Double is new Interfaces.IEEE_Extended_Float;
subtype Char is Standard.Character;
subtype Wchar is Standard.Wide_Character;
type Octet is new Interfaces.Unsigned_8;
pragma Warnings (Off);
subtype Boolean is Standard.Boolean;
type Wide_String is new Ada.Strings.Wide_Unbounded.Unbounded_Wide_String;
type String is new Ada.Strings.Unbounded.Unbounded_String;
type Short_Ptr is access all short;
type Long_Ptr is access all long;
type Long_Long_Ptr is access all Long_Long;
type Unsigned_Short_Ptr is access all unsigned_short;
type Unsigned_Long_Ptr is access all unsigned_long;
type Unsigned_Long_Long_Ptr is access all Unsigned_Long_Long;
type Float_Ptr is access all Float;
type Double_Ptr is access all Double;
type Long_Double_Ptr is access all Long_Double;
type Char_Ptr is access all Char;
type Wchar_Ptr is access all Wchar;
type Octet_Ptr is access all Octet;
type Boolean_Ptr is access all Boolean;
type String_Ptr is access all String;
type Wide_String_Ptr is access all Wide_String;
procedure Deallocate is new Ada.Unchecked_Deallocation
(short, Short_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(long, Long_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Long_Long, Long_Long_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(unsigned_short, Unsigned_Short_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(unsigned_long, Unsigned_Long_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Unsigned_Long_Long, Unsigned_Long_Long_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Float, Float_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Double, Double_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Long_Double, Long_Double_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Char, Char_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Wchar, Wchar_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Octet, Octet_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Boolean, Boolean_Ptr);
procedure Deallocate is new Ada.Unchecked_Deallocation
(Wide_String, Wide_String_Ptr);
function Trimmed_Image (X : Long_Long) return Standard.String;
function Trimmed_Image (X : Unsigned_Long_Long) return Standard.String;
function To_Rtidds_String (Source : Standard.String) return String;
function To_Standard_String (Source : String) return Standard.String;
function To_Rtidds_Wide_String
(Source : Standard.Wide_String) return Wide_String;
function To_Standard_Wide_String
(Source : Wide_String) return Standard.Wide_String;
type Bool is new Boolean;
for Bool'Size use 32;
RTI_BOOL_TRUE : constant Bool := True;
RTI_BOOL_FALSE : constant Bool := False;
end RTIDDS.Types;