Bump version.

[ZOOM-Perl-moved-to-github.git] / ZOOM.xs

diff --git a/ZOOM.xs b/ZOOM.xs
index 708b004..5298f1c 100644 (file)
--- 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
+