-- Auteurs : P. E.
-- Version du 30/01/2019

-- Sous-programmes ŕ compléter
-- Init_Pile
-- Est_Vide
-- Sommet
-- Empiler
-- Depiler
-- Hauteur
-- Liste_To_String
-- To_String

with Unchecked_Deallocation;
with Ada.Text_Io; use Ada.Text_Io;

package body Piles_Entiers is

   procedure Free is new Unchecked_Deallocation(Cellule, Liste);
   -- Desallocation d'une Cellule pointee par un pointeur de type Liste
   -- Procedure utilisee lors des operations Depiler(P) et Vider(P)
   
   procedure Vide_Liste(L : in out Liste) is
   begin
      if L /= null then
	 Vide_Liste(L.all.Suiv);
	 Free(L.all.Suiv);
      end if;
   end Vide_Liste;

   procedure Init(P : in out Pile) is
   -- Ne fait rien si P est deja vide a l'appel
   -- Sinon efface tous les elements de P (en
   -- recuperant la memoire allouee)
   -- et retourne la pile vide
   begin
      Vide_Liste(P.Debut);
      Free(P.Debut);
   end Init;
   
   function Est_Vide(P : in Pile) return Boolean is
   -- Retourne vrai si la pile est vide, faux sinon
   begin
      return (P.Debut = null);
   end Est_Vide;

   function Sommet(P : in Pile) return Integer is
   -- Retourne le premier element de P (situe au sommet)
   begin
      if Est_Vide(P) then
	 raise Pile_Vide;
      end if;
      return P.Debut.all.info;
   end Sommet;

   procedure Empiler(E : in Integer; P : in out Pile) is
   -- Empile E au dessus de P ; E devient le nouveau sommet
   begin
      P.Debut := new Cellule'(E, P.Debut);
      P.Hauteur := P.Hauteur + 1;
   end Empiler;

   procedure Depiler(P: in out Pile) is
   -- Efface le sommet de P ; attention, penser a recuperer
   -- la memoire associee a la cellule a effacer
      Buffer : Liste;
   begin
      if Est_Vide(P) then
	 raise Pile_Vide;
      end if;
      Buffer := P.Debut;
      P.Debut := P.Debut.all.Suiv;
      Free(Buffer);
      P.Hauteur := P.Hauteur - 1;
   exception
      when Pile_Vide => Put_Line("Tentative de pull une liste vide !");
   end Depiler;

   function Hauteur(P : in Pile) return Natural is
   -- Calculer la hauteur en comptant le nombre d'elements depilables
   -- n'est pas efficace. Cette fonction retourne directement le champ
   -- hauteur du record associe a une pile
   begin
      return P.Hauteur;
   end Hauteur;

   function Liste_To_String(L : Liste) return String is
   -- Convertit une liste d'entiers en une chaine de caracteres
   begin
      if L /= null then
	 return Integer'Image(L.all.Info) & " - " & Liste_To_String(L.all.Suiv);
      else
	 return ";";
      end if;
   end Liste_To_String;

   function To_String(P : in Pile) return String is
   -- Convertit une pile d'entiers en une chaine de caracteres
   begin
      return Liste_To_String(P.Debut);   
   end To_String;

   function "="(P1,P2 : in Pile) return Boolean is
      -- Verifie que les piles sont identiques (memes elements et meme ordre)
      L, L2 : Liste;
      Egal : Boolean := true;
   begin
      L := P1.Debut;
      L2 := P2.Debut;
      while L /= null and L2 /= null and Egal = True loop
	 if L.all.Info /= L2.all.info then
	    Egal := False;
	 end if;
	 L := L.all.Suiv;
	 L2 := L2.all.Suiv;
      end loop;
      if L /= null or L2 /= null then
	 Egal := False;
      end if;
      return Egal;
   end "=";





--   procedure Free_Liste(L : in out Liste) is
--   -- Desallocation de toutes les Cellules d'une Liste
--   begin
--      if L /= null then
--         Free_Liste(L.All.Suiv);  -- desallocation de la liste suivante PUIS
--         Free(L);                 -- desallocation de le premiere cellule
--      end if;
--      L := null;                  -- en principe c'est le cas apres Free(L)
--   end Free_Liste;

--   procedure Vider(P : in out Pile) is   -- pas indispensable pour le paquetage
--   begin
--                        --A COMPLETER EVENTUELLEMENT (reutiliser Free_Liste)
--   end Vider;

end Piles_Entiers;