}
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
}
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
if (!SvOK((SV*) ST(4))) arg5 = 0;
else arg5 = (char *) SvPV(ST(4), PL_na);
if (!SvOK((SV*) ST(5))) arg6 = 0;
if (!SvOK((SV*) ST(4))) arg5 = 0;
else arg5 = (char *) SvPV(ST(4), PL_na);
if (!SvOK((SV*) ST(5))) arg6 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
arg9 = (int) SvIV(ST(8));
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
arg9 = (int) SvIV(ST(8));
result = (int)zebra_insert_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
result = (int)zebra_insert_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
}
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
}
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
if (!SvOK((SV*) ST(4))) arg5 = 0;
else arg5 = (char *) SvPV(ST(4), PL_na);
if (!SvOK((SV*) ST(5))) arg6 = 0;
if (!SvOK((SV*) ST(4))) arg5 = 0;
else arg5 = (char *) SvPV(ST(4), PL_na);
if (!SvOK((SV*) ST(5))) arg6 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
arg9 = (int) SvIV(ST(8));
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
arg9 = (int) SvIV(ST(8));
result = (int)zebra_update_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
result = (int)zebra_update_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
}
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
}
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
if (!SvOK((SV*) ST(4))) arg5 = 0;
else arg5 = (char *) SvPV(ST(4), PL_na);
if (!SvOK((SV*) ST(5))) arg6 = 0;
if (!SvOK((SV*) ST(4))) arg5 = 0;
else arg5 = (char *) SvPV(ST(4), PL_na);
if (!SvOK((SV*) ST(5))) arg6 = 0;
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
arg9 = (int) SvIV(ST(8));
else arg7 = (char *) SvPV(ST(6), PL_na);
arg8 = (int) SvIV(ST(7));
arg9 = (int) SvIV(ST(8));
result = (int)zebra_delete_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
result = (int)zebra_delete_record(arg1,arg2,(char const *)arg3,arg4,(char const *)arg5,(char const *)arg6,(char const *)arg7,arg8,arg9);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
- if ((items < 3) || (items > 3)) {
- SWIG_croak("Usage: search_PQF(zh,pqf_query,setname);");
+ if ((items < 4) || (items > 4)) {
+ SWIG_croak("Usage: search_PQF(zh,pqf_query,setname,hits);");
else arg2 = (char *) SvPV(ST(1), PL_na);
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
else arg2 = (char *) SvPV(ST(1), PL_na);
if (!SvOK((SV*) ST(2))) arg3 = 0;
else arg3 = (char *) SvPV(ST(2), PL_na);
- result = (int)zebra_search_PQF(arg1,(char const *)arg2,(char const *)arg3);
+ {
+ SV *tempsv;
+ if (!SvROK(ST(3))) {
+ SWIG_croak("expected a reference");
+ }
+ tempsv = SvRV(ST(3));
+ if (!SvIOK(tempsv)) {
+ SWIG_croak("expected a integer reference");
+ }
+ dvalue4 = SvIV(tempsv);
+ arg4 = &dvalue4;
+ }
+ _saved[0] = ST(3);
+ result = (int)zebra_search_PQF(arg1,(char const *)arg2,(char const *)arg3,arg4);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
- result = (int)sort(arg1,arg2,(char const *)arg3,(char const *)arg4,(char const **)arg5);
+ result = (int)zebra_sort_by_specstr(arg1,arg2,(char const *)arg3,(char const *)arg4,(char const **)arg5);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
ST(argvi) = sv_newmortal();
sv_setiv(ST(argvi++), (IV) result);
- int i;
- if (!SvIOK(ST(4)))
- croak("Argument 5 is not an integer.");
- i = SvIV(ST(4));
- arg5 = &i;
+ 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");
+ }
}
result = (Z_GenericRecord *)data1_nodetogr(arg1,arg2,arg3,arg4,arg5);
}
result = (Z_GenericRecord *)data1_nodetogr(arg1,arg2,arg3,arg4,arg5);
- int i;
- if (!SvIOK(ST(3)))
- croak("Argument 4 is not an integer.");
- i = SvIV(ST(3));
- arg4 = &i;
+ 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");
+ }
}
result = (char *)data1_nodetobuf(arg1,arg2,arg3,arg4);
}
result = (char *)data1_nodetobuf(arg1,arg2,arg3,arg4);
- int i;
- if (!SvIOK(ST(4)))
- croak("Argument 5 is not an integer.");
- i = SvIV(ST(4));
- arg5 = &i;
+ 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");
+ }
}
result = (char *)data1_nodetomarc(arg1,arg2,arg3,arg4,arg5);
}
result = (char *)data1_nodetomarc(arg1,arg2,arg3,arg4,arg5);
- int i;
- if (!SvIOK(ST(3)))
- croak("Argument 4 is not an integer.");
- i = SvIV(ST(3));
- arg4 = &i;
+ 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");
+ }
}
result = (char *)data1_nodetoidsgml(arg1,arg2,arg3,arg4);
}
result = (char *)data1_nodetoidsgml(arg1,arg2,arg3,arg4);
- int i;
- if (!SvIOK(ST(3)))
- croak("Argument 4 is not an integer.");
- i = SvIV(ST(3));
- arg4 = &i;
+ 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");
+ }
}
result = (char *)data1_nodetosoif(arg1,arg2,arg3,arg4);
}
result = (char *)data1_nodetosoif(arg1,arg2,arg3,arg4);