X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=ZOOM.xs;h=96e0548e36d57a91aa05efb151c5810dd940d814;hb=9140a0be284807f6509e1b3800c6093633940e17;hp=3314067a9b519cd490e44e2c12ef98ebcfb0a471;hpb=42f2e186cc19f2b972efff2cbd1b4246377f2e34;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index 3314067..96e0548 100644
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,4 +1,4 @@
-/* $Id: ZOOM.xs,v 1.43 2006-10-04 17:14:12 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.44 2006-11-28 16:47:19 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -288,6 +288,27 @@ ZOOM_resultset_sort1(r, sort_type, sort_spec)
 	const char* sort_type
 	const char* sort_spec
 
+# See comments for ZOOM_connection_error() above
+int
+ZOOM_record_error(rec, cp, addinfo, diagset)
+	ZOOM_record rec
+	const char* &cp
+	const char* &addinfo
+	const char* &diagset
+	CODE:
+		{
+		const char *ccp, *caddinfo, *cdset;
+		RETVAL = ZOOM_record_error(rec, &ccp, &caddinfo, &cdset);
+		cp = (char*) ccp;
+		addinfo = (char*) caddinfo;
+		diagset = (char*) cdset;
+		}
+	OUTPUT:
+		RETVAL
+		cp
+		addinfo
+		diagset
+
 # See "typemap" for discussion of the "const char *" return-type.
 #
 ### but should use datachunk for in some (not all!) cases.