/*************************************************************************************************************************************/
/* */
/* 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-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2022-2024.