with Ada.Streams;
with Ada.Unchecked_Deallocation;
package Agpl.Streams is
pragma Preelaborate;
------------------------------------------------------------------------
-- Types --
------------------------------------------------------------------------
type Stream_access is access all Ada.Streams.Root_stream_type'Class;
type Stream_element_array_access is access all
Ada.Streams.Stream_element_array;
------------------------------------------------------------------------
-- Utilities --
------------------------------------------------------------------------
----------
-- Free --
----------
procedure Free is new Ada.Unchecked_Deallocation (
Ada.Streams.Stream_Element_Array, Stream_Element_Array_Access);
procedure Free is new Ada.Unchecked_Deallocation (
Ada.Streams.Root_Stream_Type'Class, Stream_Access);
---------------
-- To_string --
---------------
-- Returns a string having the characters in the stream array.
-- Uses unchecked conversion
function To_string (This : in Ada.Streams.Stream_element_array)
return String;
-----------------------------
-- To_Stream_Element_Array --
-----------------------------
-- Uses unchecked conversion
function To_Stream_Element_Array (This : in String)
return Ada.Streams.Stream_Element_Array;
-- Facilities for children packages.
subtype Root_Stream_Type is Ada.Streams.Root_Stream_Type;
subtype Stream_Element_Array is Ada.Streams.Stream_Element_Array;
subtype Stream_Element_Count is Ada.Streams.Stream_Element_Count;
subtype Stream_Element_Offset is Ada.Streams.Stream_Element_Offset;
use type Stream_Element_Array;
use type Stream_Element_Count;
-- use type Stream_Element_Offset;
end Agpl.Streams;