2
0
Fork 0

modification du prog genere_catalogue_tests.pl pour palier au fait que toutes les categories dans les fichiers README n etaient pas prise en compte. Il faudra peut-etre ajouter d autres rubriques par la suite...

This commit is contained in:
rio 2017-10-22 10:10:31 +00:00
parent e0229c254e
commit 83a3011429

View file

@ -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)