while ( <CHORDPRO> ) {
# Zeichen für Zeilenende abschneiden
chomp;
- # wenn am Anfang der Zeile { steht, handelt es sich um eine Direktive
+
+ # Si la ligne commence par '{', c'est une directive
if ( /^{/ ) {
directive();
next;
}
- # Leerzeile
+ # Ligne vide
if ( /^$/ ) {
print TEX "$empty_line\n";
next;
}
- # wenn am Anfang der Zeile % oder # steht = Kommentar
+ # Si la ligne commence par % ou # = commentaire
if ( /^[%#]/ ) {
next;
}
- # wenn am Anfang der Zeile \ steht = Latex-Kommando
+ # Si la ligne commence par \ = commande latex
if ( /\\.*/ ) {
print TEX "$_\n";
next;
}
- # innerhalb einer Tabulatur
+ # Si on est dans l'environnement tablature:
if ( $env eq "tab" ) {
print TEX "\\footnotesize \\verb!$_! \\normalsize \\newline\n";
next;