------------------------------------------------------------------------------------------------ -- Nom : Power_List / fait partie du programme Power Fractal -- -- -- -- Auteurs : Gregory Burri & Adrien Crivelli -- ------------------------------------------------------------------------------------------------ -- But : Outils pour creer et gerer des liste de fractals -- ------------------------------------------------------------------------------------------------ with Power_Types; use Power_Types; package Power_List is --Les exceptions Liste_Une_Fractal : exception; Fractal_Inexistante : exception; -- ------------------------------------------------------------------------------------------------ -- Nom : Ajouter -- -- But : Ajouter une fractal a la suite de la liste -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La Fractal A Ajouter -- -- In out : * La liste de fractals -- ------------------------------------------------------------------------------------------------ procedure Ajouter (Liste_Fractals : in out T_Liste_Fractals; Fractal : Cara_Fractal); ------------------------------------------------------------------------------------------------ -- Nom : Effacer -- -- But : Effacer une fractal de la liste -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La liste de fractals -- -- * Le numeros de la fractal a effacer : Num -- ------------------------------------------------------------------------------------------------ procedure Effacer (Liste_Fractals : in out T_Liste_Fractals; Num : Natural); ------------------------------------------------------------------------------------------------ -- Nom : Fractal_Num -- -- But : Retourner un pointeur sur la fractal correspondante a un numeros -- -- Parametres ---------------------------------------------------------------------------------- -- In : * La liste de fractals -- -- * Le numeros de la fractal a chercher : Num -- -- -- -- return : * Le pointeur sur La fractal correspondante au numero -- ------------------------------------------------------------------------------------------------ function Fractal_Num (Liste_Fractals : T_Liste_Fractals; Num : Natural) return T_Lien; ------------------------------------------------------------------------------------------------ -- Nom : Vider_Liste -- -- But : vider completement la liste des fractals -- -- Parametres ---------------------------------------------------------------------------------- -- In-out : * La liste de fractals a vider -- ------------------------------------------------------------------------------------------------ procedure Vider_Liste(Liste_Fractals : in out T_Liste_Fractals); ------------------------------------------------------------------------------------------------ -- Nom : Liste_Defaut -- -- But : Mettre dans la liste en parametre des fractals d'exemple -- -- Parametres ---------------------------------------------------------------------------------- -- In-out : * La liste de fractals a remplir -- ------------------------------------------------------------------------------------------------ function Liste_Defaut return T_Liste_Fractals; ------------------------------------------------------------------------------------------------ -- Nb_Fractals -- ------------------------------------------------------------------------------------------------ function Nb_Fractals (Liste_Fractals : in T_Liste_Fractals) return Natural; end Power_List;