mhs-xapian 1.0.18a

data/php/smoketest.php

@@ -0,0 +1,246 @@
+<?php
+// Run this PHP script using 'make check' in the build tree.
+
+/* Simple test to ensure that we can load the xapian module and exercise basic
+ * functionality successfully.
+ *
+ * Copyright (C) 2004,2005,2006,2007 Olly Betts
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
+ * USA
+ */
+
+$php_version = substr(PHP_VERSION, 0, 1);
+
+include "php$php_version/xapian.php";
+
+# Include PHP version specific code.
+include "smoketest$php_version.php";
+
+$stem = new XapianStem("english");
+if ($stem->get_description() != "Xapian::Stem(english)") {
+    print "Unexpected \$stem->get_description()\n";
+    exit(1);
+}
+
+$doc = new XapianDocument();
+$doc->set_data("a\x00b");
+if ($doc->get_data() === "a") {
+    print "get_data+set_data truncates at a zero byte\n";
+    exit(1);
+}
+if ($doc->get_data() !== "a\x00b") {
+    print "get_data+set_data doesn't transparently handle a zero byte\n";
+    exit(1);
+}
+$doc->set_data("is there anybody out there?");
+$doc->add_term("XYzzy");
+$doc->add_posting($stem->apply("is"), 1);
+$doc->add_posting($stem->apply("there"), 2);
+$doc->add_posting($stem->apply("anybody"), 3);
+$doc->add_posting($stem->apply("out"), 4);
+$doc->add_posting($stem->apply("there"), 5);
+
+// Check virtual function dispatch.
+if (substr($db->get_description(), 0, 17) !== "WritableDatabase(") {
+    print "Unexpected \$db->get_description()\n";
+    exit(1);
+}
+$db->add_document($doc);
+if ($db->get_doccount() != 1) {
+    print "Unexpected \$db->get_doccount()\n";
+    exit(1);
+}
+
+$terms = array("smoke", "test", "terms");
+$query = new XapianQuery($op_or, $terms);
+if ($query->get_description() != "Xapian::Query((smoke OR test OR terms))") {
+    print "Unexpected \$query->get_description()\n";
+    exit(1);
+}
+$query1 = new XapianQuery($op_phrase, array("smoke", "test", "tuple"));
+if ($query1->get_description() != "Xapian::Query((smoke PHRASE 3 test PHRASE 3 tuple))") {
+    print "Unexpected \$query1->get_description()\n";
+    exit(1);
+}
+$query2 = new XapianQuery($op_xor, array(new XapianQuery("smoke"), $query1, "string"));
+if ($query2->get_description() != "Xapian::Query((smoke XOR (smoke PHRASE 3 test PHRASE 3 tuple) XOR string))") {
+    print "Unexpected \$query2->get_description()\n";
+    exit(1);
+}
+$subqs = array("a", "b");
+$query3 = new XapianQuery($op_or, $subqs);
+if ($query3->get_description() != "Xapian::Query((a OR b))") {
+    print "Unexpected \$query3->get_description()\n";
+    exit(1);
+}
+$enq = new XapianEnquire($db);
+$enq->set_query(new XapianQuery($op_or, "there", "is"));
+$mset = $enq->get_mset(0, 10);
+if ($mset->size() != 1) {
+    print "Unexpected \$mset->size()\n";
+    exit(1);
+}
+$terms = join(" ", $enq->get_matching_terms($mset->get_hit(0)));
+if ($terms != "is there") {
+    print "Unexpected matching terms: $terms\n";
+    exit(1);
+}
+
+if ($op_elite_set != 10) {
+    print "OP_ELITE_SET is $op_elite_set not 10\n";
+    exit(1);
+}
+
+# Regression test - overload resolution involving boolean types failed.
+$enq->set_sort_by_value(1, TRUE);
+
+# Regression test - fixed in 0.9.10.1.
+$oqparser = new XapianQueryParser();
+$oquery = $oqparser->parse_query("I like tea");
+
+# Regression test for bug#192 - fixed in 1.0.3.
+$enq->set_cutoff(100);
+
+# Check DateValueRangeProcessor works.
+$qp = new XapianQueryParser();
+$vrpdate = new XapianDateValueRangeProcessor(1, 1, 1960);
+$qp->add_valuerangeprocessor($vrpdate);
+$query = $qp->parse_query('12/03/99..12/04/01');
+if ($query->get_description() !== 'Xapian::Query(VALUE_RANGE 1 19991203 20011204)') {
+    print "XapianDateValueRangeProcessor didn't work - result was ".$query->get_description()."\n";
+    exit(1);
+}
+
+# Test setting and getting metadata
+if ($db->get_metadata('Foo') !== '') {
+    print "Unexpected value for metadata associated with 'Foo' (expected ''): '".$db->get_metadata('Foo')."'\n";
+    exit(1);
+}
+$db->set_metadata('Foo', 'Foo');
+if ($db->get_metadata('Foo') !== 'Foo') {
+    print "Unexpected value for metadata associated with 'Foo' (expected 'Foo'): '".$db->get_metadata('Foo')."'\n";
+    exit(1);
+}
+
+# Test OP_SCALE_WEIGHT and corresponding constructor
+$query4 = new XapianQuery($op_scale_weight, new XapianQuery('foo'), 5.0);
+if ($query4->get_description() != "Xapian::Query(5 * foo)") {
+    print "Unexpected \$query4->get_description()\n";
+    exit(1);
+}
+
+# Test MultiValueSorter.
+
+$doc = new XapianDocument();
+$doc->add_term("foo");
+$doc->add_value(0, "ABB");
+$db2->add_document($doc);
+$doc->add_value(0, "ABC");
+$db2->add_document($doc);
+$doc->add_value(0, "ABC\0");
+$db2->add_document($doc);
+$doc->add_value(0, "ABCD");
+$db2->add_document($doc);
+$doc->add_value(0, "ABC\xff");
+$db2->add_document($doc);
+
+$enquire = new XapianEnquire($db2);
+$enquire->set_query(new XapianQuery("foo"));
+
+{
+    $sorter = new XapianMultiValueSorter();
+    $sorter->add(0);
+    $enquire->set_sort_by_key($sorter);
+    $mset = $enquire->get_mset(0, 10);
+    mset_expect_order($mset, array(5, 4, 3, 2, 1));
+}
+
+{
+    $sorter = new XapianMultiValueSorter();
+    $sorter->add(0, false);
+    $enquire->set_sort_by_key($sorter);
+    $mset = $enquire->get_mset(0, 10);
+    mset_expect_order($mset, array(1, 2, 3, 4, 5));
+}
+
+{
+    $sorter = new XapianMultiValueSorter();
+    $sorter->add(0);
+    $sorter->add(1);
+    $enquire->set_sort_by_key($sorter);
+    $mset = $enquire->get_mset(0, 10);
+    mset_expect_order($mset, array(5, 4, 3, 2, 1));
+}
+
+{
+    $sorter = new XapianMultiValueSorter();
+    $sorter->add(0, false);
+    $sorter->add(1);
+    $enquire->set_sort_by_key($sorter);
+    $mset = $enquire->get_mset(0, 10);
+    mset_expect_order($mset, array(1, 2, 3, 4, 5));
+}
+
+{
+    $sorter = new XapianMultiValueSorter();
+    $sorter->add(0);
+    $sorter->add(1, false);
+    $enquire->set_sort_by_key($sorter);
+    $mset = $enquire->get_mset(0, 10);
+    mset_expect_order($mset, array(5, 4, 3, 2, 1));
+}
+
+{
+    $sorter = new XapianMultiValueSorter();
+    $sorter->add(0, false);
+    $sorter->add(1, false);
+    $enquire->set_sort_by_key($sorter);
+    $mset = $enquire->get_mset(0, 10);
+    mset_expect_order($mset, array(1, 2, 3, 4, 5));
+}
+
+function mset_expect_order($mset, $a) {
+    if ($mset->size() != sizeof($a)) {
+	print "MSet has ".$mset->size()." entries, expected ".sizeof($a)."\n";
+	exit(1);
+    }
+    for ($j = 0; $j < sizeof($a); ++$j) {
+	# PHP4 doesn't cope with: $mset->get_hit($j)->get_docid();
+	$hit = $mset->get_hit($j);
+	if ($hit->get_docid() != $a[$j]) {
+	    print "Expected MSet[$j] to be $a[$j], got ".$hit->get_docid()."\n";
+	    exit(1);
+	}
+    }
+}
+
+# Feature tests for Query "term" constructor optional arguments:
+$query_wqf = new XapianQuery('wqf', 3);
+if ($query_wqf->get_description() != 'Xapian::Query(wqf:(wqf=3))') {
+    print "Unexpected \$query_wqf->get_description():\n";
+    print $query_wqf->get_description() . "\n";
+    exit(1);
+}
+
+
+$query = new XapianQuery($op_value_ge, 0, "100");
+if ($query->get_description() != 'Xapian::Query(VALUE_GE 0 100)') {
+    print "Unexpected \$query->get_description():\n";
+    print $query->get_description() . "\n";
+    exit(1);
+}
+
+?>

