with Text_Io; use Text_Io;
with Ada.Exceptions; use Ada.Exceptions;
with Agpl.G2.Packet;
use Agpl.G2;
with Agpl.Streams;
use Agpl.Streams;
procedure T007_g2p is
P : constant Packet.Object := Packet.Create ("ADDTASK");
C : Packet.Object := Packet.Create ("DESCR", "asldkfjkldrn");
begin
P.Add_Child (C);
declare
Data : constant Stream_Element_Array := P.To_Stream_Element_Array;
begin
Put_Line ("Data length is" & Data'Length'Img);
end;
exception
when E : others =>
Put_Line ("Exception: " & Exception_Information (E));
end T007_g2p;