Ajout informations de debug

diff --git a/gtx2tex.pl b/gtx2tex.pl
index 33b75b4..d4cc438 100644 (file)
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -147,6 +147,9 @@ while ( <CHORDPRO> ) {
         print TEX "\\footnotesize \\verb!$_! \\normalsize \\newline\n";
         next;
     }
+
+    $verbose && print "  chordpro data\n";
+
     crdpro();
 }
 
@@ -217,6 +220,8 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
             s/^/\\gtxchord\{\}\{/
         }
 
+        $verbose && print "Accord: <$_>\n";
+
         if ( $uppercase ) {
             s/(gtxchord\{[A-G][B#]?)MAJ7/\1$majeur_sept/g;            # Remplace 'gtxchord{AM'  par 'gtxchord{Am'