From 8c8aa6b07e595cfac56838b5964ab3e96051f1b2 Mon Sep 17 00:00:00 2001
From: "Roberto C. Sanchez" <roberto@connexer.com>
Date: Sat, 29 Mar 2014 10:53:49 -0400
Subject: Imported Upstream version 1.5.7

---
 bindings/swig/examples/mod2zmod.pl | 84 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 84 insertions(+)
 create mode 100755 bindings/swig/examples/mod2zmod.pl

(limited to 'bindings/swig/examples/mod2zmod.pl')

diff --git a/bindings/swig/examples/mod2zmod.pl b/bindings/swig/examples/mod2zmod.pl
new file mode 100755
index 0000000..2cc205c
--- /dev/null
+++ b/bindings/swig/examples/mod2zmod.pl
@@ -0,0 +1,84 @@
+#!/usr/bin/perl
+
+# This program converts a given module into a compressed module of the same type.
+# This is just an example to demomstrate the power of the Perl Sword bindings.
+# The code is almost written the same way the C++ of mod2zmod.cpp code was written
+
+use Sword;
+use strict;
+
+my $appname = "mod2zmod.pl";
+
+sub printUsage()
+{
+	print "\n$appname - Convert a module into a compressed module of the same type.\n";
+	print "Usage: $appname <module> <datapth> [blocktype [compresstype]]\n";
+	print("datapath: the directory in which to write the zModule\n");
+        print("blockType  : (default 4)\n\t2 - verses\n\t3 - chapters\n\t4 - books\n");
+        print("compressType: (default 1):\n\t1 - LZSS\n\t2 - Zip\n\n");
+
+	exit(-1);
+}
+
+#main part of the program
+if (scalar(@ARGV) < 2 || scalar(@ARGV) > 4) {
+	printUsage;
+}
+
+#initialization stuff
+my $datapath = $ARGV[1];
+my $blockType = defined $ARGV[2] ? $ARGV[2] : 4;
+my $compressType = defined $ARGV[3] ? $ARGV[3] : 1;
+my $mgr = new Sword::SWMgr();
+my $module = $mgr->module($ARGV[0]);
+my $compressor = ($compressType == 1) ? new Sword::LZSSCompress() : new Sword::ZipCompress();
+
+my $newmod;
+
+if ($module->Type() eq "Biblical Texts") {
+	if (!Sword::zText::createModule( $datapath, $blockType )) {
+		print "$appname: Couldn't create module in $datapath";
+		exit(-1);
+	}
+        $newmod = new Sword::zText( $datapath, 0, 0, $blockType, $compressor );
+
+} elsif ($module->Type() eq "Lexicons / Dictionaries") {
+	if (!Sword::zLD::createModule( $datapath )){
+		print "$appname: Couldn't create module in $datapath";
+		exit(-1);
+	}
+	$newmod = new Sword::zLD( $datapath, 0, 0, $blockType, $compressor)
+} elsif ($module->Type() eq "Commentaries") {
+	if (!Sword::zCom::createModule( $datapath, $blockType )){
+		print "$appname: Couldn't create module in $datapath";
+		exit(-1);
+	}
+	$newmod = new Sword::zCom( $datapath, 0, 0, $blockType, $compressor)
+}
+
+# now copy the content of the module!
+
+my $buffer;
+
+$module->top();
+$module->setSkipConsecutiveLinks(0);
+do {
+	my $key = $module->Key();
+	if (($buffer eq $module->getRawEntry()) &&($buffer ne "")) {
+                print "Adding [", $key->getText(), "] link to: \n";
+		$newmod->writeLink($key);
+	}
+	else {
+		$buffer = $module->getRawEntry();
+		if ($buffer ne "") {
+		  $newmod->SetKey($key);
+		  $newmod->write($buffer);
+		  # print "Added ", $key->getText(), "\n";
+		}
+		else {
+		  print "Skipping empty ", $key->getText(), "\n";
+		}
+	}
+} while($module->next());
+
+print "The new module is now available in $datapath!\n";
-- 
cgit v1.2.3