/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   L A   F O N C T I O N  ' printf(...) '   E T   D E   L A   T A B U L A T I O N  :                          */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/printf.01$c' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  "INCLUDES.01.I"
                                        /* Introduit le 20051116101927...                                                            */

#define   __TAB1    49
#define   __TAB2    19
#define   __TAB3    49
#define   __SLASH   "/"
#define   __STAR    "*"
#define   ZERO      0
#define   CALS(p)   (p)
#define   PrinA     printf
#define   nom       "nom"
#define   comment   "commentaire"
#define   valeur    3.1415

main()
          {
          char *chaine="xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx";

          CAL2(PrinA("#define   %-*s %-*.1f %s%s %-*s %s%s\n"
                    ,__TAB1,nom
                    ,SOUS(__TAB2,NEUT(ZERO)),valeur
                    ,__SLASH,__STAR,__TAB3,comment,__STAR,__SLASH
                     )
               );
          CAL2(PrinA("#define   %-*s %-*g %s%s %-*s %s%s\n"
                    ,__TAB1,nom
                    ,SOUS(__TAB2,NEUT(ZERO)),valeur
                    ,__SLASH,__STAR,__TAB3,comment,__STAR,__SLASH
                     )
               );

          sprintf(chaine,"(%.1f)",valeur);
                                        /* Pour parentheser la valeur flottante...                                                   */
          CAL2(PrinA("#define   %-*s %-*s %s%s %-*s %s%s\n"
                    ,__TAB1,nom
                    ,SOUS(__TAB2,NEUT(ZERO)),chaine
                    ,__SLASH,__STAR,__TAB3,comment,__STAR,__SLASH
                     )
               );

          sprintf(chaine,"(%g)",valeur);
                                        /* Pour parentheser la valeur flottante...                                                   */
          CAL2(PrinA("#define   %-*s %-*s %s%s %-*s %s%s\n"
                    ,__TAB1,nom
                    ,SOUS(__TAB2,NEUT(ZERO)),chaine
                    ,__SLASH,__STAR,__TAB3,comment,__STAR,__SLASH
                     )
               );
          }