add more tests and a top level for perl wrapping

1 files changed, 66 insertions, 0 deletions

diff --git a/libvxi11client/perlglue.c b/libvxi11client/perlglue.c
new file mode 100644
index 0000000..937b9e4
--- /dev/null
+++ b/libvxi11client/perlglue.c
@@ -0,0 +1,66 @@
+#include "perlglue.h"
+#include "libvxi11client.h"
+#include <stdbool.h>
+
+int vopen(char* address, char* device) {
+	return vxi11_open(address, device);
+}
+
+int vabort(void) {
+	return vxi11_abort();
+}
+
+int vtrigger(bool waitforlock) {
+	return vxi11_trigger(waitforlock);
+}
+
+int vclear(bool waitforlock) {
+	return vxi11_clear(waitforlock);
+}
+
+int vwrite(char* data, unsigned int len, bool waitlock, bool end) {
+	return vxi11_write(data, len, waitlock, end);
+}
+
+int vread(char* buffer, unsigned int bufferlen, bool waitlock, bool termchrset, char termchr) {
+	return vxi11_read(buffer, bufferlen, waitlock, termchrset, termchr);
+}
+
+int vlock(bool waitforlock) {
+	return vxi11_lock(waitforlock);
+}
+
+int vunlock(void) {
+	return vxi11_unlock();
+}
+
+int vlocal(bool waitforlock) {
+	return vxi11_local(waitforlock);
+}
+
+int vremote(bool waitforlock) {
+	return vxi11_remote(waitforlock);
+}
+
+int vreadstatusbyte(bool waitforlock) {
+	return vxi11_readstatusbyte(waitforlock);
+}
+
+int vcreate_intr_chan(void) {
+	return vxi11_create_intr_chan();
+}
+
+int vdestroy_intr_chan(void) {
+	return vxi11_destroy_intr_chan();
+}
+
+int venable_srq(bool enable, char* handle) {
+}
+
+int vdocmd(unsigned long cmd, bool waitforlock) {
+	return vxi11_docmd(cmd, waitforlock);
+}
+
+int vclose(void) {
+	return vxi11_close();
+}