/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   L A   C O M P I L A T I O N   D E   ' GET_ARGUMENTSn_x(...) '  :                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtKg/GET_ARGUMENTSn_x.01$K' :                                                                                  */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20190901114000).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
@define   PRAGMA_CPP_____MODULE_NON_DERIVABLE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   L A   C O M P I L A T I O N   D E   ' GET_ARGUMENTSn_x(...) '  :                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(Logical,INIT(Logique_1,VRAI));
     DEFV(Logical,INIT(Logique_2,FAUX));
     DEFV(Logical,INIT(Logique_3,FAUX));
     DEFV(Logical,INIT(Logique_4,FAUX));
     DEFV(Logical,INIT(Logique_5,FAUX));
     DEFV(Logical,INIT(Logique_6,FAUX));
     DEFV(Logical,INIT(Logique_7,FAUX));
     DEFV(Logical,INIT(Logique_8,FAUX));
     DEFV(Logical,INIT(Logique_9,FAUX));
     DEFV(Logical,INIT(Logique_a,FAUX));

     DEFV(Logical,INIT(Nogique_1,VRAI));
     DEFV(Logical,INIT(Nogique_2,FAUX));
     DEFV(Logical,INIT(Nogique_3,FAUX));
     DEFV(Logical,INIT(Nogique_4,FAUX));
     DEFV(Logical,INIT(Nogique_5,FAUX));
     DEFV(Logical,INIT(Nogique_6,FAUX));
     DEFV(Logical,INIT(Nogique_7,FAUX));
     DEFV(Logical,INIT(Nogique_8,FAUX));
     DEFV(Logical,INIT(Nogique_9,FAUX));
     DEFV(Logical,INIT(Nogique_a,FAUX));

     DEFV(CHAR,INIC(POINTERc(Chaine_1),"NOM1"));
     DEFV(CHAR,INIC(POINTERc(Chaine_2),"NOM2"));
     DEFV(CHAR,INIC(POINTERc(Chaine_3),"NOM3"));
     DEFV(CHAR,INIC(POINTERc(Chaine_4),"NOM4"));

     DEFV(genere_p,INIT(Point_1,11));
     DEFV(genere_p,INIT(Point_2,22));
     DEFV(genere_p,INIT(Point_3,33));
     DEFV(genere_p,INIT(Point_4,44));

     DEFV(Int,INIT(Integer_1,1));
     DEFV(Int,INIT(Integer_2,2));
     DEFV(Int,INIT(Integer_3,3));
     DEFV(Int,INIT(Integer_4,4));

     DEFV(Int,INIT(Xnteger_1,0x1111));
     DEFV(Int,INIT(Xnteger_2,0x2222));
     DEFV(Int,INIT(Xnteger_3,0x3333));
     DEFV(Int,INIT(Xnteger_4,0x4444));

     DEFV(Float,INIT(Flottant_1,1.1111));
     DEFV(Float,INIT(Flottant_2,2.2222));
     DEFV(Float,INIT(Flottant_3,3.3333));
     DEFV(Float,INIT(Flottant_4,4.4444));
     /*..............................................................................................................................*/
     BSaveModifyVariable(Int,nombre_de_chiffres_des_editions_flottantes,CINQ);

     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(
                         GET_ARGUMENTSa_L("Largument=""Larg="
                                         ,Logique_1
                                         ,Logique_2
                                         ,Logique_3
                                         ,Logique_4
                                         ,Logique_5
                                         ,Logique_6
                                         ,Logique_7
                                         ,Logique_8
                                         ,Logique_9
                                         ,Logique_a
                                          );
                         GET_ARGUMENTSa_N("Nargument=""Narg="
                                         ,Nogique_1
                                         ,Nogique_2
                                         ,Nogique_3
                                         ,Nogique_4
                                         ,Nogique_5
                                         ,Nogique_6
                                         ,Nogique_7
                                         ,Nogique_8
                                         ,Nogique_9
                                         ,Nogique_a
                                          );

                         GET_ARGUMENTS4_C("Cargument=""Carg="
                                         ,Chaine_1
                                         ,Chaine_2
                                         ,Chaine_3
                                         ,Chaine_4
                                          );

                         GET_ARGUMENTS4_P("Pargument=""Parg="
                                         ,Point_1
                                         ,Point_2
                                         ,Point_3
                                         ,Point_4
                                          );

                         GET_ARGUMENTS4_I("Iargument=""Iarg="
                                         ,Integer_1
                                         ,Integer_2
                                         ,Integer_3
                                         ,Integer_4
                                          );

                         GET_ARGUMENTS4_X("Xargument=""Xarg="
                                         ,Xnteger_1
                                         ,Xnteger_2
                                         ,Xnteger_3
                                         ,Xnteger_4
                                          );

                         GET_ARGUMENTS4_F("Fargument=""Farg="
                                         ,Flottant_1
                                         ,Flottant_2
                                         ,Flottant_3
                                         ,Flottant_4
                                          );
                                        /* Et ce afin de tester la detection d'anomalies d'initialisation simultanee d'arguments     */
                                        /* "implicites", alors qu'ils n'ont pas la meme valeur par defaut...                         */
                         )
                    );

     ESaveModifyVariable(Int,nombre_de_chiffres_des_editions_flottantes);

     RETU_Commande;
     Eblock
ECommande