idzebra_wrap.c

harvest是一个下载html网页得机器人

#else
#define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
static void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *)) {
#endif
  MAGIC *mg;
  sv_magic(sv,sv,'U',(char *) name,strlen(name));
  mg = mg_find(sv,'U');
  mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
  mg->mg_virtual->svt_get = (SwigMagicFuncHack) get;
  mg->mg_virtual->svt_set = (SwigMagicFuncHack) set;
  mg->mg_virtual->svt_len = 0;
  mg->mg_virtual->svt_clear = 0;
  mg->mg_virtual->svt_free = 0;
}







/* -------- TYPES TABLE (BEGIN) -------- */

#define  SWIGTYPE_p_ZebraService swig_types[0] 
#define  SWIGTYPE_p_cql_transform_t swig_types[1] 
#define  SWIGTYPE_p_data1_esetname swig_types[2] 
#define  SWIGTYPE_p_data1_maptab swig_types[3] 
#define  SWIGTYPE_p_ODR swig_types[4] 
#define  SWIGTYPE_p_f_p_void__int swig_types[5] 
#define  SWIGTYPE_p_p_char swig_types[6] 
#define  SWIGTYPE_p_data1_absyn swig_types[7] 
#define  SWIGTYPE_p_ZebraHandle swig_types[8] 
#define  SWIGTYPE_p_void swig_types[9] 
#define  SWIGTYPE_p_data1_attset swig_types[10] 
#define  SWIGTYPE_p_size_t swig_types[11] 
#define  SWIGTYPE_p_WRBUF swig_types[12] 
#define  SWIGTYPE_p_f_data1_handle_p_void_p_data1_absyn__void swig_types[13] 
#define  SWIGTYPE_p_Z_Espec1 swig_types[14] 
#define  SWIGTYPE_p_off_t swig_types[15] 
#define  SWIGTYPE_p_Odr_oid swig_types[16] 
#define  SWIGTYPE_p_data1_varset swig_types[17] 
#define  SWIGTYPE_p_RetrievalRecordBuf swig_types[18] 
#define  SWIGTYPE_p_perl_context swig_types[19] 
#define  SWIGTYPE_p_data1_node swig_types[20] 
#define  SWIGTYPE_p_ScanObj swig_types[21] 
#define  SWIGTYPE_p_RetrievalObj swig_types[22] 
#define  SWIGTYPE_p_data1_tagset swig_types[23] 
#define  SWIGTYPE_p_data1_tag swig_types[24] 
#define  SWIGTYPE_p_ZebraRetrievalRecord swig_types[25] 
#define  SWIGTYPE_p_RetrievalRecord swig_types[26] 
#define  SWIGTYPE_p_NMEM swig_types[27] 
#define  SWIGTYPE_p_Z_ExplainRecord swig_types[28] 
#define  SWIGTYPE_p_data1_marctab swig_types[29] 
#define  SWIGTYPE_p_ZebraTransactionStatus swig_types[30] 
#define  SWIGTYPE_p_Z_BriefBib swig_types[31] 
#define  SWIGTYPE_p_scanEntry swig_types[32] 
#define  SWIGTYPE_p_f_p_void_p_char_size_t__int swig_types[33] 
#define  SWIGTYPE_p_FILE swig_types[34] 
#define  SWIGTYPE_p_data1_element swig_types[35] 
#define  SWIGTYPE_p_recordGroup swig_types[36] 
#define  SWIGTYPE_p_int swig_types[37] 
#define  SWIGTYPE_p_data1_handle swig_types[38] 
#define  SWIGTYPE_p_p_int swig_types[39] 
#define  SWIGTYPE_p_data1_absyn_cache swig_types[40] 
#define  SWIGTYPE_p_data1_attset_cache swig_types[41] 
#define  SWIGTYPE_p_Z_GenericRecord swig_types[42] 
#define  SWIGTYPE_p_data1_vartype swig_types[43] 
static swig_type_info *swig_types[45];

/* -------- TYPES TABLE (END) -------- */

#define SWIG_init    boot_IDZebra

#define SWIG_name   "IDZebrac::boot_IDZebra"
#define SWIG_prefix "IDZebrac::"

#ifdef __cplusplus
extern "C"
#endif
#ifndef PERL_OBJECT
#ifndef MULTIPLICITY
SWIGEXPORT(void) SWIG_init (CV* cv);
#else
SWIGEXPORT(void) SWIG_init (pTHXo_ CV* cv);
#endif
#else
SWIGEXPORT(void) SWIG_init (CV *cv, CPerlObj *);
#endif


#include "zebraapi.h"
#include "zebra_perl.h"
#include "data1.h"
#include "yaz/odr.h"
#include "yaz/cql.h"

#ifdef PERL_OBJECT
#define MAGIC_CLASS _wrap_IDZebra_var::
class _wrap_IDZebra_var : public CPerlObj {
public:
#else
#define MAGIC_CLASS
#endif
SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *sv, MAGIC *mg) {
    MAGIC_PPERL
    sv = sv; mg = mg;
    croak("Value is read-only.");
    return 0;
}


