\n"); # open current book
openTag("<\/div type=\"book\">");
$line = "";
}
# \h (running header--discard)
if ($line =~ /^\\h\b/) {
$line = "";
}
# \cc (concistent changes script--discard)
if ($line =~ /^\\cc\b/) {
$line = "";
}
### Introduction
# \it title
if ($line =~ /^\\it\b\s*(.*)/) {
$line = "
\n
$1<\/title>";
openTag("<\/div>");
}
# \is introduction section title
if ($line =~ /^\\is(\d*)\b\s*(.*)/) {
$level = $1;
if ($level eq "") {
$level = "1";
}
$line = "<div type=\"section\"><title>$2<\/title>";
openTag("<\/div>");
}
# \iot introduction outline title
if ($line =~ /^\\iot\b\s*(.*)/) {
$line = "<div type=\"outline\">\n<title>$1<\/title>";
}
# \io\d+ introduction outline item
if ($line =~ /^\\io(\d+)\b\s*(.*)/) {
if ($ollevel == $1) {
$line = "<item>$2<\/item>";
}
elsif ($ollevel > $1) {
$line = "";
while ($ollevel > $1) {
$line .= "<\/list>";
$ollevel--;
}
$line .= "<item>$2<\/item>";
}
elsif ($ollevel < $1) {
$line = "";
while ($ollevel < $1) {
$line .= "<list>\n";
$ollevel++;
}
$line .= "<item>$2<\/item>\n";
}
if (@filedata[$i+1] !~ /^\\io/) {
while ($ollevel > 0) {
$line .= "\n<\/list>";
$ollevel--;
}
if ($ollevel == 0) {
$line .= "\n<\/div>";
}
}
}
# \ip introduction paragraph
if ($line =~ /^\\ip\b\s*(.*)/) {
$line = "<p>$1<\/p>";
}
### Chapters and Verses
# \c chapter
if ($line =~ /^\\c\b\s*([^ ]*)/) {
if ($1 ne "") {
$chap = $1;
}
else {
$chap++;
}
push (@outdata, $versClose);
$versClose = "";
push (@outdata, closeTag("<\/p>"));
if ($chapClose =~ "<chapter") {
push (@outdata, $chapClose); # close previous chapter
$chapClose = "";
} else {
push (@outdata, closeTag("<\/div>")); # close introduction div
}
push (@outdata, "<chapter sID=\"$book.$chap\" osisID=\"$book.$chap\"\/>\n");
$chapClose = "<chapter eID=\"$book.$chap\"\/>\n";
$line =~ s/\\c\b\s*([^ ]*)//;
}
# \d majorSection
if ($line =~ /^\\d\b\s*(.+)/) {
push (@outdata, closeTag("<\/p>"));
push (@outdata, closeTag("<\/div type=\"majorSection\">"));
push (@outdata, "<div type=\"majorSection\">\n");
openTag("<\/div type=\"majorSection\">");
$line =~ s/\\d\b\s*(.+)/<title>$1<\/title>/;
}
# \s section
if ($line =~ /^\\s\b\s*(.+)/) {
push (@outdata, closeTag("<\/p>"));
push (@outdata, closeTag("<\/div type=\"section\">"));
push (@outdata, "<div type=\"section\">\n");
openTag("<\/div type=\"section\">");
$line =~ s/\\s\b\s*(.+)/<title>$1<\/title>/;
if ($line =~ /HEBREW TITLE/) {
$line =~ s/<title>/<title type=\"psalm\">/;
}
}
# \ss subSection
if ($line =~ /^\\ss\b\s*(.+)/) {
$line =~ s/\\ss\b\s*(.+)/<title>$1<\/title>/;
}
# \sss x-subsubSection
if ($line =~ /^\\sss\b\s*(.+)/) {
push (@outdata, closeTag("<\/p>"));
push (@outdata, closeTag("<\/div type=\"x=subSubSection\">"));
push (@outdata, "<div type=\"x-subSubSection\">\n");
openTag("<\/div type=\"x-subSubSection\">");
$line =~ s/\\sss\b\s*(.+)/<title>$1<\/title>/;
}
# \p paragraph
if ($line =~ /^\\p\b\s*/) {
push (@outdata, closeTag("<\/p>"));
push (@outdata, "<p>\n");
openTag("<\/p>");
$line =~ s/\\p\b\s*//;
}
# \v verse
if ($line =~ /^\\v\b\s*(\d[^\\ ]*)?/) {
if ($1 ne "") {
$vers = $1;
}
else {
$vers++;
}
push (@outdata, $versClose);
$versClose = "";
if ($vers =~ /(\d+[^\\\- ]*)\-(\d+[^\\ ]*)/) {
$vF = $1;
$vT = $2;
$vF =~ /^(\d+)/;
$vFn = scalar($1);
$vT =~ /^(\d+)/;
$vTn = scalar($1);
$osisID = "$book.$chap.$vF";
if ($vTn > $vFn && $vFn > 0) {
for ($j = $vFn + 1; $j < $vTn; $j++) {
$osisID .=" $book.$chap.$j";
}
}
$osisID .= " $book.$chap.$vT";
}
else {
$osisID = "$book.$chap.$vers";
}
push (@outdata, "<verse sID=\"$osisID\" osisID=\"$osisID\"\/>\n");
$versClose = "<verse eID=\"$osisID\"\/>\n";
$line =~ s/\\v\b\s*(\d[^\\ ]*)? *//;
}
## Notes
# \f note
for ($j = 2; $j > 0; $j--) {
if ($line =~ /\\f\b\s*([^\s]+)\s*\\rf\s*([^\\]+)\\rf\*\s*/) {
$nVal = $1;
$scopeVal = $2;
$scopeVal =~ s/://g;
$scopeVal = "$book.$scopeVal";
$scopeVal =~ s/(\d+)\.(\d[^\,]+)\,\s*(\d.+)/$1.$2 $book.$1.$3/;
$scopeVal =~ s/(\d+)\.(\d[^\-]+)\-+\s*(\d.+)/$1.$2\-$book.$1.$3/;
$line =~ s/\\f\b\s*([^\s]+)\s*\\rf\s*([^\\]+)\\rf\*\s*/<note n=\"$nVal\" annotateRef=\"$scopeVal\">/;
$line =~ s/(<note [^>]+>)([A-Z][^a-z:]*?):/$1<catchWord>$2<\/catchWord>/g;
}
}
# \f hebrew title note
if ($line =~ /\\f\b\s*([^\s]+)\s*HEBREW TITLE:\s*/) {
$nVal = $1;
$line =~ s/\\f\b\s*([^\s]+)\s*HEBREW TITLE:\s*/<note n=\"$nVal\">/;
}
# \f spare notes
if ($line =~ /\\f\b\s*([^\s]+)\s*\*\s*/) {
$nVal = $1;
$line =~ s/\\f\b\s*([^\s]+)\s*\*\s*/<note n=\"$nVal\">/;
$line =~ s/(<note [^>]+>)([A-Z][^a-z:]*?):/$1<catchWord>$2<\/catchWord>/g;
}
# \x crossReference
for ($j = 2; $j > 0; $j--) {
if ($line =~ /\\x\b\s*\\rf\s*([^\\]+)\\rf\*\s*/) {
$scopeVal = $1;
$scopeVal =~ s/://g;
$scopeVal = "$book.$scopeVal";
$scopeVal =~ s/(\d+)\.(\d[^\,]*)\,\s*(\d.*)/$1.$2 $book.$1.$3/;
$scopeVal =~ s/(\d+)\.(\d[^\-]*)\-+\s*(\d.*)/$1.$2\-$book.$1.$3/;
$line =~ s/\\x\b\s*\\rf\s*([^\\]+)\\rf\*\s*/<note type=\"crossReference\" annotateRef=\"$scopeVal\">/;
$line =~ s/\[2\]\s*([^\[]+?)(\s*\[1\]|\\x\*)/<seg type=\"x-dc\">$1<\/seg>$2/g;
$line =~ s/\[2\]\s*([^\[]+?)$/<seg type=\"x-dc\">$1<\/seg>/g;
$line =~ s/\s*\[1\]//g;
if ($line =~ /<note type=\"crossReference\" annotateRef=\"[^\"]+?\">\\bw/) {
$line =~ s/(<note type=\"crossReference\" annotateRef=\"[^\"]+?\")>\\bw (.+?) \\bw\* /$1 n=\"$2\">/;
$pa = $1;
$line =~ s/\\bw (.+?) \\bw\* /<\/note>\n$pa n=\"$1\">/g;
}
if ($line =~ /<\/seg> \\bw/) {
$line =~ /(<note type=\"crossReference\" annotateRef=\"[^\"]+?\")>/;
$pa = $1;
$line =~ s/\s*\\bw (.+?) \\bw\* /<\/note>\n$pa n=\"$1\">/g;
}
}
}
# \x hebrew title crossReference
if ($line =~ /\\x\b\s*Title:\s*/) {
$nVal = $1;
$line =~ s/\\x\b\s*Title:\s*/<note type=\"crossReference\">/;
}
# \[fx]* note/crossReference closers
if ($line =~ /\\[fx]\*/) {
$line =~ s/\\[fx]\*/<\/note>/g;
}
## Poetry
# \q line
if ($line =~ /^\\q/) {
if ($l != 1) {
push (@outdata, "<lg>\n");
$l = 1;
}
if ($line =~ /\\q(c|\d*)$/) {
if ($1 eq "") {
$line = "<l>\n";
}
elsif ($1 eq "c") {
$line = "<l type=\"x-centered\">";
}
else {
$line = "<l level=\"$1\">\n";
}
@filedata[$i+1] .= "<\/l>";
if (@filedata[$i+2] !~ /\\q/) {
@filedata[$i+1] .= "\n<\/lg>";
$l = 0;
}
}
else {
$line =~ s/\\q\b\s*(.+)/<l>$1<\/l>/;
$line =~ s/\\q(\d+)\b\s*(.+)/<l level=\"$1\">$2<\/l>/;
$line =~ s/\\qc\b\s*(.+)/<l type=\"x-centered\">$1<\/l>/;
if (@filedata[$i+1] !~ /\\q/) {
$line .= "\n<\/lg>";
$l = 0;
}
}
}
## Tables
# \th table heading
if ($line =~ /^\\t/) {
if ($line =~ /^\\th1\b\s*(.*)/) {
if ($table != 1) {
push (@outdata, "<table>\n");
$table = 1;
}
$line = "<row><cell role=\"label\">$1<\/cell>\n";
}
elsif ($line =~ /^\\th\d+\b\s*(.*)/) {
$line = "<cell role=\"label\">$1<\/cell>\n";
}
if ($line =~ /^\\tb1\b\s*(.*)/) {
if ($table != 1) {
push (@outdata, "<table>\n");
$table = 1;
}
else {
push (@outdata, "<\/row>");
}
$line = "<row><cell>$1<\/cell>\n";
if (@filedata[$i+1] !~ /\\tb/) {
$line .= "<\/row><\/table>\n";
$table = 0;
}
}
elsif ($line =~ /^\\tb\d+\b\s*(.*)/) {
$line = "<cell>$1<\/cell>\n";
if (@filedata[$i+1] !~ /\\tb/) {
$line .= "<\/row><\/table>\n";
$table = 0;
}
}
}
## Other
# \ls list
if ($line =~ /^\\ls\b\s*(.+)/) {
if ($ls != 1) {
push (@outdata, "<list>\n");
$ls = 1;
}
$line = "<item>$1<\/item>\n";
if (@filedata[$i+1] !~ /\\ls/) {
$line .= "<\/list>";
$ls = 0;
}
}
# \mt title
if ($line =~ /^\\mt\b\s*(.+)/) {
$line = "<title type=\"main\">$1<\/title>";
}
# \st,\st2 title
if ($line =~ /^\\st2?\b\s*(.+)/) {
$line = "<title type=\"continued\">$1<\/title>";
}
# \st3 title
if ($line =~ /^\\st3\b\s*(.+)/) {
$line = "<title type=\"sub\">$1<\/title>";
}
# \r sub title
if ($line =~ /^\\mr\b\s*(.+)/) {
$line = "<title type=\"sub\">$1<\/title>";
}
# \r parallel title
if ($line =~ /^\\r\b\s*(.+)/) {
$line = "<title type=\"parallel\">$1<\/title>";
}
# \sp speaker
if ($line =~ /^\\sp\b\s*(.+)/) {
$line = "<speaker>$1<\/speaker>";
}
# \itw italic word
$line =~ s/\\itw\b\s*(.*?)\\itw\*/<hi type=\"italic\">$1<\/hi>/g;
# \n superscripted verse number
$line =~ s/\\n\b\s*(.*?)\\n\*\s*/<seg type=\"x-versenum\">$1<\/seg>/g;
# remove unnecessary tags
$line =~ s/\\b\b//;
$line =~ s/\\m\b//;
$line =~ s/\\bq\*/<\/p><\/q>/g;
$line =~ s/\\bq\b\s*/<q type=\"block\"><p>/g;
$line =~ s/\\pp/<\/p><p>/g;
$line =~ s/\\in\*/<\/p><\/inscription>/g;
$line =~ s/\\in\b\s*/<inscription><p>/g;
if ($line !~ /^\s*$/) {
push (@outdata, "$line\n");
}
}
close (INF);
}
push (@outdata, closeTag("<\/osis>"));
for ($i = 0; $i < scalar(@outdata); $i++) {
@outdata[$i] =~ s/---/―/g;
@outdata[$i] =~ s/--/—/g;
@outdata[$i] =~ s/([es]ID=\"[^\" ]+) [^\"]*\"/$1\"/;
}
for ($i = 0; $i < scalar(@outdata); $i++) {
if (@outdata[$i] !~ /^\s*$/) {
@outdata[$i] =~ s/[\r\n]+/\n/g;
@outdata[$i] =~ s/\n?$/\n/;
print OUTF @outdata[$i];
}
}
close (OUTF);
open (INF, "$outputFilename");
@filedata = <INF>;
close (INF);
open (OUTF, ">$outputFilename");
for ($i = 0; $i < scalar(@filedata); $i++) {
if (@filedata[$i] =~ /^<\// && @filedata[$i-1] =~ /^<chapter.+\/>/) {
$temp = @filedata[$i];
@filedata[$i] = @filedata[$i-1];
@filedata[$i-1] = $temp;
$i -= 2;
}
}
for ($i = 0; $i < scalar(@filedata); $i++) {
$fullfile .= @filedata[$i];
}
$q = 1;
$fullfile =~ s/\$([^\%]+?)\%/"<q level=\"2\" sID=\"q2." . $q . "\"\/>" . $1 . "<q level=\"2\" eID=\"q2." . $q++ . "\"\/>"/eg;
$fullfile =~ s/\$/"<milestone type=\"cQuote\" subType=\"x-level-2\"\/>"/eg;
$q = 1;
while ($fullfile =~ /(\@[^\@\#]+?)\@([^\@\#]+?)\#(([^\@\#]+?\@[^\@\#]+?\#)+[^\@\#]+?\#)/) {
$fullfile =~ s/(\@[^\@\#]+?)\@([^\@\#]+?)\#(([^\@\#]+?\@[^\@\#]+?\#)+[^\@\#]+?\#)/$1 . "<q level=\"1\" sID=\"q1." . $q . "\"\/>" . $2 . "<q level=\"1\" eID=\"q1." . $q++ . "\"\/>" . $3/eg;
}
while ($fullfile =~ /(\@[^\@\#]+?)\@([^\@\#]+?)\#([^\@\#]+?\#)/) {
$fullfile =~ s/(\@[^\@\#]+?)\@([^\@\#]+?)\#([^\@\#]+?\#)/$1 . "<q level=\"1\" sID=\"q1." . $q . "\"\/>" . $2 . "<q level=\"1\" eID=\"q1." . $q++ . "\"\/>" . $3/eg;
}
$fullfile =~ s/\@([^\#]+?)\#/"<q level=\"1\" sID=\"q1." . $q . "\"\/>" . $1 . "<q level=\"1\" eID=\"q1." . $q++ . "\"\/>"/eg;
$fullfile =~ s/\@/"<milestone type=\"cQuote\" subType=\"x-level-1\"\/>"/eg;
$fullfile =~ s/\^/"<q level=\"1\" eID=\"q1." . $q++ . ".false\"\/>"/eg;
print OUTF $fullfile;
close (OUTF);