with Ada.Unchecked_Conversion;
package body Agpl.Streams is
-----------------------------
-- To_Stream_Element_Array --
-----------------------------
function To_Stream_Element_Array (This : in String)
return Ada.Streams.Stream_Element_Array
is
subtype StringX is String (1 .. This'Length);
subtype ArrayX is Stream_Element_Array (1 .. This'Length);
function To_Arr is new Ada.Unchecked_Conversion (StringX, ArrayX);
begin
return To_Arr (This);
end To_Stream_Element_Array;
---------------
-- To_string --
---------------
function To_string (This : in Ada.Streams.Stream_element_array)
return String
is
subtype StringX is String (1 .. This'Length);
subtype ArrayX is Stream_Element_Array (1 .. This'Length);
function To_Str is new Ada.Unchecked_Conversion (ArrayX, StringX);
begin
return To_Str (This);
end To_string;
end Agpl.Streams;