root/lang/perl/Senna/trunk/lib/Senna.xs @ 3767

/* $Id$
 *
 * Copyright (c) 2005-2007 Daisuke Maki <daisuke@endeworks.jp>
 * All rights reserved.
 */
#include "senna-perl.h"

MODULE = Senna    PACKAGE = Senna  PREFIX = SennaPerl_Global_

PROTOTYPES: DISABLE

BOOT:
    SennaPerl_Global_bootstrap();

SV *
SennaPerl_Global_XS_cleanup()
    CODE:
        sen_fin();

HV *
SennaPerl_Global_info()


MODULE = Senna    PACKAGE = Senna::Index   PREFIX = SennaPerl_Index_

PROTOTYPES: DISABLE

SV *
SennaPerl_Index_XS_create(pkg, path, key_size = SEN_VARCHAR_KEY, flags = 0, initial_n_segments = 0, encoding = sen_enc_default)
        char *pkg;
        char *path;
        int   key_size;
        int   flags;
        int   initial_n_segments;
        sen_encoding encoding;

SV *
SennaPerl_Index_XS_open(pkg, path)
        char *pkg;
        char *path;

void
SennaPerl_Index_XS_info(self)
        SV *self;
    PREINIT:
        sen_index *index;
        int key_size;
        int flags;
        int initial_n_segments;
        sen_encoding encoding;
        unsigned int nrecords_keys;
        unsigned int file_size_keys;
        unsigned int nrecords_lexicon;
        unsigned int file_size_lexicon;
        unsigned int inv_seg_size;
        unsigned int inv_chunk_size;
        sen_rc rc;
    PPCODE:
        index = XS_STATE(sen_index *, self);
        rc = sen_index_info(index,
            &key_size, &flags, &initial_n_segments, &encoding,
            &nrecords_keys, &file_size_keys, &nrecords_lexicon,
            &file_size_lexicon, &inv_seg_size, &inv_chunk_size
        );
        
        if (rc != sen_success)
            croak("Failed to call sen_index_info: %d", rc);
        
        EXTEND(SP, 10);
        mPUSHi(key_size);
        mPUSHi(flags);
        mPUSHi(initial_n_segments);
        mPUSHi(encoding);
        mPUSHi(nrecords_keys);
        mPUSHi(file_size_keys);
        mPUSHi(nrecords_lexicon);
        mPUSHi(file_size_lexicon);
        mPUSHi(inv_seg_size);
        mPUSHi(inv_chunk_size);

SV *
SennaPerl_Index_path(self)
        SV *self;

SV *
SennaPerl_Index_remove(self)
        SV *self;

SV *
SennaPerl_Index_close(self)
        SV *self;

SV *
SennaPerl_Index_update(self, key, oldvalue, newvalue)
        SV *self;
        SV *key;
        SV *oldvalue;
        SV *newvalue;

SV *
SennaPerl_Index_insert(self, key, newvalue)
        SV *self;
        SV *key;
        SV *newvalue;

SV *
SennaPerl_Index_DESTROY(self)
        SV *self;

MODULE = Senna     PACKAGE = Senna::Encoding    PREFIX = SennaPerl_Encoding_

PROTOTYPES: DISABLE

SV *
SennaPerl_Encoding_enc2str(enc)
        sen_encoding enc;
    CODE:
        RETVAL = SennaPerl_Encoding_XS_enc2str(enc);
    OUTPUT:
        RETVAL