data/php/smoketest4.php

@@ -0,0 +1,84 @@
+<?php
+/* PHP4 specific tests.
+ *
+ * Copyright (C) 2006,2007 Olly Betts
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
+ * USA
+ */
+
+# Test the version number reporting functions give plausible results.
+$v = xapian_major_version().'.'.xapian_minor_version().'.'.xapian_revision();
+$v2 = xapian_version_string();
+if ($v != $v2) {
+    print "Unexpected version output ($v != $v2)\n";
+    exit(1);
+}
+
+$db = inmemory_open();
+$db2 = inmemory_open();
+
+function my_errhandler($type, $str) {
+    global $last_exception;
+    if ($type == E_WARNING) $last_exception = $str;
+}
+
+$old_errhandler = set_error_handler("my_errhandler");
+# Check PHP4 handling of Xapian::DocNotFoundError
+$old_error_reporting = error_reporting();
+if ($old_error_reporting & E_WARNING)
+    error_reporting($old_error_reporting ^ E_WARNING);
+$doc2 = $db->get_document(2);
+if ($doc2 != null) {
+    print "Retrieved non-existent document\n";
+    exit(1);
+}
+if ($last_exception !== "DocNotFoundError: Docid 2 not found") {
+    print "Exception string not as expected, got: '$last_exception'\n";
+    exit(1);
+}
+# Check QueryParser parsing error.
+$qp = new XapianQueryParser;
+$qp->parse_query("test AND");
+if ($last_exception !== "QueryParserError: Syntax: <expression> AND <expression>") {
+    print "Exception string not as expected, got: '$last_exception'\n";
+    exit(1);
+}
+if ($old_error_reporting & E_WARNING)
+    error_reporting($old_error_reporting);
+set_error_handler($old_errhandler);
+
+# Regression test for bug#193, fixed in 1.0.3.
+$vrp = new XapianNumberValueRangeProcessor(0, '$', true);
+$a = '$10';
+$b = '20';
+$vrp->apply($a, $b);
+if (xapian_sortable_unserialise($a) != 10) {
+    print Xapian::sortable_unserialise($a)." != 10\n";
+    exit(1);
+}
+if (xapian_sortable_unserialise($b) != 20) {
+    print Xapian::sortable_unserialise($b)." != 20\n";
+    exit(1);
+}
+
+$op_or = XapianQuery_OP_OR;
+$op_phrase = XapianQuery_OP_PHRASE;
+$op_xor = XapianQuery_OP_XOR;
+$op_elite_set = XapianQuery_OP_ELITE_SET;
+$op_scale_weight = XapianQuery_OP_SCALE_WEIGHT;
+$op_value_ge = XapianQuery_OP_VALUE_GE;
+
+?>

