X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=ZOOM.xs;h=efb4582a5e6ca5b4608b777f1553d9ccf257f2ea;hb=f694f18bcdf9ab24fc1df2e4b7b663f827f32c14;hp=708b0044119ec6a46db874625b8b2a9a81cde8f5;hpb=b9f6faa94c8fd6cfc475f667c535a539f04fe151;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index 708b004..efb4582 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.35 2005-12-21 16:54:45 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,47 @@ 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
+
+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);
+