Discussion :

[semaj_james]

Bonjour,

En modifiant un exemple du cours 1 de Daniel Feneuille pour la Lecture et écriture de variables de type ENTIER (p78) j'ai une erreur de compilation.

voici le code:

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
with Ada.Text_IO, Ada.Integer_Text_IO,Ada.Strings.Unbounded, machine, client;
use Ada.Text_IO, Ada.Integer_Text_IO,Ada.Strings.Unbounded, machine, client;
procedure clientServ is
 
   procedure GET(ENTIER : out Integer) is
      REPONSE : Unbounded_String;  
      LONG : NATURAL;      
   begin    
      loop       
         begin
            REPONSE := Get_Line;   => E R R E U R
            ENTIER := Integer'VALUE(To_String(REPONSE));           
            exit;     
         exception when others =>
               PUT_LINE("Saisie non valable recommencez");              
         end;         
      end loop;     
   end GET;
...
end clientServ;

expected private type "Ada.Strings.Unbounded.Unbounded_String"
found type "Standard.String"

ca veut dire qu'il ne trouve pas Ada.Strings.Unbounded ? J'ai pourtant tout telecharger sur GNAT GPL Edition
Est ce normal qu'il n'y soit pas ?

[Celelibi]

À supposer que tu compile en Ada 2005, la fonction Get_Line renvoie une valeur de type String. Cette fonction n'est pas surchargée par le package Ada.Strings.Unbounded.
Soit il faut convertir le résultat en Get_Line en Unbounded_String, soit il faut aussi inclure le package Ada.Strings.Unbounded.Text_IO.

[semaj_james]

En ajoutant le package Ada.Strings.Unbounded.Text_IO j'ai sur cette ligne:

Code :

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

REPONSE : Unbounded_String;

l'erreur:

Unbounded_String is not visible

[jc-miranda]

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
 
with Ada.Strings.Unbounded;
with Ada.Strings.Unbounded.Text_Io;
with Text_Io;
 
 
procedure Toto is
  Reponse : Ada.Strings.Unbounded.Unbounded_String;  
  Valeur  : Natural;
begin    
  loop       
    begin
      Reponse := Ada.Strings.Unbounded.Text_Io.Get_Line; 
      Valeur  := Integer'Value(Ada.Strings.Unbounded.To_String(Reponse));  
      Text_Io.Put_Line("valeur lue " & Integer'Image(Valeur));
      exit;     
    exception 
      when others =>
        Text_Io.Put_Line("Saisie non valable recommencez");
    end;         
  end loop;     
end Toto;

Ce code marche.
Je ne sais pas d'ou vient ton probleme, mais un detail, evite de coller des use partout tu vas avoir des problemes ....

Sinon, question bete, pourquoi vouloir utiliser des Unbounded ici au lieu d'utiliser directement Integer_Io?

[Celelibi]

jc-miranda, je pense que justement il avait oublié de mettre use Ada.Strings.Unbounded.Text_IO.


/me pour l'utilisation des use.

[jc-miranda]

/me pour l'utilisation des use.

Vu que tu ajoutes cela, tu peux m'expliquer pourquoi?

Des use tres limites sur certains packages oui, mais l'abus de use rend ton code difficile a suivre et surtout risque de provoquer des problemes joyeux.
Pourquoi vouloir eliminer une info de son code? Pour le sport?

A la rigueur des "use type" localises a des procedures pour l'acces aux operateurs, ok.
Mais inonde son package de use, c'est chercher les ennuis.

Et quand on me dit que c'est chiant a ecrire, je preciserai que par contre ca rend les choses beaucoup plus faciles a lire.... et tu relis en general un package plus de fois que tu ne l'ecris ... sans compter tes collegues qui te remercieront.

A+

Juan

[Celelibi]

Quelque soit le programme, tu n'es pas censé inclure deux packages qui font la même chose. Si deux packages font des choses différentes, le nom des types/fonctions/procédures sera différent, il n'y a donc normalement aucun conflit ni aucune ambiguïté.

Au final ça donne à mon avis du code pas plus difficile à lire, mais plus rapide à écrire. Le code sera peut-être même plus facile à lire. Personnellement lire un code blindé de trucs du genre Mon_Package.Foo("bar", Mon_Autre_Package.Bar("foo")) c'est pas ce que je trouve des plus aisé à lire comparé à Foo("bar", Bar("foo"));.

Mais ce n'est que mon avis perso.


PS : Ceci est le sujet de troll du langage Ada.

[Vivian Pennel]

Perso depuis mon dernier soucis en date qui m'a valu une bonne heure de recherche j'utilise de moins en moins la clause "use"
Mon probleme était sur la programmation d'une petite calculatrice
J'utilisais un package générique de Pile , 2 fois , une fois pour stocker des entier l'autre fois pour stocker des caractères.
J'ai mis un moment avant de m'apercevoir qu'il y avait conflit dans les instanciations