/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E S   C O N V E R S I O N S   A L P H A _ N U M E R I Q U E S  :                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtKg/conversions$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1987??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E S   C O N V E R S I O N S   A L P H A _ N U M E R I Q U E S  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(Int,INIT(n,UNDEF));
                                        /* Variable entiere.                                                                         */
     DEFV(Float,INIT(x,FLOT__UNDEF));
                                        /* Variable flottante.                                                                       */
     DEFV(genere_p,INIT(p,NIVEAU_UNDEF));
                                        /* Variable "point".                                                                         */
     DEFV(Logical,INIT(logik,LUNDEF));
                                        /* Variable logique.                                                                         */
     /*..............................................................................................................................*/
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(VIDE;)
                    );

     CAL2(Prin0("PAS DE TITRE ATTENDU\n\n"));
     CAL2(Prin1("extraction d'une sous-chaine                = %s\n"
               ,FconversionC("CHAINE","","",NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable entiere   = %d\n"
               ,FconversionI("123456","",0,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable flottante = %g\n"
               ,FconversionF("3.1415","",0.,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable point     = %d\n"
               ,FconversionP("255","",GRIS,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable logique   = %s\n"
               ,ETAT_LOGIQUE(FconversionL("VRAI"
                                         ,""
                                         ,VRAI
                                         ,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion
                                         ,C_VIDE
                                         ,INDICATEUR_DE_TYPE_____A_R
                                          )
                             )
                )
          );

     EGAL(n,FconversionI("987654","",0,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R));
     EGAL(x,FconversionF("2.7182","",0,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R));
     EGAL(p,FconversionP("255","",GRIS,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R));
     EGAL(logik,FconversionL("FAUX","",VRAI,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R));
     CAL2(Prin1("conversion d'une variable entiere   = %d\n",n));
     CAL2(Prin1("conversion d'une variable flottante = %g\n",x));
     CAL2(Prin1("conversion d'une variable point     = %d\n",p));
     CAL2(Prin1("conversion d'une variable logique   = %s\n",ETAT_LOGIQUE(logik)));

     CAL2(Prin0("TITRE ATTENDU : 'XY=', TITRE PROPOSE : 'AB'\n\n"));
     CAL2(Prin1("extraction d'une sous-chaine                = %s\n"
               ,FconversionC("AB CHAINE","XY","DEFAUT",NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable entiere   = %d\n"
               ,FconversionI("AB 123456","XY",123,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable flottante = %g\n"
               ,FconversionF("AB 3.1415","XY",456.,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable point     = %d\n"
               ,FconversionP("AB 255","XY",GRIS,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable logique   = %s\n"
               ,ETAT_LOGIQUE(FconversionL("AB VRAI"
                                         ,"XY"
                                         ,FAUX
                                         ,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion
                                         ,C_VIDE
                                         ,INDICATEUR_DE_TYPE_____A_R
                                          )
                             )
                )
          );

     CAL2(Prin0("TITRE ATTENDU : 'TI=', TITRE PROPOSE : 'TI'\n\n"));
     CAL2(Prin1("extraction d'une sous-chaine                = %s\n"
               ,FconversionC("TI CHAINE","TI","DEFAUT",NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable entiere   = %d\n"
               ,FconversionI("TI 123456","TI",123,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable flottante = %g\n"
               ,FconversionF("TI 3.1415","TI",456.,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable point     = %d\n"
               ,FconversionP("TI 255","TI",GRIS,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion,C_VIDE,INDICATEUR_DE_TYPE_____A_R)
                )
          );
     CAL2(Prin1("conversion directe d'une variable logique   = %s\n"
               ,ETAT_LOGIQUE(FconversionL("TI VRAI"
                                         ,"TI"
                                         ,FAUX
                                         ,NE_PAS_EDITER_LES_VALEURS_APRES_Fconversion
                                         ,C_VIDE
                                         ,INDICATEUR_DE_TYPE_____A_R
                                          )
                             )
                )
          );

     RETU_Commande;
     Eblock
ECommande