Some Rights Reserved.flktran";
# Creative Commons copyright notice
$SomeRightsReserved =
'
Some Rights Reserved.
';
$CCnotice =
'
This work is licensed under a Creative Commons
Attribution-Noncommercial-Share Alike 3.0 United States License. ';
} else {
$EM = "_";
$_EM = "_";
$BF = "*";
$_BF = "*";
$TT = "";
$_TT = "";
$UL = "";
$_UL = "";
$SPOKEN = "(spoken)";
$_SPOKEN = "";
$SUBSEC = "";
$_SUBSEC = "";
$SUBSUB = "";
$_SUBSUB = "";
$NL = "\n";
$NP = "\f";
$SP = " ";
$AMP = "&";
$FLKTRAN = "flktran";
$SomeRightsReserved = "Some Rights Reserved: CC by-nc-sa/3.0/us";
$CCnotice = 'This work is licensed under a Creative Commons
Attribution-Noncommercial-Share Alike 3.0 United States License. ';
}
### === Dispatch on input format:
### Process input in FlkTeX:
while (\n"; }
indentLine(getContent($_, $TABSTOP) . "\n",
$TABSTOP);
if ($html) { print "\n"; }
}
elsif (/\\tailnote/) { sepVerse();
indentLine(getContent($_, 0) . "\n"); }
# Ignorable TeX macros:
elsif (/\\(small|footnotesize|advance|vfill|vfiller|vbox)/) {}
elsif (/\\(begin|end)\{/) {}
elsif (/\\ignore/) { getContent($_); }
# Default:
else { doLine(); } # Verse or plaintext line
}
########################################################################
###
### Macro handlers:
###
### Each of the following routines handles a LaTeX macro.
###
### Separate verses.
sub sepVerse {
if ($vlines) { endVerse(); }
}
### Handle a blank line.
sub blankLine {
if ($vlines) { endVerse(); }
if ($plain) {
print "\n";
$plines = 0;
}
}
### Begin a song:
### Stash the title, put out the header.
sub begSong {
my ($line) = @_; # input line
$line =~ s/^.*song\}//;
$title = getContent($line);
if ($html) {
my $alinks = " [pdf]";
$alinks .= " [ogg]"
if -f "$filedir/$filebase.ogg";
$alinks .= " [mp3]"
if -f "$filedir/$filebase.mp3";
print "";
print "$WEBSITE$WEBDIR/$htmlfile";
print "
\n";
print " Automatically generated with $FLKTRAN";
print " from $infile.
\n";
if ($cvsid) { print " $cvsid\n"; }
print "
\n"; }
$verse ++; # bump the verse count.
$vlines = 0;
}
### End a verse:
### Only called if there are actually lines in it.
sub endVerse {
if ($html) { print "\n"; }
$vlines = 0;
}
### Begin a refrain:
sub begRefrain {
if ($vlines) { endVerse(); }
$indent += $TABSTOP;
# Note that begVerse will get called when the first line appears,
# so we don't have to deal with verse count, line count, or .
}
### End a refrain:
sub endRefrain {
if ($html) { print ""; }
print "\n";
$vlines = 0;
$indent -= $TABSTOP;
}
### Begin a bridge:
sub begBridge {
if ($vlines) { endVerse(); }
$indent += $TABSTOP * 2;
# Note that begVerse will get called when the first line appears,
# so we don't have to deal with verse count, line count, or .
}
### End a bridge:
sub endBridge {
if ($html) { print ""; }
print "\n";
$vlines = 0;
$indent -= $TABSTOP * 2;
}
### Begin a note:
sub begNote {
if ($vlines) { endVerse(); }
$plines = 0;
$plain ++;
}
### End a note:
sub endNote {
$plines = 0;
$plain --;
}
### Begin a quote:
sub begQuote {
if ($vlines) { endVerse(); }
$plines = 0;
$plain ++;
if ($html) { print "\n"; } $indent += $TABSTOP; } ### End a quote: sub endQuote { $plines = 0; $plain --; $indent -= $TABSTOP; if ($html) { print "\n"; } } ######################################################################## ### ### Block conversion: ### ### Each of these routines converts the start or end of a ### delimited block of lines to output format. ### sub doHeader { if ($html) { htmlHeader(); } else { textHeader(); } $header ++; } sub center { # === need to handle multiple lines === my ($text) = @_; $text =~ s/^[ \t]*//; $text =~ s/[ \t]*\n$//; $text =~ s/\\copyright/Copyright/; $text =~ s/[Ss]ome [Rr]ights [Rr]eserved\.?/$SomeRightsReserved/gs; $text =~ s/\\SomeRightsReserved/$SomeRightsReserved/gs; $text =~ s/\\CcByNcSa/$CCNotice/gs; my $w = $WIDTH - length($text); for ( ; $w > 0; $w -= 2) { $text = " " . $text; } print "$text\n"; } sub hcenter { my ($h, $text) = @_; $text =~ s/^[ \t]*//; $text =~ s/\\copyright/\©/; $text =~ s/\n/\
\n"; }
else { print "\n"; }
}
$_ = deTeX($_);
if ($html) { s/\~/ /g; } else { s/\~/ /g; }
s/\\newline/$NL/g;
s/\\\///g;
indentLine($_, $indent);
$plines ++;
} else {
if ($vlines == 0) { begVerse(); }
if ($tables) { print tableLine($_); }
else { print chordLine($_); }
$vlines ++;
}
}
### Put out a plain line, possibly indented.
sub indentLine {
my ($line, $indent) = @_;
$line =~ s/^[ \t]*//;
while ($indent--) { $line = " ".$line; }
print $line;
}
### Convert an ordinary line to chords + text
# === does not insert indent yet.
sub chordLine {
my ($line) = @_; # input line
my $cline = ""; # chord line
my $dline = ""; # dest. (text) line
my ($scol, $ccol, $dcol, $inchord, $inmacro) = ($indent, 0, 0, 0, 0);
my $c = ''; # current character
my $p = 0; # current position
$line = deTeX($line);
$line =~ s/^[ \t]*//;
$line =~ s/\\sus/sus/g;
$line =~ s/\\min/m/g;
for ($p = 0; $p < length($line); $p++) {
$c = substr($line, $p, 1);
if ($c eq "\n" || $c eq "\r") { break; }
if ($c eq '[') { $inchord ++; }
elsif ($c eq ']') { $inchord --; }
elsif ($c eq ' ') { if (!$inchord) { $scol ++; } }
elsif ($c eq "\t") {
if (!$inchord) { do {$scol ++; } while ($scol % 8); } }
else {
if ($inchord) {
while ($ccol < $scol) { $cline .= ' '; $ccol ++ }
$cline .= $c;
$ccol ++;
} else {
while ($dcol < $scol) { $dline .= ' '; $dcol ++ }
$dline .= $c;
$dcol ++;
$scol++;
}
}
}
# The result has a newline appended to it.
return (($cline && $chords)? $cline . "\n" . $dline : $dline);
}
### Convert a line to a table
### When using tables, each line becomes a separate table.
### This, in turn, becomes a row in a table containing the verse.
sub tableLine {
}
### Convert a line to XML
sub xmlLine {
}
### Remove LaTeX constructs.
### This would be easier with a table.
sub deTeX {
my ($txt) = @_; # input line
while ($txt =~ /\%/) { # TeX comments eat the line break, too.
$txt =~ s/\%.*$//;
$txt .=