X-Git-Url: http://lists.indexdata.dk/cgi-bin?a=blobdiff_plain;f=ZOOM.xs;h=4cc674e3e0b687c609e022f43ff619d25d4cbfbb;hb=93400da1686198508695aac4ccaf9d1a21f2859b;hp=744db9bdc64ff2bd2c494cf387b290e5bb49ac64;hpb=4755b79a275323bd1601cfb969ef5787c830db90;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index 744db9b..4cc674e 100644
--- 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.27 2005-11-08 11:51:57 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -347,37 +347,45 @@ 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
 const char *
@@ -392,36 +400,6 @@ ZOOM_scanset_option_set(scan, key, val)
 	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
@@ -527,6 +505,36 @@ ZOOM_options_set_int(opt, name, value)
 	int value
 
 # 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
+
+# UNTESTED
 int
 ZOOM_event(no, cs)
 	int	no