diff options
| author | Chris Little <chrislit@crosswire.org> | 2009-03-18 09:30:06 +0000 |
|---|---|---|
| committer | Chris Little <chrislit@crosswire.org> | 2009-03-18 09:30:06 +0000 |
| commit | f7a457e845508e25ce0c05195438a76fb291e9bb (patch) | |
| tree | 40c8b8e9a8d39c715b25b6e32140e5681c70eaf1 /versification | |
| parent | 72a3419356d7cb2912d4c4d430767127ebb695d4 (diff) | |
| download | sword-tools-f7a457e845508e25ce0c05195438a76fb291e9bb.tar.gz | |
cosmetic/capitalization changes
git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@187 07627401-56e2-0310-80f4-f8cd0041bdcd
Diffstat (limited to 'versification')
| -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:";
|