#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"

#include "perlglue.h"

typedef VXI11Context* VXI11__Client;

MODULE = VXI11::Client		PACKAGE = VXI11::Client		

PROTOTYPES: ENABLE

int
startinterruptserver()
	CODE:
		RETVAL = glue_start_interrupt_server(); 
	OUTPUT:
		RETVAL

int 
stopinterruptserver()
        CODE:  
                RETVAL = glue_stop_interrupt_server();
        OUTPUT:
                RETVAL

int
abort(context)
	VXI11::Client context
	CODE:
		RETVAL = vxi11_abort(context);
	OUTPUT:
		RETVAL

int
clear(context,waitforlock)
	VXI11::Client context
	bool	waitforlock
	CODE:
		RETVAL = vxi11_clear(context, waitforlock);
	OUTPUT:
		RETVAL

int
close(context)
	VXI11::Client context
	CODE:
		RETVAL = vxi11_close(context);
	OUTPUT:
		RETVAL

int
create_intr_chan(context)
	VXI11::Client context
	CODE:
		RETVAL = vxi11_create_intr_chan(context);
	OUTPUT:
		RETVAL

int
destroy_intr_chan(context)
	VXI11::Client context
	CODE:
		RETVAL = vxi11_destroy_intr_chan(context);
	OUTPUT:
		RETVAL

int
docmd(context, cmd, waitforlock)
	VXI11::Client context
	unsigned long	cmd
	bool	waitforlock
	CODE:
		RETVAL = vxi11_docmd(context, cmd, waitforlock);
	OUTPUT:
		RETVAL

int
enable_srq(context, enable, handle)
	VXI11::Client context
	bool	enable
	char*	handle
	CODE:
		RETVAL = vxi11_enable_srq(context,enable,handle);
	OUTPUT:
		RETVAL

char*
wait_for_interrupt()
        CODE:
                RETVAL = glue_wait_for_interrupt();
        OUTPUT:
                RETVAL


int
local(context, waitforlock)
	VXI11::Client context
	bool	waitforlock
	CODE:
		RETVAL = vxi11_local(context, waitforlock);
	OUTPUT:
		RETVAL

int
lock(context, waitforlock)
	VXI11::Client	context
	bool	waitforlock
	CODE:
		RETVAL = vxi11_lock(context, waitforlock);
	OUTPUT:
		RETVAL

VXI11::Client
open(address, device)
	char *	address
	char *	device
	CODE:
		RETVAL = glue_open(address, device);	
	OUTPUT:
		RETVAL

int
read(context, buffer, bufferlen, waitlock, termchrset, termchr)
	VXI11::Client context
	char *	buffer
	unsigned int	bufferlen
	bool	waitlock
	bool	termchrset
	char	termchr
	CODE:
		RETVAL = vxi11_read(context, buffer, bufferlen, waitlock, termchrset, termchr);
	OUTPUT:
		RETVAL

int
readstatusbyte(context, waitforlock)
	VXI11::Client context
	bool	waitforlock
	CODE:
		RETVAL = vxi11_readstatusbyte(context, waitforlock);
	OUTPUT:
		RETVAL

int
remote(context, waitforlock)
	VXI11::Client context
	bool	waitforlock
	CODE:
		RETVAL = vxi11_remote(context, waitforlock);
	OUTPUT:
		RETVAL

int
trigger(context, waitforlock)
	VXI11::Client context
	bool	waitforlock
	CODE:
		RETVAL = vxi11_trigger(context, waitforlock);
	OUTPUT:
		RETVAL

int
unlock(context)
	VXI11::Client context
	CODE:
		RETVAL = vxi11_unlock(context);
	OUTPUT:
		RETVAL

int
write(context,data, len, waitlock, end)
	VXI11::Client context
	char *	data
	int	len
	bool	waitlock
	bool	end
	CODE:
		RETVAL = vxi11_write(context, data, len, waitlock, end);
	OUTPUT:
		RETVAL