diff options
Diffstat (limited to 'versification/v11nsys.pl')
| -rw-r--r-- | versification/v11nsys.pl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/versification/v11nsys.pl b/versification/v11nsys.pl index 52f531b..a8bb9c9 100644 --- a/versification/v11nsys.pl +++ b/versification/v11nsys.pl @@ -185,14 +185,13 @@ foreach $infile (@srcfiles) { if ($v11n eq "") {
$v11n = "NRSVA";
}
- $outfile = lc("canon_$2.h");
}
else {
$v11n = $infile;
$v11n =~ s/\.[^\.]*$//;
$v11n =~ s/^.+\///;
- $outfile = lc("canon_$v11n.h");
}
+ $outfile = lc("canon_$v11n.h");
print "Processing $infile --> $outfile (v11n: $v11n).\n";
@@ -210,13 +209,13 @@ foreach $infile (@srcfiles) { $cCount = 0;
$vCount = 0;
- $abbrevs = "/******************************************************************************\n * Abbreviations - MUST be in alphabetical order & by PRIORITY\n * RULE: first match of entire key\n * (e.g. key: \"1CH\"; match: \"1CHRONICLES\")\n */\n\nconst struct abbrev builtin_abbrevs$v11n\[\] = {\n";
+ $abbrevs = "/******************************************************************************\n * Abbreviations - MUST be in alphabetical order & by PRIORITY\n * RULE: first match of entire key\n * (e.g. key: \"1CH\"; match: \"1CHRONICLES\")\n */\n\nconst struct abbrev builtin_abbrevs_" . lc($v11n) . "\[\] = {\n";
$abbrevsCloser = " {\"\", \"\"}\n};\n\n\n";
$abbrevsList = "";
- $vm = "/******************************************************************************\n * Maximum verses per chapter\n */\n\nint vm_$v11n\[\] = {";
- $otbooks = "/******************************************************************************\n * [on]tbooks_$v11n - initialize static instance for all canonical\n * text names and chapmax\n */\nstruct sbook otbooks_$v11n\[\] = {\n";
- $ntbooks = "struct sbook ntbooks_$v11n\[\] = {\n";
+ $vm = "/******************************************************************************\n * Maximum verses per chapter\n */\n\nint vm_" . lc($v11n) . "\[\] = {";
+ $otbooks = "/******************************************************************************\n * [on]tbooks_" . lc($v11n) . " - initialize static instance for all canonical\n * text names and chapmax\n */\nstruct sbook otbooks_" . lc($v11n) . "\[\] = {\n";
+ $ntbooks = "struct sbook ntbooks_" . lc($v11n) . "\[\] = {\n";
$booksCloser = " {\"\", \"\", \"\", 0}\n};\n\n";
$bookOrder = "// Book order:";
|