Correction du style de codage

diff --git a/gtx2tex.pl b/gtx2tex.pl
index 6d3b2bd..55f236f 100644 (file)
--- a/gtx2tex.pl
+++ b/gtx2tex.pl
@@ -73,7 +73,6 @@ $define = "";
 do "/usr/local/lib/guitartex/language/$language.pl" or die "cannot load language
     file $language.pl\n";
 
-
 # Leerzeichen im Dateinamen in Unterstriche ändern
 $outfilename =~ s/\s/\_/g;
 
@@ -90,19 +89,32 @@ while ( <CHORDPRO> ) {
     # Zeichen für Zeilenende abschneiden
     chomp;
     # wenn am Anfang der Zeile { steht, handelt es sich um eine Direktive
-    if ( /^{/ ){ directive(); next; }
+    if ( /^{/ ) {
+        directive();
+        next;
+    }
     # Leerzeile
-    if ( /^$/ ){ print TEX "$empty_line\n"; next; }
+    if ( /^$/ ) {
+        print TEX "$empty_line\n";
+        next;
+    }
     # wenn am Anfang der Zeile % oder # steht = Kommentar
-    if ( /^[%#]/ ){    next; }
+    if ( /^[%#]/ ) {
+        next;
+    }
     # wenn am Anfang der Zeile \ steht = Latex-Kommando
-    if ( /\\.*/ ){ print TEX "$_\n"; next; }
+    if ( /\\.*/ ) {
+        print TEX "$_\n";
+        next;
+    }
     # innerhalb einer Tabulatur
     if ( $env eq "tab" ) {
-        print TEX "\\footnotesize \\verb!$_! \\normalsize \\newline\n"; next;
+        print TEX "\\footnotesize \\verb!$_! \\normalsize \\newline\n";
+        next;
     }
     crdpro();
 }
+
 # LaTeX-Footer ausgeben
 latex_footer();
 
@@ -152,7 +164,7 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
     if ( $lyrics ){
         s/\[.*?\]//g; # Akkorde entfernen
         print TEX "$_\\\\\n" unless ( /^\s*$/ );
-    }else{
+    } else {
 
         s/\s/$space/g;                                 # alle Leerzeichen durch feste Leerzeichen ersetzen
         s/(\^)(.*?)(\])/\\\(^\{\2\}\\\)\]/g;   # Ziffern hochstellen
@@ -162,7 +174,9 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
        #       s/(\})(.*?)(\\)/}{\2}\\/g;              # Text zwischen Akkorden in geschweifte Klammern setzen
         s/$/}/; # rechte Klammer am Ende der Zeile ergänzen
         s/^\}//; # rechte Klammer am Anfang der Zeile entfernen
-        if ( $_ !~ /^\\/ ) { s/^/\\gtxchord\{\}\{/ }
+        if ( $_ !~ /^\\/ ) {
+            s/^/\\gtxchord\{\}\{/
+        }
 
         s/#/$sharp/g;                          # Vorzeichen "#" ersetzen
         s/\{Ab/{A$flat/g;                       # Vorzeichen "b" ersetzen
@@ -172,6 +186,7 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
         s/\{Eb/{E$flat/g;
         s/\{Fb/{F$flat/g;
         s/\{Gb/{G$flat/g;
+
         if ( $italian ) {
             s/gtxchord\{D/gtxchord{Re/g;
             s/gtxchord\{E/gtxchord{Mi/g;
@@ -190,7 +205,6 @@ sub crdpro { # Bearbeitung der Zeile aus der Eingabedatei
             s!/B!/Si!g;
             s!/H!/Si!g;
             s!/C!/Do!g;
-
         }
         print TEX "$_\\\\\n";
     }
@@ -447,7 +461,6 @@ sub latex_header {
     %
                                                     ";
 
-
     if ( $output eq "pdf" ){
         print TEX "\\usepackage[pdftex]{thumbpdf}\n";
     }