TP-programmation-imperative/td09/abr.adb

59 lines
1.1 KiB
Ada
Raw Normal View History

2023-06-10 19:03:54 +00:00
with SDA_Exceptions; use SDA_Exceptions;
with Ada.Unchecked_Deallocation;
package body ABR is
procedure Free is
new Ada.Unchecked_Deallocation (Object => T_Noeud, Name => T_ABR);
procedure Initialiser(Sda: out T_ABR) is
begin
null; -- TODO : à changer
end Initialiser;
function Est_Vide (Sda : T_ABR) return Boolean is
begin
return False; -- TODO : à changer
end Est_Vide;
function Taille (Sda : in T_ABR) return Integer is
begin
return 0; -- TODO : à changer
end Taille;
procedure Enregistrer (Sda : in out T_ABR ; Cle : in T_Cle ; Donnee : in T_Donnee) is
begin
null; -- TODO : à changer
end Enregistrer;
function La_Donnee (Sda : in T_ABR ; Cle : in T_Cle) return T_Donnee is
begin
null; -- TODO : à changer
end La_Donnee;
procedure Supprimer (Sda : in out T_ABR ; Cle : in T_Cle) is
begin
null; -- TODO : à changer
end Supprimer;
procedure Vider (Sda : in out T_ABR) is
begin
null; -- TODO : à changer
end Vider;
procedure Pour_Chaque (Sda : in T_ABR) is
begin
null; -- TODO : à changer
end Pour_Chaque;
end ABR;