Trace

Ce programme présente la configuration de la mise au point et du profilage propre à une procédure, une fonction ou une méthode.

Le fichier source est ${UPS_HOME}/upssdk/demo/${UPS_LANGUAGE}/trace.upl.

Mode compilé

Commande de compilation


upscmp Source=trace.upl MiseAuPoint=Oui Profilage=Oui

Commande d'exécution


trace MiseAuPoint=TraceApplication Profilage=ProfilageApplication

Mode interprété


upssng Source=trace.upl MiseAuPoint=TraceApplication Profilage=ProfilageApplication

Fichier source


Source Composant "Exemple de l'emploi de Trace, PasDeMiseAuPoint et PasDeProfilage" Version 4.0.0;



Public :

Type T Defaut

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

Public :

   A1 : Entier Trace;

   B1 : Reel Trace;

   C1 : Caractere Trace;

   A2 : Entier;

   B2 : Reel;

   C2 : Caractere;

   Constructeur(ABis1 : Entier, BBis1 : Reel, CBis1 : Caractere, ABis2 : Entier, BBis2 : Reel, CBis2 : Caractere);

   Procedure PasDeMiseAuPoint P1();

   Procedure PasDeProfilage P2();

Fin Type



Variable

/******/

   V : Nul Ou T;


   
Constructeur T(ABis1 : Entier, BBis1 : Reel, CBis1 : Caractere, ABis2 : Entier, BBis2 : Reel, CBis2 : Caractere)

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

Debut

A1=ABis1;

B1=ABis1;

C1=CBis1;

A2=ABis2;

B2=BBis2;

C2=CBis2;

Fin Constructeur



Procedure PasDeMiseAuPoint T.P1()

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

Debut

Ecran.Ecrire("P1:");

Ecran.Ecrire("A1="+Caractere(A1));

Ecran.Ecrire("B1="+Caractere(B1));

Ecran.Ecrire("C1="+C1);

Ecran.Ecrire("\n");

Fin Procedure



Procedure PasDeProfilage T.P2()

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

Debut
Ecran.Ecrire("P2:");

Ecran.Ecrire("A2="+Caractere(A2));

Ecran.Ecrire("B2="+Caractere(B2));

Ecran.Ecrire("C2="+C2);

Ecran.Ecrire("\n");

Fin Procedure



Procedure PasDeMiseAuPoint P1Bis()

/********************************/
Debut
Ecran.Ecrire("P1Bis:");

Ecran.Ecrire("V.A1="+Caractere(V.A1));

Ecran.Ecrire("V.B1="+Caractere(V.B1));

Ecran.Ecrire("V.C1="+V.C1);

Ecran.Ecrire("\n");

Fin Procedure



Procedure PasDeProfilage P2Bis()

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

Debut
Ecran.Ecrire("P2Bis:");

Ecran.Ecrire("V.A2="+Caractere(V.A2));

Ecran.Ecrire("V.B2="+Caractere(V.B2));

Ecran.Ecrire("V.C2="+V.C2);

Ecran.Ecrire("\n");

Fin Procedure



Principal

/*******/

Debut

V=T(1, 2.0, "coucou", 10, 20.0, "hello");

V.P1();

V.P2();

P1Bis();

P2Bis();

Fin Principal

Résultat de l'exécution

Sortie écran

Information UpsDbg-105 : la tâche 'Principal' est attachée à Up ! Virtual Technical Machine. P1: A1=1 B1=2.0000 C1=coucou P2: A2=10 B2=20.0000 C2=hello P1Bis: V.A1=1 V.B1=2.0000 V.C1=coucou P2Bis: V.A2=10 V.B2=20.0000 V.C2=hello Information UpsDbg-106 : la tâche 'Principal' est détachée d'Up ! Virtual Technical Machine.

Fichier de trace

-->trace.upl:?:Principal(); -->trace.upl:88:T(ABis1=1, BBis1=2.0, CBis1="coucou", ABis2=10, BBis2=20.0, CBis2="hello"); <--trace.upl:42:T(ABis1=1, BBis1=2.0, CBis1="coucou", ABis2=10, BBis2=20.0, CBis2="hello") Retourner T(1, 2.0, 1:36:16); -->trace.upl:90:T.P2(Objet=T(1, 2.0, 1:36:16)); <--trace.upl:62:T.P2(Objet=T(1, 2.0, 1:36:16)); -->trace.upl:92:P2Bis(); <--trace.upl:82:P2Bis(); <--trace.upl:92:Principal() Retourner 0;