Un programme stocké dans un module dynamique et non dans un exécutable

Ce programme présente un programme hébergé dans un bibliothèque dynamique et non dans un exécutable qui utilise une bibliothèque dynamiqe implémentant les interfaces du module principal.

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

Mode compilé

Cet exemple nécessite d'avoir compilé libc de l'exemple du module chargé dynamiquement implémentant des interfaces.

Commande de compilation


upscmp Source=exed.upl

Commande d'exécution


upsmmr Module=exed

Mode interprété


upssng Source=exed.upl

Fichiers sources

Source du module


Source Module "Exemple d'exécutable dynamique" Version 4.0.0 
   ModuleDynamique;



Composant Dans "c:/up/exemples/exed/exed1.upl";

Source du composant


Source Composant "Exemple d'exécutable dynamique" Version 4.0.0 
   RattacherA "c:/up/exemples/exed.upl";



Public :

/******/

Interface IA Defaut

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

Public :

/******/

   A1 : Booleen;

   B1 : Entier;

   C1 : Reel;

   D1 : Caractere;

Public :

/******/

   Procedure Afficher();

   Fonction F1(P : Booleen) Retourner Booleen;

   Fonction F2(P : Entier) Retourner Entier;

   Fonction F3(P : Reel) Retourner Reel;

   Fonction F4(P : Caractere) Retourner Caractere;

Fin Interface



Interface IB HeriteDe IA Defaut

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

Public :

/******/

   E1 : Date;


Public :

/******/

   Procedure P1(P : Booleen);

   Procedure P2(P : Entier);

   Procedure P3(P : Reel);

   Procedure P4(P : Caractere);


Fin Interface



Type TA Implemente IA

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

Public :

/******/

   Procedure Afficher();

   Fonction F1(P : Booleen) Retourner Booleen;

   Fonction F2(P : Entier) Retourner Entier;

   Fonction F3(P : Reel) Retourner Reel;

   Fonction F4(P : Caractere) Retourner Caractere;

   Constructeur();

Fin Type



Type TB Implemente IA

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

Public :

/******/

   Procedure Afficher();

   Fonction F1(P : Booleen) Retourner Booleen;

   Fonction F2(P : Entier) Retourner Entier;

   Fonction F3(P : Reel) Retourner Reel;

   Fonction F4(P : Caractere) Retourner Caractere;

   Constructeur();

Fin Type



Type TC Implemente IB

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

Public :

/******/

   Procedure P1(P : Booleen);

   Procedure P2(P : Entier);

   Procedure P3(P : Reel);

   Procedure P4(P : Caractere);

   Constructeur();

Fin Type



Public :

/******/

Procedure TA.Afficher()

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

Debut

Ecran.Ecrire("TA : A1=");

Ecran.Ecrire(A1);

Ecran.Ecrire("TA : B1=");

Ecran.Ecrire(B1);

Ecran.Ecrire("TA : C1=");

Ecran.Ecrire(C1);

Ecran.Ecrire("TA : D1=");

Ecran.Ecrire(D1);

Ecran.Ecrire("\n");

Fin Procedure



Fonction TA.F1(P : Booleen) Retourner Booleen

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

Debut

Ecran.Ecrire("TA : F1");

Retourner P;

Fin Fonction



Fonction TA.F2(P : Entier) Retourner Entier

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

Debut

Ecran.Ecrire("TA : F2");

Retourner P;

Fin Fonction



Fonction TA.F3(P : Reel) Retourner Reel

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

Debut

Ecran.Ecrire("TA : F3");

Retourner P;

Fin Fonction



Fonction TA.F4(P : Caractere) Retourner Caractere

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

Debut

Ecran.Ecrire("TA : F4");

Retourner P;

Fin Fonction



Public :

Procedure TB.Afficher()

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

Debut

Ecran.Ecrire("TB : A1=");

Ecran.Ecrire(A1);

Ecran.Ecrire("TB : B1=");

Ecran.Ecrire(B1);

Ecran.Ecrire("TB : C1=");

Ecran.Ecrire(C1);

Ecran.Ecrire("TB : D1=");

Ecran.Ecrire(D1);

Ecran.Ecrire("\n");

Fin Procedure



Fonction TB.F1(P : Booleen) Retourner Booleen

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

Debut

Ecran.Ecrire("TB : F1");

Retourner P;

Fin Fonction



Fonction TB.F2(P : Entier) Retourner Entier

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

Debut<

Ecran.Ecrire("TB : F2");

Retourner P;

Fin Fonction



Fonction TB.F3(P : Reel) Retourner Reel

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

Debut

Ecran.Ecrire("TB : F3");

Retourner P;

Fin Fonction



Fonction TB.F4(P : Caractere) Retourner Caractere

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

Debut

Ecran.Ecrire("TB : F4");

Retourner P;

Fin Fonction



Public :

Procedure TC.Afficher()

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

Debut

Ecran.Ecrire("TC : A1=");

Ecran.Ecrire(A1);

Ecran.Ecrire("TC : B1=");

Ecran.Ecrire(B1);

Ecran.Ecrire("TC : C1=");

Ecran.Ecrire(C1);

Ecran.Ecrire("TC : D1=");

