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;