Fichier
Commande de compilation
javac -g -classpath ${UPS_HOME}/upsjav/upsjav/french/upsvtm.jar fichier.java
Commande d'exécution
java -classpath ${UPS_HOME}/upsjav/upsjav/french/upsvtm.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 fichier
Fichier source
import UpsKrn.Caractere;
import UpsKrn.MUpsKrn;
import UpsKrn.UpsException;
import UpsSys.Fichier;
import UpsSys.PFlux.*;
import UpsSys.MUpsSys;
public class fichier
/******************/
{
public static void main(String s[])
/*********************************/
{
Fichier F;
Fichier FBis;
Caractere C;
int E;
float R;
boolean B;
int P;
UpsSys.PFlux.Lire PLire;
UpsSys.PFlux.Lire3 PLire3;
UpsSys.PFlux.Lire4 PLire4;
UpsSys.PFlux.Lire5 PLire5;
UpsSys.PFlux.LireUnMot PLireUnMot;
UpsSys.PFlux.LireUneLigne PLireUneLigne;
try
{
if (!MUpsKrn.Demarrer())
if (!MUpsSys.Demarrer())
F=Fichier.Fichier2(MUpsKrn.JavaString2Caractere("c:/tmp/essai.txt"),MUpsSys.EcritureTexte,MUpsSys.Asynchrone1024);
F.Ecrire3(MUpsKrn.JavaString2Caractere("Bonjour\nAu revoir\nEt a bientot\n"));
F.Ecrire4(MUpsKrn.JavaInt2Entier(1));
F.Ecrire3(MUpsKrn.JavaString2Caractere("\n"));
F.Ecrire5(MUpsKrn.JavaFloat2Reel((float)2.3));
F.Ecrire3(MUpsKrn.JavaString2Caractere("\n"));
F.Ecrire(MUpsKrn.JavaBoolean2Booleen(true));
F.Ecrire3(MUpsKrn.JavaString2Caractere("\n"));
F.Vider();
F.DeposerSurDisque();
F.Fermer();
F=Fichier.Fichier2(MUpsKrn.JavaString2Caractere("c:/tmp/essai.txt"),MUpsSys.LectureTexte,MUpsSys.Asynchrone1024);
PLireUnMot=new UpsSys.PFlux.LireUnMot();
E=MUpsKrn.Entier2JavaInt(F.LireUnMot(MUpsKrn.JavaInt2Entier(20),PLireUnMot));
C=PLireUnMot.C;
System.out.println(MUpsKrn.Caractere2JavaString(C));
PLire3=new UpsSys.PFlux.Lire3();
E=MUpsKrn.Entier2JavaInt(F.Lire3(MUpsKrn.JavaInt2Entier(4),PLire3));
C=PLire3.C;
System.out.println(MUpsKrn.Caractere2JavaString(C));
System.out.println(E);
PLireUneLigne=new UpsSys.PFlux.LireUneLigne();
E=MUpsKrn.Entier2JavaInt(F.LireUneLigne(PLireUneLigne));
C=PLireUneLigne.C;
System.out.println(MUpsKrn.Caractere2JavaString(C));
System.out.println(E);
P=MUpsKrn.Entier2JavaInt(F.LirePosition());
PLireUneLigne=new UpsSys.PFlux.LireUneLigne();
E=MUpsKrn.Entier2JavaInt(F.LireUneLigne(PLireUneLigne));
C=PLireUneLigne.C;
System.out.println(MUpsKrn.Caractere2JavaString(C));
System.out.println(E);
PLire4=new UpsSys.PFlux.Lire4();
F.Lire4(PLire4);
E=PLire4.E;
System.out.println(E);
PLire5=new UpsSys.PFlux.Lire5();
F.Lire5(PLire5);
R=(float)PLire5.R;
System.out.println(R);
PLire=new UpsSys.PFlux.Lire();
F.Lire(PLire);
B=PLire.B;
System.out.println(B);
PLire3=new UpsSys.PFlux.Lire3();
E=MUpsKrn.Entier2JavaInt(F.Lire3(MUpsKrn.JavaInt2Entier(4),PLire3));
if (F.FinDeFlux())
System.out.println("Fin de fichier");
F.FixerPosition(P);
PLireUneLigne=new UpsSys.PFlux.LireUneLigne();
E=MUpsKrn.Entier2JavaInt(F.LireUneLigne(PLireUneLigne));
C=PLireUneLigne.C;
System.out.println(MUpsKrn.Caractere2JavaString(C));
System.out.println(E);
if (F.FinDeFlux())
System.out.println("Fin de fichier");
F.Fermer();
FBis=null;
if (MUpsKrn.Booleen2JavaBoolean(F.Egal(FBis)))
System.out.println("F==FBis");
if (MUpsKrn.Booleen2JavaBoolean(F.Different(FBis)))
System.out.println("F!=FBis");
MUpsSys.Arreter();
MUpsKrn.Arreter();
}
catch (java.lang.Throwable 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());
}
}
}
}