[sword-svn] r326 - trunk/modules/perlconverters

[refdoc at crosswire.org]

Author: refdoc
Date: 2011-06-09 22:54:18 -0700 (Thu, 09 Jun 2011)
New Revision: 326

Added:
   trunk/modules/perlconverters/title_cleanup.pl
Modified:
   trunk/modules/perlconverters/usfm2osis.pl
Log:
updated year of copyrights in usfm2osis.pl, added a small script to ensure titles work


Added: trunk/modules/perlconverters/title_cleanup.pl
===================================================================
--- trunk/modules/perlconverters/title_cleanup.pl	                        (rev 0)
+++ trunk/modules/perlconverters/title_cleanup.pl	2011-06-10 05:54:18 UTC (rev 326)
@@ -0,0 +1,83 @@
+#!/usr/bin/perl
+# title_cleanup.pl
+
+## Licensed under the standard BSD license:
+
+# Copyright (c) 2011 CrossWire Bible Society <http://www.crosswire.org/>
+# All rights reserved.
+#
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are
+# met:
+#
+#     * Redistributions of source code must retain the above copyright
+#        notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in
+#       the documentation and/or other materials provided with the
+#       distribution.
+#     * Neither the name of the CrossWire Bible Society nor the names of
+#       its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written
+#       permission.
+#
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
+# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
+# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
+# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+# OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
+# SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
+# LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+# OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+## For general inquiries, comments, suggestions, bug reports, etc. email:
+## sword-support at crosswire.org
+
+#########################################################################
+
+use XML::LibXML;
+use utf8;
+use strict;
+
+## Obtain arguments
+if (scalar(@ARGV) < 1) {
+    print "\ntitle_cleanup.pl <osisWork> [-o outputfile]  -- - fix output of usfm2osis.pl \n";
+    print "- Arguments in braces < > are required. Arguments in brackets [ ] are optional.\n";
+    print "- If no -o option is specified for the output filename, the default output file is: \n\t<osisWork>.new\n";
+    exit (-1);
+}
+
+my $file = @ARGV[0];
+my $nextarg = 1;
+my $outputFilename;
+
+if (@ARGV[$nextarg] eq "-o") {
+    $outputFilename = "@ARGV[$nextarg+1]";
+    $nextarg += 2;
+}
+else {
+    $outputFilename = "$file.new";
+}
+open (OUTF, , ">", "$outputFilename") or die "Could not open file @ARGV[2] for writing.";
+
+## Initialise OSIS file
+
+my $parser = XML::LibXML->new();
+my $doc = $parser->parse_file($file);
+
+## Search for section titles and add 'subType=x-preverse'
+
+my @titles = $doc->getElementsByTagName('title');
+
+foreach (@titles) {
+    
+    if (($_->parentNode->hasAttribute('type')) && ($_->parentNode->getAttribute('type') eq 'section')) {
+        $_->setAttribute('subType','x-preverse');
+    }
+}
+
+print OUTF $doc->toString('utf8');
+


Property changes on: trunk/modules/perlconverters/title_cleanup.pl
___________________________________________________________________
Added: svn:executable
   + *

Modified: trunk/modules/perlconverters/usfm2osis.pl
===================================================================
--- trunk/modules/perlconverters/usfm2osis.pl	2011-06-09 16:06:27 UTC (rev 325)
+++ trunk/modules/perlconverters/usfm2osis.pl	2011-06-10 05:54:18 UTC (rev 326)
@@ -4,7 +4,7 @@
 
 ## Licensed under the standard BSD license:
 
-# Copyright (c) 2002-2009 CrossWire Bible Society <http://www.crosswire.org/>
+# Copyright (c) 2002-2011 CrossWire Bible Society <http://www.crosswire.org/>
 # All rights reserved.
 #
 # Redistribution and use in source and binary forms, with or without
@@ -772,8 +772,8 @@
 	    return $ref;
 	}
 
-	### Footnotes--Markers Supported: \fk, \fq, \f...\f*, \fv, \fqa
-	####Markers Not Yet Supported: \fe...\fe*, \fr, \fl, \fp, \ft, \fdc...\fdc*, \fm...\fm*
+	### Footnotes--Markers Supported: \fk, \fq, \f...\f*, \fv, \ft, \fqa
+	####Markers Not Yet Supported: \fe...\fe*, \fr, \fl, \fp, \fdc...\fdc*, \fm...\fm*
 
 	sub footnoteHandler {
 	    $note = @_[0];