data/php/smoketest5.php

@@ -0,0 +1,79 @@
+<?php
+/* PHP5 specific tests.
+ *
+ * Copyright (C) 2006,2007 Olly Betts
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
+ * USA
+ */
+
+# Test the version number reporting functions give plausible results.
+$v = Xapian::major_version().'.'.Xapian::minor_version().'.'.Xapian::revision();
+$v2 = Xapian::version_string();
+if ($v != $v2) {
+    print "Unexpected version output ($v != $v2)\n";
+    exit(1);
+}
+
+$db = Xapian::inmemory_open();
+$db2 = Xapian::inmemory_open();
+
+# Check PHP5 handling of Xapian::DocNotFoundError
+try {
+    $doc2 = $db->get_document(2);
+    print "Retrieved non-existent document\n";
+    exit(1);
+} catch (Exception $e) {
+    if ($e->getMessage() !== "DocNotFoundError: Docid 2 not found") {
+	print "DocNotFoundError Exception string not as expected, got: '{$e->getMessage()}'\n";
+	exit(1);
+    }
+}
+
+# Check QueryParser parsing error.
+try {
+    $qp = new XapianQueryParser;
+    $qp->parse_query("test AND");
+    print "Successfully parsed bad query\n";
+    exit(1);
+} catch (Exception $e) {
+    if ($e->getMessage() !== "QueryParserError: Syntax: <expression> AND <expression>") {
+	print "QueryParserError Exception string not as expected, got: '$e->getMessage()'\n";
+	exit(1);
+    }
+}
+
+# Regression test for bug#193, fixed in 1.0.3.
+$vrp = new XapianNumberValueRangeProcessor(0, '$', true);
+$a = '$10';
+$b = '20';
+$vrp->apply($a, $b);
+if (Xapian::sortable_unserialise($a) != 10) {
+    print Xapian::sortable_unserialise($a)." != 10\n";
+    exit(1);
+}
+if (Xapian::sortable_unserialise($b) != 20) {
+    print Xapian::sortable_unserialise($b)." != 20\n";
+    exit(1);
+}
+
+$op_or = XapianQuery::OP_OR;
+$op_phrase = XapianQuery::OP_PHRASE;
+$op_xor = XapianQuery::OP_XOR;
+$op_elite_set = XapianQuery::OP_ELITE_SET;
+$op_scale_weight = XapianQuery::OP_SCALE_WEIGHT;
+$op_value_ge = XapianQuery::OP_VALUE_GE;
+
+?>

