r61967 - in /trunk/libsearch-xapian-perl: Changes META.yml Makefile.PL README XS/Enquire.xs Xapian.pm Xapian.xs Xapian/Enquire.pm debian/changelog debian/control debian/source/ debian/source/format t/search.t
olly at users.alioth.debian.org
olly at users.alioth.debian.org
Tue Aug 24 12:55:42 UTC 2010
Author: olly
Date: Tue Aug 24 12:55:34 2010
New Revision: 61967
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=61967
Log:
* New upstream release
* Upload to unstable
* debian/control.in: Standards-Version: 3.9.1 (no changes required).
* debian/source/format: Set to "3.0 (quilt)".
Added:
trunk/libsearch-xapian-perl/debian/source/
trunk/libsearch-xapian-perl/debian/source/format
Modified:
trunk/libsearch-xapian-perl/Changes
trunk/libsearch-xapian-perl/META.yml
trunk/libsearch-xapian-perl/Makefile.PL
trunk/libsearch-xapian-perl/README
trunk/libsearch-xapian-perl/XS/Enquire.xs
trunk/libsearch-xapian-perl/Xapian.pm
trunk/libsearch-xapian-perl/Xapian.xs
trunk/libsearch-xapian-perl/Xapian/Enquire.pm
trunk/libsearch-xapian-perl/debian/changelog
trunk/libsearch-xapian-perl/debian/control
trunk/libsearch-xapian-perl/t/search.t
Modified: trunk/libsearch-xapian-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/Changes?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/Changes (original)
+++ trunk/libsearch-xapian-perl/Changes Tue Aug 24 12:55:34 2010
@@ -1,4 +1,11 @@
Revision history for Perl extension Search::Xapian.
+
+1.2.3.0 Tue Aug 24 06:03:12 UTC 2010
+ [Changes contributed by Tim Brody]
+ - Allow user-specified ExpandDecider to be specified to get_eset().
+ [Changes contributed by Jess Robinson]
+ - Fix bogus "can't find libtool" error when rerunning Makefile.PL and
+ XAPIAN_CONFIG isn't explicitly specified.
1.2.2.0 Sun Jun 27 03:31:36 UTC 2010
- No change except for bumping the version to indicate compatibility
Modified: trunk/libsearch-xapian-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/META.yml?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/META.yml (original)
+++ trunk/libsearch-xapian-perl/META.yml Tue Aug 24 12:55:34 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Search-Xapian
-version: 1.2.2.0
+version: 1.2.3.0
abstract: Perl XS frontend to the Xapian C++ search library.
license: ~
author:
Modified: trunk/libsearch-xapian-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/Makefile.PL?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/Makefile.PL (original)
+++ trunk/libsearch-xapian-perl/Makefile.PL Tue Aug 24 12:55:34 2010
@@ -80,7 +80,7 @@
my $libs = `$xapian_config --libs 2> /dev/null`;
chomp($libs);
my ($xapian_config_dir) = $xapian_config =~ /^(.*?)[^\/]*$/;
-if ($? || -f "${xapian_config_dir}Makefile") {
+if ($? || ($xapian_config_dir ne '' && -f "${xapian_config_dir}Makefile")) {
# Assume we're being asked to build against an uninstalled xapian-core.
my $libtool = "${xapian_config_dir}libtool";
unless (-x $libtool) {
Modified: trunk/libsearch-xapian-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/README?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/README (original)
+++ trunk/libsearch-xapian-perl/README Tue Aug 24 12:55:34 2010
@@ -1,4 +1,4 @@
-Search::Xapian version 1.2.2.0
+Search::Xapian version 1.2.3.0
==============================
This is Search::Xapian, a Perl XS frontend to the Xapian C++ search library.
Modified: trunk/libsearch-xapian-perl/XS/Enquire.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/XS/Enquire.xs?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/XS/Enquire.xs (original)
+++ trunk/libsearch-xapian-perl/XS/Enquire.xs Tue Aug 24 12:55:34 2010
@@ -234,12 +234,26 @@
RETVAL
ESet *
-Enquire::get_eset(maxitems, rset)
+Enquire::get_eset(maxitems, rset, func = NO_INIT)
doccount maxitems
RSet * rset
- CODE:
- try {
- RETVAL = new ESet(THIS->get_eset(maxitems, *rset));
+ SV * func
+ CODE:
+ try {
+ ESet eset;
+ switch (items) { /* items includes the hidden this pointer */
+ case 3:
+ eset = THIS->get_eset(maxitems, *rset);
+ break;
+ case 4: {
+ perlExpandDecider d(func);
+ eset = THIS->get_eset(maxitems, *rset, &d);
+ break;
+ }
+ default:
+ croak("Bad parameter count for get_eset");
+ }
+ RETVAL = new ESet(eset);
} catch (...) {
handle_exception();
}
Modified: trunk/libsearch-xapian-perl/Xapian.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/Xapian.pm?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/Xapian.pm (original)
+++ trunk/libsearch-xapian-perl/Xapian.pm Tue Aug 24 12:55:34 2010
@@ -4,7 +4,7 @@
use strict;
use warnings;
-our $VERSION = '1.2.2.0';
+our $VERSION = '1.2.3.0';
use Exporter 'import';
@@ -432,7 +432,8 @@
=item Unwrapped classes
The following Xapian classes are not yet wrapped:
-Error (and subclasses), ErrorHandler, ExpandDecider (and subclasses),
+Error (and subclasses), ErrorHandler, standard ExpandDecider subclasses
+(user-defined ones works),
user-defined weight classes.
We don't yet wrap Xapian::Query::MatchAll, Xapian::Query::MatchNothing,
Modified: trunk/libsearch-xapian-perl/Xapian.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/Xapian.xs?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/Xapian.xs (original)
+++ trunk/libsearch-xapian-perl/Xapian.xs Tue Aug 24 12:55:34 2010
@@ -91,6 +91,47 @@
Document *pdoc = new Document(doc);
sv_setref_pv(arg, "Search::Xapian::Document", (void *)pdoc);
XPUSHs(arg);
+
+ PUTBACK;
+
+ int count = call_sv(callback, G_SCALAR);
+
+ SPAGAIN;
+ if (count != 1)
+ croak("callback function should return 1 value, got %d", count);
+
+ int decide_actual_result = POPi;
+
+ PUTBACK;
+
+ FREETMPS;
+ LEAVE;
+
+ return decide_actual_result;
+ }
+};
+
+class perlExpandDecider : public Xapian::ExpandDecider {
+ SV *callback;
+
+ public:
+ perlExpandDecider(SV *func) {
+ callback = newSVsv(func);
+ }
+
+ ~perlExpandDecider() {
+ SvREFCNT_dec(callback);
+ }
+
+ bool operator()(const string &term) const {
+ dSP;
+
+ ENTER;
+ SAVETMPS;
+
+ PUSHMARK(SP);
+
+ XPUSHs(sv_2mortal(newSVpv(term.data(), term.size())));
PUTBACK;
Modified: trunk/libsearch-xapian-perl/Xapian/Enquire.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/Xapian/Enquire.pm?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/Xapian/Enquire.pm (original)
+++ trunk/libsearch-xapian-perl/Xapian/Enquire.pm Tue Aug 24 12:55:34 2010
@@ -242,7 +242,7 @@
Get match set.
-=item get_eset
+=item get_eset <maxitems> <rset> [<decider>]
Get set of query expansion terms.
Modified: trunk/libsearch-xapian-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/debian/changelog?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/debian/changelog (original)
+++ trunk/libsearch-xapian-perl/debian/changelog Tue Aug 24 12:55:34 2010
@@ -1,3 +1,12 @@
+libsearch-xapian-perl (1.2.3.0-1) unstable; urgency=low
+
+ * New upstream release
+ * Upload to unstable
+ * debian/control.in: Standards-Version: 3.9.1 (no changes required).
+ * debian/source/format: Set to "3.0 (quilt)".
+
+ -- Olly Betts <olly at survex.com> Tue, 24 Aug 2010 12:53:15 +0000
+
libsearch-xapian-perl (1.2.2.0-1) experimental; urgency=low
* New upstream release
Modified: trunk/libsearch-xapian-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/debian/control?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/debian/control (original)
+++ trunk/libsearch-xapian-perl/debian/control Tue Aug 24 12:55:34 2010
@@ -10,7 +10,7 @@
Ryan Niebur <ryan at debian.org>, Jonathan Yu <jawnsy at cpan.org>,
Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>,
Xavier Oswald <xoswald at debian.org>, Olly Betts <olly at survex.com>
-Standards-Version: 3.8.4
+Standards-Version: 3.9.1
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libsearch-xapian-perl/
Vcs-Browser: http://svn.debian.org/viewsvn/pkg-perl/trunk/libsearch-xapian-perl/
Homepage: http://xapian.org/
Added: trunk/libsearch-xapian-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/debian/source/format?rev=61967&op=file
==============================================================================
--- trunk/libsearch-xapian-perl/debian/source/format (added)
+++ trunk/libsearch-xapian-perl/debian/source/format Tue Aug 24 12:55:34 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libsearch-xapian-perl/t/search.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsearch-xapian-perl/t/search.t?rev=61967&op=diff
==============================================================================
--- trunk/libsearch-xapian-perl/t/search.t (original)
+++ trunk/libsearch-xapian-perl/t/search.t Tue Aug 24 12:55:34 2010
@@ -6,7 +6,7 @@
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More;
-BEGIN { plan tests => 115 };
+BEGIN { plan tests => 117 };
use Search::Xapian qw(:ops);
#########################
@@ -131,6 +131,8 @@
is( ++$eit, $eset->end(), "eset iterator reaches ESet::end() ok" );
--$eit;
is( $eit->get_termname(), 'one', "eset iterator decrement works ok" );
+ok( $eset = $enq->get_eset( 10, $rset, sub { $_[0] ne "one" } ), "expanded terms set with decider" );
+is( $eset->size(), 0, "expanded terms decider filtered" );
# try an empty mset - this was giving begin != end
my ($noquery, $nomatches);
More information about the Pkg-perl-cvs-commits
mailing list