Subversion Repositories openrisc

with Ada.Streams;

with Ada.Streams;

generic

generic

   type Element_Type is private;

   type Element_Type is private;

package remote_type is

package remote_type is

   pragma Remote_Types;

   pragma Remote_Types;

   type List is private;

   type List is private;

   procedure Append

   procedure Append

     (Container : in out List;

     (Container : in out List;

      New_Item  : in     Element_Type);

      New_Item  : in     Element_Type);

private

private

   use Ada.Streams;

   use Ada.Streams;

   type List_Record is record

   type List_Record is record

      A : Boolean;

      A : Boolean;

   end record;

   end record;

   type List is access List_Record;

   type List is access List_Record;

   procedure Read

   procedure Read

     (S : access Root_Stream_Type'Class;

     (S : access Root_Stream_Type'Class;

      L : out List);

      L : out List);

   for List'Read use Read;

   for List'Read use Read;

   procedure Write

   procedure Write

     (S : access Root_Stream_Type'Class;

     (S : access Root_Stream_Type'Class;

      L : in List);

      L : in List);

   for List'Write use Write;

   for List'Write use Write;

end remote_type;

end remote_type;