🚀 go-pugleaf

On Wed, 03 Oct 2012 01:54:52 -0700, philippe.torgue wrote:

> bonjour.
Bonjour
 
> à quoi sert la clause with dans le cas suivant :
> 
> main.adb :
> with montype;
> procedure main is var1 : natural := 1;
> .........
> .........
> end main;
Si on ne lit que cela, le but du with est de rendre visible les types et 
fonctions définis dans montype.ads.
 
> montype.adb:
> with main;
> package montype is ....ici je voudrais utiliser var1 ....mais main.var1
> ne marche pas.
Normal, var1 est local à la procédure main et n'est donc accessible que 
dans ce contexte.

> ....à quoi sert ici la clause "with main" ???? end montype;
Dans ce cas, j'aurais tendance à dire : "A rien". Mais comme pour au-
dessus, cela permettrait à la spécification de montype (montype.ads) 
d'utiliser des choses définies dans la spécification de main (main.ads).
Ceci dit, il nous manque pas mal de choses pour vraiment comprendre à 
quoi sert ce code.
De plus, le fait que main.adb fasse un with et que montype.adb le fasse 
doit introduire une référence circulaire entre les deux packages.

Au final, mieux vaut nous expliquer ce que tu cherches à faire et nous 
fournir un exemple de code plus conséquent.

Fred