From 83a3011429cd0054ccc51797960aec18055d5017 Mon Sep 17 00:00:00 2001
From: rio <>
Date: Sun, 22 Oct 2017 10:10:31 +0000
Subject: [PATCH] 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...

---
 Perl/genere_catalogue_tests.pl | 39 +++++++++++++++++++++++++++-------
 1 file changed, 31 insertions(+), 8 deletions(-)

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)