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;