/*************************************************************************************************************************************/
/* */
/* T E S T D E S C O N S T A N T E S G E N E R A L E S : */
/* */
/* */
/* Author of '$xtKg/constantes$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1987??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_CPP_____MODULE_NON_DERIVABLE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T E S T D E S C O N S T A N T E S G E N E R A L E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
/*..............................................................................................................................*/
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(VIDE;)
);
CAL2(Prin1("Format_char =%d\n",PINTE(Format_char)));
CAL2(Prin1("Format_int =%d\n",PINTE(Format_int)));
CAL2(Prin1("Format_float=%d\n",PINTE(Format_float)));
CAL2(Prin1("Format_double=%d\n",PINTE(Format_double)));
CAL2(Prin1("OK = %d\n",PINTE(OK)));
CAL2(Prin1("PROBLEMES = %d\n",PINTE(PROBLEMES)));
CAL2(Prin1("ERREUR15 = %d\n",PINTE(ERREUR15)));
CAL2(Prin2("EXIST = %d NEXIST = %d\n",PINTE(EXIST),PINTE(NEXIST)));
Test(VRAI)
Bblock
CAL2(Prin0("la constante 'VRAI' a ete reconnue\n"));
Eblock
ATes
Bblock
PRINT_ERREUR("la constante 'VRAI' est mauvaise");
Eblock
ETes
Test(FAUX)
Bblock
PRINT_ERREUR("la constante 'FAUX' est mauvaise");
Eblock
ATes
Bblock
CAL2(Prin0("la constante 'FAUX' a ete reconnue\n"));
Eblock
ETes
Test(IFEQ(EXIST,NEXIST))
Bblock
PRINT_ERREUR("'EXIST' et 'NEXIST' sont identiques");
Eblock
ATes
Bblock
Eblock
ETes
CAL2(Prin2("VRAI = %d FAUX = %d\n",PINTE(VRAI),PINTE(FAUX)));
Test(IFEQ(VRAI,FAUX))
Bblock
PRINT_ERREUR("'VRAI' et 'FAUX' sont identiques");
Eblock
ATes
Bblock
Eblock
ETes
CAL2(Prin2("ACTIF = %d INACTIF = %d\n",PINTE(ACTIF),PINTE(INACTIF)));
Test(IFEQ(ACTIF,INACTIF))
Bblock
PRINT_ERREUR("'ACTIF' et 'INACTIF' sont identiques");
Eblock
ATes
Bblock
Eblock
ETes
CAL2(Prin2("AUTORISE = %d INTERDIT = %d\n",PINTE(AUTORISE),PINTE(INTERDIT)));
Test(IFEQ(AUTORISE,INTERDIT))
Bblock
PRINT_ERREUR("'AUTORISE' et 'INTERDIT' sont identiques");
Eblock
ATes
Bblock
Eblock
ETes
CAL2(Prin2("VALIDE = %d INVALIDE = %d\n",PINTE(VALIDE),PINTE(INVALIDE)));
Test(IFEQ(VALIDE,INVALIDE))
Bblock
PRINT_ERREUR("'VALIDE' et 'INVALIDE' sont identiques");
Eblock
ATes
Bblock
Eblock
ETes
Test(IFNE(UNDEF,INTE(FLOT__UNDEF)))
Bblock
PRINT_ERREUR("'UNDEF' ne peut etre converti en flottant et retour sans degats");
Eblock
ATes
Bblock
Eblock
ETes
CAL2(Prin1("ZERO = %d\n",PINTE(ZERO)));
CAL2(Prin1("UN = %d\n",PINTE(UN)));
CAL2(Prin1("FU = %g\n",FU));
CAL2(Prin1("DEUX = %d\n",PINTE(DEUX)));
CAL2(Prin1("TROIS = %d\n",PINTE(TROIS)));
CAL2(Prin1("DIX = %d\n",PINTE(DIX)));
CAL2(Prin1("BASE10 = %d\n",PINTE(BASE10)));
CAL2(Prin1("SEIZE = %d\n",PINTE(SEIZE)));
CAL2(Prin1("BASE16 = %d\n",PINTE(BASE16)));
CAL2(Prin1("NBITHX = %d\n",PINTE(NBITHX)));
CAL2(Prin1("NBITOC = %d\n",PINTE(NBITOC)));
CAL2(Prin1("NBITHW = %d\n",PINTE(NBITHW)));
CAL2(Prin1("NBITMO = %d\n",PINTE(NBITMO)));
CAL2(Prin1("MHEXA = %08X\n",MHEXA));
CAL2(Prin1("MOCD = %08X\n",MOCD));
CAL2(Prin1("MHWD = %08X\n",MHWD));
CAL2(Prin1("MMOT = %08X\n",MMOT));
CAL2(Prin2("MOINS_L_INFINI = %08X %g\n",MOINS_L_INFINI,FLOT(MOINS_L_INFINI)));
CAL2(Prin1("INFINI = %08X\n",INFINI));
CAL2(Prin1("FLOT(INFINI) = %g\n",FLOT(INFINI)));
CAL2(Prin1("DEUXp2 = %08X\n",DEUXp2));
CAL2(Prin1("DEUXp3 = %08X\n",DEUXp3));
CAL2(Prin1("DEUXp4 = %08X\n",DEUXp4));
CAL2(Prin1("DEUXp7 = %08X\n",DEUXp7));
CAL2(Prin1("DEUXp8 = %08X\n",DEUXp8));
CAL2(Prin1("DEUXp15 = %08X\n",DEUXp15));
CAL2(Prin1("DEUXp16 = %08X\n",DEUXp16));
CAL2(Prin1(" %d",PINTE(DEUXp16)));
#if ( (defined(SYSTEME_APC_LinuxDebian_GCC)) \
|| (defined(SYSTEME_APC_LinuxMandrake_GCC)) \
|| (defined(SYSTEME_APC_LinuxRedHat_GCC)) \
/* Les trois 'defined(...)' precedents furent introduits le 20061211153948... */ \
|| (defined(SYSTEME_APC_LinuxUbuntu_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_ICC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_GCC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_ICC)) \
|| (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin0("DEUXp31M1 n'est pas acceptable sur ce SYSTEME\n"));
#Aif ( (defined(SYSTEME_APC_LinuxDebian_GCC)) \
|| (defined(SYSTEME_APC_LinuxMandrake_GCC)) \
|| (defined(SYSTEME_APC_LinuxRedHat_GCC)) \
/* Les trois 'defined(...)' precedents furent introduits le 20061211153948... */ \
|| (defined(SYSTEME_APC_LinuxUbuntu_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_ICC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_GCC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_ICC)) \
|| (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin1("DEUXp31M1 = %08X\n",DEUXp31M1));
CAL2(Prin1(" %d",PINTE(DEUXp31M1)));
#Eif ( (defined(SYSTEME_APC_LinuxDebian_GCC)) \
|| (defined(SYSTEME_APC_LinuxMandrake_GCC)) \
|| (defined(SYSTEME_APC_LinuxRedHat_GCC)) \
/* Les trois 'defined(...)' precedents furent introduits le 20061211153948... */ \
|| (defined(SYSTEME_APC_LinuxUbuntu_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_ICC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_GCC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_ICC)) \
|| (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin1("FDEUXp31 = %g\n",FDEUXp31));
CAL2(Prin1("FDEUXp32 = %g\n",FDEUXp32));
CAL2(Prin1("zero(10) = %d\n",PINTE(ZORO(10))));
CAL2(Prin1("mono(16) = %d\n",PINTE(MONO(16))));
CAL2(Prin1("double(2) = %d\n",PINTE(DOUB(2))));
CAL2(Prin1("triple(2) = %d\n",PINTE(TRIP(2))));
CAL2(Prin1("quadruple(3) = %d\n",PINTE(QUAD(3))));
CAL2(Prin1("moitie(8) = %d\n",PINTE(MOIT(8))));
CAL2(Prin1("moitie defaut(8)= %d\n",PINTE(MOID(8))));
CAL2(Prin1("moitie exces(8) = %d\n",PINTE(MOIE(8))));
CAL2(Prin1("moitie(9) = %d\n",PINTE(MOIT(9))));
CAL2(Prin1("moitie defaut(9)= %d\n",PINTE(MOID(9))));
CAL2(Prin1("moitie exces(9) = %d\n",PINTE(MOIE(9))));
CAL2(Prin1("tiers(9) = %d\n",PINTE(TIER(9))));
CAL2(Prin1("quart(12) = %d\n",PINTE(QUAR(12))));
CAL2(Prin1("7/3 par defaut = %d\n",PINTE(QUOD(7,3))));
CAL2(Prin1("7/3 par exces = %d\n",PINTE(QUOE(7,3))));
CAL2(Prin1("reste de 7/3 = %d\n",PINTE(REST(7,3))));
CAL2(Prin1("-7/3 par defaut = %d\n",PINTE(QUOD(NEGA(7),3))));
CAL2(Prin1("-7/3 par exces = %d\n",PINTE(QUOE(NEGA(7),3))));
CAL2(Prin1("reste de -7/3 = %d\n",PINTE(REST(NEGA(7),3))));
CAL2(Prin1("-7/-3 par defaut= %d\n",PINTE(QUOD(NEGA(7),NEGA(3)))));
CAL2(Prin1("-7/-3 par exces = %d\n",PINTE(QUOE(NEGA(7),NEGA(3)))));
CAL2(Prin1("reste de -7/-3 = %d\n",PINTE(REST(NEGA(7),NEGA(3)))));
CAL2(Prin1("signe(2) = %d\n",PINTE(SIGN(2))));
CAL2(Prin1("signe(-2) = %d\n",PINTE(SIGN(NEGA(2)))));
CAL2(Prin1("PAR0(3) = %d\n",PINTE(PAR0(3))));
CAL2(Prin1("PAR0(4) = %d\n",PINTE(PAR0(4))));
CAL2(Prin1("PAR1(3) = %d\n",PINTE(PAR1(3))));
CAL2(Prin1("PAR1(4) = %d\n",PINTE(PAR1(4))));
CAL2(Prin1("PROBLEMES = %d\n",PINTE(PROBLEMES)));
CAL2(Prin1("CARA(PROBLEMES) = %d\n",PINTE(CARA(PROBLEMES))));
CAL2(Prin1("INTE(0.25) = %d\n",PINTE(INTE(0.25))));
CAL2(Prin1("INTE(0.75) = %d\n",PINTE(INTE(0.75))));
CAL2(Prin1("INTE(-0.25) = %d\n",PINTE(INTE(-0.25))));
CAL2(Prin1("INTE(-0.75) = %d\n",PINTE(INTE(-0.75))));
CAL2(Prin1("ENTE(0.25) = %d\n",PINTE(ENTE(0.25))));
CAL2(Prin1("ENTE(0.75) = %d\n",PINTE(ENTE(0.75))));
CAL2(Prin1("ENTE(-0.25) = %d\n",PINTE(ENTE(-0.25))));
CAL2(Prin1("ENTE(-0.75) = %d\n",PINTE(ENTE(-0.75))));
CAL2(Prin1("ARRI(0.25) = %d\n",PINTE(ARRI(0.25))));
CAL2(Prin1("ARRI(0.75) = %d\n",PINTE(ARRI(0.75))));
CAL2(Prin1("ARRI(-0.25) = %d\n",PINTE(ARRI(-0.25))));
CAL2(Prin1("ARRI(-0.75) = %d\n",PINTE(ARRI(-0.75))));
CAL2(Prin1("BYT0(12345678) = %02x\n",BYT0(0x12345678)));
CAL2(Prin1("BYT1(12345678) = %02x\n",BYT1(0x12345678)));
CAL2(Prin1("BYT2(12345678) = %02x\n",BYT2(0x12345678)));
CAL2(Prin1("BYT3(12345678) = %02x\n",BYT3(0x12345678)));
#if ( (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin0("MODU(12345678,MOINS_L_INFINI,INFINI) n'est pas acceptable sur ce SYSTEME\n"));
#Aif ( (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin1("MODU(12345678) = %d\n",PINTE(MODU(12345678,MOINS_L_INFINI,INFINI))));
#Eif ( (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin1("MODU(-3,-2,+2) = %d\n",PINTE(MODU(-3,-2,2))));
CAL2(Prin1("MODU(-2,-2,+2) = %d\n",PINTE(MODU(-2,-2,2))));
CAL2(Prin1("MODU(-1,-2,+2) = %d\n",PINTE(MODU(-1,-2,2))));
CAL2(Prin1("MODU(0,-2,+2) = %d\n",PINTE(MODU(0,-2,2))));
CAL2(Prin1("MODU(1,-2,+2) = %d\n",PINTE(MODU(1,-2,2))));
CAL2(Prin1("MODU(2,-2,+2) = %d\n",PINTE(MODU(2,-2,2))));
CAL2(Prin1("MODU(3,-2,+2) = %d\n",PINTE(MODU(3,-2,2))));
CAL2(Prin1("MODU(-2,-1,-1) = %d\n",PINTE(MODU(-2,-1,-1))));
CAL2(Prin1("MODU(-1,-1,-1) = %d\n",PINTE(MODU(-1,-1,-1))));
CAL2(Prin1("MODU( 0,-1,-1) = %d\n",PINTE(MODU(0,-1,-1))));
CAL2(Prin1("MODU(+1,-1,-1) = %d\n",PINTE(MODU(1,-1,-1))));
CAL2(Prin1("MODU(-1,+1,+1) = %d\n",PINTE(MODU(-1,1,1))));
CAL2(Prin1("MODU( 0,+1,+1) = %d\n",PINTE(MODU(0,1,1))));
CAL2(Prin1("MODU(+1,+1,+1) = %d\n",PINTE(MODU(1,1,1))));
CAL2(Prin1("MODU(+2,+1,+1) = %d\n",PINTE(MODU(2,1,1))));
CAL2(Prin1("MODU(-3,-2,-1) = %d\n",PINTE(MODU(-3,-2,-1))));
CAL2(Prin1("MODU(-2,-2,-1) = %d\n",PINTE(MODU(-2,-2,-1))));
CAL2(Prin1("MODU(-1,-2,-1) = %d\n",PINTE(MODU(-1,-2,-1))));
CAL2(Prin1("MODU( 0,-2,-1) = %d\n",PINTE(MODU(0,-2,-1))));
CAL2(Prin1("MODU(+1,-2,-1) = %d\n",PINTE(MODU(1,-2,-1))));
CAL2(Prin1("MODU(-1,+1,+2) = %d\n",PINTE(MODU(-1,1,2))));
CAL2(Prin1("MODU( 0,+1,+2) = %d\n",PINTE(MODU(0,1,2))));
CAL2(Prin1("MODU(+1,+1,+2) = %d\n",PINTE(MODU(1,1,2))));
CAL2(Prin1("MODU(+2,+1,+2) = %d\n",PINTE(MODU(2,1,2))));
CAL2(Prin1("MODU(+3,+1,+2) = %d\n",PINTE(MODU(3,1,2))));
#if ( (defined(SYSTEME_APC_LinuxDebian_GCC)) \
|| (defined(SYSTEME_APC_LinuxMandrake_GCC)) \
|| (defined(SYSTEME_APC_LinuxRedHat_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_ICC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_GCC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_ICC)) \
/* Les trois 'defined(...)' precedents furent introduits le 20061211153948... */ \
|| (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin0("LENG(-inf,+inf) n'est pas acceptable sur ce SYSTEME\n"));
#Aif ( (defined(SYSTEME_APC_LinuxDebian_GCC)) \
|| (defined(SYSTEME_APC_LinuxMandrake_GCC)) \
|| (defined(SYSTEME_APC_LinuxRedHat_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_ICC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_GCC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_ICC)) \
/* Les trois 'defined(...)' precedents furent introduits le 20061211153948... */ \
|| (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin1("LENG(-inf,+inf)= %d\n",PINTE(LENG(MOINS_L_INFINI,INFINI))));
#Eif ( (defined(SYSTEME_APC_LinuxDebian_GCC)) \
|| (defined(SYSTEME_APC_LinuxMandrake_GCC)) \
|| (defined(SYSTEME_APC_LinuxRedHat_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_GCC)) \
|| (defined(SYSTEME_APC_LinuxUbuntu_ICC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_GCC)) \
|| (defined(SYSTEME_APC_LinuxUlmint_ICC)) \
/* Les trois 'defined(...)' precedents furent introduits le 20061211153948... */ \
|| (defined(SYSTEME_SG4D20G_IRIX)) \
|| (defined(SYSTEME_SG4D25TG_IRIX)) \
|| (defined(SYSTEME_SG4D310VGX_IRIX)) \
|| (defined(SYSTEME_SG4D35TG_IRIX)) \
|| (defined(SYSTEME_SG4D85GT_IRIX)) \
|| (defined(SYSTEME_SGIND308_IRIX)) \
|| (defined(SYSTEME_SGIND324_IRIX)) \
|| (defined(SYSTEME_SGIND3GA_IRIX)) \
|| (defined(SYSTEME_SGIND408_IRIX)) \
|| (defined(SYSTEME_SGIND424_IRIX)) \
|| (defined(SYSTEME_SGIND4GA_IRIX)) \
|| (defined(SYSTEME_SGIND508_IRIX)) \
|| (defined(SYSTEME_SGIND524_IRIX)) \
|| (defined(SYSTEME_SGIND5GA_IRIX)) \
|| (defined(SYSTEME_SGIND808_IRIX)) \
|| (defined(SYSTEME_SGIND824_IRIX)) \
|| (defined(SYSTEME_SGIND8GA_IRIX)) \
|| (defined(SYSTEME_SGINDA08_IRIX)) \
|| (defined(SYSTEME_SGINDA24_IRIX)) \
|| (defined(SYSTEME_SGINDAGA_IRIX)) \
|| (defined(SYSTEME_SGO200A1_IRIX)) \
|| (defined(SYSTEME_SGO200A2_IRIX)) \
|| (defined(SYSTEME_SGO200A4_IRIX)) \
|| (defined(SYSTEME_SGO25224_IRIX)) \
|| (defined(SYSTEME_SGO252VA_IRIX)) \
|| (defined(SYSTEME_SGO252VN_IRIX)) \
|| (defined(SYSTEME_SGPCM801_IRIX)) \
|| (defined(SYSTEME_SGPCMA01_IRIX)) \
)
CAL2(Prin1("log2(16) = %g\n",LO2X(BASE16)));
RETU_Commande;
Eblock
ECommande