Commande de compilation...
Commande d'exécution...
Remarque...
Fichiers sources...
upscmp Source=libf.upl AdaptateurServeurJava=Oui
javac -g -classpath
${UPS_HOME}/upsjav/uspjav/french/upsvtm.jar;${UPS_HOME}/demo/upsjav/french/libf_sj.jar libf2.java
java -classpath
${UPS_HOME}/upsjav/upsjav/french/upsvtm.jar;${UPS_HOME}/demo/uspjav/french/libf_sj.jar;.
-Djava.library.path=${UPS_HOME}/upsvtm/bin;${UPS_HOME}/upsnet/bin;${UPS_HOME}/upscmp/bin;${UPS_HOME}/upscom/bin;${UPS_HOME}/upscrb/bin;${UPS_HOME}/upsjav/bin;${UPS_HOME}/upsjav/bin/french;${UPS_HOME}/demo/bin libf2
Source Module "Exemple d'emploi de l'adaptateur Java" Version
1.0.0 ModuleDynamique;
Composant Dans "c:/essais/source/libf1.upl";
Source Composant "Exemple d'emploi de l'adaptateur Java" Version
1.0.0 RattacherA "c:/up/exemples/libf.upl";
Enumere
/*****/
Public :
A1 Dans (ValA1, ValA2, ValA3);
Prive :
B2 Dans (ValB1, ValB2);
Entrepot
/*******/
Public :
MonEntrepot;
Public :
/*****/
Type C1 Defaut
/************/
Public :
/******/
CA1 : Booleen;
CB1 : Nul Ou Booleen;
CC1 : Entier;
CD1 : Nul Ou Entier;
CE1 : Reel;
CF1 : Nul Ou Reel;
CG1 : Caractere;
CH1 : Nul Ou Caractere;
CA1V : Booleen Virtuel;
CB1V : Nul Ou Booleen Virtuel;
CC1V : Entier Virtuel;
CD1V : Nul Ou Entier Virtuel;
CE1V : Reel Virtuel;
CF1V : Nul Ou Reel Virtuel;
CG1V : Caractere Virtuel;
CH1V : Nul Ou Caractere Virtuel;
Prive :
/******/
CA2 : Booleen;
CB2 : Nul Ou Booleen;
CC2 : Entier;
CD2 : Nul Ou Entier;
CE2 : Reel;
CF2 : Nul Ou Reel;
CG2 : Caractere;
CH2 : Nul Ou Caractere;
Public :
/******/
Constructeur();
Procedure Ecrire1(Prm : Nul Ou Booleen);
Procedure Ecrire2(Prm : Nul Ou Entier);
Procedure Ecrire3(Prm : Nul Ou Reel);
Procedure Ecrire3(Prm : Nul Ou Caractere);
Fin Type
Type C2 Defaut
/************/
CA1 : Entier;
Fin Type
Variable
/******/
Public :
/******/
VA1 : Booleen;
VB1 : Nul Ou Booleen;
VC1 : Entier;
VD1 : Nul Ou Entier;
VE1 : Reel;
VF1 : Nul Ou Reel;
VG1 : Caractere;
VH1 : Nul Ou Caractere;
VA1V : Booleen Virtuel;
VB1V : Nul Ou Booleen Virtuel;
VC1V : Entier Virtuel;
VD1V : Nul Ou Entier Virtuel;
VE1V : Reel Virtuel;
VF1V : Nul Ou Reel Virtuel;
VG1V : Caractere Virtuel;
VH1V : Nul Ou Caractere Virtuel;
Prive :
/******/
VA2 : Booleen;
VB2 : Nul Ou Booleen;
VC2 : Entier;
VD2 : Nul Ou Entier;
VE2 : Reel;
VF2 : Nul Ou Reel;
VG2 : Caractere;
VH2 : Nul Ou Caractere;
Exception
/*******/
Public :
/******/
E1("E1", 1);
Prive :
/*****/
E2("E2", 2);
Public :
Procedure C1.CA1V(P : Booleen)
/**************************/
Debut
CA2=P;
Fin Procedure
Fonction C1.CA1V() Retourner Booleen
/**********************************/
Debut
Retourner CA2;
Fin Fonction
Procedure C1.CB1V(P : Nul Ou Booleen)
/*********************************/
Debut
CB2=P;
Fin Procedure
Fonction C1.CB1V() Retourner Nul Ou Booleen
/*****************************************/
Debut
Retourner CB2;
Fin Fonction
Procedure C1.CC1V(P : Entier)
/*************************/
Debut
CC2=P;
Fin Procedure
Fonction C1.CC1V() Retourner Entier
/*********************************/
Debut
Retourner CC2;
Fin Fonction
Procedure C1.CD1V(P : Nul Ou Entier)
/********************************/
Debut
CD2=P;
Fin Procedure
Fonction C1.CD1V() Retourner Nul Ou Entier
/****************************************/
Debut
Retourner CD2;
Fin Fonction
Procedure C1.CE1V(P : Reel)
/***********************/
Debut
CE2=P;
Fin Procedure
Fonction C1.CE1V() Retourner Reel
/*******************************/
Debut
Retourner CE2;
Fin Fonction
Procedure C1.CF1V(P : Nul Ou Reel)
/******************************/
Debut
CF2=P;
Fin Procedure
Fonction C1.CF1V() Retourner Nul Ou Reel
/**************************************/
Debut
Retourner CF2;
Fin Fonction
Procedure C1.CG1V(P : Caractere)
/****************************/
Debut
CG2=P;
Fin Procedure
Fonction C1.CG1V() Retourner Caractere
/************************************/
Debut
Retourner CG2;
Fin Fonction
Procedure C1.CH1V(P : Nul Ou Caractere)
/***********************************/
Debut
CH2=P;
Fin Procedure
Fonction C1.CH1V() Retourner Nul Ou Caractere
/*******************************************/
Debut
Retourner CH2;
Fin Fonction
Procedure C1.Ecrire1(Prm : Nul Ou Booleen)
/**************************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure
Procedure C1.Ecrire2(Prm : Nul Ou Entier)
/*************************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure
Procedure C1.Ecrire3(Prm : Nul Ou Reel)
/***********************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure
Procedure C1.Ecrire3(Prm : Nul Ou Caractere)
/****************************************/
Debut
Ecran.Ecrire(Prm);
Fin Procedure
Procedure VA1V(P : Booleen)
/***********************/
Debut
VA2=P;
Fin Procedure
Fonction VA1V() Retourner Booleen
/*******************************/
Debut
Retourner VA2;
Fin Fonction
Procedure VB1V(P : Nul Ou Booleen)
/******************************/
Debut
VB2=P;
Fin Procedure
Fonction VB1V() Retourner Nul Ou Booleen
/**************************************/
Debut
Retourner VB2;
Fin Fonction
Procedure VC1V(P : Entier)
/**********************/
Debut
VC2=P;
Fin Procedure
Fonction VC1V() Retourner Entier
/******************************/
Debut
Retourner VC2;
Fin Fonction
Procedure VD1V(P : Nul Ou Entier)
/*****************************/
Debut
VD2=P;
Fin Procedure
Fonction VD1V() Retourner Nul Ou Entier
/*************************************/
Debut
Retourner VD2;
Fin Fonction
Procedure VE1V(P : Reel)
/********************/
Debut
VE2=P;
Fin Procedure
Fonction VE1V() Retourner Reel
/****************************/
Debut
Retourner VE2;
Fin Fonction
Procedure VF1V(P : Nul Ou Reel)
/***************************/
Debut
VF2=P;
Fin Procedure
Fonction VF1V() Retourner Nul Ou Reel
/***********************************/
Debut
Retourner VF2;
Fin Fonction
Procedure VG1V(P : Caractere)
/*************************/
Debut
VG2=P;
Fin Procedure
Fonction VG1V() Retourner Caractere
/*********************************/
Debut
Retourner VG2;
Fin Fonction
Procedure VH1V(P : Nul Ou Caractere)
/********************************/
Debut
VH2=P;
Fin Procedure
Fonction VH1V() Retourner Nul Ou Caractere
/****************************************/
Debut
Retourner VH2;
Fin Fonction
Procedure Appel1()
/****************/
Debut
Ecran.Ecrire("Appel1();");
Fin Procedure
Procedure Appel2(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 :
Caractere Entree Sortie)
/**********************************************************************************/
Debut
Ecran.Ecrire("Appel2("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel2";
Fin Procedure
Fonction Appel3() Retourner Booleen
/*********************************/
Debut
Ecran.Ecrire("Appel3();");
Retourner Vrai;
Fin Fonction
Fonction Appel4(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 :
Caractere Entree Sortie) Retourner Booleen
/***************************************************************************************************/
Debut
Ecran.Ecrire("Appel4("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel4";
Retourner Vrai;
Fin Fonction
Fonction Appel5() Retourner Entier
/********************************/
Debut
Ecran.Ecrire("Appel5();");
Retourner 10;
Fin Fonction
Fonction Appel6(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 :
Caractere Entree Sortie) Retourner Entier
/**************************************************************************************************/
Debut
Ecran.Ecrire("Appel6("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel6";
Retourner 10;
Fin Fonction
Fonction Appel7() Retourner Reel
/******************************/
Debut
Ecran.Ecrire("Appel7();");
Retourner 11.11;
Fin Fonction
Fonction Appel8(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 :
Caractere Entree Sortie) Retourner Reel
/************************************************************************************************/
Debut
Ecran.Ecrire("Appel8("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel8";
Retourner 11.11;
Fin Fonction
Fonction Appel9() Retourner Caractere
/***********************************/
Debut
Ecran.Ecrire("Appel9();");
Retourner "schuss";
Fin Fonction
Fonction Appel10(Prm1 : Booleen, Prm2 : Entier, Prm3 : Reel, Prm4 :
Caractere Entree Sortie) Retourner Caractere
/******************************************************************************************************/
Debut
Ecran.Ecrire("Appel10("+Caractere(Prm1)+","+Caractere(Prm2)+","+Caractere(Prm3)+","+Prm4+");");
Prm4="hello Appel10";
Retourner "schuss";
Fin Fonction
import UpsKrn.Caractere;
import UpsKrn.Entier;
import UpsKrn.Liste;
import UpsKrn.MUpsKrn;
import UpsKrn.UpsException;
import libf.C1;
import libf.C2;
import libf.Mlibf;
public class libf2
/****************/
{
public static void main(String s[])
/*********************************/
{
C1 VC1;
C2 VC;
libf.Appel2 PAppel2;
libf.Appel4 PAppel4;
libf.Appel6 PAppel6;
libf.Appel8 PAppel8;
libf.Appel10 PAppel10;
try
{
if (!MUpsKrn.Demarrer())
return;
if (!Mlibf.Demarrer())
return;
VC1=C1.C1();
VC1.CA1(true);
System.out.println("VC1.CA1="+VC1.CA1());
VC1.CB1(MUpsKrn.JavaBoolean2Booleen(true));
System.out.println("VC1.CB1="+MUpsKrn.Booleen2JavaBoolean(VC1.CB1()));
VC1.CC1(2);
System.out.println("VC1.CC1="+VC1.CC1());
VC1.CD1(MUpsKrn.JavaInt2Entier(2));
System.out.println("VC1.CD1="+MUpsKrn.Entier2JavaLong(VC1.CD1()));
VC1.CE1(3.2);
System.out.println("VC1.CE1="+VC1.CE1());
VC1.CF1(MUpsKrn.JavaDouble2Reel(3.2));
System.out.println("VC1.CF1="+MUpsKrn.Reel2JavaDouble(VC1.CF1()));
VC1.CG1(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VC1.CG1="+MUpsKrn.Caractere2JavaString(VC1.CG1()));
VC1.CH1(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VC1.CH1="+MUpsKrn.Caractere2JavaString(VC1.CH1()));
VC1.CA1V(true);
System.out.println("VC1.CA1V="+VC1.CA1V());
VC1.CB1V(MUpsKrn.JavaBoolean2Booleen(true));
System.out.println("VC1.CB1V="+MUpsKrn.Booleen2JavaBoolean(VC1.CB1V()));
VC1.CC1V(2);
System.out.println("VC1.CC1V="+VC1.CC1V());
VC1.CD1V(MUpsKrn.JavaInt2Entier(2));
System.out.println("VC1.CD1V="+MUpsKrn.Entier2JavaLong(VC1.CD1V()));
VC1.CE1V(3.2);
System.out.println("VC1.CE1V="+VC1.CE1V());
VC1.CF1V(MUpsKrn.JavaDouble2Reel(3.2));
System.out.println("VC1.CF1V="+MUpsKrn.Reel2JavaDouble(VC1.CF1V()));
VC1.CG1V(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VC1.CG1V="+MUpsKrn.Caractere2JavaString(VC1.CG1V()));
VC1.CH1V(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VC1.CH1V="+MUpsKrn.Caractere2JavaString(VC1.CH1V()));
VC1.Ecrire1(MUpsKrn.JavaBoolean2Booleen(true));
VC1.Ecrire2(MUpsKrn.JavaInt2Entier(2));
VC1.Ecrire3(MUpsKrn.JavaDouble2Reel(3.2));
VC1.Ecrire32(MUpsKrn.JavaString2Caractere("coucou"));
Mlibf.VA1(true);
System.out.println("VA1="+Mlibf.VA1());
Mlibf.VB1(MUpsKrn.JavaBoolean2Booleen(true));
System.out.println("VB1="+MUpsKrn.Booleen2JavaBoolean(Mlibf.VB1()));
Mlibf.VC1(2);
System.out.println("VC1="+Mlibf.VC1());
Mlibf.VD1(MUpsKrn.JavaInt2Entier(2));
System.out.println("VD1="+MUpsKrn.Entier2JavaLong(Mlibf.VD1()));
Mlibf.VE1(3.2);
System.out.println("VE1="+Mlibf.VE1());
Mlibf.VF1(MUpsKrn.JavaDouble2Reel(3.2));
System.out.println("VF1="+MUpsKrn.Reel2JavaDouble(Mlibf.VF1()));
Mlibf.VG1(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VG1="+MUpsKrn.Caractere2JavaString(Mlibf.VG1()));
Mlibf.VH1(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VH1="+MUpsKrn.Caractere2JavaString(Mlibf.VH1()));
Mlibf.VA1V(true);
System.out.println("VA1V="+Mlibf.VA1V());
Mlibf.VB1V(MUpsKrn.JavaBoolean2Booleen(true));
System.out.println("VB1V="+MUpsKrn.Booleen2JavaBoolean(Mlibf.VB1V()));
Mlibf.VC1V(2);
System.out.println("VC1V="+Mlibf.VC1V());
Mlibf.VD1V(MUpsKrn.JavaInt2Entier(2));
System.out.println("VD1V="+MUpsKrn.Entier2JavaLong(Mlibf.VD1V()));
Mlibf.VE1V(3.2);
System.out.println("VE1V="+Mlibf.VE1V());
Mlibf.VF1V(MUpsKrn.JavaDouble2Reel(3.2));
System.out.println("VF1V="+MUpsKrn.Reel2JavaDouble(Mlibf.VF1V()));
Mlibf.VG1V(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VG1V="+MUpsKrn.Caractere2JavaString(Mlibf.VG1V()));
Mlibf.VH1V(MUpsKrn.JavaString2Caractere("coucou"));
System.out.println("VH1V="+MUpsKrn.Caractere2JavaString(Mlibf.VH1V()));
Mlibf.Appel1();
PAppel2=new libf.Appel2();
Mlibf.Appel2(true,2,3.2,PAppel2);
System.out.println(MUpsKrn.Caractere2JavaString(PAppel2.Prm4));
System.out.println("Appel3="+Mlibf.Appel3());
PAppel4=new libf.Appel4();
System.out.println("Appel4="+Mlibf.Appel4(true,2,3.2,PAppel4));
System.out.println(MUpsKrn.Caractere2JavaString(PAppel4.Prm4));
System.out.println("Appel5="+Mlibf.Appel5());
PAppel6=new libf.Appel6();
System.out.println("Appel6="+Mlibf.Appel6(true,2,3.2,PAppel6));
System.out.println(MUpsKrn.Caractere2JavaString(PAppel6.Prm4));
System.out.println("Appel7="+Mlibf.Appel7());
PAppel8=new libf.Appel8();
System.out.println("Appel8="+Mlibf.Appel8(true,2,3.2,PAppel8));
System.out.println(MUpsKrn.Caractere2JavaString(PAppel8.Prm4));
System.out.println("Appel9="+MUpsKrn.Caractere2JavaString(Mlibf.Appel9()));
PAppel10=new libf.Appel10();
System.out.println("Appel10="+MUpsKrn.Caractere2JavaString(Mlibf.Appel10(true,2,3.2,PAppel10)));
System.out.println(MUpsKrn.Caractere2JavaString(PAppel10.Prm4));
Mlibf.Arreter();
MUpsKrn.Arreter();
}
catch (UpsException e)
{
try
{
System.out.println("Erreur UpsKrn-0 : L'exception suivante a été envoyée dans
le source '"
+e.NomSourceEnErreur+"' ligne "+e.NumeroLigne+", colonne "+e.NumeroColonne+"
:");
System.out.println(e.MessageErreur);
}
catch (java.lang.Throwable e2)
{
System.out.println(e2.toString());
}
}
}
}