Ada

utilisation de with et use en ada

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : utilisation de with et use en ada

tris

voila, pour le moment je tatonne avec les with et les use pour appeller les packages, mais j'aimerai savoir quelle est l'utilité du with, et du use pour les utiliser a bon escient. Merci !

Publicité

ChOoN

Je ne suis pas spécialiste mais pour moi, "with" appel le package, et use indique qu'on va utiliser les fonctions dans celui-ci.

par exemple avec un
with ada.text_io;
use ada.text_io;

lorsque tu mettras un put("hello" ); cette fonction sera appelée dans le package text_io.

Mais si tu surcharges le put(t : string); dans un package perso par exemple, en en-tête tu mettras juste

with ada.text_io;
with tonpackage;

et dans ton programme tu pouras mettre :

text_io.put("texte affiché avec la fonction générique" );
tonpackage.put("texte affiché avec ta fonction perso" );

bref si tu ne veux pas t'embéter à mettre package.fonction à chaque fois tu peux mettre un "use" en en-tête, mais attention aux conflits avec les surcharges.

Message édité par ChOoN le 16-03-2006 à 19:37:05

tris

merci.
maintenant j'ai un autre probleme: je dispose de 2 packages et je dois en créer un troisième qui apelle les 2 autres. il s'agit de
1/ Plistgen : regroupant le type liste générique et les fonctions associées.
2/ Pmot : définissant un mot comme une liste générique instanciée avec le type caractère
3/ un type pphrase définissant une phrase comme une liste générique instanciée avec le type tmot (définit dans pmot, représente un mot)

le probleme de ce dernier package est que soit il ne reconnait pas le type tmot définit dans pmot, soit il ne reconnait pas certaines fonctions de plistgen instanciées dans pphrase comme une liste de tmot. quelqu'un a-t-il une idée ?

tris

voila le package listegénérique

Code :

generic
type TElement is private;
with procedure écrire (x : in TElement);
package PlistGen is
type TptrCellule is private;
procedure INIT_LISTE( p : out TptrCellule);
-- pre-requis : aucun
-- action : Crée une liste vide : la tête de liste p est initialisée a null
function VIDE( p : in TptrCellule) return boolean ;
-- pre-requis : p est la tête d'une liste simplement chainee
-- résultat : retourne vrai si la liste L(p) est vide, faux sinon
procedure INSERE_EN_TETE(p : in out TptrCellule; e : in TElement);
-- pre-requis : p repère une liste simplement chainee
-- action : Ajoute l'élément e en tête de la liste L(p)
procedure INSERE_APRES (s : in out TptrCellule; e : in TElement);
-- pre-requis : s repère une cellule d'un liste simplement chainee
-- action : Ajoute l'élément e après la TCellule repérée par s
function LONGUEUR ( P : in TptrCellule) return integer;
-- pre-requis : tête repère une liste simplement chaînée L(tete)
-- résultat : calcule et retourne la longueur de la liste L(tete)
procedure AFFICHE_LISTE(p : in TptrCellule);
-- pre-requis : p est la tête d'une liste simplement chainee
-- action : affiche a l'écran toutes les valeurs de la liste
function PRESENT( p : in TptrCellule; e : in TElement) return boolean ;
-- résultat : retourne vrai si la valeur e est présente dans une TCellule de L(p), faux sinon
procedure PASSER_AU_SUIVANT ( r : in out TptrCellule) ;
-- pre-requis : aucun
-- action : si r est différent de null, r retourne la valeur contenue dans r.suiv sinon r reste inchange a null
function VALEUR_CELLULE ( r : in TptrCellule) return TElement;
-- pre-requis : r repère une cellule effective d'une liste simplement chainee
-- résultat : la fonction reourne la valeur de r.val
private
type TCellule ;
type TptrCellule is access TCellule;
type TCellule is record
val : TElement;
suiv : TptrCellule;
end record;
end PlistGen;

Le package Pmot

Code :

