/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P E R S I S T A N C E   M U L T I P L I C A T I V E   E T   A D D I T I V E   D ' U N   F I C H I E R  :                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/Persistance.11$K' :                                                                                        */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20150413102443).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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
#include  maths_fonct_NOMBRES_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   PERSISTANCE_ADDITIVE                                                                                                          \
                    FAUX                                                                                                                \
                                        /* Faut-il plutot etudier la persistance additive (au lieu de la multiplicative) ?           */
#define   BASE_DE_NUMERATION                                                                                                            \
                    BASE10                                                                                                              \
                                        /* Base de numeration.                                                                       */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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 20060214132914...                                     */
#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 des fichiers.                                                       */

#define   ELEMENT_DU_FICHIER(index)                                                                                                     \
                    gELEMENT_DU_FICHIER(liste_des_valeurs,index)
                                        /* Acces a un element courant des fichiers.                                                  */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P E R S I S T A N C E   M U L T I P L I C A T I V E   E T   A D D I T I V E   D ' U N   F I C H I E R  :                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(Logical,INIT(persistance_additive,PERSISTANCE_ADDITIVE));
                                        /* Faut-il plutot etudier la persistance additive (au lieu de la multiplicative) ?           */
     DEFV(Positive,INIT(base_de_numeration,BASE_DE_NUMERATION));
                                        /* Base de numeration.                                                                       */

#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"

     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("additive=""add=",persistance_additive);
                         GET_ARGUMENT_N("multiplicative=""mul=",persistance_additive);
                         GET_ARGUMENT_I("base=""b=",base_de_numeration);

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
                                        /* Cette procedure fut introduite le 20211005104714...                                       */
                         )
                    );

#include  xci/valeurs_Persistance.I"

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
                                      DEFV(Int,INIT(nombre_courant,UNDEF));
                                        /* Recuperation de la valeur courante dans les fichier.                                      */

                                      DEFV(Int,INIT(CumulMultiplicatif_ou_Additif
                                                   ,COND(IL_NE_FAUT_PAS(persistance_additive)
                                                        ,UN
                                                        ,ZERO
                                                         )
                                                    )
                                           );

                                      DEFV(Int,INIT(Reduction,UNDEF));
                                      DEFV(Int,INIT(Persistance,ZERO));

                                      Test(N_EST_PAS_ENTIER(valeur_courante))
                                           Bblock
                                           PRINT_ERREUR("une valeur n'est pas entiere");
                                           CAL1(Prer1("(il s'agit de %f)\n",valeur_courante));
                                           Eblock
                                      ATes
                                           Bblock
                                           Eblock
                                      ETes

                                      EGAL(nombre_courant,INTE(valeur_courante));

                                      Test(IZLT(nombre_courant))
                                           Bblock
                                           PRINT_ERREUR("une valeur est negative");
                                           CAL1(Prer1("(le nombre %d est negatif)\n",nombre_courant));

                                           EGAL(nombre_courant,ABSO(nombre_courant));
                                        /* On prend donc la valeur absolue des nombres negatifs...                                   */
                                           Eblock
                                      ATes
                                           Bblock
                                           Eblock
                                      ETes

                                      EGAL(Reduction,nombre_courant);

                                      Tant(IFGE(Reduction,base_de_numeration))
                                           Bblock
                                           DEFV(Int,INIT(Quotient,Reduction));
                                           DEFV(Int,INIT(Reste,UNDEF));

                                           EGAL(CumulMultiplicatif_ou_Additif
                                               ,COND(IL_NE_FAUT_PAS(persistance_additive)
                                                    ,UN
                                                    ,ZERO
                                                     )
                                                );
                                        /* La reinitialisation de 'CumulMultiplicatif_ou_Additif' doit avoir lieu evidemment a       */
                                        /* chaque nouvelle iteration du 'Tant(...)'...                                               */

                                           Tant(IFNE(Quotient,ZERO))
                                                Bblock
                                                EGAL(Reste,REST(Quotient,base_de_numeration));
                                                EGAL(Quotient,DIVI(Quotient,base_de_numeration));

                                                CUMUL_MULTIPLICATIF_OU_ADDITIF;
                                        /* Cette procedure est rendue obligatoire a cause du 'OPC2(...)' qu'elle contient...         */
                                                Eblock
                                           ETan

                                           EGAL(Reduction,CumulMultiplicatif_ou_Additif);
                                           INCR(Persistance,I);
                                           Eblock
                                      ETan
                                      )
                                ,FLOT(Persistance)
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Persistance multiplicative ou additive du fichier argument.                               */

     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande