/*************************************************************************************************************************************/
/* */
/* C U M U L G L O B A L , A D D I T I F E T M U L T I P L I C A T I F */
/* D E T O U S L E S E L E M E N T S D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/* */
/* Author of '$xrv/cumul.01$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 19990929102847). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 EDITER_LES_MESSAGES_D_EN_TETE \
VRAI \
/* Controle de l'edition. */
#define EDITER_LA_SOMME \
VRAI \
/* Doit-on editer la somme ? */
#define EDITER_LE_PRODUIT \
VRAI \
/* Doit-on editer le profuit ? */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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 20060214185824... */
#define FORMATER_LE_RESULTAT_DE_L_OPERATION_SUR_LES_VALEURS_COURANTES \
VRAI \
/* Introduit le 20030929100600 a cause de la modification '$xrv/cumul.01$K 20030929093702'. */
#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. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* M A C R O S U T I L E S : */
/* */
/*************************************************************************************************************************************/
#define EDITER_UNE_VALEUR(valeur,editer_cette_valeur,message_d_en_tete) \
Bblock \
Test(IL_FAUT(editer_cette_valeur)) \
Bblock \
Test(IL_FAUT(editer_les_messages_d_en_tete)) \
Bblock \
CAL2(Prin1("%s = ",message_d_en_tete)); \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
\
EDITION_DANS_gOPERATION_SUR_LES_FICHIERS_AVEC_SAUT_DE_LIGNE(valeur); \
/* La procedure 'EDITION_DANS_gOPERATION_SUR_LES_FICHIERS(...)' a ete introduite ici le */ \
/* 20030929093702 en remplacement de la sequence de code equivalente... */ \
/* */ \
/* Introduit sous cette forme le 20160804094732... */ \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
/* Procedure d'edition conditionnelle. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* C U M U L G L O B A L , A D D I T I F E T M U L T I P L I C A T I F */
/* D E T O U S L E S E L E M E N T S D ' U N F I C H I E R N U M E R I Q U E : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
#include xrv/ARITHMET.22.I"
#include xci/valeurs.03.I"
DEFV(Float,INIT(somme_courante,FZERO));
/* Somme recherchee de tous les elements du fichier. */
DEFV(Float,INIT(produit_courant,FU));
/* Produit recherche de tous les elements du fichier. */
DEFV(Logical,INIT(editer_les_messages_d_en_tete,EDITER_LES_MESSAGES_D_EN_TETE));
/* Controle de l'edition. */
DEFV(Logical,INIT(editer_la_somme,EDITER_LA_SOMME));
/* Doit-on editer la somme ? */
DEFV(Logical,INIT(editer_le_produit,EDITER_LE_PRODUIT));
/* Doit-on editer le profuit ? */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
/* Ceci fut introduit le 20070103173403... */
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
);
GET_ARGUMENT_L("messages=""message=""Men_tete=",editer_les_messages_d_en_tete);
/* Le 20050623172821, "en_tete=" a ete remplace par "Men_tete=" (double definition...). */
GET_ARGUMENT_L("somme=",editer_la_somme);
GET_ARGUMENT_L("produit=",editer_le_produit);
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
/* Cette procedure fut introduite le 20070103173403... */
PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
/* Cette procedure fut introduite le 20061226192450... */
)
);
DoIn(index
,PREMIER_ELEMENT_D_UN_FICHIER
,DERNIER_ELEMENT_D_UN_FICHIER
,I
)
Bblock
DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
/* Recuperation de la valeur courante dans le fichier. */
INCR(somme_courante,valeur_courante);
/* Somme... */
EGAL(produit_courant,MUL2(produit_courant,valeur_courante));
/* Produit... */
Eblock
EDoI
EDITER_UNE_VALEUR(somme_courante
,editer_la_somme
,"somme"
);
EDITER_UNE_VALEUR(produit_courant
,editer_le_produit
,"produit"
);
lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);
RETU_Commande;
Eblock
ECommande