/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S U P P R E S S I O N   D E S   E S P A C E S   R E D O N D A N T S   E N   T E T E   D E   L I G N E  :                   */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcp/marge_gauche$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1988??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

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

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

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

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S U P P R E S S I O N   D E S   E S P A C E S   R E D O N D A N T S   E N   T E T E   D E   L I G N E  :                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(Logical,INIT(faut_il_compacter,VRAI));
                                        /* Cet indicateur indique en permanence si l'on peut supprimer les espaces                   */
                                        /* (cette notion recouvrant aussi bien le 'BLANC' que le 'TABULATION')                       */
                                        /* redondants ou pas :                                                                       */
                                        /*                                                                                           */
                                        /*                  VRAI    : a l'initialisation, et apres chaque 'LINE-FEED',               */
                                        /*                  FAUX    : apres tout caractere non 'BLANC' et non 'TABULATION',          */
                                        /*                                                                                           */
                                        /* Ainsi, on enleve tous les 'BLANC' situes entre 'LINE-FEED' et 'BLANC'...                  */
     DEFV(Char,INIT(caractere_courant,K_UNDEF));
                                        /* Caractere courant.                                                                        */
     /*..............................................................................................................................*/
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(VIDE;
                         )
                    );

     Tant(GetcharT(caractere_courant))
          Bblock
                                        /* Le caractere courant de l'entree courante est recupere ; et on boucle                     */
                                        /* sur cette recuperation tant que l'on n'est pas au bout du fichier.                        */
          Test(IFOU(IFET(IFNE(caractere_courant,K_TABULATION)
                        ,IFNE(caractere_courant,K_BLANC)
                         )
                   ,EST_FAUX(faut_il_compacter)
                    )
               )
               Bblock
               CALS(Putchar(caractere_courant));
                                        /* Lorsque le caractere courant n'est pas 'BLANC', ou bien qu'il faut les                    */
                                        /* conserver (ce qui signifie qu'ils ne sont pas en debut de ligne), on les sort.            */
               Eblock
          ATes
               Bblock
               Eblock
          ETes

          Test(IFET(IFNE(caractere_courant,K_TABULATION)
                   ,IFNE(caractere_courant,K_BLANC)
                    )
               )
               Bblock
                                        /* Pour les non 'BLANC's on peut changer l'autorisation de compactage :                      */
               Test(IFEQ(caractere_courant,K_LF))
                    Bblock
                    EGAL(faut_il_compacter,VRAI);
                                        /* A chaque changement de ligne (rencontre de 'LINE-FEED', on reautorise                     */
                                        /* le compactage (et ce jusqu'a la rencontre du premier non 'BLANC').                        */
                    Eblock
               ATes
                    Bblock
                    EGAL(faut_il_compacter,FAUX);
                                        /* Lorsque le caractere courant n'est ni un 'BLANC', ni un 'LINE-FEED', on                   */
                                        /* interdit le compactage (quelqu'en fut l'etat anterieur...).                               */
                    Eblock
               ETes
               Eblock
          ATes
               Bblock
               Eblock
          ETes
          Eblock
     ETan

     RETU_Commande;
     Eblock
ECommande