09/06/2006
Perl XS and SWIG interface to CLucene C++ text search engine
20
SWIG-Generated XS clucene_wrap.c
l#ifdef __cplusplus
lextern "C" {
l#endif
lXS(_wrap_CL_OPEN) {
l    {
l        char *arg1 ;
l        int arg2 = (int) 1 ;
l        int result;
l        int argvi = 0;
l        dXSARGS;
l
l        if ((items < 1) || (items > 2)) {
l            SWIG_croak("Usage: CL_OPEN(path,create);");
l        }
l        if (!SvOK((SV*) ST(0))) arg1 = 0;
l        else arg1 = (char *) SvPV(ST(0), PL_na);
l        if (items > 1) {
l            arg2 = (int) SvIV(ST(1));
l        }
l        result = (int)CL_OPEN(arg1,arg2);
l
l        ST(argvi) = sv_newmortal();
l        sv_setiv(ST(argvi++), (IV) result);
l        XSRETURN(argvi);
l        fail:
l        ;
l    }
l    croak(Nullch);
l}