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

[refdoc at crosswire.org]

Author: refdoc
Date: 2010-08-04 04:39:51 -0700 (Wed, 04 Aug 2010)
New Revision: 290

Added:
   trunk/modules/perlconverters/xreffix.pl
Log:
start of a xref tool, fixing localised references and creating osis references


Added: trunk/modules/perlconverters/xreffix.pl
===================================================================
--- trunk/modules/perlconverters/xreffix.pl	                        (rev 0)
+++ trunk/modules/perlconverters/xreffix.pl	2010-08-04 11:39:51 UTC (rev 290)
@@ -0,0 +1,107 @@
+#!/usr/bin/perl
+## Creates proper OSIS references where usfm2osis has failed.
+
+## Licensed under the standard BSD license:
+
+# Copyright (c) 2009 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
+
+#########################################################################
+sub vs2osis {
+
+        my $context = $_[0];
+        $context =~ s/([1-5]?[A-Z][a-z]+)\ .*/$1/;
+                
+        my $ref = $_[0];
+        $ref =~ s/,/:/;                                
+        my $return = `vs2osisref "$_[0]" "$_[1]" $_[2]`;
+        $return =~ s/\n$//;
+        $return;
+}
+
+$version = "1.0";
+$osisVersion = "2.1.1";
+
+$date = '$Date: 2010-08-04 05:46:26 +0000 (Tue, 04 Aug 2009) $';
+$rev = '$Rev: 231 $';
+
+
+
+if (scalar(@ARGV) < 2) {
+    print "xreffix.pl -- fixes crossreferences in OSIS files where usfm2osis.pl has failed. version $version\nRevision $rev ($date)\nSyntax: xreffix.pl <input filename> [-o <output-file>] [-l <xreflocale>].\n";
+    exit (-1);
+}
+
+if ($ARGV[1] eq "-o") {
+    $outputFilename = "$ARGV[2]";
+}
+else {
+    $outputFilename = "$ARGV[0].fixed";
+}
+if ($ARGV[1] eq "-l") {
+    $locale = "$ARGV[2];"
+}
+elsif ($ARGV[3] eq "-l") {
+    $locale = "$ARGV[4];"
+}
+else {
+    $locale = "en";
+}
+open (OUTF, ">", "$outputFilename") or die "Could not open file $outputFilename for writing.";
+
+open (INF, "<", $ARGV[0]);
+ at data = <INF>;
+close (INF);
+
+$context = "Gen1";
+
+foreach (@data) {
+
+    if (/xml:lang\=\"(.+?)\"/) { 
+        $locale=$1;
+        print "locale changed to".$locale."\n";
+        }
+    if (/<div\ type\=\"book\"\ osisID=\"(.+?)\">/) { 
+        $c_book=$1;
+        print "We are now in book: ".$c_book."\n";
+        }
+    if (/<chapter\ sID\=\".*?\.([0-9]+)\"/) { 
+        $c_chapter=$1;
+        print $c_chapter."\n";
+        }
+    
+    s/<reference>(.*)<\/reference>/&vs2osis($1,$context,$locale)/eg;
+    }
+print (OUTF @data);    
+close OUTF;
+    
\ No newline at end of file