The perl interface is cleaner at least. Need to work out how to get the call back working

1 files changed, 140 insertions, 0 deletions

diff --git a/libvxi11client/perlbits/Client.xs b/libvxi11client/perlbits/Client.xs
new file mode 100644
index 0000000..b747707
--- /dev/null
+++ b/libvxi11client/perlbits/Client.xs
@@ -0,0 +1,140 @@
+#include "EXTERN.h"
+#include "perl.h"
+#include "XSUB.h"
+
+#include "ppport.h"
+
+MODULE = VXI11::Client		PACKAGE = VXI11::Client		
+
+int
+abort()
+	CODE:
+		RETVAL = vxi11_abort();
+	OUTPUT:
+		RETVAL
+
+int
+clear(waitforlock)
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_clear(waitforlock);
+	OUTPUT:
+		RETVAL
+
+int
+close()
+	CODE:
+		RETVAL = vxi11_close();
+	OUTPUT:
+		RETVAL
+
+int
+create_intr_chan()
+	CODE:
+		RETVAL = vxi11_create_intr_chan();
+	OUTPUT:
+		RETVAL
+
+int
+destroy_intr_chan()
+	CODE:
+		RETVAL = vxi11_destroy_intr_chan();
+	OUTPUT:
+		RETVAL
+
+int
+docmd(cmd, waitforlock)
+	unsigned long	cmd
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_docmd();
+	OUTPUT:
+		RETVAL
+
+int
+enable_srq(enable, callback)
+	bool	enable
+	SV *	callback
+	CODE:
+		RETVAL = glue_enable_srq(enable, callback);
+	OUTPUT:
+		RETVAL
+
+int
+local(waitforlock)
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_local(waitforlock);
+	OUTPUT:
+		RETVAL
+
+int
+lock(waitforlock)
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_lock(waitforlock);
+	OUTPUT:
+		RETVAL
+
+int
+open(address, device)
+	char *	address
+	char *	device
+	CODE:
+		RETVAL = vxi11_open(address, device);	
+	OUTPUT:
+		RETVAL
+
+int
+read(buffer, bufferlen, waitlock, termchrset, termchr)
+	char *	buffer
+	unsigned int	bufferlen
+	bool	waitlock
+	bool	termchrset
+	char	termchr
+	CODE:
+		RETVAL = vxi11_read(buffer, bufferlen, waitlock, termchrset, termchr);
+	OUTPUT:
+		RETVAL
+
+int
+readstatusbyte(waitforlock)
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_readstatusbyte();
+	OUTPUT:
+		RETVAL
+
+int
+remote(waitforlock)
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_remote();
+	OUTPUT:
+		RETVAL
+
+int
+trigger(waitforlock)
+	bool	waitforlock
+	CODE:
+		RETVAL = vxi11_trigger();
+	OUTPUT:
+		RETVAL
+
+int
+unlock()
+	CODE:
+		RETVAL = vxi11_unlock();
+	OUTPUT:
+		RETVAL
+
+int
+write(data, len, waitlock, end)
+	char *	data
+	unsigned int	len
+	bool	waitlock
+	bool	end
+	CODE:
+		RETVAL = vxi11_write(data, len, waitlock, end);
+	OUTPUT:
+		RETVAL