/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E X A M E N   D U   P R E - P R O C E S S I N G   D E   ' v $xcg/ADD2.01$K '                                               */
/*        D E   L A   S E Q U E N C E   ' GET_ARGUMENT_F("y=""nombre_2=""n2=""b=",nombre_2); '                                       */
/*        A   L A   D A T E   D U   20221124111411  :                                                                                */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/xcg_ADD2.01.20221124111411$c' :                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20221124111411).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N C L U D E S   G E N E R A U X  :                                                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  <errno.h>
#include  <stdio.h>
#include  <stdlib.h>

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   G E N E R A L E S  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   Cara(x)   ((unsigned char*) (x))

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   E X T E R N E S  :                                                                                 */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
extern    double (FconversionF(unsigned char Argument_____chaineA[],unsigned char Argument_____titre_attendu[],double Argument_____valeur_par_defaut,unsigned long int Argument_____editer_la_valeur,unsigned char Argument_____nom_eventuel_de_la_valeur[],unsigned char Argument_____A_R[]));
extern    int (print_defaut(unsigned char Argument_____en_tete[],unsigned char Argument_____message1[],unsigned char Argument_____message2[],unsigned char Argument_____commande_courante[],unsigned char Argument_____fichier_courant[],unsigned char Argument_____fonction_courante[],long int Argument_____ligne_courante,unsigned long int Argument_____editer_message));
extern    long int (FgPROCESS_PARAMETRE_DEBUT(unsigned char Argument_____titre_attendu[],long int Argument_____taille_du_type_attendu,long int Argument_____taille_courante,long int Argument_____identite_du_type_attendu));
extern    long int FgPROCESS_PARAMETRE_COMPTAGE(unsigned long int Argument_____valeur_recherchee_dans_la_liste_des_arguments);
extern    long int UTILISATION_des_arguments_possibles[];
extern    long int chain_copie_____successeur_de_l_index_du_dernier_caractere_d_une_chaineA;
extern    long int niveau_des_gPROCESS_PARAMETRE;
extern    long int nombre_d_arguments;
extern    long int numero_d_argument_courant;
extern    long int numero_de_l_argument_possible_courant__en_ne_tenant_pas_compte_des_synonymes;
extern    long int numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes;
extern    unsigned char cNIL[];
extern    unsigned char*(*(arguments));
extern    unsigned char*(FgPROCESS_PARAMETRE_RECUPERATION_ET_TRANSFORMATION(unsigned char*(Argument_____liste_des_arguments[]),long int Argument_____numero_d_argument_courant,unsigned long int Argument_____abreviation_possible));
extern    unsigned char*(FgPROCESS_PARAMETRE_SYNONYME_COURANT(unsigned char*(Argument_____titre_attendu),long int Argument_____premier_caractere_de_____titre_attendu));
extern    unsigned char*(Finitialisation_d_une_constante_chaine_de_caracteres());
extern    unsigned char*(Ftraitement_des_formats_de_sortie(unsigned char*(Argument_____formatA)));
extern    unsigned char*(chain_Aconcaten2(unsigned char Argument_____chaineA1[],unsigned char Argument_____chaineA2[]));
extern    unsigned char*(chain_Aconcaten3(unsigned char Argument_____c01[],unsigned char Argument_____c02[],unsigned char Argument_____c03[]));
extern    unsigned char*(chain_Acopie(unsigned char Argument_____chaineA[]));
extern    unsigned char*(chain_Acopie_avec_conversions_possibles_majuscules_minuscules_pour_un_titre_attendu(unsigned char Argument_____chaineA[]));
extern    unsigned char*(chain_Acopie_avec_suppression_d_un_eventuel_K_LF_en_tete(unsigned char Argument_____chaineA[],unsigned long int Argument_____la_suppression_est_utile));
extern    unsigned char*(format_EGAr____FORMAT_INTE);
extern    unsigned char*(format_EGAr____FORMAT_INTE_EDITION);
extern    unsigned char*(format_EGAr____FORMAT_INTE_EDITION__NON_SIGNE);
extern    unsigned char*(liste_des_____titre_attendu_____synonymes);
extern    unsigned char*(nom_de_la_commande_courante);
extern    unsigned char*(pointeurC_parametre);
extern    unsigned long int (Fconversion_EditeValeur(unsigned long int Argument_____c_est_le_premier_____titre_attendu_____dans_liste_titres_synonyme));
extern    unsigned long int CAL1_____executer;
extern    unsigned long int CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC;
extern    unsigned long int Fconversion_NomEventuelValeur();
extern    unsigned long int Ftest_ENTREE_PAR_setenv();
extern    unsigned long int GET_ARGUMENT_F_____Pcompteur_DAppel;
extern    unsigned long int MOVE_CARACTERE_____ne_deplacer_que_les_caracteres_alpha_numeriques;
extern    unsigned long int PRINT_DEFAUT_____vient_d_apparaitre;
extern    unsigned long int PRINT_ERREUR_____editer_les_messages;
extern    unsigned long int Prer_____changer_le_stream;
extern    unsigned long int Prer_____editer_les_messages_d_en_tete;
extern    unsigned long int c_est_la_derniere_recherche_des_parametres;
extern    unsigned long int chain_compare(unsigned char Argument_____chaineA1[],unsigned char Argument_____chaineA2[]);
extern    unsigned long int chain_copie_____la_chaineA_a_ete_copiee_jusqu_au_END_OF_CHAIN;
extern    unsigned long int l_argument_possible_courant_est_un_synonyme_d_argument_anterieur;
extern    unsigned long int nombre_d_arguments_non_compris_le_nom;
extern    unsigned long int valeur_recherchee;
extern    void*(pointeurV_parametre);

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P R O G R A M M E   P R I N C I P A L  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
int  main(long int Argument_____nombre_d_arguments,unsigned char*(Argument_____arguments[]))
     {
     arguments=(Argument_____arguments);
     nombre_d_arguments=(Argument_____nombre_d_arguments);
     nombre_d_arguments_non_compris_le_nom=(((nombre_d_arguments)-(1)));
     nom_de_la_commande_courante=(chain_Acopie((arguments[0])));
          {
          double nombre_2=(1.0);

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P R E - P R O C E S S I N G     D E   L A   S E Q U E N C E   ' GET_ARGUMENT_F("y=""nombre_2=""n2=""b=",nombre_2); '       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
          GET_ARGUMENT_F_____Pcompteur_DAppel=(((GET_ARGUMENT_F_____Pcompteur_DAppel)+(1)));
               {
               long int premier_caractere_de_____titre_attendu=(0);
               long int compteur_des_synonymes_de_____titre_attendu=(0);
               unsigned long int c_est_le_premier_____titre_attendu_____dans_liste_titres_synonyme=(1);
               unsigned long int tous_____titre_attendu_____ont_ete_recupere_dans_liste_titres_synonymes=(0);
               unsigned long int au_moins_un_titre_synonyme_a_ete_reconnu_parmi_la_liste_des_titres_synonymes=(0);
               liste_des_____titre_attendu_____synonymes=(chain_Acopie("y=nombre_2=n2=b="));

               while (((tous_____titre_attendu_____ont_ete_recupere_dans_liste_titres_synonymes)==(0)))
                    {
                    unsigned char *(titre_attendu_unique_parmi_une_liste_de_titres_synonymes)=(cNIL);
                    compteur_des_synonymes_de_____titre_attendu=(((compteur_des_synonymes_de_____titre_attendu)+(1)));
                    titre_attendu_unique_parmi_une_liste_de_titres_synonymes=(FgPROCESS_PARAMETRE_SYNONYME_COURANT("y=nombre_2=n2=b=",premier_caractere_de_____titre_attendu));
                    premier_caractere_de_____titre_attendu=(chain_copie_____successeur_de_l_index_du_dernier_caractere_d_une_chaineA);

                    if   (((chain_copie_____la_chaineA_a_ete_copiee_jusqu_au_END_OF_CHAIN)==(1)))
                         {
                         tous_____titre_attendu_____ont_ete_recupere_dans_liste_titres_synonymes=(1);
                         }

                         {
                         unsigned long int valeur_recherchee_dans_un_setenv=(0);
                         unsigned long int valeur_recherchee_dans_la_liste_des_arguments=(0);
                         unsigned char*(argument_courant_apres_conversions_majuscules_minuscules_et_prefixage_eventuels_1)=(cNIL);
                         unsigned char*(titre_attendu_apres_conversions_eventuelles_majuscules_minuscules)=(cNIL);
                         niveau_des_gPROCESS_PARAMETRE=(1);
                         pointeurV_parametre=((&(nombre_2)));
                         pointeurC_parametre=(pointeurV_parametre);
                         FgPROCESS_PARAMETRE_DEBUT(titre_attendu_unique_parmi_une_liste_de_titres_synonymes,8,(sizeof(nombre_2)),(((((((((((0)+(1)))+(1)))+(1))))+(1)))+(1)));

                              {
                              if   (Ftest_ENTREE_PAR_setenv())
                                   {
                                   unsigned char*(nom_variable_d_environnement_associee_au_titre_attendu)=(cNIL);
                                   unsigned char*(valeur_variable_d_environnement_associee_au_titre_attendu)=(cNIL);
                                   MOVE_CARACTERE_____ne_deplacer_que_les_caracteres_alpha_numeriques=(1);
                                   nom_variable_d_environnement_associee_au_titre_attendu=(chain_Aconcaten2(((((Cara(getenv("P__")))!=(Cara(0)))) ? (Cara(getenv("P__"))) : (Cara((chain_Aconcaten3("P__","xcg_ADD2_01","__"))))),titre_attendu_unique_parmi_une_liste_de_titres_synonymes));
                                   MOVE_CARACTERE_____ne_deplacer_que_les_caracteres_alpha_numeriques=(0);
                                   valeur_variable_d_environnement_associee_au_titre_attendu=(((((Cara(getenv(nom_variable_d_environnement_associee_au_titre_attendu)))!=(Cara(0)))) ? (Cara(getenv(nom_variable_d_environnement_associee_au_titre_attendu))) : (Cara(cNIL))));
                                   if   (((chain_compare(valeur_variable_d_environnement_associee_au_titre_attendu,cNIL))==(0)))
                                        {
                                        unsigned char*(format_EGAq____gPROCESS_PARAMETRE_ENTREE_PAR_setenv)= Finitialisation_d_une_constante_chaine_de_caracteres(chain_Aconcaten2(titre_attendu_unique_parmi_une_liste_de_titres_synonymes,valeur_variable_d_environnement_associee_au_titre_attendu));
                                        nombre_2=(FconversionF(format_EGAq____gPROCESS_PARAMETRE_ENTREE_PAR_setenv,titre_attendu_unique_parmi_une_liste_de_titres_synonymes,nombre_2,((((1)==(1))) ? (0) : (((((1)==(0))) ? (1) : ((1))))),"","  "));
                                        FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),format_EGAq____gPROCESS_PARAMETRE_ENTREE_PAR_setenv);
                                        valeur_recherchee_dans_un_setenv=(valeur_recherchee);
                                        }
                                   FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),nom_variable_d_environnement_associee_au_titre_attendu);
                                   }
                              }

                         titre_attendu_apres_conversions_eventuelles_majuscules_minuscules=(chain_Acopie_avec_conversions_possibles_majuscules_minuscules_pour_un_titre_attendu(titre_attendu_unique_parmi_une_liste_de_titres_synonymes));
                         argument_courant_apres_conversions_majuscules_minuscules_et_prefixage_eventuels_1=(FgPROCESS_PARAMETRE_RECUPERATION_ET_TRANSFORMATION(arguments,numero_d_argument_courant,((((1)==(1))) ? (0) : (((((1)==(0))) ? (1) : ((1)))))));

                              {
                              unsigned char *(format_EGAq____g1PROCESS_PARAMETRE)= Finitialisation_d_une_constante_chaine_de_caracteres(chain_Aconcaten2(((((l_argument_possible_courant_est_un_synonyme_d_argument_anterieur)==(0))) ? (Finitialisation_d_une_constante_chaine_de_caracteres("LocalUtilise(1).. ; vq ':nombre_2:' ; ")) : (Finitialisation_d_une_constante_chaine_de_caracteres(""))),"="));
                              nombre_2=((FconversionF(argument_courant_apres_conversions_majuscules_minuscules_et_prefixage_eventuels_1,titre_attendu_apres_conversions_eventuelles_majuscules_minuscules,nombre_2,Fconversion_EditeValeur(c_est_le_premier_____titre_attendu_____dans_liste_titres_synonyme),((((Fconversion_NomEventuelValeur())==(1))) ? (format_EGAq____g1PROCESS_PARAMETRE) : (Finitialisation_d_une_constante_chaine_de_caracteres(""))),"  ")));
                              FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),format_EGAq____g1PROCESS_PARAMETRE);
                              }

                         valeur_recherchee_dans_la_liste_des_arguments=(valeur_recherchee);
                         FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),argument_courant_apres_conversions_majuscules_minuscules_et_prefixage_eventuels_1);
                         FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),titre_attendu_apres_conversions_eventuelles_majuscules_minuscules);

                         if   (((((valeur_recherchee_dans_un_setenv)==(1))) || (((valeur_recherchee_dans_la_liste_des_arguments)==(1)))))
                              {
                              au_moins_un_titre_synonyme_a_ete_reconnu_parmi_la_liste_des_titres_synonymes=(1);
                              UTILISATION_des_arguments_possibles[((long int)(((0)+(((numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes)-(1))))))]=((((UTILISATION_des_arguments_possibles[((long int)(((0)+(((numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes)-(1))))))]))+(1)));
                              }

                         if   (((c_est_la_derniere_recherche_des_parametres)==(1)))
                              {
                              }

                         FgPROCESS_PARAMETRE_COMPTAGE(valeur_recherchee_dans_la_liste_des_arguments);

                              {
                              long int valeur_maximale_de_l_index_a_incrementer=(((1)+(((long int)(((0)+(((((12)*(100)))-(1)))))))));
                                   {
                                   if   (((numero_de_l_argument_possible_courant__en_ne_tenant_pas_compte_des_synonymes)<(valeur_maximale_de_l_index_a_incrementer)))
                                        {
                                        numero_de_l_argument_possible_courant__en_ne_tenant_pas_compte_des_synonymes=(((numero_de_l_argument_possible_courant__en_ne_tenant_pas_compte_des_synonymes)+(1)));
                                        }
                                   else
                                        {
                                        print_defaut("ERREUR","debordement de la liste des arguments possibles (4)","",nom_de_la_commande_courante,"$x/commandes/generales/ADD2.01.c","main",((long int)(87)),PRINT_ERREUR_____editer_les_messages);
                                        if   (((((CAL1_____executer)==(1)))==(1)))
                                             {
                                             unsigned char *(format_utilise)=(chain_Acopie_avec_suppression_d_un_eventuel_K_LF_en_tete("(l'index courant vaut %d alors qu'il ne peut exceder %d)\n",PRINT_DEFAUT_____vient_d_apparaitre));
                                                  {
                                                  PRINT_DEFAUT_____vient_d_apparaitre=(0);
                                                  print_defaut("","","",nom_de_la_commande_courante,"$x/commandes/generales/ADD2.01.c","main",((long int)(87)),Prer_____editer_les_messages_d_en_tete);
                                                       {
                                                       unsigned char*(format_initialement_demande_dans_FPrin)=(((unsigned char *)(format_utilise)));
                                                       unsigned char*(format_effectivement_utilise_dans_FPrin)=(Ftraitement_des_formats_de_sortie(format_utilise));
                                                       fprintf(((((Prer_____changer_le_stream)==(0))) ? (stderr) : (stdout)),Cara(format_effectivement_utilise_dans_FPrin),numero_de_l_argument_possible_courant__en_ne_tenant_pas_compte_des_synonymes,valeur_maximale_de_l_index_a_incrementer);
                                                       if   (((1)==(1)))
                                                            {
                                                            fflush(((((Prer_____changer_le_stream)==(0))) ? (stderr) : (stdout)));
                                                            }
                                                       if   ((((format_effectivement_utilise_dans_FPrin))!=((format_initialement_demande_dans_FPrin))))
                                                            {
                                                            FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),format_effectivement_utilise_dans_FPrin);
                                                            }
                                                       }
                                                  }
                                             FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),format_utilise);
                                             }
                                        else
                                             {
                                             }
                                        }
                                   }
                              }
                         }

                    FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),titre_attendu_unique_parmi_une_liste_de_titres_synonymes);
                    c_est_le_premier_____titre_attendu_____dans_liste_titres_synonyme=(0);
                    }

               FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),liste_des_____titre_attendu_____synonymes);

                    {
                    long int valeur_maximale_de_l_index_a_incrementer=(((1)+(((long int)(((0)+(((((12)*(100)))-(1)))))))));
                    if   (((numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes)<(valeur_maximale_de_l_index_a_incrementer)))
                         {
                         numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes=(((numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes)+(1)));
                         }
                    else
                         {
                         print_defaut("ERREUR","debordement de la liste des arguments possibles (3)","",nom_de_la_commande_courante,"$x/commandes/generales/ADD2.01.c","main",((long int)(87)),PRINT_ERREUR_____editer_les_messages);
                         if   (((((CAL1_____executer)==(1)))==(1)))
                              {
                              unsigned char *(format_utilise)=(chain_Acopie_avec_suppression_d_un_eventuel_K_LF_en_tete("(l'index courant vaut %d alors qu'il ne peut exceder %d)\n",PRINT_DEFAUT_____vient_d_apparaitre));
                                   {
                                   PRINT_DEFAUT_____vient_d_apparaitre=(0);
                                   print_defaut("","","",nom_de_la_commande_courante,"$x/commandes/generales/ADD2.01.c","main",((long int)(87)),Prer_____editer_les_messages_d_en_tete);
                                        {
                                        unsigned char*(format_initialement_demande_dans_FPrin)=(((unsigned char *)(format_utilise)));
                                        unsigned char*(format_effectivement_utilise_dans_FPrin)=(Ftraitement_des_formats_de_sortie(format_utilise));
                                        fprintf(((((Prer_____changer_le_stream)==(0))) ? (stderr) : (stdout)),Cara(format_effectivement_utilise_dans_FPrin),numero_de_l_argument_possible_courant__en_tenant________compte_des_synonymes,valeur_maximale_de_l_index_a_incrementer);
                                        if   (((1)==(1)))
                                             {
                                             fflush(((((Prer_____changer_le_stream)==(0))) ? (stderr) : (stdout)));
                                             }
                                        if   ((((format_effectivement_utilise_dans_FPrin))!=((format_initialement_demande_dans_FPrin))))
                                             {
                                             FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),format_effectivement_utilise_dans_FPrin);
                                             }
                                        }
                                   }

                              FgCALZ_FreeCC((&(CALZ_FreCC_____compteur_de_tous_les_CALZ_FreCC)),format_utilise);
                              }
                         else
                              {
                              }
                         }
                    }
               }
          }
     }



Copyright © Jean-François Colonna, 2022-2023.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2022-2023.