Much new text.

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

diff --git a/ZOOM.xs b/ZOOM.xs
index 744db9b..71a241d 100644 (file)
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,4 +1,4 @@
-/* $Id: ZOOM.xs,v 1.25 2005-11-07 14:27:43 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.31 2005-11-16 16:10:13 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -207,6 +207,11 @@ ZOOM_connection_addinfo(c)
 
 # TESTED
 const char *
+ZOOM_connection_diagset(c)
+       ZOOM_connection c
+
+# TESTED
+const char *
 ZOOM_diag_str(error)
        int error
 
@@ -290,13 +295,20 @@ void
 ZOOM_resultset_cache_reset(r)
        ZOOM_resultset r
 
-# TESTED
+# TESTED (but deprecated)
 void
 ZOOM_resultset_sort(r, sort_type, sort_spec)
        ZOOM_resultset r
        const char* sort_type
        const char* sort_spec
 
+# TESTED
+int
+ZOOM_resultset_sort1(r, sort_type, sort_spec)
+       ZOOM_resultset r
+       const char* sort_type
+       const char* sort_spec
+
 # See "typemap" for discussion of the "const char *" return-type.
 #
 # TESTED
@@ -347,81 +359,59 @@ ZOOM_query_sortby(s, criteria)
        ZOOM_query      s
        const char *    criteria
 
-# UNTESTED
+# TESTED
 ZOOM_scanset
 ZOOM_connection_scan(c, startterm)
-       ZOOM_connection c
-       const char *    startterm
+       ZOOM_connection c
+       const char* startterm
 
-# UNTESTED
+# TESTED
 const char *
 ZOOM_scanset_term(scan, pos, occ, len)
-       ZOOM_scanset    scan
-       size_t  pos
-       int *   occ
-       int *   len
+       ZOOM_scanset scan
+       size_t pos
+       int& occ
+       int& len
+       OUTPUT:
+               RETVAL
+               occ
+               len
 
-# UNTESTED
+# TESTED
 const char *
 ZOOM_scanset_display_term(scan, pos, occ, len)
-       ZOOM_scanset    scan
-       size_t  pos
-       int *   occ
-       int *   len
+       ZOOM_scanset scan
+       size_t pos
+       int& occ
+       int& len
+       OUTPUT:
+               RETVAL
+               occ
+               len
 
-# UNTESTED
+# TESTED
 size_t
 ZOOM_scanset_size(scan)
-       ZOOM_scanset    scan
+       ZOOM_scanset scan
 
-# UNTESTED
+# TESTED
 void
 ZOOM_scanset_destroy(scan)
-       ZOOM_scanset    scan
+       ZOOM_scanset scan
 
-# UNTESTED
+# TESTED
 const char *
 ZOOM_scanset_option_get(scan, key)
        ZOOM_scanset    scan
        const char *    key
 
-# UNTESTED
+# TESTED
 void
 ZOOM_scanset_option_set(scan, key, val)
        ZOOM_scanset    scan
        const char *    key
        const char *    val
 
-# UNTESTED
-ZOOM_package
-ZOOM_connection_package(c, options)
-       ZOOM_connection c
-       ZOOM_options    options
-
-# UNTESTED
-void
-ZOOM_package_destroy(p)
-       ZOOM_package    p
-
-# UNTESTED
-void
-ZOOM_package_send(p, type)
-       ZOOM_package    p
-       const char *    type
-
-# UNTESTED
-const char *
-ZOOM_package_option_get(p, key)
-       ZOOM_package    p
-       const char *    key
-
-# UNTESTED
-void
-ZOOM_package_option_set(p, key, val)
-       ZOOM_package    p
-       const char *    key
-       const char *    val
-
 # We ignore the return value of ZOOM_options_set_callback(), since it
 # is always just the address of the __ZOOM_option_callback() function.
 # The information that we actually want -- the address of the Perl
@@ -526,6 +516,36 @@ ZOOM_options_set_int(opt, name, value)
        const char* name
        int value
 
+# TESTED
+ZOOM_package
+ZOOM_connection_package(c, options)
+       ZOOM_connection c
+       ZOOM_options    options
+
+# TESTED
+void
+ZOOM_package_destroy(p)
+       ZOOM_package    p
+
+# TESTED
+void
+ZOOM_package_send(p, type)
+       ZOOM_package    p
+       const char *    type
+
+# TESTED
+const char *
+ZOOM_package_option_get(p, key)
+       ZOOM_package    p
+       const char *    key
+
+# TESTED
+void
+ZOOM_package_option_set(p, key, val)
+       ZOOM_package    p
+       const char *    key
+       const char *    val
+
 # UNTESTED
 int
 ZOOM_event(no, cs)