Discussion :

[Helifyl]

Bonjour,

Dans le cadre d'un projet je dois sauvegarder des données entrées par l'utilisateur (stockées dans des tableaux) pour pouvoir les réutiliser lors de la prochaine exécution du programme.

Mes cours n'ont pas abordé ce type d'E/S, aussi j'ai lu ceux qui sont disponibles sur le site (cours de D. Feneuille). Si j'ai bien tout compris pour sauvegarder des tableaux il faut utiliser des fichiers "streams". J'ai essayé de faire un petit test mais le debugger me trouve des conflits entre les librairies Ada.Text.IO et Ada.Streams.Stream_IO.

Voilà le code de mon test:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
with Ada.Text_Io,Ada.Integer_Text_Io,Ada.Streams.Stream_IO;
use Ada.Text_Io,Ada.Integer_Text_Io,Ada.Streams.Stream_IO;
 
procedure Test_Sauv is
 
   type T_Entier is range 0..200;
   Entier:T_Entier:=12;
   Entier_2:T_Entier;
 
   Test_creation,Test_ouverture: File_Type;
   Acces_F,Acces_F_2:Stream_Access;
 
 
begin
 
   Create(Test_creation,Name=>"fichier_test");
   Acces_F:=Stream(Test_creation);
   T_Entier'Write(Acces_F,Entier);
   Close(Test_creation);
 
   Open(Test_ouverture,In_File,"fichier_test");
   Acces_F_2:=Stream(Test_ouverture);
   T_Entier'Read(Acces_F_2,Entier_2);
   Close(Test_Ouverture);
 
   Put(Entier_2);
 
end Test_Sauv;

J'ai pas mal cherché sur le net de la doc sur le sujet, mais je trouve surtout des choses en rapport avec les fichiers textes. Si vous avez un lien vers de la doc de la librairie Ada.Streams.Stream_IO ce serait sympa.
Ou mieux si vous pouvez me dire ce qui ne va pas dans mon code

[Hibou57]

Bonjour Heli (et bienvenue)

Le phénomène que tu rencontre n'est en rien spécifique aux librairies d'entrée/sortie, mais concerne l'utilisation des noms qualifiés, et des importations. Je peux donc te suggérer de te documenter en priorité sur les pièges de l'utilisation des clauses use.

Je peux t'en toucher un mot en résumé. Les clauses uses sont très pratiques pour alléger le code, et donc amméliorer sa lisibilité. Cependant, il est préférable de ne pas les employer directement dans le cas où on utilise plusieurs packages appartenant à des domaines similaires (ce qui est exactement le cas de ton programme), parce qu'un nom de fonction ou de procédure peut correspondre à plusieurs instances de fonctions ou de procédures.

Imagine par exemple que tu as deux packages, le premier qui s'appel ABCD et l'autre qui s'appel DEFGH. Imagine maintenant que dans chacun de ceux-ci, tu as une procédure qui s'appel MaProcedure.

Si maintenant tu fait ceci dans un programme :

Code :

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

1
2
3
4
5
 
with ABCD;
with DEFGH;
use ABCD;
use DEFGH;

... si dans ce programme tu appel MaProcedure, alors le compilateur n'a aucun moyen de savoir s'il s'agit de celle qui est dans ABCD ou de celle qui est dans DEFGH. Il faut appliquer quelque chose qui permette de lever l'ambiguïté.

Dans ce cas, tu es bien sûre toujours obligé(e) d'utiliser les clauses with, mais il ne faut pas utiliser les clauses use. Et alors, au lieu d'appeler MaProcedure, tu appelera ABCD.MaProcedure, ou alors (selon ce que tu entend) DEFGH.MaProcedure.

Pour aller plus loin, tu pourrais même employer une clause de renomage.

fhemt ? (tu comprends?)

[Helifyl]

Oui c'est bien ça. Avec un simple "Test_creation,Test_ouverture: Ada.Streams.Stream_IO.File_Type;" ça marche !

J'ai du aussi préciser tous mes "date_error" mais la sauvegarde fonctionne à présent.

Merci Hibou57 !