package body Gn.identity is
   
   
   function Get_Entity(Id   : in     Identity_Record;
		       Name : in     String) return Entity_Access is
   begin
      for I in Id.Entities'Range loop
	 if Id.Entities(I) /= null and then
	   Id.Entities(I).Name /= null then
	    if Id.Entities(I).Name.all = Name then
	       return Id.Entities(I);
	    end if;
	 end if;
      end loop;
      return null;
   end Get_Entity;
   
   
end Gn.identity;