#ifdef PERL_OBJECT
};
#endif

#ifdef __cplusplus
extern "C" {
#endif
XS(_wrap_recordGroup_groupName_set) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *arg2 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: recordGroup_groupName_set(self,groupName);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_groupName_set. Expected _p_recordGroup");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        {
            if (arg1->groupName) free((char*)arg1->groupName);
            arg1->groupName = (char *) malloc(strlen(arg2)+1);
            strcpy((char*)arg1->groupName,arg2);
        }
        
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_groupName_get) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: recordGroup_groupName_get(self);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_groupName_get. Expected _p_recordGroup");
            }
        }
        result = (char *) ((arg1)->groupName);
        
        ST(argvi) = sv_newmortal();
        if (result) {
            sv_setpv((SV*)ST(argvi++), (char *) result);
        }else {
            sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
        }
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_databaseName_set) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *arg2 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: recordGroup_databaseName_set(self,databaseName);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_databaseName_set. Expected _p_recordGroup");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        {
            if (arg1->databaseName) free((char*)arg1->databaseName);
            arg1->databaseName = (char *) malloc(strlen(arg2)+1);
            strcpy((char*)arg1->databaseName,arg2);
        }
        
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_databaseName_get) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: recordGroup_databaseName_get(self);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_databaseName_get. Expected _p_recordGroup");
            }
        }
        result = (char *) ((arg1)->databaseName);
        
        ST(argvi) = sv_newmortal();
        if (result) {
            sv_setpv((SV*)ST(argvi++), (char *) result);
        }else {
            sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
        }
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_path_set) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *arg2 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: recordGroup_path_set(self,path);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_path_set. Expected _p_recordGroup");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        {
            if (arg1->path) free((char*)arg1->path);
            arg1->path = (char *) malloc(strlen(arg2)+1);
            strcpy((char*)arg1->path,arg2);
        }
        
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_path_get) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: recordGroup_path_get(self);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_path_get. Expected _p_recordGroup");
            }
        }
        result = (char *) ((arg1)->path);
        
        ST(argvi) = sv_newmortal();
        if (result) {
            sv_setpv((SV*)ST(argvi++), (char *) result);
        }else {
            sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
        }
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_recordId_set) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *arg2 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: recordGroup_recordId_set(self,recordId);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_recordId_set. Expected _p_recordGroup");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        {
            if (arg1->recordId) free((char*)arg1->recordId);
            arg1->recordId = (char *) malloc(strlen(arg2)+1);
            strcpy((char*)arg1->recordId,arg2);
        }
        
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_recordId_get) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: recordGroup_recordId_get(self);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_recordId_get. Expected _p_recordGroup");
            }
        }
        result = (char *) ((arg1)->recordId);
        
        ST(argvi) = sv_newmortal();
        if (result) {
            sv_setpv((SV*)ST(argvi++), (char *) result);
        }else {
            sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
        }
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_recordType_set) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *arg2 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: recordGroup_recordType_set(self,recordType);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_recordType_set. Expected _p_recordGroup");
            }
        }
        if (!SvOK((SV*) ST(1))) arg2 = 0;
        else arg2 = (char *) SvPV(ST(1), PL_na);
        {
            if (arg1->recordType) free((char*)arg1->recordType);
            arg1->recordType = (char *) malloc(strlen(arg2)+1);
            strcpy((char*)arg1->recordType,arg2);
        }
        
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_recordType_get) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        char *result;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 1) || (items > 1)) {
            SWIG_croak("Usage: recordGroup_recordType_get(self);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_recordType_get. Expected _p_recordGroup");
            }
        }
        result = (char *) ((arg1)->recordType);
        
        ST(argvi) = sv_newmortal();
        if (result) {
            sv_setpv((SV*)ST(argvi++), (char *) result);
        }else {
            sv_setsv((SV*)ST(argvi++), &PL_sv_undef);
        }
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}


XS(_wrap_recordGroup_flagStoreData_set) {
    char _swigmsg[SWIG_MAX_ERRMSG] = "";
    const char *_swigerr = _swigmsg;
    {
        recordGroup *arg1 ;
        int arg2 ;
        int argvi = 0;
        dXSARGS;
        
        if ((items < 2) || (items > 2)) {
            SWIG_croak("Usage: recordGroup_flagStoreData_set(self,flagStoreData);");
        }
        {
            if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_recordGroup,0) < 0) {
                SWIG_croak("Type error in argument 1 of recordGroup_flagStoreData_set. Expected _p_recordGroup");
            }
        }
        arg2 = (int) SvIV(ST(1));
        if (arg1) (arg1)->flagStoreData = arg2;
        
        
        XSRETURN(argvi);
        fail:
        (void) _swigerr;
    }
    croak(_swigerr);
}