From f53b84a5cc7a641511e7caf241aab3229673cd0e Mon Sep 17 00:00:00 2001
From: mike <mike>
Date: Wed, 21 Dec 2005 16:54:45 +0000
Subject: [PATCH] Add many functions: ZOOM_query_cql2rpn() and all the logging
 stuff: + yaz_log_mask_str(str) + yaz_log_init(level,
 prefix, name) + yaz_log_init_file(fname) +
 yaz_log_init_level(level) + yaz_log_init_prefix(prefix) +
 yaz_log_time_format(fmt) + yaz_log_init_max_size(mx) +
 yaz_log(level, str)

---
 ZOOM.xs |   52 +++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 51 insertions(+), 1 deletion(-)

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);
+
-- 
1.7.10.4