/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E L I M I N A T I O N   D E   C A R A C T E R E S   R E D O N D A NT S  :                                                  */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Fonction :                                                                                                                 */
/*                                                                                                                                   */
/*                    Cette commande est destinee a assurer                                                                          */
/*                  des reecritures du type :                                                                                        */
/*                                                                                                                                   */
/*                                      "XXXX...XXXX" --> "X".                                                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcp/redondants$K' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1990??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   CARACTERE_REDONDANT                                                                                                           \
                    K_POINT_VIRGULE                                                                                                     \
                                        /* Caractere declare comme redondant et devant faire l'objet d'une reecriture.               */

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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E L I M I N A T I O N   D E   C A R A C T E R E S   R E D O N D A NT S  :                                                  */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIT(caractere_redondant,CARACTERE_REDONDANT));
                                        /* Caractere declare comme redondant et devant faire l'objet d'une reecriture.               */
     DEFV(Char,INIT(caractere_courant,K_UNDEF));
                                        /* Caractere courant.                                                                        */
     DEFV(Logical,INIT(on_vient_de_rencontrer_une_apostrophe,FAUX));
                                        /* Cet indicateur indique en permanence si l'on vient de rencontrer                          */
                                        /* immediatement une apostrophe (') :                                                        */
                                        /*                                                                                           */
                                        /*                  VRAI    : apres la premiere rencontree,                                  */
                                        /*                  FAUX    : apres la seconde,                                              */
                                        /*                                                                                           */
                                        /* cet indicateur fonctionnant en bascule, puisque les apostrophes forment                   */
                                        /* des couples de parentheses...                                                             */
     DEFV(Logical,INIT(on_vient_de_rencontrer_une_quote,FAUX));
                                        /* Cet indicateur indique en permanence si l'on vient de rencontrer                          */
                                        /* immediatement une quote (") :                                                             */
                                        /*                                                                                           */
                                        /*                  VRAI    : apres la premiere rencontree,                                  */
                                        /*                  FAUX    : apres la seconde,                                              */
                                        /*                                                                                           */
                                        /* cet indicateur fonctionnant en bascule, puisque les quotes forment                        */
                                        /* des couples de parentheses...                                                             */
     DEFV(Logical,INIT(on_vient_de_rencontrer_le_caractere_redondant,FAUX));
                                        /* Cet indicateur indique en permanence si l'on vient de rencontrer le caractere             */
                                        /* dit "redondant"...                                                                        */
     /*..............................................................................................................................*/
     GET_ARGUMENTS_(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_K("redondant=""r=""caractere=""c=",caractere_redondant);
                         )
                    );

     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(IFNE(caractere_courant,caractere_redondant))
               Bblock
               CALS(Putchar(caractere_courant));
                                        /* Lorsque le caractere courant n'est pas l'anti-quote "`", on le reemet...                  */
               Test(IFET(IFEQ(caractere_courant,K_QUOTE),EST_FAUX(on_vient_de_rencontrer_une_apostrophe)))
                    Bblock
                    EGAL(on_vient_de_rencontrer_une_quote,NOTL(on_vient_de_rencontrer_une_quote));
                                        /* On gere les quotes comme des parentheses...                                               */
                    Eblock
               ATes
                    Bblock
                    Eblock
               ETes

               Test(IFET(IFEQ(caractere_courant,K_APOSTROPHE),EST_FAUX(on_vient_de_rencontrer_une_quote)))
                    Bblock
                    EGAL(on_vient_de_rencontrer_une_apostrophe,NOTL(on_vient_de_rencontrer_une_apostrophe));
                                        /* On gere les apostrophes comme des parentheses...                                          */
                    Eblock
               ATes
                    Bblock
                    Eblock
               ETes

               Test(IFEQ(caractere_courant,K_LF))
                    Bblock
                    EGAL(on_vient_de_rencontrer_une_apostrophe,FAUX);
                    EGAL(on_vient_de_rencontrer_une_quote,FAUX);
                                        /* Au changement de ligne, on reinitialise la gestion des quotes et apostrophes...           */
                    Eblock
               ATes
                    Bblock
                    Eblock
               ETes

               Test(IFET(IFNE(caractere_courant,K_BLANC),IFNE(caractere_courant,K_LF)))
                    Bblock
                    EGAL(on_vient_de_rencontrer_le_caractere_redondant,FAUX);
                                        /* Pour tout autre caractere que le caractere "redondant", ESPACE et  NEW-LINE, on           */
                                        /* reinitialise le processus...                                                              */
                    Eblock
               ATes
                    Bblock
                                        /* Les chaines de caracteres "redondants" peuvent contenir des ESPACEs et des NEW-LINEs...   */
                    Eblock
               ETes
               Eblock
          ATes
               Bblock
               Test(IFET(EST_FAUX(on_vient_de_rencontrer_une_quote)
                        ,EST_FAUX(on_vient_de_rencontrer_une_apostrophe)
                         )
                    )
                    Bblock
                    Test(EST_FAUX(on_vient_de_rencontrer_le_caractere_redondant))
                         Bblock
                         CALS(Putchar(caractere_courant));
                                        /* Le premier caractere redondant est transmis,                                              */
                         EGAL(on_vient_de_rencontrer_le_caractere_redondant,VRAI);
                                        /* Et on memorise que l'on vient de le rencontrer...                                         */
                         Eblock
                    ATes
                         Bblock
                                        /* Mais pas les suivants (meme si des ESPACEs et des NEW-LINEs viennent s'intercaler).       */
                         Eblock
                    ETes
                    Eblock
               ATes
                    Bblock
                    CALS(Putchar(caractere_courant));
                                        /* Lorsque le caractere "redondant" est entre quotes ou apostrophes, on l'emet...            */
                    Eblock
               ETes
               Eblock
          ETes
          Eblock
     ETan

     RETU_Commande;
     Eblock
ECommande