/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S E L E C T I O N   D ' 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/selection.11$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20230426104516).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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_ELEMENTS_A_SELECTIONNER                                                                                                \
                    UN                                                                                                                  \
                                        /* Nombre d'elements a selectionner.                                                         */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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"
#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.                                                  */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S E L E C T I O N   D ' 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(Int,INIT(nombre_elements_a_selectionner,NOMBRE_ELEMENTS_A_SELECTIONNER));
                                        /* Nombre d'elements a selectionner.                                                         */
     /*..............................................................................................................................*/
#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_I("nombre=""n=",nombre_elements_a_selectionner);

                         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;
                         )
                    );

     Test(IFOU(IFLE(nombre_elements_a_selectionner,UN),IFGT(nombre_elements_a_selectionner,nombre_d_elements)))
          Bblock
          PRINT_ATTENTION("il y a pas assez ou trop d'elements a selectionner, le fichier entier sera restitue");

          EGAL(nombre_elements_a_selectionner,nombre_d_elements);
          Eblock
     ATes
          Bblock
          Eblock
     ETes

     begin_nouveau_block
          Bblock
          DEFV(Float,INIT(pas_de_parcours_du_fichier_slectionne
                         ,SCAL(FLOT(pas_de_parcours_d_un_fichier)
                              ,FLOT(TRMU(nombre_elements_a_selectionner))
                              ,FLOT(TRMU(nombre_d_elements))
                               )
                          )
               );
                                        /* Les 'TRMU(...)'s sont la a cause du probleme "piquet" --> "intervalle"...                 */

          begin_nouveau_block
               Bblock
               DEFV(Float,INIT(index_de_selection,FLOT(premier_element_d_un_fichier)));
               DEFV(Int,INIT(nombre_d_elements_recuperes,ZERO));
                                        /* Nombre d'elements selectionnes.                                                           */
               BSaveModifyVariable(Int,nombre_d_elements,nombre_elements_a_selectionner);
                                        /* Cette facon de proce3der et de modifier la boucle 'gOPERATION_SUR_LES_FICHIERS(...)'      */
                                        /* a ete determinee grace au programme 'v $xtc/selection.11$c'...                            */

               gOPERATION_SUR_LES_FICHIERS(BLOC(
                                                DEFV(Float,INIT(valeur_courante
                                                               ,ELEMENT_DU_FICHIER(ARRI(index_de_selection))
                                                                )
                                                     );
                                        /* Recuperation des valeurs utiles dans le fichier. On notera la presence du 'ARRI(...)'     */
                                        /* destine a garantir l'acces essentiel au dernier element du fichier...                     */

                                                INCR(nombre_d_elements_recuperes,I);
                                                INCR(index_de_selection,pas_de_parcours_du_fichier_slectionne);
                                        /* Comptage des elements recuperes...                                                        */
                                                )
                                          ,valeur_courante
                                          ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                          ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                           );
                                        /* Selection d'elements dans un fichier.                                                     */

               Test(IFNE(nombre_d_elements_recuperes,nombre_elements_a_selectionner))
                    Bblock
                    PRINT_ATTENTION("le nombre d'elements recuperes est incorrect");
                    CAL1(Prer3("(%d etaient demandes alors que %d ont ete recuperes parmi %d)\n"
                              ,nombre_elements_a_selectionner
                              ,nombre_d_elements_recuperes
                              ,nombre_d_elements
                               )
                         );
                    Eblock
               ATes
                    Bblock
                    Eblock
               ETes

               ESaveModifyVariable(Int,nombre_d_elements);
               Eblock
          end_nouveau_block
          Eblock
     end_nouveau_block

     lGENERATION_D_UN_FICHIER(liste_des_valeurs,VALEUR_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande