Mailing List Archive

Author: creamyg
Date: 2008-08-03 09:07:54 -0700 (Sun, 03 Aug 2008)
New Revision: 3704

Modified:
trunk/perl/lib/KinoSearch/Index/SegReader.pm
Log:
Kill off some hand-rolled XS in SegReader.


Modified: trunk/perl/lib/KinoSearch/Index/SegReader.pm
===================================================================
--- trunk/perl/lib/KinoSearch/Index/SegReader.pm 2008-08-03 15:56:30 UTC (rev 3703)
+++ trunk/perl/lib/KinoSearch/Index/SegReader.pm 2008-08-03 16:07:54 UTC (rev 3704)
@@ -4,53 +4,6 @@

__END__

-__XS__
-
-MODULE = KinoSearch PACKAGE = KinoSearch::Index::SegReader
-
-void
-_set_or_get(self, ...)
- kino_SegReader *self;
-ALIAS:
- get_doc_reader = 6
- get_tv_reader = 8
- get_lex_reader = 10
- get_deldocs = 12
- set_deldocs_dirty = 13
- get_deldocs_dirty = 14
- set_delcount = 15
- get_seg_name = 16
-PPCODE:
-{
- START_SET_OR_GET_SWITCH
-
- case 6: retval = Kino_Obj_To_Native(self->doc_reader);
- break;
-
- case 8: retval = Kino_Obj_To_Native(self->tv_reader);
- break;
-
- case 10: retval = Kino_Obj_To_Native(self->lex_reader);
- break;
-
- case 12: retval = Kino_Obj_To_Native(self->deldocs);
- break;
-
- case 13: self->deldocs_dirty = SvTRUE( ST(1) ) ? true : false;
- break;
-
- case 14: retval = self->deldocs_dirty ? newSViv(1) : newSViv(0);
- break;
-
- case 15: self->delcount = SvIV( ST(1) );
- break;
-
- case 16: retval = cb_to_sv(self->seg_info->seg_name);
- break;
-
- END_SET_OR_GET_SWITCH
-}
-
__AUTO_XS__

{ "KinoSearch::Index::SegReader" => {


_______________________________________________
kinosearch-commits mailing list
kinosearch-commits@rectangular.com
http://www.rectangular.com/mailman/listinfo/kinosearch-commits