Discussion :

[Darkcristal]

Bonjour,

j'ai un petit problème avec les with !

j'ai 4 packages :

Main
|
Route
| |
Voiture feu


Dans le main j'ai "with route"
Dans route j'ai "with voiture; with feu"

Le problème c'est que la voiture n'a pas connaissance de la route et quand je met "with route" dans voiture j'ai une erreur : unit circular dependency

Comment je peux régler ce problème ??

merci

[Invité]

Yep,

Il faut savoir si c'est route qui dépend de voiture ou l'inverse.

[boromir73]

Ada permet la compilation d'unités mutuellement dépendantes.

Exemple fichier test_voiture.ads :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
limited with Test_Route;
 
package Test_Voiture is
 
	type T_Voiture is private;
 
private
 
	type T_Voiture is record
		Route: access Test_Route.T_Route;
	end record;
 
end Test_Voiture;

Exemple fichier test_route.ads :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
limited with Test_Voiture;
 
package Test_Route is
 
	type T_Route is private;
 
private
 
	type T_Route is record
		Voiture: access Test_Voiture.T_Voiture;
	end record;
 
end Test_Route;

Remarques :

• un seul 'limited' est suffisant ;
• on ne peut pas utiliser 'use' avec un 'limited with'.