ImporterDefinitions
ImporterDefinitions
permet de spécifier que le composant ou la ressource courante connaît directement les définitions du module qui est importé.
Les définitions ou les traitements importés peuvent être employés de deux manières :
.
.
ImporterDefinitions
.
ImporterModule
/************/
A("c:\modules\a.upi");
/* Le module A est accédé par un chemin absolu. La variable entière VA est importée. Elle n'est pas directement utilisable. */
B(<b.upi>, ImporterDefinitions);
/* Le module B est accédé par un chemin relatif. La variable entière VB est importée. Elle est directement utilisable. */
C(<${DIR_IHM}/c.upi>);
/* Le module C est accédé par un chemin relatif utilisant la variable environnement DIR_IHM. La variable entière VC est importée. Elle n'est pas directement utilisable. */
D(<b.upi>, LicenceStandard);
/* Le module D est soumis à licence. Le niveau d'usage est standard. */
E("http://www.up-comp.com/modules/e.upl", ImporterDefinitions);
/* Le module E est accédé par une URI. L'image VE est importée. Elle est directement utilisable. */
Principal
/*******/
Debut
/* Usage de la variable de VA de A. Elle n'est pas accessible directement. */
A.VA=10;
/* Usage de la variable VB de B. Elle est accessible directement. */
VB=10;
/* Usage de la variable VC de C. Elle n'est pas accessible directement. */
C.VC=10;
/* Usage de l'image VE de E. Elle est accessible directement. */
Ecran.Ecrire(VE.NomImage);
Fin Principal
Echange "Exemple" Version 1.2.0 NePasOptimiserEchange;
ImporterModule
/************/
MesEmployes(<employe.upl>, ImporterDefinitions);
MesEmployes2(<employe2.upl>, ImporterDefinitions);
Echange MonEchange
/****************/
Debut
/* MesEmployes comporte le type Employe dont la définition est importée. */
Employe("scott",7724,1000.0);
Employe("allen",7832,1200.0);
Employe("smith",7948,1400.0);
/* MesEmployes2 comporte le type Employe2 dont la définition n'est pas importée. */
MesEmployes2.Employe2 Version 1.0.0 ("scott",7724,1000.0);
MesEmployes2.Employe2 Version 1.0.0 ("allen",7832,1200.0);
MesEmployes2.Employe2 Version 1.0.0 ("smith",7948,1400.0);
Fin Echange
- | - | - | - | - | - | - | - | - |