diff options
| -rw-r--r-- | modules/perlconverters/xrefadd.pl | 108 |
1 files changed, 108 insertions, 0 deletions
diff --git a/modules/perlconverters/xrefadd.pl b/modules/perlconverters/xrefadd.pl new file mode 100644 index 0000000..09ec408 --- /dev/null +++ b/modules/perlconverters/xrefadd.pl @@ -0,0 +1,108 @@ +#!/usr/bin/perl +## adds crossreferences to an OSIS file. +# The underlying list of crossreferences come from a 16th century Dutch Bible. + +## Licensed under the standard BSD license: + +# Copyright (c) 2010 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@crosswire.org + +######################################################################### +sub vs2osis { + + 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 "xrefadd.pl -- adds crossreferences to OSIS files. Usage: xrefadd.pl <input OSIS filename> <input xreffile> [-o <output-file>] [-l <xreflocale>].\n"; + exit (-1); +} + +if ($ARGV[2] eq "-o") { + $outputFilename = "$ARGV[3]"; +} +else { + $outputFilename = "$ARGV[0].fixed"; +} +if ($ARGV[2] eq "-l") { + $locale = "$ARGV[3];" +} +elsif ($ARGV[4] eq "-l") { + $locale = "$ARGV[5];" +} +else { + $locale = "en"; +} +open (OUTF, ">", "$outputFilename") or die "Could not open file $outputFilename for writing."; + +open (INF, "<", $ARGV[0]); +@data = <INF>; +close (INF); + +open (INF, "<", $ARGV[1]); +@xref = <INF>; +close (INF); + +$c_book = "Gen"; +$c_chapter="1" + +foreach (@data) { + + if (/xml:lang\=\"(.+?)\"/) { + $locale=$1; + print "This document is in the locale of ".$locale."\n"; + } + if (/<div\ type\=\"book\"\ osisID=\"(.+?)\">/) { + $c_book=$1; + print "\n"."Now working on ".$c_book."\n"; + } + if (/<chapter\ sID\=\".*?\.([0-9]+)\"/) { + $c_chapter=$1; + print "."; + } + + s/<reference>(.*?)<\/reference>/&vs2osis($1,$c_book.$c_chapter,$locale)/eg; + } +print (OUTF @data); +close OUTF; +
\ No newline at end of file |