X-Git-Url: http://sru.miketaylor.org.uk/?a=blobdiff_plain;f=ZOOM.xs;h=7df537699ba6f053fcfa8f5ce03916b3ce7c104c;hb=a3e8644875d6c1bc32f9695c2b7bfcc2837abb02;hp=c33cfa06130f96308ace83593652f66742729ba0;hpb=3551ebd0b752b9a09a691cbef46568fef363ac29;p=ZOOM-Perl-moved-to-github.git

diff --git a/ZOOM.xs b/ZOOM.xs
index c33cfa0..7df5376 100644
--- a/ZOOM.xs
+++ b/ZOOM.xs
@@ -1,4 +1,4 @@
-/* $Id: ZOOM.xs,v 1.19 2005-11-02 17:23:50 mike Exp $ */
+/* $Id: ZOOM.xs,v 1.21 2005-11-03 15:58:09 mike Exp $ */
 
 #include "EXTERN.h"
 #include "perl.h"
@@ -250,13 +250,33 @@ size_t
 ZOOM_resultset_size(r)
 	ZOOM_resultset r
 
-# TESTING
-void
-ZOOM_resultset_records(r, recs, start, count)
+# TESTED
+SV *
+ZOOM_resultset_records(r, start, count, return_values)
 	ZOOM_resultset r
-	ZOOM_record* recs
 	size_t start
 	size_t count
+	int return_values
+	INIT:
+		ZOOM_record *recs = 0;
+	CODE:
+		if (return_values)
+			recs = (ZOOM_record*) xmalloc(count * sizeof *recs);
+		ZOOM_resultset_records(r, recs, start, count);
+		if (return_values) {
+			AV *av = newAV();
+			int i;
+			for (i = 0; i < count; i++) {
+				SV *tmp = newSV(0);
+				sv_setref_pv(tmp, "ZOOM_record", (void*) recs[i]);
+				av_push(av, tmp);
+			}
+			RETVAL = newRV((SV*) av);
+		} else {
+			RETVAL = &PL_sv_undef;
+		}
+	OUTPUT:
+		RETVAL
 
 # TESTED
 ZOOM_record