Généricité

  subtype T_Nbr_Ligne_Generic is Natural range 0..Max_Ligne_Generic;

   type T_Tab_Ligne_Generic is array (T_Nbr_Ligne_Generic) of Unbounded_String;
   type T_Info_Generic is
      record
         Nbr_Lignes  : T_Nbr_Ligne_Generic := 0;
         Tab_Lignes  : T_Tab_Ligne_Generic;
      end record;

Pour la généricité nous nous contentons de récupérer les différentes lignes présente dans le fichier de spécification. Dans le fichier de spécification, le paquetage peut-être générique ou encore un ou plusieurs sous-programme. Ci-dessous les deux cas de généricité(petit rappel):

• Paquetage générique

  generic
     
    Taille: Positive;  -- Taille maximale de la queue
  
    -- Type des elements de la queue
    type T_Element is private;
  
    -- Pour disposer d'une relation d'ordre (queue!)
    with function "<" (Gauche, Droit: T_Element) return Boolean is <>;
    with function ">" (Gauche, Droit: T_Element) return Boolean is <>;
  
  package Queue_Priorite_Par_Tas_G is
  

• Sous-programme générique

  generic
  
     with procedure Traiter(Cle: in T_Cle;Element: in T_Element);
  
     procedure Test (Arbre: in T_B_Arbre; Niveau: in Positive := 1);