09/06/2006
Perl XS and SWIG interface to CLucene C++
text search engine
19
SWIG-Generated
XS CLuceneWrap.pm
# This file was
automatically generated by SWIG
package
FulltextSearch::CLuceneWrap;
require Exporter;
require DynaLoader;
@ISA = qw(Exporter DynaLoader);
package
FulltextSearch::CLuceneWrapc;
bootstrap
FulltextSearch::CLuceneWrap;
package
FulltextSearch::CLuceneWrap;
@EXPORT = qw( );
# ---------- BASE METHODS
-------------
package
FulltextSearch::CLuceneWrap;
sub TIEHASH {
my ($classname,$obj) = @_;
return bless $obj, $classname;
}
sub CLEAR { }
…
# ------- FUNCTION WRAPPERS
--------
package
FulltextSearch::CLuceneWrap;
*CL_OPEN = *FulltextSearch::CLuceneWrapc::CL_OPEN;
*CL_CLOSE = *FulltextSearch::CLuceneWrapc::CL_CLOSE;
…
# ------- VARIABLE STUBS
--------
package
FulltextSearch::CLuceneWrap;
*clucene_perl = *FulltextSearch::CLuceneWrapc::clucene_perl;
*NULL =
*FulltextSearch::CLuceneWrapc::NULL;
*val_len =
*FulltextSearch::CLuceneWrapc::val_len;
*val =
*FulltextSearch::CLuceneWrapc::val;
*errstr =
*FulltextSearch::CLuceneWrapc::errstr;
…