Discussion :

[Blackknight]

Pour le fait de cacher la structure de ton manager, oui.
Pour ce qui est de l'interface, c'était pour my_type pas pour le manager.

Ceci dit, j'irais encore plus loin en redéfinissant, si besoin est, les méthodes d'entrée/sortie pour la manager de façon à cacher aussi la notion de curseur et donc à passer toute ce qui est dans la partie private directement dans le corps. Comme ça, quand tu veux sérialiser (écrire dans un flux) ton manager, pas besoin d'itérer sur les éléments et de les sérialiser. D'ailleurs, j'ai un lien pour toi et en français qui plus est !!

Le but, c'est l'encapsulation car si je veux utiliser ton manager, ai-je réellement besoin d'un curseur sur les données ?

Enfin, ça dépend vraiment de ce que tu veux faire de ton arche. Mais globalement, je trouve que tu n'as besoin que de quelques fonctions et procédures dans Arche qui rendent les services demandés sans donner de détails sur l'implémentation (i.e. Cursor_Type est déjà un gros détail d'implémentation).
Typiquement, dans le manager, une fonction number_of_entities qui retourne un Natural.

[Invité]

Tu pourrais m'écrire les spécifications qui vont bien pour ce que tu me conseille de faire, parce que le français, c'est bien mais Ada, c'est tout de même autre chose.
J'ai rien compris à propos du type My_Type.
S'il te plaît.
Merci.

[Invité]

Bonjour,

Pour le manager j'ai fait ceci finalement,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
with Ada.Containers.Vectors;
use Ada.Containers;
 
package Arche.Manager is
 
   function Element(Position : in Positive) return My_access;
   procedure Add(My : in My_Access);
   function Length return Natural;   
   Limit_Error : exception;
   Usage_Error : exception;
end Arche.Manager;

Mais pour le type M_Type j'ai pas compris donc.

Arf, j'a oublié d'enlever les include de la spec.