[Clucene-cvs] SF.net SVN: clucene: [2574] trunk/bindings/perl/xs/IndexSearcher.xs

[<tho...@us...>]

Revision: 2574
          http://svn.sourceforge.net/clucene/?rev=2574&view=rev
Author:   thomas_busch
Date:     2007-04-23 12:00:35 -0700 (Mon, 23 Apr 2007)

Log Message:
-----------
added explain and _search method for hit collector

Modified Paths:
--------------
    trunk/bindings/perl/xs/IndexSearcher.xs

Modified: trunk/bindings/perl/xs/IndexSearcher.xs
===================================================================
--- trunk/bindings/perl/xs/IndexSearcher.xs	2007-04-23 18:59:15 UTC (rev 2573)
+++ trunk/bindings/perl/xs/IndexSearcher.xs	2007-04-23 19:00:35 UTC (rev 2574)
@@ -76,6 +76,19 @@
        CODE:
          die("Usage: Lucene::Search::IndexSearcher::search(self, query, [sort | filter | filter, sort])");
 
+void 
+_search(self, query, hit_collector)
+    IndexSearcher* self
+    Query* query
+    HitCollector* hit_collector
+    CODE:
+      try {
+        self->_search(query, NULL, hit_collector);
+      } catch (CLuceneError& e) {
+        die("[Lucene::Search::IndexSearcher->_search()] %s\n", e.what());
+      }
+
+
 void
 setSimilarity(self, similarity)
 IndexSearcher* self
@@ -96,6 +109,19 @@
         self->close();
     OUTPUT:
 
+Explanation*
+explain(self, query, doc_num)
+IndexSearcher* self
+Query* query
+int32_t doc_num
+    PREINIT:
+        const char* CLASS = "Lucene::Search::Explanation";
+    CODE:
+        Explanation* explanation = new Explanation();
+        self->explain(query, doc_num, explanation);
+        RETVAL = explanation;
+    OUTPUT:
+        RETVAL
 
 void
 DESTROY(self)


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.