with plistgen;
with text_io; use text_io;
package pmot is
type tmot is private;
procedure saisie_mot (mot: out tmot);
procedure affiche_mot (mot: in tmot);
private
package PListeCar is new Plistgen (character, put);
use plistecar;
type tmot is new Plistecar.tptrcellule;
end;

et la package Pphrase

Code :

with plistgen;
with pmot; use Pmot;
with text_io; use text_io;
package Pphrase is
type tphrase is private;
procedure saisie_phrase (phrase: out tphrase);
procedure affiche_phrase (phrase: in tphrase);
private
package PListeMot is new Plistgen (tmot, affiche_mot);
use plisteMot;
type tphrase is new PlisteMot.tptrcellule;
end;

le probleme est une erreur dans le corps du package pphrase:

Code :

package body pphrase is
procedure saisie_phrase (phrase: out tphrase) is
mot:Tmot; fin:tphrase;
begin
init_liste(phrase);
saisie_mot(mot);
insere_en_tete(phrase,mot);
saisie_mot(mot);
fin:=phrase;
while not present(mot,'.') loop <===== line 11 col 12
insere_apres (fin,mot);
passer_au_suivant(fin);
saisie_mot(mot);
end loop;
end;
procedure affiche_phrase (phrase: in tphrase) is
fin:tphrase:=phrase;
begin
for i in 1..longueur(phrase) loop
affiche_mot(valeur_cellule(fin));put(' ');
passer_au_suivant(fin);
end loop;
end;
end;

l'erreur :

Citation :

