-- file : liste_gene.adb

package body Liste_Gene is

  function Premier (L : Liste) return Typelem is 
  begin
    return L.Elem;
  end Premier;

  function Suivant (L : Liste) return Liste is 
  begin
    return L.Suivant;
  end Suivant;

  function Test_Si_Vide (L : Liste ) return Boolean is 
  begin
    return L = null;
  end Test_Si_Vide;

  function Cons (E : Typelem; L : Liste) return Liste is 
  begin
    return new Maillon'(E,L);
  end Cons;

  procedure Change_Elem (E : Typelem; L : in out Liste ) is 
  begin
    L.Elem := E;
  end Change_Elem;

  procedure Change_Suivant (L : in out Liste; Suiv : Liste ) is 
  begin
    L.Suivant := Suiv;
  end Change_Suivant;

end Liste_Gene;