1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_List / fait partie du programme Power Fractal --
4 -- Auteurs : Gregory Burri & Adrien Crivelli --
5 ------------------------------------------------------------------------------------------------
6 -- But : Outils pour creer et gerer des liste de fractals --
7 ------------------------------------------------------------------------------------------------
9 with Power_Types
; use Power_Types
;
14 Liste_Une_Fractal
: exception;
15 Fractal_Inexistante
: exception;
18 ------------------------------------------------------------------------------------------------
20 -- But : Ajouter une fractal a la suite de la liste --
21 -- Parametres ----------------------------------------------------------------------------------
22 -- In : * La Fractal A Ajouter --
23 -- In out : * La liste de fractals --
24 ------------------------------------------------------------------------------------------------
25 procedure Ajouter (Liste_Fractals
: in out T_Liste_Fractals
; Fractal
: Cara_Fractal
);
27 ------------------------------------------------------------------------------------------------
29 -- But : Effacer une fractal de la liste --
30 -- Parametres ----------------------------------------------------------------------------------
31 -- In : * La liste de fractals --
32 -- * Le numeros de la fractal a effacer : Num --
33 ------------------------------------------------------------------------------------------------
34 procedure Effacer (Liste_Fractals
: in out T_Liste_Fractals
; Num
: Natural);
36 ------------------------------------------------------------------------------------------------
37 -- Nom : Fractal_Num --
38 -- But : Retourner un pointeur sur la fractal correspondante a un numeros --
39 -- Parametres ----------------------------------------------------------------------------------
40 -- In : * La liste de fractals --
41 -- * Le numeros de la fractal a chercher : Num --
43 -- return : * Le pointeur sur La fractal correspondante au numero --
44 ------------------------------------------------------------------------------------------------
45 function Fractal_Num (Liste_Fractals
: T_Liste_Fractals
; Num
: Natural) return T_Lien
;
47 ------------------------------------------------------------------------------------------------
48 -- Nom : Vider_Liste --
49 -- But : vider completement la liste des fractals --
50 -- Parametres ----------------------------------------------------------------------------------
51 -- In-out : * La liste de fractals a vider --
52 ------------------------------------------------------------------------------------------------
53 procedure Vider_Liste(Liste_Fractals
: in out T_Liste_Fractals
);
55 ------------------------------------------------------------------------------------------------
56 -- Nom : Liste_Defaut --
57 -- But : Mettre dans la liste en parametre des fractals d'exemple --
58 -- Parametres ----------------------------------------------------------------------------------
59 -- In-out : * La liste de fractals a remplir --
60 ------------------------------------------------------------------------------------------------
61 function Liste_Defaut
return T_Liste_Fractals
;
63 ------------------------------------------------------------------------------------------------
65 ------------------------------------------------------------------------------------------------
66 function Nb_Fractals (Liste_Fractals
: in T_Liste_Fractals
) return Natural;