1. -- 
  2. -- Copyright (c) 2012 Kevin Wellwood 
  3. -- All rights reserved. 
  4. -- 
  5. -- This source code is distributed under the Modified BSD License. For terms and 
  6. -- conditions, see license.txt. 
  7. -- 
  8.  
  9. package Entities.Poles is 
  10.  
  11.     type Pole is abstract new Entity with private; 
  12.  
  13. private 
  14.  
  15.     type Pole is new Entity with null record; 
  16.  
  17.     procedure Construct( this : access Pole ); 
  18.  
  19.     function Object_Input( stream : access Root_Stream_Type'Class ) return Pole; 
  20.     for Pole'Input use Object_Input; 
  21.  
  22.     procedure Object_Read( stream : access Root_Stream_Type'Class; obj : out Pole ); 
  23.     for Pole'Read use Object_Read; 
  24.  
  25.     procedure Object_Write( stream : access Root_Stream_Type'Class; obj : Pole ); 
  26.     for Pole'Write use Object_Write; 
  27.  
  28. end Entities.Poles;