with Gn.Entity;                         use Gn.Entity;

package Gn.identity is
   
   Entity_Max : Positive := 128;
   
   type Identity_Record is tagged
      record
	 Entities : Entity_Array(1..Entity_Max);
      end record;
   
   type Identity_Access is access all Identity_Record;
   
   function Get_Entity(Id   : in     Identity_Record;
		       Name : in     String) return Entity_Access;
   
   
end Gn.identity;