diff --git a/Perl/genere_catalogue_tests.pl b/Perl/genere_catalogue_tests.pl index 42e0b3a..93f1589 100755 --- a/Perl/genere_catalogue_tests.pl +++ b/Perl/genere_catalogue_tests.pl @@ -81,9 +81,17 @@ my $format_reel = '[+-]?[\.]?\d+[\.]?\d*(?:[eE][+-]?\d*)?'; # dans les README avec des dollars simples $bla bla bla$ ou des dollars doubles $$bla bla bla$$ # ##################################################################################################### - - - +# version 1.1: 22 octobre 2017: Gerard Rio: modification provisoire pour prendre en compte # +# l'existence de rubriques supplementaires aux deux obligatoires : 'But du test' # +# et 'Description du calcul', dans la version initiale seules ces deux rubriques sont # +# prises en compte. Introduction de la liste : @LISTE_RUBRIQUES_OBLIGATOIRES # +# pour mettre un message d'erreur et stopper le programme uniquement pour les rubriques # +# obligatoires. Ajout des rubriques possibles: # +# 'Grandeurs de comparaison', 'Informations sur les fichiers facultatifs', # +# 'Comparaison avec des solutions analytiques', 'Comparaison avec des codes de calcul' # +# modif fct pour tenir compte des ces ajouts. # +############################################################################################## +my $version = "1.1"; ###################################################################################################### # @@ -106,7 +114,14 @@ my $ENCODAGE_TEX = 'iso-8859-15'; #-------------------------------------------------------------------------------- #--liste des rubriques a recopier de chaque README (rq : insensible a la casse) my @LISTE_RUBRIQUES_README = ('But du test', - 'Description du calcul'); + 'Description du calcul', + 'Grandeurs de comparaison', + 'Informations sur les fichiers facultatifs', + 'Comparaison avec des solutions analytiques', + 'Comparaison avec des codes de calcul' + ); +my @LISTE_RUBRIQUES_OBLIGATOIRES = ('But du test', + 'Description du calcul'); #--nom de la rubrique contenant des mots-cles (rq : insensible a la casse) my $NOM_RUBRIQUE_MOTS_CLES = 'Mots-cles'; #--nom de la rubrique contenant le ou les auteurs d un test (rq : insensible a la casse) @@ -649,10 +664,18 @@ sub recopie_README { ($is_probleme_rubrique, $message) = recopie_rubrique_README($fic_README, $encodage_source, $HANDLE_TEX, @mots_rubriques); #-- erreur si la rubrique n a pas ete trouvee if($is_probleme_rubrique) { - warn "Erreur (prog:$NOM_PROG) : lecture README => probleme dans la recopie de la rubrique \"$rubrique\" avec le message d erreur suivant :\n"; - warn " **$message\n"; - warn "\n"; - sortie_programme(); + # on regarde si c'est un mot clef obligatoire + my $obligatoire = 0; + foreach my $toto (@LISTE_RUBRIQUES_OBLIGATOIRES) + { if ($rubrique eq $toto) + {$obligatoire = 1;last;}; + }; + if ($obligatoire) + {warn "Erreur (prog:$NOM_PROG) : lecture README => probleme dans la recopie de la rubrique \"$rubrique\" avec le message d erreur suivant :\n"; + warn " **$message\n"; + warn "\n"; + sortie_programme(); + }; } }#foreach my $rubrique (@liste_rubriques)