more on crossreferences. Nothing works yet, so don't try it out

git-svn-id: https://www.crosswire.org/svn/sword-tools/trunk@296 07627401-56e2-0310-80f4-f8cd0041bdcd

2 files changed, 0 insertions, 204 deletions

diff --git a/modules/perlconverters/xrefadd.pl b/modules/perlconverters/xrefadd.pl
deleted file mode 100644
index 4fbd9e1..0000000
--- a/modules/perlconverters/xrefadd.pl
+++ /dev/null
@@ -1,101 +0,0 @@
-#!/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
-
-#########################################################################
-use XML::DOM;
-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. 
-        \t It expects as input a valid OSIS file and a file with crossreferences formatted as follows:
-        \t verse usfm-xref
-        \n \t 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";
-}
-
-$osis = new XML::DOM;
-$osis->parsefile($ARGV[0]);
-
-open (INF, "<", $ARGV[1]);
-@xref = <INF>;
-close (INF);
-
-$c_book = "Gen";
-$c_chapter="1";
-
-foreach (@xref) {
-
-#insert the xref in the right place in the OSIS document 
-    
-
-
-
-    }
-$osis->printToFile ($outputFilename) or die ("$outputFilename could not get opened to write");
-
-    
\ No newline at end of file
diff --git a/modules/perlconverters/xreffix.pl b/modules/perlconverters/xreffix.pl
deleted file mode 100644
index 29248e8..0000000
--- a/modules/perlconverters/xreffix.pl
+++ /dev/null
@@ -1,103 +0,0 @@
-#!/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@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 "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]);
-@data = <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