package Entities.Poles is
type Pole is abstract new Entity with private;
private
type Pole is new Entity with null record;
procedure Construct( this : access Pole );
function Object_Input( stream : access Root_Stream_Type'Class ) return Pole;
for Pole'Input use Object_Input;
procedure Object_Read( stream : access Root_Stream_Type'Class; obj : out Pole );
for Pole'Read use Object_Read;
procedure Object_Write( stream : access Root_Stream_Type'Class; obj : Pole );
for Pole'Write use Object_Write;
end Entities.Poles;