From ee9fe4fa6339dc1e49a4d484f9f03d4091c6aa90 Mon Sep 17 00:00:00 2001
From: daniel <danieruru@gmail.com>
Date: Fri, 11 Jan 2013 19:13:47 +0900
Subject: most of it seems to work in perl now

---
 libvxi11client/perlglue.c | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'libvxi11client/perlglue.c')

diff --git a/libvxi11client/perlglue.c b/libvxi11client/perlglue.c
index 937b9e4..697a480 100644
--- a/libvxi11client/perlglue.c
+++ b/libvxi11client/perlglue.c
@@ -2,6 +2,12 @@
 #include "libvxi11client.h"
 #include <stdbool.h>
 
+#define INTERRUPTHANDLE "libvxi11client"
+
+static void interruptcallback(void) {
+
+}
+
 int vopen(char* address, char* device) {
 	return vxi11_open(address, device);
 }
@@ -54,7 +60,8 @@ int vdestroy_intr_chan(void) {
 	return vxi11_destroy_intr_chan();
 }
 
-int venable_srq(bool enable, char* handle) {
+int venable_srq(bool enable) {
+	return vxi11_enable_srq(enable, INTERRUPTHANDLE, interruptcallback);
 }
 
 int vdocmd(unsigned long cmd, bool waitforlock) {
-- 
cgit