package GPIBComm
@ISA = qw()

sub BEGIN

sub new
my ($module, $interface, $devname, $timeout, $EOT, $EOS) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetGPIB
sub SetGPIB        { my ($this,$g)=
return $this->{GPIB} = $g;

sub g
return shift->{GPIB};

sub SetDeviceName
sub SetDeviceName  { my ($this,$name)=
return $this->{DeviceName} = $name;

sub DeviceName
return shift->{DeviceName};

sub SetGPIBAddress
sub SetGPIBAddress { my ($this,$addr)=
return $this->{GPIBAddress} = $addr;

sub GPIBAddress
return shift->{GPIBAddress};

sub Initialize
my ($this) = @_;

sub Open
my ($this, $interface, $board, $name, $addr, $subaddr, $timeout, $EOT, $EOS) = @_;
return 0 if(!defined $g);
return $g;

sub print
my ($this, @a) = @_;
return $this->g()->ibwrt($line);

sub printf
my ($this, @a) = @_;

sub read
my ($this, $bufferlength) = @_;
return $response;