package RTIDDS.Types is

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;

type Float is new Interfaces.IEEE_Float_32;

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;

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;

type Bool is new Boolean;

RTI_BOOL_TRUE  : constant Bool := True;

RTI_BOOL_FALSE : constant Bool := False;

procedure Deallocate is new Ada.Unchecked_Deallocation 
(
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;