[sword-devel] SWIG Perl
Chad Snow
sword-devel@crosswire.org
19 Jan 2003 20:58:59 -0500
OK, the class is in the zcom.i file but after I build SWIG and install
Perl it does not show up in the Sword.pm file. So ever time I try and
use it, Perl can't find that function. And when I try and create a
RawText module or other modules I get this message.
Usage: RawText_createModule(self,path);
It seems that the function is looking for two arguments (self, path). I
know that path is where I want the module but what is the self.
Furthermore this is not how it is set up in the rawtext.i file. It
shows only one argument. Do you have any more things I can try?
Thanks
Chad
On Sun, 2003-01-19 at 17:34, Joachim Ansorg wrote:
> Normally build it with
>
> cd bindings/swig
> ./configure
> make
> cd perl;
> make install
>
> The make install is important, otherwise the Sword module is not available and
> can't load the shared lib.
>
> Have a look into the .i files which functions are available in which classes.
> Basically it's most of the things available in
> sword-cvs/doc/api-documentation/
>
> If you need some missing classes let me know.
>
> Let me know how it works,
> Joachim
>
> > That did not work. I get a message when I try creating an zCom module
> > in Perl.
> >
> > Can't locate auto/Sword/zCom/createModul.al in @INC
> >
> > I don't find zCom::createModule in the Sword.pm file. Did I build SWIG
> > Perl wrong or something.
> >
> > Thanks
> > Chad
> >
> > On Sun, 2003-01-19 at 05:25, Joachim Ansorg wrote:
> > > Chad,
> > > Have a look at the following messy Perl script. It was never intended for
> > > a release, so the code isn't very good. At the end you'll see how I
> > > created a compressed commentary module using the Swig bindings.
> > >
> > > If you need more help let me know.
> > >
> > > Joachim
> > >
> > > > Can someone tell me how to create a module in SWIG Perl? I try and
> > > > follow the example given but I get an error message like this:
> > > >
> > > > Usage: xText_createModule(self,path,blockBound);
> > > >
> > > > Can any one help?
> > > >
> > > > Thanks
> > > > Chad
> > > >
> > > > _______________________________________________
> > > > sword-devel mailing list
> > > > sword-devel@crosswire.org
> > > > http://www.crosswire.org/mailman/listinfo/sword-devel
> > >
> > > --
> > > Joachim Ansorg
> > > www.bibletime.info
> > > www.ansorgs.de
> > >
> > > ----
> > >
> > >
> > > #!/usr/bin/perl
> > >
> > > use Sword; #Use the Sword bindings for Perl
> > > use Encode;
> > > use File::Path;
> > > use Cwd;
> > > use strict;
> > >
> > > # Parameters:
> > > # 1. The modules
> > > # 2. The key as english string
> > > # 3. The data as string
> > >
> > > sub writeData {
> > > my $mod = shift;
> > > my $key = shift;
> > > my $data = shift;
> > >
> > > # We have to parse the key to be able to write a range to the module
> > > # The first entry is written using the data, ther others are written as
> > > links my $vk = Sword::VerseKey->new();
> > > $vk->setLocale("de");
> > >
> > > my $list = $vk->ParseVerseList($key, "Genesis 1:1", 1); # "1" to parse
> > > ranges! for (my $i = 0; $i < $list->Count(); $i++) {
> > > my $sw_key= $list->GetElement($i);
> > > if (my $rangeKey = $sw_key->toVerseKey()) {
> > > # write the data to the first key and link the others to this first
> > > one my $k = $rangeKey->LowerBound();
> > > print "\tWriting to " . $k->getText() . "\n";
> > > $mod->SetKey($k);
> > > $mod->write($data);
> > >
> > > $k->next();
> > > # go up until we reach UpperBound and link each entry to the
> > > LowerBound while(($k->compare($rangeKey->UpperBound()) == -1)) { #as long
> > > as $k is before UpperBound $mod->SetKey($k);
> > > $mod->writeLink($rangeKey->LowerBound());
> > > print "\t\t" . $k->getText() . ": linking to ". $sw_key->getText() .
> > > "\n"; $k->next();
> > > }
> > > #we reached the last entry
> > > #$mod->writeLink($rangeKey->LowerBound());
> > > print "\t\t" . $k->getText() . ": linking to ". $sw_key->getText() .
> > > "\n"; }
> > > else {
> > > print "\tWriting single key to " . $sw_key->getText() . "\n";
> > > $mod->SetKey($sw_key);
> > > $mod->write($data);
> > > }
> > > }
> > >
> > > #print out the list
> > > };
> > >
> > > sub convert_key {
> > > my $key = shift;
> > > $key =~ s/,/:/g;
> > > $key =~ s/(\d)\./$1. /;
> > > if ($key =~ /[^0-9]$/) {
> > > die "Invalid key $key"
> > > };
> > >
> > > return $key;
> > > };
> > >
> > > sub format_content {
> > > my $key = shift;
> > > my $date = shift;
> > > my $data = shift;
> > > # Format the data in the following way:
> > > # Datum: $date
> > > # Stelle: <scripRef passage="$englishKey">$key</scripRef>
> > > # <BR>
> > > # $data
> > >
> > > #Fix existing scripRefs
> > > # 1. Remove newlines within scripRef tags
> > > $data =~ s/<scripRef[\n\s]?(.+?)\n(.+?)>/<scripRef $1 $2>/gi;
> > > # 2. Remove version=".+?" parts
> > > $data =~ s|<scripRef (.+?)version=".+?"(.+?)>|<scripRef $1 $2>|gis;
> > > # 3. Beautify scripRefs, e.g. remove trailing spaces
> > > $data =~ s|<scripRef (.+?)\s+>|<scripRef $1>|gis;
> > >
> > >
> > > my $ret = '<FONT color="#800000"><B>Datum:</B> ' . $date .
> > > '</FONT><BR>';
> > >
> > > my $vk = Sword::VerseKey->new();
> > > $vk->setLocale("de");
> > > $vk->setText($key);
> > > #$vk->setLocale("en");
> > >
> > > my $rangeText = undef;
> > > my $list = $vk->ParseVerseList($key, "Genesis 1:1", 1); # "1" to parse
> > > ranges! for (my $i = 0; $i < $list->Count(); $i++) {
> > > my $sw_key= $list->GetElement($i);
> > > if (my $rangeKey = $sw_key->toVerseKey()) {
> > > $rangeKey->setLocale("en");
> > > # write the data to the first key and link the others to this first
> > > one if( $rangeKey->LowerBound()->compare($rangeKey->UpperBound()) == -1 )
> > > { #as long as $k is before UpperBound $rangeText .=
> > > $rangeKey->LowerBound()->getText() . "-" .
> > > $rangeKey->UpperBound()->getText() . ";"; }
> > > }
> > > else {
> > > $vk->setLocale("de");
> > > $vk->setText($sw_key->getText());
> > > $vk->setLocale("en");
> > > $rangeText .= $vk->getText();
> > > }
> > > }
> > >
> > >
> > > $ret .= '<FONT color="#800000"><B>Stelle:</B> ' . '<scripRef passage="'
> > > . $rangeText .'">' . $key . '</scripRef></FONT>'; $ret .= '<BR><P
> > > align="justify">' . $data . '</P>';
> > >
> > > #Finally change all possible characters into UTF-8 so it will work on
> > > any platform Encode::from_to($ret, "iso-8859-15", "utf-8");
> > > return $ret;
> > > };
> > >
> > > # This function created the module configuration file for the MAK module
> > > sub create_config {
> > > my $path = shift;
> > > my $filename = shift;
> > >
> > > mkpath("$path");
> > > open(OUT, "> $path/$filename");
> > >
> > > print OUT <<'EOF';
> > > [MAK]
> > > DataPath=./modules/comments/rawcom/mak/
> > > ModDrv=RawCom
> > > SourceType=ThML
> > > Encoding=UTF-8
> > > Lang=de
> > > MinimumVersion=1.5.2
> > > Version=1.0
> > > History_1.0=2002-11-24 -- Major update. Many new comments, updated
> > > format, changed encoding to UTF-8, fixed existing scripRefs
> > > History_0.9=2000-07-29 -- First official version -- ThML-Tags for
> > > scripture ref SwordVersionDate=2002-11-24
> > > Description=Matthias Ansorgs Kommentar
> > > About=Matthias Ansorgs Kommentar zur Bibel\par\
> > > Der Kommentar wurde von Matthias Ansorg geschrieben.\par\
> > > Kontakt: matthias@ansorgs.de
> > > TextSource=Matthias Ansorg,matthias@ansorgs.de
> > > LCSH=Bible--Commentaries, German.
> > > DistributionLicense=Public Domain
> > > EOF
> > > close(OUT);
> > > };
> > >
> > >
> > >
> > > sub write_module {
> > > Sword::LocaleMgr::getSystemLocaleMgr()->setDefaultLocaleName("de");
> > >
> > > my $file = shift;
> > > open(IN, $file) || die "Can't open file $file\n";
> > >
> > > my $key = undef;
> > > my $date = undef;
> > > my $comment = undef;
> > >
> > > #Create the directories where the module should be created
> > > mkpath("data/modules/comments/rawcom/mak");
> > > #LocaleMgr()->setDefaultLocaleName("de");
> > >
> > >
> > > #Sword::zCom::createModule("data/modules/comments/rawcom/mak",4) || die
> > > "Couldn't create the zCom module!";
> > > Sword::RawCom::createModule("data/modules/comments/rawcom/mak") || die
> > > "Couldn't create the zCom module!"; #my $compressor =
> > > Sword::LZSSCompress->new();
> > > #my $mod = Sword::zCom->new("data/modules/comments/rawcom/mak", 0, 0, 4,
> > > $compressor ); #blocktype = 4, compressor type is LZSSCompression my $mod
> > > = Sword::RawCom->new("data/modules/comments/rawcom/mak");
> > > $mod->setSkipConsecutiveLinks(0);
> > >
> > > while (<IN>) {
> > > if (/^Text:\s?(.+?)\n/) { #The start if a new entry was found
> > > if ($key && $date && $comment) { #write the found comment to disk
> > > $key = convert_key($key);
> > > print "Found: " . $key. "\n";
> > > my $data = format_content($key, $date, $comment);
> > > writeData($mod, $key, $data);
> > > };
> > >
> > > $key = $1;
> > > $date = undef;
> > > $comment = undef;
> > > }
> > > elsif (/^Datum:\s?(.+?)\n/) {
> > > $date = $1;
> > > }
> > > else {
> > > $comment .= $_;
> > > };
> > > };
> > > #write the last entry into the module
> > > if ($key && $date && $comment) { #write the found comment to disk
> > > $key = convert_key($key);
> > > print "Found: " . $key. "\n";
> > > my $data = format_content($key, $date, $comment);
> > > writeData($mod, $key, $data);
> > > };
> > >
> > > close(IN);
> > > };
> > >
> > > sub zip_module {
> > > my $path = shift;
> > > my $filename = shift;
> > >
> > > my $start_dir = getcwd();
> > > unlink("$filename");
> > > chdir("$path");
> > >
> > > system("chmod -R a+r+X $start_dir/$path");
> > >
> > > # Call zip command to compress all files in the current directory
> > > my $ret = system( "zip -q -9 -r $start_dir/$filename *");
> > > chdir($start_dir);
> > > rmtree("$start_dir/data/");
> > >
> > > print "Zipped module data files are in the ZIP archive $filename\n";
> > >
> > > return $ret;
> > > }
> > >
> > > #main part
> > > create_config("data/mods.d/", "mak.conf");
> > > write_module("stilleZeit.Kommentare.txt");
> > > zip_module("data", "mak.zip");
> > > create_config(".", "mak.conf");
> >
> > _______________________________________________
> > sword-devel mailing list
> > sword-devel@crosswire.org
> > http://www.crosswire.org/mailman/listinfo/sword-devel
>
> --
> Joachim Ansorg
> www.bibletime.info
> www.ansorgs.de
> _______________________________________________
> sword-devel mailing list
> sword-devel@crosswire.org
> http://www.crosswire.org/mailman/listinfo/sword-devel