145 lines
3.9 KiB
Ada
145 lines
3.9 KiB
Ada
-- 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;
|
|
|
|
|
|
|