* perl5.swg
*
* Perl5 runtime library
- * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.8 2003-03-03 00:47:58 pop Exp $
+ * $Header: /home/cvsroot/idis/perl/Attic/IDZebra_wrap.c,v 1.12 2003-03-04 23:32:55 pop Exp $
* ----------------------------------------------------------------------------- */
#define SWIGPERL
#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_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]
#include "zebraapi.h"
-#include "zebra_api_ext.h"
#include "zebra_perl.h"
#include "data1.h"
#include "yaz/odr.h"
}
-XS(_wrap_ScanEntry_occurrences_set) {
+XS(_wrap_scanEntry_occurrences_set) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
- ScanEntry *arg1 ;
+ scanEntry *arg1 ;
int arg2 ;
int argvi = 0;
dXSARGS;
if ((items < 2) || (items > 2)) {
- SWIG_croak("Usage: ScanEntry_occurrences_set(self,occurrences);");
+ SWIG_croak("Usage: scanEntry_occurrences_set(self,occurrences);");
}
{
- if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_ScanEntry,0) < 0) {
- SWIG_croak("Type error in argument 1 of ScanEntry_occurrences_set. Expected _p_ScanEntry");
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_scanEntry,0) < 0) {
+ SWIG_croak("Type error in argument 1 of scanEntry_occurrences_set. Expected _p_scanEntry");
}
}
arg2 = (int) SvIV(ST(1));
}
-XS(_wrap_ScanEntry_occurrences_get) {
+XS(_wrap_scanEntry_occurrences_get) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
- ScanEntry *arg1 ;
+ scanEntry *arg1 ;
int result;
int argvi = 0;
dXSARGS;
if ((items < 1) || (items > 1)) {
- SWIG_croak("Usage: ScanEntry_occurrences_get(self);");
+ SWIG_croak("Usage: scanEntry_occurrences_get(self);");
}
{
- if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_ScanEntry,0) < 0) {
- SWIG_croak("Type error in argument 1 of ScanEntry_occurrences_get. Expected _p_ScanEntry");
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_scanEntry,0) < 0) {
+ SWIG_croak("Type error in argument 1 of scanEntry_occurrences_get. Expected _p_scanEntry");
}
}
result = (int) ((arg1)->occurrences);
}
-XS(_wrap_ScanEntry_term_set) {
+XS(_wrap_scanEntry_term_set) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
- ScanEntry *arg1 ;
+ scanEntry *arg1 ;
char *arg2 ;
int argvi = 0;
dXSARGS;
if ((items < 2) || (items > 2)) {
- SWIG_croak("Usage: ScanEntry_term_set(self,term);");
+ SWIG_croak("Usage: scanEntry_term_set(self,term);");
}
{
- if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_ScanEntry,0) < 0) {
- SWIG_croak("Type error in argument 1 of ScanEntry_term_set. Expected _p_ScanEntry");
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_scanEntry,0) < 0) {
+ SWIG_croak("Type error in argument 1 of scanEntry_term_set. Expected _p_scanEntry");
}
}
if (!SvOK((SV*) ST(1))) arg2 = 0;
}
-XS(_wrap_ScanEntry_term_get) {
+XS(_wrap_scanEntry_term_get) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
- ScanEntry *arg1 ;
+ scanEntry *arg1 ;
char *result;
int argvi = 0;
dXSARGS;
if ((items < 1) || (items > 1)) {
- SWIG_croak("Usage: ScanEntry_term_get(self);");
+ SWIG_croak("Usage: scanEntry_term_get(self);");
}
{
- if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_ScanEntry,0) < 0) {
- SWIG_croak("Type error in argument 1 of ScanEntry_term_get. Expected _p_ScanEntry");
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_scanEntry,0) < 0) {
+ SWIG_croak("Type error in argument 1 of scanEntry_term_get. Expected _p_scanEntry");
}
}
result = (char *) ((arg1)->term);
}
-XS(_wrap_new_ScanEntry) {
+XS(_wrap_new_scanEntry) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
- ScanEntry *result;
+ scanEntry *result;
int argvi = 0;
dXSARGS;
if ((items < 0) || (items > 0)) {
- SWIG_croak("Usage: new_ScanEntry();");
+ SWIG_croak("Usage: new_scanEntry();");
}
- result = (ScanEntry *)(ScanEntry *) calloc(1, sizeof(ScanEntry));
+ result = (scanEntry *)(scanEntry *) calloc(1, sizeof(scanEntry));
ST(argvi) = sv_newmortal();
- SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_ScanEntry,0);
+ SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_scanEntry,0);
XSRETURN(argvi);
fail:
(void) _swigerr;
}
-XS(_wrap_delete_ScanEntry) {
+XS(_wrap_delete_scanEntry) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
- ScanEntry *arg1 ;
+ scanEntry *arg1 ;
int argvi = 0;
dXSARGS;
if ((items < 1) || (items > 1)) {
- SWIG_croak("Usage: delete_ScanEntry(self);");
+ SWIG_croak("Usage: delete_scanEntry(self);");
}
{
- if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_ScanEntry,0) < 0) {
- SWIG_croak("Type error in argument 1 of delete_ScanEntry. Expected _p_ScanEntry");
+ if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_scanEntry,0) < 0) {
+ SWIG_croak("Type error in argument 1 of delete_scanEntry. Expected _p_scanEntry");
}
}
free((char *) arg1);
const char *_swigerr = _swigmsg;
{
ScanObj *arg1 ;
- ScanEntry *arg2 ;
+ scanEntry *arg2 ;
int argvi = 0;
dXSARGS;
}
}
{
- if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_ScanEntry,0) < 0) {
- SWIG_croak("Type error in argument 2 of ScanObj_entries_set. Expected _p_ScanEntry");
+ if (SWIG_ConvertPtr(ST(1), (void **) &arg2, SWIGTYPE_p_scanEntry,0) < 0) {
+ SWIG_croak("Type error in argument 2 of ScanObj_entries_set. Expected _p_scanEntry");
}
}
if (arg1) (arg1)->entries = arg2;
const char *_swigerr = _swigmsg;
{
ScanObj *arg1 ;
- ScanEntry *result;
+ scanEntry *result;
int argvi = 0;
dXSARGS;
SWIG_croak("Type error in argument 1 of ScanObj_entries_get. Expected _p_ScanObj");
}
}
- result = (ScanEntry *) ((arg1)->entries);
+ result = (scanEntry *) ((arg1)->entries);
ST(argvi) = sv_newmortal();
- SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_ScanEntry,0);
+ SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_scanEntry,0);
XSRETURN(argvi);
fail:
(void) _swigerr;
}
-XS(_wrap_zts_test) {
- char _swigmsg[SWIG_MAX_ERRMSG] = "";
- const char *_swigerr = _swigmsg;
- {
- ZebraTransactionStatus *arg1 ;
- int argvi = 0;
- dXSARGS;
-
- if ((items < 1) || (items > 1)) {
- SWIG_croak("Usage: zts_test(stat);");
- }
- {
- if (SWIG_ConvertPtr(ST(0), (void **) &arg1, SWIGTYPE_p_ZebraTransactionStatus,0) < 0) {
- SWIG_croak("Type error in argument 1 of zts_test. Expected _p_ZebraTransactionStatus");
- }
- }
- zts_test(arg1);
-
-
- XSRETURN(argvi);
- fail:
- (void) _swigerr;
- }
- croak(_swigerr);
-}
-
-
XS(_wrap_end_read) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
}
+XS(_wrap_deleteResultSet) {
+ char _swigmsg[SWIG_MAX_ERRMSG] = "";
+ const char *_swigerr = _swigmsg;
+ {
+ ZebraHandle arg1 ;
+ int arg2 ;
+ int arg3 ;
+ char **arg4 ;
+ int *arg5 ;
+ int result;
+ int argvi = 0;
+ dXSARGS;
+
+ if ((items < 5) || (items > 5)) {
+ SWIG_croak("Usage: deleteResultSet(zh,function,num_setnames,setnames,statuses);");
+ }
+ {
+ ZebraHandle * argp;
+ if (SWIG_ConvertPtr(ST(0),(void **) &argp, SWIGTYPE_p_ZebraHandle,0) < 0) {
+ SWIG_croak("Type error in argument 1 of deleteResultSet. Expected _p_ZebraHandle");
+ }
+ arg1 = *argp;
+ }
+ arg2 = (int) SvIV(ST(1));
+ arg3 = (int) SvIV(ST(2));
+ {
+ AV *tempav;
+ I32 len;
+ int i;
+ SV **tv;
+ STRLEN na;
+ if (!SvROK(ST(3)))
+ croak("Argument 4 is not a reference.");
+ if (SvTYPE(SvRV(ST(3))) != SVt_PVAV)
+ croak("Argument 4 is not an array.");
+ tempav = (AV*)SvRV(ST(3));
+ len = av_len(tempav);
+ arg4 = (char **) malloc((len+2)*sizeof(char *));
+ for (i = 0; i <= len; i++) {
+ tv = av_fetch(tempav, i, 0);
+ arg4[i] = (char *) SvPV(*tv,na);
+ }
+ arg4[i] = NULL;
+ }
+ {
+ int i;
+ if (!SvIOK(ST(4)))
+ croak("Argument 5 is not an integer.");
+ i = SvIV(ST(4));
+ arg5 = &i;
+ }
+ result = (int)zebra_deleleResultSet(arg1,arg2,arg3,arg4,arg5);
+
+ ST(argvi) = sv_newmortal();
+ sv_setiv(ST(argvi++), (IV) result);
+ {
+ free(arg4);
+ }
+ XSRETURN(argvi);
+ fail:
+ {
+ free(arg4);
+ }
+ (void) _swigerr;
+ }
+ croak(_swigerr);
+}
+
+
XS(_wrap_sort) {
char _swigmsg[SWIG_MAX_ERRMSG] = "";
const char *_swigerr = _swigmsg;
{
ScanObj *arg1 ;
int arg2 ;
- ScanEntry *result;
+ scanEntry *result;
int argvi = 0;
dXSARGS;
}
}
arg2 = (int) SvIV(ST(1));
- result = (ScanEntry *)getScanEntry(arg1,arg2);
+ result = (scanEntry *)getScanEntry(arg1,arg2);
ST(argvi) = sv_newmortal();
- SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_ScanEntry,0);
+ SWIG_MakePtr(ST(argvi++), (void *) result, SWIGTYPE_p_scanEntry,0);
XSRETURN(argvi);
fail:
(void) _swigerr;
arg4 = *argp;
}
{
- if (SWIG_ConvertPtr(ST(4), (void **) &arg5, SWIGTYPE_p_int,0) < 0) {
- SWIG_croak("Type error in argument 5 of data1_nodetogr. Expected _p_int");
- }
+ int i;
+ if (!SvIOK(ST(4)))
+ croak("Argument 5 is not an integer.");
+ i = SvIV(ST(4));
+ arg5 = &i;
}
result = (Z_GenericRecord *)data1_nodetogr(arg1,arg2,arg3,arg4,arg5);
}
arg3 = (int) SvIV(ST(2));
{
- if (SWIG_ConvertPtr(ST(3), (void **) &arg4, SWIGTYPE_p_int,0) < 0) {
- SWIG_croak("Type error in argument 4 of data1_nodetobuf. Expected _p_int");
- }
+ int i;
+ if (!SvIOK(ST(3)))
+ croak("Argument 4 is not an integer.");
+ i = SvIV(ST(3));
+ arg4 = &i;
}
result = (char *)data1_nodetobuf(arg1,arg2,arg3,arg4);
}
arg4 = (int) SvIV(ST(3));
{
- if (SWIG_ConvertPtr(ST(4), (void **) &arg5, SWIGTYPE_p_int,0) < 0) {
- SWIG_croak("Type error in argument 5 of data1_nodetomarc. Expected _p_int");
- }
+ int i;
+ if (!SvIOK(ST(4)))
+ croak("Argument 5 is not an integer.");
+ i = SvIV(ST(4));
+ arg5 = &i;
}
result = (char *)data1_nodetomarc(arg1,arg2,arg3,arg4,arg5);
}
arg3 = (int) SvIV(ST(2));
{
- if (SWIG_ConvertPtr(ST(3), (void **) &arg4, SWIGTYPE_p_int,0) < 0) {
- SWIG_croak("Type error in argument 4 of data1_nodetoidsgml. Expected _p_int");
- }
+ int i;
+ if (!SvIOK(ST(3)))
+ croak("Argument 4 is not an integer.");
+ i = SvIV(ST(3));
+ arg4 = &i;
}
result = (char *)data1_nodetoidsgml(arg1,arg2,arg3,arg4);
}
arg3 = (int) SvIV(ST(2));
{
- if (SWIG_ConvertPtr(ST(3), (void **) &arg4, SWIGTYPE_p_int,0) < 0) {
- SWIG_croak("Type error in argument 4 of data1_nodetosoif. Expected _p_int");
- }
+ int i;
+ if (!SvIOK(ST(3)))
+ croak("Argument 4 is not an integer.");
+ i = SvIV(ST(3));
+ arg4 = &i;
}
result = (char *)data1_nodetosoif(arg1,arg2,arg3,arg4);
static swig_type_info _swigt__p_data1_marctab[] = {{"_p_data1_marctab", 0, "data1_marctab *", 0},{"_p_data1_marctab"},{0}};
static swig_type_info _swigt__p_ZebraTransactionStatus[] = {{"IDZebra::ZebraTransactionStatus", 0, "ZebraTransactionStatus *", 0},{"IDZebra::ZebraTransactionStatus"},{0}};
static swig_type_info _swigt__p_Z_BriefBib[] = {{"_p_Z_BriefBib", 0, "Z_BriefBib *", 0},{"_p_Z_BriefBib"},{0}};
-static swig_type_info _swigt__p_ScanEntry[] = {{"IDZebra::ScanEntry", 0, "ScanEntry *", 0},{"IDZebra::ScanEntry"},{0}};
+static swig_type_info _swigt__p_scanEntry[] = {{"IDZebra::scanEntry", 0, "scanEntry *", 0},{"IDZebra::scanEntry"},{0}};
static swig_type_info _swigt__p_f_p_void_p_char_size_t__int[] = {{"_p_f_p_void_p_char_size_t__int", 0, "int (*)(void *,char *,size_t)", 0},{"_p_f_p_void_p_char_size_t__int"},{0}};
static swig_type_info _swigt__p_FILE[] = {{"_p_FILE", 0, "FILE *", 0},{"_p_FILE"},{0}};
static swig_type_info _swigt__p_data1_element[] = {{"_p_data1_element", 0, "data1_element *", 0},{"_p_data1_element"},{0}};
_swigt__p_data1_marctab,
_swigt__p_ZebraTransactionStatus,
_swigt__p_Z_BriefBib,
-_swigt__p_ScanEntry,
+_swigt__p_scanEntry,
_swigt__p_f_p_void_p_char_size_t__int,
_swigt__p_FILE,
_swigt__p_data1_element,
{"IDZebrac::RetrievalRecord_buf_get", _wrap_RetrievalRecord_buf_get},
{"IDZebrac::new_RetrievalRecord", _wrap_new_RetrievalRecord},
{"IDZebrac::delete_RetrievalRecord", _wrap_delete_RetrievalRecord},
-{"IDZebrac::ScanEntry_occurrences_set", _wrap_ScanEntry_occurrences_set},
-{"IDZebrac::ScanEntry_occurrences_get", _wrap_ScanEntry_occurrences_get},
-{"IDZebrac::ScanEntry_term_set", _wrap_ScanEntry_term_set},
-{"IDZebrac::ScanEntry_term_get", _wrap_ScanEntry_term_get},
-{"IDZebrac::new_ScanEntry", _wrap_new_ScanEntry},
-{"IDZebrac::delete_ScanEntry", _wrap_delete_ScanEntry},
+{"IDZebrac::scanEntry_occurrences_set", _wrap_scanEntry_occurrences_set},
+{"IDZebrac::scanEntry_occurrences_get", _wrap_scanEntry_occurrences_get},
+{"IDZebrac::scanEntry_term_set", _wrap_scanEntry_term_set},
+{"IDZebrac::scanEntry_term_get", _wrap_scanEntry_term_get},
+{"IDZebrac::new_scanEntry", _wrap_new_scanEntry},
+{"IDZebrac::delete_scanEntry", _wrap_delete_scanEntry},
{"IDZebrac::ScanObj_num_entries_set", _wrap_ScanObj_num_entries_set},
{"IDZebrac::ScanObj_num_entries_get", _wrap_ScanObj_num_entries_get},
{"IDZebrac::ScanObj_position_set", _wrap_ScanObj_position_set},
{"IDZebrac::end_trans", _wrap_end_trans},
{"IDZebrac::trans_no", _wrap_trans_no},
{"IDZebrac::begin_read", _wrap_begin_read},
-{"IDZebrac::zts_test", _wrap_zts_test},
{"IDZebrac::end_read", _wrap_end_read},
{"IDZebrac::commit", _wrap_commit},
{"IDZebrac::get_shadow_enable", _wrap_get_shadow_enable},
{"IDZebrac::cql2pqf", _wrap_cql2pqf},
{"IDZebrac::records_retrieve", _wrap_records_retrieve},
{"IDZebrac::record_retrieve", _wrap_record_retrieve},
+{"IDZebrac::deleteResultSet", _wrap_deleteResultSet},
{"IDZebrac::sort", _wrap_sort},
{"IDZebrac::scan_PQF", _wrap_scan_PQF},
{"IDZebrac::getScanEntry", _wrap_getScanEntry},
SWIG_TypeClientData(SWIGTYPE_p_recordGroup, (void*) "IDZebra::recordGroup");
SWIG_TypeClientData(SWIGTYPE_p_RetrievalObj, (void*) "IDZebra::RetrievalObj");
SWIG_TypeClientData(SWIGTYPE_p_RetrievalRecord, (void*) "IDZebra::RetrievalRecord");
- SWIG_TypeClientData(SWIGTYPE_p_ScanEntry, (void*) "IDZebra::ScanEntry");
+ SWIG_TypeClientData(SWIGTYPE_p_scanEntry, (void*) "IDZebra::scanEntry");
SWIG_TypeClientData(SWIGTYPE_p_ScanObj, (void*) "IDZebra::ScanObj");
SWIG_TypeClientData(SWIGTYPE_p_ZebraTransactionStatus, (void*) "IDZebra::ZebraTransactionStatus");
ST(0) = &PL_sv_yes;