package Gn is
   
   pragma Pure (Gn);
   
   type Class_Enum is (Uncknow, Other);
   
   type Lang_Enum is (En, Fr);   
   
   subtype Std_String is String (1 .. 256);
   
   subtype Ada_String is String (1 .. 256);
   
private
   
   Identity_Filename : constant String := ".gnalog-identity.txt";
   
end Gn;