DEL remove useless code
[powerfractal.git] / CD / Src / Power_List.ads
1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power_List / fait partie du programme Power Fractal --
3 -- --
4 -- Auteurs : Gregory Burri & Adrien Crivelli --
5 ------------------------------------------------------------------------------------------------
6 -- But : Outils pour creer et gerer des liste de fractals --
7 ------------------------------------------------------------------------------------------------
8
9 with Power_Types; use Power_Types;
10
11 package Power_List is
12
13 --Les exceptions
14 Liste_Une_Fractal : exception;
15 Fractal_Inexistante : exception;
16 --
17
18 ------------------------------------------------------------------------------------------------
19 -- Nom : Ajouter --
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);
26
27 ------------------------------------------------------------------------------------------------
28 -- Nom : Effacer --
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);
35
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 --
42 -- --
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;
46
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);
54
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;
62
63 ------------------------------------------------------------------------------------------------
64 -- Nb_Fractals --
65 ------------------------------------------------------------------------------------------------
66 function Nb_Fractals (Liste_Fractals : in T_Liste_Fractals) return Natural;
67
68 end Power_List;