/*************************************************************************************************************************************/
/* */
/* T E S T D ' E X C L U S I O N D E T R O I S F I C H I E R S N U M E R I Q U E S : */
/* */
/* */
/* Author of '$xrv/NINCcc.11$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20050108191109). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S : */
/* */
/*************************************************************************************************************************************/
#include INCLUDES_BASE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* V A L E U R S I M P L I C I T E S D E S P A R A M E T R E S : */
/* */
/*************************************************************************************************************************************/
#define LE_TEST_EST_STRICT_A_GAUCHE \
VRAI
#define LE_TEST_EST_STRICT_A_DROITE \
VRAI
/* Choix de la nature des tests "strict"s ('VRAI') ou pas ('FAUX')... */
#define EDITER_VRAI_OU_FAUX \
FAUX \
/* Choix entre editer les valeurs satisfaisant le 'INCLcc(...)' en excluant les autres */ \
/* ('FAUX') ou bien editer un "booleen" donnant le resultat du 'INCLcc(...)' quel qu'il */ \
/* soit ('VRAI')... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S F I C H I E R S : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
/* Passage a l'allocation dynamique le 20060214180825... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_X_IMPLICITE \
FZERO
#define VALEUR_A_IMPLICITE \
FZERO
#define VALEUR_B_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichierX_des_valeurs,listeX_des_valeurs);
gGENERATION_D_UN_FICHIER(fichierA_des_valeurs,listeA_des_valeurs);
gGENERATION_D_UN_FICHIER(fichierB_des_valeurs,listeB_des_valeurs);
/* Definition en memoire des fichiers. */
#define ELEMENT_DU_FICHIERX(index) \
gELEMENT_DU_FICHIER(listeX_des_valeurs,index)
#define ELEMENT_DU_FICHIERA(index) \
gELEMENT_DU_FICHIER(listeA_des_valeurs,index)
#define ELEMENT_DU_FICHIERB(index) \
gELEMENT_DU_FICHIER(listeB_des_valeurs,index)
/* Acces a un element courant des fichiers. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T E S T D ' E X C L U S I O N D E T R O I S F I C H I E R S N U M E R I Q U E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Logical,INIT(le_test_est_strict_a_gauche,LE_TEST_EST_STRICT_A_GAUCHE));
DEFV(Logical,INIT(le_test_est_strict_a_droite,LE_TEST_EST_STRICT_A_DROITE));
/* Choix de la nature des tests "strict"s ('VRAI') ou pas ('FAUX')... */
DEFV(Logical,INIT(editer_VRAI_ou_FAUX,EDITER_VRAI_OU_FAUX));
/* Choix entre editer les valeurs satisfaisant le 'INCLcc(...)' en excluant les autres */
/* ('FAUX') ou bien editer un "booleen" donnant le resultat du 'INCLcc(...)' quel qu'il */
/* soit ('VRAI')... */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103172346... */
GET_ARGUMENTS_(nombre_d_arguments
,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
,BLOC(VIDE;)
,BLOC(Bblock
PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
Eblock
)
);
PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;
PROKESF_ARGUMENT_FICHIER("fichierX="
,fichierX_des_valeurs
,listeX_des_valeurs
,VALEUR_X_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("fichierA="
,fichierA_des_valeurs
,listeA_des_valeurs
,VALEUR_A_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROKESF_ARGUMENT_FICHIER("fichierB="
,fichierB_des_valeurs
,listeB_des_valeurs
,VALEUR_B_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
GET_ARGUMENT_L("strict_a_gauche=""sg=""gauche=",le_test_est_strict_a_gauche);
GET_ARGUMENT_L("strict_a_droite=""sd=""droite=",le_test_est_strict_a_droite);
GET_ARGUMENT_L("vf=""VRAI_FAUX=",editer_VRAI_ou_FAUX);
GET_ARGUMENT_N("valeurs=",editer_VRAI_ou_FAUX);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103172346... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226193500... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005104619... */
)
);
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeurX_courante,ELEMENT_DU_FICHIERX(index)));
DEFV(Float,INIT(valeurA_courante,ELEMENT_DU_FICHIERA(index)));
DEFV(Float,INIT(valeurB_courante,ELEMENT_DU_FICHIERB(index)));
/* Recuperation des valeurs courantes dans les fichiers. */
DEFV(Logical,INIT(resultat_du_test_NINCcc,LUNDEF));
EGAL(resultat_du_test_NINCcc
,NEUTL(NINCcc(valeurX_courante
,valeurA_courante
,valeurB_courante
,le_test_est_strict_a_gauche
,le_test_est_strict_a_droite
)
)
);
/* Resultat du test de 'NINCcc(X,A,B)'... */
)
,COND(IL_FAUT(editer_VRAI_ou_FAUX)
,FLOT(resultat_du_test_NINCcc)
,valeurX_courante
)
,COND(IL_FAUT(editer_VRAI_ou_FAUX)
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,EST_VRAI(resultat_du_test_NINCcc)
)
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
);
/* Test d'inclusion de trois fichiers arguments. */
lGENERATION_D_UN_FICHIER(listeB_des_valeurs,VALEUR_B_IMPLICITE);
lGENERATION_D_UN_FICHIER(listeA_des_valeurs,VALEUR_A_IMPLICITE);
lGENERATION_D_UN_FICHIER(listeX_des_valeurs,VALEUR_X_IMPLICITE);
RETU_Commande;
Eblock
ECommande