2 with Ada.Tags.Generic_Dispatching_Constructor; use Ada.Tags;
3 package body abstract1 is
5 function New_T (Stream : not null access Root_Stream_Type'Class)
8 new Generic_Dispatching_Constructor (T, Root_Stream_Type'Class, Input);
9 E : constant String := String'Input (Stream);
10 I : constant Tag := Internal_Tag (E);
13 return Construct (I, Stream);
16 function Input (Stream : not null access Root_Stream_Type'Class)
20 Integer'Read (Stream, O.I);
24 function Input (Stream : not null access Root_Stream_Type'Class)
28 Float'Read (Stream, O.F);