Ecran.Ecrire(D1);

Ecran.Ecrire("TC : D1=");

Ecran.Ecrire(Caractere(E1, "%jj-%mm-%A"));

Ecran.Ecrire("\n");

Fin Procedure



Fonction TC.F1(P : Booleen) Retourner Booleen

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

Debut

Ecran.Ecrire("TC : F1");

Retourner P;

Fin Fonction



Fonction TC.F2(P : Entier) Retourner Entier

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

Debut

Ecran.Ecrire("TC : F2");

Retourner P;

Fin Fonction



Fonction TC.F3(P : Reel) Retourner Reel

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

Debut

Ecran.Ecrire("TC : F3");

Retourner P;

Fin Fonction



Fonction TC.F4(P : Caractere) Retourner Caractere

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

Debut

Ecran.Ecrire("TC : F4");

Retourner P;

Fin Fonction



Procedure TC.P1(P : Booleen)

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

Debut

Ecran.Ecrire("TC : P1");

Ecran.Ecrire(P);

Fin Procedure



Procedure TC.P2(P : Entier)

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

Debut

Ecran.Ecrire("TC : P2");

Ecran.Ecrire(P);

Fin Procedure



Procedure TC.P3(P : Reel)

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

Debut

Ecran.Ecrire("TC : P3");

Ecran.Ecrire(P);

Fin Procedure



Procedure TC.P4(P : Caractere)

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

Debut

Ecran.Ecrire("TC : P4");

Ecran.Ecrire(P);

Fin Procedure



Fonction FA() Retourner Nul Ou IA

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

Variable

/******/

   A : TA;




Debut

A.A1=Vrai;

A.B1=10;

A.C1=2.71;

A.D1="coucou";

A.Afficher();

Retourner IA(A);

Fin Fonction



Fonction FB() Retourner Nul Ou IA

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

Variable

/******/

   B : TB;



Debut

B.A1=Vrai;

B.B1=20;

B.C1=3.14;

B.D1="hello";

B.Afficher();

Retourner IA(B);

Fin Fonction



Fonction FC() Retourner Nul Ou IB

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

Variable

/******/

   C : TC;



Debut

C.A1=Vrai;

C.B1=40;

C.C1=1.414;

C.D1="guten tag";

C.E1=Date(10,10,1968);

C.Afficher();

Retourner IB(C);

Fin Fonction



Principal

/*******/

Variable

/******/

   VA : Nul Ou IA;

   VB : Nul Ou IB;

   M : Nul Ou Module;



Debut

VA=FA();

VA.Afficher();

Ecran.Ecrire(VA.F1(Vrai));

Ecran.Ecrire(VA.F2(1));

Ecran.Ecrire(VA.F3(2.0));

Ecran.Ecrire(VA.F4("coucou"));

Ecran.Ecrire("\n");



VA=FB();

VA.Afficher();

Ecran.Ecrire(VA.F1(Vrai));

Ecran.Ecrire(VA.F2(1));

Ecran.Ecrire(VA.F3(2.0));

Ecran.Ecrire(VA.F4("coucou"));

Ecran.Ecrire("\n");



VB=FC();

VB.Afficher();

Ecran.Ecrire(VB.F1(Vrai));

Ecran.Ecrire(VB.F2(1));

Ecran.Ecrire(VB.F3(2.0));

Ecran.Ecrire(VB.F4("coucou"));

VB.P1(Faux);

VB.P2(100);

VB.P3(123.45);

VB.P4("...");

Ecran.Ecrire("\n");



M=Module("libc", 1, 0, 0);

Ecran.Ecrire(M.NomModule);

Ecran.Ecrire("\n");

VA=M.NouvelObjet(IA);

VA.Afficher();

Ecran.Ecrire("\n");

VB=M.NouvelObjet(IB);

VB.Afficher();

Ecran.Ecrire("\n");

VA=Nul;

VB=Nul;

M=Nul;

Fin Principal

Résultat de l'exécution

TA : A1= Vrai TA : B1= 10 TA : C1= 2.71 TA : D1= coucou TA : A1= Vrai TA : B1= 10 TA : C1= 2.71 TA : D1= coucou TA : F1 Vrai TA : F2 1 TA : F3 2.0 TA : F4 coucou TB : A1= Vrai TB : B1= 20 TB : C1= 3.14 TB : D1= hello TB : A1= Vrai TB : B1= 20 TB : C1= 3.14 TB : D1= hello TB : F1 Vrai TB : F2 1 TB : F3 2.0 TB : F4 coucou TC : A1= Vrai TC : B1= 40 TC : C1= 1.414 TC : D1= guten tag TC : D1= 10-10-1968 TC : A1= Vrai TC : B1= 40 TC : C1= 1.414 TC : D1= guten tag TC : D1= 10-10-1968 TC : F1 Vrai TC : F2 1 TC : F3 2.0 TC : F4 coucou TC : P1 Faux TC : P2 100 TC : P3 123.45 TC : P4 ... libc TD : A1= Vrai TD : B1= 10 TD : C1= 2.71 TD : D1= coucou TE : A1= Vrai TE : B1= 40 TE : C1= 1.414 TE : D1= guten tag TE : D1= 10-10-1968