/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O N V E R S I O N   I N C R E M E N T A L E   D ' U N   F I C H I E R   N U M E R I Q U E                                */
/*        E T   C O N V E R S I O N   I N V E R S E  :                                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/incremental.01$K' :                                                                                        */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20151211161716).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   INCREMENTALISER_LE_FICHIER                                                                                                    \
                    VRAI                                                                                                                \
                                        /* Faut-il incrementaliser ('VRAI') ou desincrementaliser ('FAUX') le fichier ?              */
#define   EDITER_LE_PREMIER_ELEMENT                                                                                                     \
                    VRAI                                                                                                                \
                                        /* Faut-il ('VRAI') ou pas ('FAUX') editer le premier element  dans le cas ou                */ \
                                        /* 'IL_FAUT(incrementaliser_le_fichier)' ?                                                   */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D U   F I C H I E R  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
#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 N V E R S I O N   I N C R E M E N T A L E   D ' U N   F I C H I E R   N U M E R I Q U E                                */
/*        E T   C O N V E R S I O N   I N V E R S E  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

     DEFV(Logical,INIT(incrementaliser_le_fichier,INCREMENTALISER_LE_FICHIER));
                                        /* Faut-il incrementaliser ('VRAI') ou desincrementaliser ('FAUX') le fichier ?              */
     DEFV(Logical,INIT(editer_le_premier_element,EDITER_LE_PREMIER_ELEMENT));
                                        /* Faut-il ('VRAI') ou pas ('FAUX') editer le premier element  dans le cas ou                */
                                        /* 'IL_FAUT(incrementaliser_le_fichier)' ?                                                   */
     /*..............................................................................................................................*/
#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("editer_premier_element=""epe=",editer_le_premier_element);
                                        /* L'argument "premier=" a cause de 'v $xrv/champs_5.1A$I 20211005101904'...                 */
                         GET_ARGUMENT_L("incrementaliser_fichier=""incrementaliser=""if=",incrementaliser_le_fichier);
                         GET_ARGUMENT_N("desincrementaliser_fichier=""desincrementaliser=""df=",incrementaliser_le_fichier);

                         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 20211005105619...                                       */
                         )
                    );

     begin_nouveau_block
          Bblock
          DEFV(Logical,INIT(editer_une_valeur,LUNDEF));
                                        /* Faut-il ('VRAI') ou pas ('FAUX') editer quelque chose ?                                   */
          DEFV(Float,INIT(valeur_precedente,FLOT__UNDEF));
                                        /* Valeur precedente...                                                                      */

          gOPERATION_SUR_LES_FICHIERS(BLOC(
                                           DEFV(Float,INIT(valeur_courante,ELEMENT_DU_FICHIER(index)));
                                        /* Recuperation de la valeur courante dans le fichier.                                       */
                                           DEFV(Float,INIT(valeur_a_editer,FLOT__UNDEF));

                                           Test(IL_FAUT(incrementaliser_le_fichier))
                                                Bblock
                                                Test(IFEQ(index,PREMIER_ELEMENT_D_UN_FICHIER))
                                                     Bblock
                                                     Test(IL_FAUT(editer_le_premier_element))
                                                          Bblock
                                                          EGAL(valeur_a_editer,valeur_courante);
                                                          EGAL(editer_une_valeur,VRAI);
                                                          Eblock
                                                     ATes
                                                          Bblock
                                                          EGAL(editer_une_valeur,FAUX);
                                                          Eblock
                                                     ETes
                                                     Eblock
                                                ATes
                                                     Bblock
                                                     EGAL(valeur_a_editer,SOUS(valeur_courante,valeur_precedente));
                                        /* Cas de l'incrementalisation : on calcule la difference entre deux elements successifs.    */
                                                     EGAL(editer_une_valeur,VRAI);
                                                     Eblock
                                                ETes

                                                EGAL(valeur_precedente,valeur_courante);
                                                Eblock
                                           ATes
                                                Bblock
                                                Test(IFEQ(index,PREMIER_ELEMENT_D_UN_FICHIER))
                                                     Bblock
                                                     EGAL(valeur_a_editer,valeur_courante);
                                                     Eblock
                                                ATes
                                                     Bblock
                                                     EGAL(valeur_a_editer,ADD2(valeur_precedente,valeur_courante));
                                        /* Cas de la desincrementalisation...                                                        */
                                                     Eblock
                                                ETes

                                                EGAL(editer_une_valeur,VRAI);

                                                EGAL(valeur_precedente,valeur_a_editer);
                                                Eblock
                                           ETes
                                           )
                                     ,valeur_a_editer
                                     ,editer_une_valeur
                                     ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                      );
                                        /* Iincrementalisation/Desincrementalisation du fichier argument.                            */
          Eblock
     end_nouveau_block

     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande