#include "perlglue.h" #include "libvxi11client.h" #include 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(); }