--------------------Target: Win32 (Intel) Debug--------------------
pphrase.adb: Error: line 11 col 12 LRM:8.6(28), Cannot resolve; if calling the PRESENT at line 40 of file plistgen.ads, type mismatch for param 1, p: TptrCellule (found tmot), type mismatch for param 2, e: tmot; if calling the PRESENT at line 40 of file pphrase.ads, type mismatch for param 1, p: tphrase (found tmot), type mismatch for param 2, e: tmot.
Front end of ..\pphrase.adb failed with 1 error.
Tool execution failed.
il n'y a pas de ligne 40 dans pphrase.ads, je pense qu'il veut parler de l'instanciation de plistgen
(package PListeMot is new Plistgen (tmot, affiche_mot);
use plisteMot;
type tphrase is new PlisteMot.tptrcellule

Message édité par tris le 21-03-2006 à 15:21:25

apprentitux

Bon, alors 1er conseil:

Utilises les balises de code source pour éditer ton code, comme ça on a accès facilement aux numéros de ligne (c'est + pratique).

Faut nous aider un peu si tu veux qu'on t'aide, j'ai pas envie de m'embêter à chercher où est la ligne 40 de Plistgen.ads ou la ligne 11 d'un autre fichier...

Message édité par apprentitux le 20-03-2006 à 16:56:50

tris

étant donné que je n'ai pas trouvé comment afficher les N° de lignes avec object ada, j'ai rajouté des commentaires en rouge pointant les erreurs.
(au passage si quelqu'un sait comment on fait pour les N° de lignes)

Message cité 1 fois
Message édité par tris le 20-03-2006 à 20:08:33

bisbo

normalement avec les versions un peu recente de Jgrasp(autre environment de developpement Ada 95) tu as directement les numeros de lignes dans l'icone Toggle lines number, il suffit juste de cliquer dessus pour que les numeros de lignes de ton code s'affiche. Qd tu veux plus tu cliques de nouveau dessus pour desactiver. et ca marche

tris

ok merci je note Jgrasp. et sinon pour mon problème ?

apprentitux

tris a écrit :

Quand tu édites ton source dans un post utilises les balises C/C++ comme ça:

Code :

ton code .....

Il suffit ensuite de double clicker sur la zone d'affichage pour faire apparaitre ou disparaitre les numéros de ligne.

apprentitux

Bon pour ton problème, ça à l'air évident : le compilateur te dit exactement ce qui ne va pas :

Tu appèles Present(..) avec un paramètre de type Tmot alors qu'il faut un Tptrcellule.

Publicité

tris

mais le type tmot est un tptrcellule qui pointe dans ce cas une cellule avec un caractère.

Message cité 1 fois

apprentitux

tris a écrit :

mais le type tmot est un tptrcellule qui pointe dans ce cas une cellule avec un caractère.

NON, le type Tmot n'est pas un Ptrcellule.

Lorsque tu déclare :

Code :

type tmot is private;

Tu dis aux utilisateurs de ce paquetage (les parties du programme qui utilisent ton paquetage) que Tmot est un type sur lequel sont permises les opérations d'affectation et de comparaison (= et /=).

Donc pas question d'inventer des opérations sur ce type.

(Je sens que tu galères un peu là).

Bon pour l'instant j'ai pas trop le temps de me pencher sur ton prog, alors a+ et lis un peu des cours sur la dérivation de type (genre cours de l'iut de Luminy de Daniel Feneuille)

Bon travail ...

tris

la définition est complétée plus bas:

Code :

private
package PListeCar is new Plistgen (character, put);
use plistecar;
type tmot is new Plistecar.tptrcellule;
end;

Message cité 1 fois
Message édité par tris le 21-03-2006 à 15:39:07

apprentitux

Oui mais non, le type Tmot n'est pas un Ptrcellule.

tris a écrit :

la définition est complétée plus bas:

Code :

private
package PListeCar is new Plistgen (character, put);
use plistecar;
type tmot is new Plistecar.tptrcellule;
end;

Bon apparemment par:

Code :

while not present(mot,'.')

Tu veux dire ça :

Code :

while not Pmot.present(mot,'.')

N'est-ce pas?

Est ce que tu comprends pourquoi ce prog ne compile pas ? :

Code :

with Ada.Text_Io;
procedure truc is
type Entier is new Integer;
i : Integer;
e : Entier;
begin
Ada.Text_Io.Get(i); -- Ok
Ada_Text_Io.Get(e); -- Non !!
end Truc;

Réponse : parceque Get n'est pas une primitive de Integer (puisque Integer est déclaré dans standard et get dans Ada.Text_Io => Integer est "figé" à la fin des déclarations de Standard).

Par contre tu peux écrire :

Code :

procedure truc is
type Entier is new Integer;
i : Integer := 2;
e : Entier := 0;
begin
e := e**2 + 5;
-- tout comme :
i := 2 + 3*i;
end Truc;

car "+", "*", "**", .... sont déclarées comme primitives de Integer dans standard et donc héritées par Entier.

Bon, maintenant autre chose :

Code :

Package P1 is
type T1 is private;
-- puis des primitives pour ce type :
procedure proc1 (var1 : in out T1);
-- ....
private
type T1 is .... ;
end Truc;

En dérivant ce type en un type T2, tu peux évidemment utiliser les primitives de T1 appliquées à T2.

Mais toi tu dérives dans la partie privée :

Code :

private
package PListeCar is new Plistgen (character, put);
use plistecar;
type tmot is new Plistecar.tptrcellule;
end;

Tu ne peux pas utiliser (dans Pphrase) les primitives de Tptrcellule appliquées à Tmot car dans Pphrase tu ne sais pas que Tmot dérive de Tptrcellule.

tris

j'ai résolu le probleme en créant une autre fonction
dernier_mot(in tmot) return boolean
dans pmot pour tester si le . est présent

FORUM HardWare.fr

Programmation

Ada

utilisation de with et use en ada

Sujets relatifs
[php] utilisation du "if" en temps que compteur	utilisation manette / SDL
utilisation de max	[Delphi Personnal] Utilisation non commerciale : sens exact
[VB.NET] Save attachment with VB.NET 2005	Utilisation de random
Utilisation d un timer	Utilisation de Microsoft Script Editor
Utilisation de la commande snmptrap	utilisation de la lib opencv
Plus de sujets relatifs à : utilisation de with et use en ada

Page générée en 0.078 secondes