data/php/util.i

@@ -0,0 +1,187 @@
+%{
+/* php4/util.i: custom PHP typemaps for xapian-bindings
+ *
+ * Copyright (C) 2004,2005,2006,2007 Olly Betts
+ *
+ * This program is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301
+ * USA
+ */
+
+/* We need to ensure that this is defined so that the module produced
+ * exports get_module() and can be loaded by PHP. */
+#ifndef COMPILE_DL_XAPIAN
+#define COMPILE_DL_XAPIAN 1
+#endif
+
+#include "../xapian-version.h"
+%}
+
+/* Add a section to the output from phpinfo(). */
+%pragma(php4) phpinfo="
+    const char * linked_version = Xapian::xapian_version_string();
+    php_info_print_table_start();
+    php_info_print_table_row(2, \"Xapian Support\", \"enabled\");
+    php_info_print_table_row(2, \"Xapian Compiled Version\",
+			     XAPIAN_BINDINGS_VERSION);
+    php_info_print_table_row(2, \"Xapian Linked Version\", linked_version);
+    php_info_print_table_end();
+"
+
+%ignore Xapian::xapian_version_string;
+%ignore Xapian::xapian_major_version;
+%ignore Xapian::xapian_minor_version;
+%ignore Xapian::xapian_revision;
+
+// No point wrapping this abstract base class until SWIG supports directors
+// for PHP.
+%ignore Xapian::Sorter;
+
+#ifdef SWIGPHP4
+%rename("XapianBM25Weight") Xapian::BM25Weight;
+%rename("XapianBoolWeight") Xapian::BoolWeight;
+%rename("XapianDatabase") Xapian::Database;
+%rename("XapianDateValueRangeProcessor") Xapian::DateValueRangeProcessor;
+%rename("XapianDocument") Xapian::Document;
+%rename("XapianEnquire") Xapian::Enquire;
+%rename("XapianESet") Xapian::ESet;
+%rename("XapianESetIterator") Xapian::ESetIterator;
+%rename("XapianMSet") Xapian::MSet;
+%rename("XapianMSetIterator") Xapian::MSetIterator;
+%rename("XapianMultiValueSorter") Xapian::MultiValueSorter;
+%rename("XapianNumberValueRangeProcessor") Xapian::v102::NumberValueRangeProcessor;
+%rename("XapianNumberValueRangeProcessor") Xapian::NumberValueRangeProcessor;
+%rename("XapianPositionIterator") Xapian::PositionIterator;
+%rename("XapianPostingIterator") Xapian::PostingIterator;
+%rename("XapianQuery") Xapian::Query;
+%rename("XapianQueryParser") Xapian::QueryParser;
+%rename("XapianRSet") Xapian::RSet;
+%rename("XapianSimpleStopper") Xapian::SimpleStopper;
+%rename("XapianStem") Xapian::Stem;
+%rename("XapianStopper") Xapian::Stopper;
+%rename("XapianStringValueRangeProcessor") Xapian::StringValueRangeProcessor;
+%rename("XapianTermGenerator") Xapian::TermGenerator;
+%rename("XapianTermIterator") Xapian::TermIterator;
+%rename("XapianTradWeight") Xapian::TradWeight;
+%rename("XapianValueIterator") Xapian::ValueIterator;
+%rename("XapianValueRangeProcessor") Xapian::ValueRangeProcessor;
+%rename("XapianWeight") Xapian::Weight;
+%rename("XapianWritableDatabase") Xapian::WritableDatabase;
+
+%rename("xapian_version_string") Xapian::version_string;
+%rename("xapian_major_version") Xapian::major_version;
+%rename("xapian_minor_version") Xapian::minor_version;
+%rename("xapian_revision") Xapian::revision;
+%rename("xapian_sortable_serialise") Xapian::sortable_serialise;
+%rename("xapian_sortable_unserialise") Xapian::sortable_unserialise;
+#else
+%rename("is_empty") empty() const;
+%rename("clone_object") clone() const;
+#endif
+
+%typemap(typecheck, precedence=SWIG_TYPECHECK_POINTER) const SWIGTYPE & {
+    void *ptr;
+    $1 = (SWIG_ConvertPtr(*$input, (void **)&ptr, $1_descriptor, 0) == 0);
+}
+
+%typemap(typecheck, precedence=SWIG_TYPECHECK_POINTER) SWIGTYPE {
+    void *ptr;
+    $1 = (SWIG_ConvertPtr(*$input, (void **)&ptr, $&1_descriptor, 0) == 0);
+}
+
+/* STRING has a lower precedence that numbers, but the SWIG PHP check for
+ * number (in 1.3.28 at least) includes IS_STRING which means that for a
+ * method taking either int or string, the int version will always be used.
+ * Simplest workaround is to set the precedence here higher that the numeric
+ * precedences - i.e. SWIG_TYPECHECK_VOIDPTR instead of SWIG_TYPECHECK_STRING.
+ */
+%typemap(typecheck, precedence=SWIG_TYPECHECK_VOIDPTR) const std::string & {
+    $1 = (Z_TYPE_PP($input) == IS_STRING);
+}
+
+/* The SWIG overloading doesn't handle this correctly by default. */
+%typemap(typecheck, precedence=SWIG_TYPECHECK_BOOL) bool {
+    $1 = (Z_TYPE_PP($input) == IS_BOOL || Z_TYPE_PP($input) == IS_LONG);
+}
+
+#define XAPIAN_MIXED_VECTOR_QUERY_INPUT_TYPEMAP
+%typemap(typecheck, precedence=500) const vector<Xapian::Query> & {
+    $1 = (Z_TYPE_PP($input) == IS_ARRAY);
+    /* FIXME: if we add more array typemaps, we'll need to check the elements
+     * of the array here to disambiguate. */
+}
+
+%typemap(in) const vector<Xapian::Query> & (vector<Xapian::Query> v) {
+    if (Z_TYPE_PP($input) != IS_ARRAY) {
+	SWIG_PHP_Error(E_ERROR, "expected array of queries");
+    }
+    int numitems = zend_hash_num_elements(Z_ARRVAL_PP($input));
+    v.reserve(numitems);
+    zval **item;
+    HashTable *ht = Z_ARRVAL_PP($input);
+    HashPosition i;
+    zend_hash_internal_pointer_reset_ex(ht, &i);
+    while (zend_hash_get_current_data_ex(ht, (void **)&item, &i) == SUCCESS) {
+	if ((*item)->type == IS_STRING) {
+	    int len = Z_STRLEN_PP(item);
+	    const char *p = Z_STRVAL_PP(item);
+	    v.push_back(Xapian::Query(string(p, len)));
+	} else {
+	    Xapian::Query *subq = 0;
+	    if (SWIG_ConvertPtr(*item, (void **)&subq,
+				SWIGTYPE_p_Xapian__Query, 0) < 0) {
+		subq = 0;
+	    }
+	    if (!subq) {
+		SWIG_PHP_Error(E_ERROR, "expected string or query object");
+	    }
+	    v.push_back(*subq);
+	}
+	zend_hash_move_forward_ex(ht, &i);
+    }
+    zend_hash_internal_pointer_end_ex(ht, &i);
+    $1 = &v;
+}
+
+/* SWIG's default typemap accepts "Null" when an object is passed by
+   reference, and the C++ wrapper code then dereferences a NULL pointer
+   which causes a SEGV. */
+%typemap(in) SWIGTYPE & {
+    if (SWIG_ConvertPtr(*$input, (void**)&$1, $1_descriptor, 0) < 0 || $1 == NULL) {
+	SWIG_PHP_Error(E_ERROR, "Type error in argument $argnum of $symname. Expected $1_descriptor");
+    }
+}
+
+#define XAPIAN_TERMITERATOR_PAIR_OUTPUT_TYPEMAP
+%typemap(out) std::pair<Xapian::TermIterator, Xapian::TermIterator> {
+    if (array_init($result) == FAILURE) {
+	SWIG_PHP_Error(E_ERROR, "array_init failed");
+    }
+
+    for (Xapian::TermIterator i = $1.first; i != $1.second; ++i) {
+	/* We have to cast away const here because the PHP API is rather
+	 * poorly thought out - really there should be two API methods
+	 * one of which takes a const char * and copies the string and
+	 * the other which takes char * and takes ownership of the string.
+	 *
+	 * Passing 1 as the last parameter of add_next_index_stringl() tells
+	 * PHP to copy the string pointed to by p, so it won't be modified.
+	 */
+	const string & term = *i;
+	char *p = const_cast<char*>(term.data());
+	add_next_index_stringl($result, p, term.length(), 1);
+    }
+}
+
+/* vim:set syntax=cpp:set noexpandtab: */