/*************************************************************************************************************************************/
/* */
/* C O M M A N D E N E U T R E S U R U N F I C H I E R N U M E R I Q U E */
/* P O U R P A R E X E M P L E R E F O R M A T E R L E S V A L E U R S : */
/* */
/* */
/* Author of '$xrv/neutre$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20000315090912). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 NOMBRE_D_EXEMPLAIRES_DU_FICHIER \
UN \
/* Nombre d'exemplaires du fichier. Ceci a ete introduit le 20160222140046 pour */ \
/* 'v $xiird/.ACIN.Y1.5.$U NExEmPlaiReS'... */
#define DECHAINER_LE_FICHIER \
FAUX \
/* Ceci a ete introduit le 20200817134717 afin de permettre de passer d'un fichier du */ \
/* type "isoles=FAUX chainer=VRAI" a un fichier du type "isoles=FAUX chainer=FAUX" (suivant */ \
/* les notations de 'v $xrv/particule.10$K') tout en donnant ensuite le meme resultat avec */ \
/* 'v $xrv/particule.10$K'... */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D U F I C H I E R : */
/* */
/*************************************************************************************************************************************/
#include xrv/ARITHMET.1d.I"
/* Passage a l'allocation dynamique le 20060214192531... */
#include xrv/ARITHMET.21.I"
#include xrv/champs_5.41.I"
#define VALEUR_IMPLICITE \
FZERO
gGENERATION_D_UN_FICHIER(fichier_des_valeurs,liste_des_valeurs);
/* Definition en memoire du fichier. */
#define ELEMENT_DU_FICHIER(index) \
gELEMENT_DU_FICHIER(liste_des_valeurs,index) \
/* Acces a un element courant du fichier. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C O M M A N D E N E U T R E S U R U N F I C H I E R N U M E R I Q U E */
/* P O U R P A R E X E M P L E R E F O R M A T E R L E S V A L E U R S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Positive,INIT(nombre_d_exemplaires_du_fichier,NOMBRE_D_EXEMPLAIRES_DU_FICHIER));
/* Nombre d'exemplaires du fichier. Ceci a ete introduit le 20160222140046 pour */
/* 'v $xiird/.ACIN.Y1.5.$U NExEmPlaiReS'... */
DEFV(Logical,INIT(dechainer_le_fichier,DECHAINER_LE_FICHIER));
/* Ceci a ete introduit le 20200817134717 afin de permettre de passer d'un fichier du */
/* type "isoles=FAUX chainer=VRAI" a un fichier du type "isoles=FAUX chainer=FAUX" (suivant */
/* les notations de 'v $xrv/particule.10$K') tout en donnant ensuite le meme resultat avec */
/* 'v $xrv/particule.10$K'... */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103174019... */
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("fichier="
,fichier_des_valeurs
,liste_des_valeurs
,VALEUR_IMPLICITE
,lTRANSFORMAT_0d
,iGENERATION_D_UN_FICHIER
);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103174019... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226192554... */
GET_ARGUMENT_I("exemplaires_fichier=""ef=",nombre_d_exemplaires_du_fichier);
/* Cette option fut introduite le 20160222140046... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
/* Cette procedure fut introduite le 20211005105723... */
GET_ARGUMENT_L("dechainer=",dechainer_le_fichier);
/* Cette option fut introduite le 20200817134717... */
)
);
Repe(nombre_d_exemplaires_du_fichier)
Bblock
gOPERATION_SUR_LES_FICHIERS(BLOC(
DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
/* Recuperation de la valeur courante dans le fichier. */
)
,valeur_courante
,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
,COND(IL_NE_FAUT_PAS(dechainer_le_fichier)
,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
,COND(IFOU(IFEQ(index,premier_element_d_un_fichier)
,IFEQ(index,DERNIER_ELEMENT_D_UN_FICHIER)
)
,UN
,DEUX
)
)
);
/* Reformatage eventuel des valeurs... */
/* */
/* Le "dechainage" d'un fichier a ete introduit le 20200817134717 et cela permet la */
/* transformation suivante : */
/* */
/* {1,2,3,4,5} --> {1,2,2,3,3,4,4,5} */
/* --- --- --- --- */
/* */
Eblock
ERep
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);
RETU_Commande;
Eblock
ECommande