59 lines
1.1 KiB
Ada
Executable file
59 lines
1.1 KiB
Ada
Executable file
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;
|