/*************************************************************************************************************************************/
/* */
/* T E S T ' < ' D E D E U X N O M B R E S : */
/* */
/* */
/* Nota : */
/* */
/* Il existe les deux commandes "symetriques" */
/* '$xcg/IFGT.01$K' et '$xcg/IFLT.01$K'. Il est */
/* evident qu'une seule des deux, choisie arbitrairement, */
/* suffirait, l'une se deduisant de l'autre ensuite */
/* par permutation des deux arguments {n1,n2}. En */
/* fait '$xcg/IFGT.01$K' et '$xcg/IFLT.01$K' ont ete */
/* crees toutes deux simplement pour des raisons de */
/* symetrie et d'esthetisme... */
/* */
/* */
/* Author of '$xcg/IFLT.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19991005162811). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
@define PRAGMA_CL_____PAS_DE_LIBRAIRIES_DYNAMIQUES
/* Introduit le 20061114154608 (car tres utile dans '$xE'...). */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_MINI
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define NOMBRE_1 \
FU
#define NOMBRE_2 \
FZERO
/* Les deux nombres flottants qui vont etre compares. */
#include xcg/ARIT.01.I"
#include xci/valeurs.01.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#include xci/valeurs.02.I"
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T E S T ' < ' D E D E U X N O M B R E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Float,INIT(nombre_1,NOMBRE_1));
DEFV(Float,INIT(nombre_2,NOMBRE_2));
/* Les deux nombres flottants qui vont etre compares. */
#include xci/valeurs.03.I"
/*..............................................................................................................................*/
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(GET_ARGUMENT_F("x=""nombre_1=""n1=""a=",nombre_1);
GET_ARGUMENT_F("y=""nombre_2=""n2=""b=",nombre_2);
)
);
CAL2(Prin1("%d"
,COND(IFLT(nombre_1,nombre_2),EXIST,NEXIST)
)
);
/* Edition de 'EXIST' si la condition "<" est verifiee, et de 'NEXIST' sinon (">="). */
RETU_Commande;
Eblock
ECommande