#include "zebra_perl.h"
#include "data1.h"
#include "yaz/odr.h"
+#include "yaz/cql.h"
%}
/* == Typemaps ============================================================= */
/* RetrievalRecordBuff is a special construct, to allow to map a char * buf
to non-null terminated perl string scalar value (SVpv). */
+%typemap(in) int * {
+ int i;
+ if (!SvIOK($input))
+ croak("Argument $argnum is not an integer.");
+ i = SvIV($input);
+ $1 = &i;
+}
+
+%typemap(out) int * {
+ $result=newSViv($1)
+ sv_2mortal($result);
+ argvi++;
+}
+
%typemap(out) RetrievalRecordBuf * {
- $result = newSVpv($1->buf,$1->len);
+ if ($1->len) {
+ $result = newSVpv($1->buf,$1->len);
+ } else {
+ $result = newSVpv("",0);
+ }
sv_2mortal($result);
argvi++;
}
%include "zebra_perl.h"
+typedef struct {
+ int processed;
+ int inserted;
+ int updated;
+ int deleted;
+ long utime;
+ long stime;
+} ZebraTransactionStatus;
+
+
/* == Module initialization and cleanup (zebra_perl.c) ===================== */
void init (void);
void DESTROY (void);
-
/* == Logging facilities (yaz/log.h) ======================================= */
void logLevel (int level);
/* end transaction (remove write lock) (zebraapi.c) */
%name(end_trans)
-void zebra_end_trans (ZebraHandle zh);
+void zebra_end_transaction (ZebraHandle zh, ZebraTransactionStatus *stat);
+
+%name(trans_no)
+int zebra_trans_no (ZebraHandle zh);
-/* begin retrieval (add read lock) (zebraapi.c) */
%name(begin_read)
int zebra_begin_read (ZebraHandle zh);
+void zts_test (ZebraTransactionStatus *stat);
+
/* end retrieval (remove read lock) (zebraapi.c) */
%name(end_read)
void zebra_end_read (ZebraHandle zh);
%name(update_record)
int zebra_update_record (ZebraHandle zh,
recordGroup *rGroup,
+ const char *recordType,
int sysno,
const char *match,
const char *fname,
%name(delete_record)
int zebra_delete_record (ZebraHandle zh,
recordGroup *rGroup,
+ const char *recordType,
int sysno,
const char *match,
const char *fname,
const char *setname);
-/* TODO: search_CCL */
+/* == YAZ - query tools ==================================================== */
+
+cql_transform_t cql_transform_open_fname(const char *fname);
+void cql_transform_close(cql_transform_t ct);
+int cql_transform_error(cql_transform_t ct, const char **addinfo);
+
+%name(cql2pqf)
+int zebra_cql2pqf (cql_transform_t ct,
+ const char *query, char *res, int len);
/* == Retrieval (zebra_api_ext.c) ========================================== */
RetrievalRecord *res,
int pos);
+/* Delete Result Set(s) (zebraapi.c) */
+%name(deleteResultSet)
+int zebra_deleleResultSet(ZebraHandle zh, int function,
+ int num_setnames, char **setnames,
+ int *statuses);
+
+
/* == Sort ================================================================= */
int sort (ZebraHandle zh,
ODR stream,
);
/* == Scan ================================================================= */
-/*
-%apply int *INOUT {int *position};
-%apply int *INOUT {int *num_entries};
-%apply int *INOUT {int *is_partial};
-
-%name(scan_PQF)
-void zebra_scan_PQF (ZebraHandle zh,
- ODR stream,
- const char *pqf_query,
- int *position,
- int *num_entries,
- int *is_partial);
-*/
%name(scan_PQF)
void zebra_scan_PQF (ZebraHandle zh,
ScanObj *so,
ODR stream,
const char *pqf_query);
-ScanEntry *getScanEntry(ScanObj *so, int pos);
+scanEntry *getScanEntry(ScanObj *so, int pos);
/* Admin functionality */
/*
*/
-/* Delete Result Set(s) */
-/*
-int zebra_deleleResultSet(ZebraHandle zh, int function,
- int num_setnames, char **setnames,
- int *statuses);
-*/
/* do authentication */
/*
* =========================================================================
*/
int grs_perl_readf(struct perl_context *context, size_t len);
+int grs_perl_readline(struct perl_context *context);
+char grs_perl_getc(struct perl_context *context);
off_t grs_perl_seekf(struct perl_context *context, off_t offset);
off_t grs_perl_tellf(struct perl_context *context);
void grs_perl_endf(struct perl_context *context, off_t offset);