X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;ds=inline;f=ZOOM.xs;h=5298f1c53674574b07549dc32ce1733041d0e382;hb=1ce6b87a4d6921795ae0a272021953272786935c;hp=708b0044119ec6a46db874625b8b2a9a81cde8f5;hpb=b9f6faa94c8fd6cfc475f667c535a539f04fe151;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index 708b004..5298f1c 100644
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,4 +1,4 @@
-/* $Id: ZOOM.xs,v 1.34 2005-12-19 17:46:52 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.37 2006-01-20 12:33:14 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -321,6 +321,12 @@ ZOOM_query_cql(s, str)
 	const char* str
 
 int
+ZOOM_query_cql2rpn(s, str, conn)
+	ZOOM_query s
+	const char* str
+	ZOOM_connection conn
+
+int
 ZOOM_query_prefix(s, str)
 	ZOOM_query s
 	const char* str
@@ -511,3 +517,61 @@ int
 ZOOM_connection_last_event(cs)
 	ZOOM_connection	cs
 
+# ----------------------------------------------------------------------------
+# What follows is the YAZ logging API.  This is not strictly part of
+# ZOOM, but it's so useful that it would be silly to omit.
+
+int
+yaz_log_mask_str(str)
+	const char *str
+
+int
+yaz_log_module_level(name)
+	const char *name
+
+void
+yaz_log_init(level, prefix, name)
+	int level
+	const char *prefix
+	const char *name
+
+void
+yaz_log_init_file(fname)
+	const char *fname
+
+void
+yaz_log_init_level(level)
+	int level
+
+void
+yaz_log_init_prefix(prefix)
+	const char *prefix
+
+void
+yaz_log_time_format(fmt)
+	const char *fmt
+
+void
+yaz_log_init_max_size(mx)
+	int mx
+
+# <stdarg.h> interfaces are horrible to code for a Perl-C interface
+# layer.  Instead, we expect Perl applications to construct the
+# message themselves, and pass it in as an opaque lump.
+void
+yaz_log(level, str)
+	int level
+	const char *str
+	CODE:
+		yaz_log(level, "%s", str);
+
+# This is also not strictly part of ZOOM
+unsigned long
+yaz_version(version_str, sys_str)
+	char *version_str
+	char *sys_str
+	OUTPUT:
+		RETVAL
+		version_str
+		sys_str
+