Reference

Ce programme présente l'usage des références sur des objets.

Le fichier source est ${UPS_HOME}/upsvtm/demo/${UPS_LANGUAGE}/reference.upl.

Mode compilé

Commande de compilation


upscmp Source=reference.upl

Commande d'exécution


reference

Mode interprété


upssng Source=reference.upl

Fichier source


Source Composant "Exemple d'emploi du type Reference" Version 4.0.0;



Principal

/*******/

Variable

/******/

   A : Caractere;

   R1 : Nul Ou ReferenceDe Caractere;

   R2 : Nul Ou ReferenceDe Caractere;



Debut

A="A";

R1=ReferenceDe(A);

R2=ReferenceDe("B");

Ecran.Ecrire(R1.Valeur);



Si R1==R2 Alors

   Ecran.Ecrire("R1==R2");

Fin Si

Si R1!=R2 Alors

   Ecran.Ecrire("R1!=R2");

Fin Si

R2=R1;

Si R1.Valeur==R2.Valeur Alors

   Ecran.Ecrire("R1.Valeur==R2.Valeur");

Fin Si

R1.Valeur="C";

Ecran.Ecrire(R2.Valeur);

Fin Principal

Résultat de l'exécution

A R1!=R2 R1.Valeur==R2.Valeur C