[sword-svn] r187 - trunk/versification

[chrislit at crosswire.org]

Author: chrislit
Date: 2009-03-18 02:30:06 -0700 (Wed, 18 Mar 2009)
New Revision: 187

Modified:
   trunk/versification/v11nsys.pl
Log:
cosmetic/capitalization changes

Modified: trunk/versification/v11nsys.pl
===================================================================
--- trunk/versification/v11nsys.pl	2009-03-18 09:22:11 UTC (rev 186)
+++ trunk/versification/v11nsys.pl	2009-03-18 09:30:06 UTC (rev 187)
@@ -185,14 +185,13 @@
 	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 @@
     $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:";