Re: [sword-devel] SWIG Perl

[Joachim Ansorg]

Chad,
it's done now.
Update your CVS to get the new functions.

I implemented bookCount, bookName, chapterCount, verseCount. All in VerseKey. 
See versekey.i for documentation iof these functions.

See attached script as an example. This script prints out the Bible structure. 
If you ask me, it's simpler and faster to code than in C++ ;-)

Let me know if it works and if you need more functionslity,
Joachim

> In SWIG Perl, is there a way to find out how many verses are in a
> chapter and how many chapters are in a book?
>
> Thanks
> Chad
>
> _______________________________________________
> sword-devel mailing list
> [EMAIL PROTECTED]
> http://www.crosswire.org/mailman/listinfo/sword-devel

-- 
Joachim Ansorg
www.bibletime.info
www.ansorgs.de


#!/usr/bin/perl -w
use Sword;
use strict;
my $key = Sword::VerseKey->new();

foreach my $testament (1, 2) {
	print "Testament $testament\n";

	for my $book (1 ... $key->bookCount($testament) ) {
		my $bookname = $key->bookName( $testament, $book );
		print "\t$bookname (book number $book in testament $testament)\n";

		for my $chapter ( 1 ... $key->chapterCount($testament, $book) ) {
			print "\t\t$bookname $chapter\n";

			for my $verse ( 1 ... $key->verseCount($testament, $book, $chapter) ) {
				print "\t\t\t$bookname $chapter:$verse\n";
			}

		}
	}
}