Un module chargé dynamiquement gérant les versions-révisions

Ce programme présente la déclaration d'un module gérant la compatibilité ascendante et descendante sur les version-révisions.

Les fichiers sources sont dans le répertoire ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/libg/.

Commande de compilation

upscmp Source=libg

Mode compilé...
Fichier source...

Mode compilé

Commande de compilation


upscmp Source=libg.upl

Commande d'exécution

Cet exemple n'est pas prévu pour être exécuté

Fichier source

Source du module


Source Module "Exemple de version-révision dans une bibliothèque dynamique" Version 4.0.0 ModuleDynamique;



Composant Dans "c:/up/exemple/libg1.upl";

Source du composant


Source Composant Exemple de version-révision dans une bibliothèque 
   dynamique" Version 4.0.0 RattacherA "c:/up/exemples/libg.upl";



Constante

/*******/

   Version 1.1 Faire
   
      Version 1.0 Faire
      
         C1=1;
      
      Fin Version

      C2=2;
   
   Fin Version

   C3=3;



Enumere

/*****/


   Version 1.1 Faire
   
      Version 1.0 Faire
      
         E1 Dans (E1_1, E1_2);
      
      Fin Version

      E2 Dans (E2_1, E2_2);
   
   Fin Version

   E3 Dans (E3_1, E3_2);



Entrepot

/******/

   Version 1.1 Faire
   
      Version 1.0 Faire
      
         F1;
      
      Fin Version

      F2;
   
   Fin Version

   F3;



Version 1.1 Faire

   Version 1.0 Faire
   
      Type T1 Defaut

		/************/
      
         CA : Entier;

         CB : Reel;

         CC : Caractere;
      
      Fin Type
   
   Fin Version

   

   Type T2 Defaut

	/************/
   
      CA : Entier;

      CB : Reel;

      CC : Caractere;
   
   Fin Type


Fin Version



Type T3 Defaut

/************/

   CA : Entier;

   CB : Reel;

   CC : Caractere;

Fin Type



Type T4 Defaut

/************/

   Version 1.1 Faire
   
      Version 1.0 Faire
      
         CA : Entier;

         Procedure MA();
      
      Fin Version

      CB : Entier;

      Procedure MB();
   
   Fin Version

   CC : Entier;

   Procedure MC();


Fin Type



Variable

/******/


   Version 1.1 Faire
   
      Version 1.0 Faire
      
         V1 : Entier;

      
      Fin Version

      V2 : Entier;
   
   Fin Version

   V3 : Entier;




Exception

/*******/


   Version 1.1 Faire
   
      Version 1.0 Faire
      
         G1("G1", 1, TransactionInchangee);
      
      Fin Version

      G2("G2", 2, TransactionInchangee);
   
   Fin Version

   G3("G3", 3, TransactionInchangee);



Version 1.1 Faire

   Version 1.0 Faire
   
      Procedure P1()

      /************/

      Debut

      Ecran.Ecrire("P1");

      Fin Procedure

      

      Procedure T4.MA()

      /***************/

      Debut

      Ecran.Ecrire("T4.MA");

      Fin Procedure

   
   Fin Version

   

   Procedure P2()

   /************/

   Debut

   Ecran.Ecrire("P2");

   Fin Procedure

   

   Procedure T4.MB()

   /***************/

   Debut

   Ecran.Ecrire("T4.MB");

   Fin Procedure

Fin Version



Procedure P3()

/************/

Debut

Ecran.Ecrire("P3");

Fin Procedure



Procedure T4.MC()

/***************/

Debut

Ecran.Ecrire("T4.MC");

Fin Procedure