1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
package VXI11::Client;
use 5.014002;
use strict;
use warnings;
require Exporter;
our @ISA = qw(Exporter);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
# This allows declaration use VXI11::Client ':all';
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
# will save memory.
our %EXPORT_TAGS = ( 'all' => [ qw(
) ] );
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw(
vxi_startinterruptserver
vxi_stopinterruptserver
vxi_open
vxi_wait_for_interrupt
);
our $VERSION = '0.01';
require XSLoader;
XSLoader::load('VXI11::Client', $VERSION);
# Preloaded methods go here.
sub vxi_enable_srq {
return vxi_enable_srq_long($_[0], 1, $_[1]);
}
sub vxi_disable_srq {
return vxi_enable_srq_long($_[0], 0 , "");
}
sub vxi_write {
my $self = shift;
my $data = shift;
my %args = (
len => -1,
waitlock => 0,
end => 1,
@_
);
return vxi_write_long($self, $data, $args{len}, $args{waitlock}, $args{end});
}
sub vxi_read {
my $self = shift;
my %args = (
bufferlen => 1024,
waitlock => 0,
termchrset => 0,
termchr => 0,
@_
);
return vxi_read_long($self, $args{bufferlen}, $args{waitlock}, $args{termchrset},$args{termchr});
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!
=head1 NAME
VXI11::Client - Perl extension for interfacing with VXI-11 networked instruments
=head1 SYNOPSIS
use VXI11::Client;
vxi_startinterruptserver();
my $instr = vxi_open("192.168.0.62", 0);
$instr->vxi_lock(0);
$instr->vxi_write("*idn?");
my ($bytes, $buff, $reason) = $instr->vxi_read();
print "got " . $bytes . ";" . $buff . " reason " . $reason ."\n";
my ($error, $statusbyte) = $instr->vxi_readstatusbyte(0);
printf "status byte is " . $statusbyte . "\n";
$instr->vxi_create_intr_chan();
$instr->vxi_enable_srq("myhandle");
vxi_wait_for_interrupt();
$instr->vxi_disable_srq();
$instr->vxi_destroy_intr_chan();
$instr->vxi_abort();
$instr->vxi_clear(0);
$instr->vxi_trigger(0);
$instr->vxi_local(0);
$instr->vxi_remote(0);
$instr->vxi_unlock();
$instr->vxi_close();
vxi_stopinterruptserver();
=head1 DESCRIPTION
A client for VXI-11 networked instruments. To start talking to an instrument
call open with the host you want to connect to (ip or hostname) and whether
you want to lock it right away. You can then call the object methods to
do stuff. For interrupts to work you must call vxi_startinterruptserver before
enabling interrupts. You only need to do this once even if you have multiple
instruments. VXI-11 has mixed client and server roles (with interrupts the client
becomes the server). Starting the interrupt server creates an RPC server on the
client that the instruments can connect to.
Return codes work like this;
1 - is a success
0 - means the request failed locally, the state inside the client is
incorrect, i.e. calling to enable interrupts before creating the channel
or that the server couldn't be contacted
< 0 - Any negative value is the negated VXI-11 error code from the server
The only exceptions to this are the read and write methods
0 - Error as above or zero bytes read/written
> 0 - Number of bytes read/written
=head2 EXPORT
vxi_startinterruptserver
vxi_stopinterruptserver
vxi_open
vxi_wait_for_interrupt
=head1 SEE ALSO
The vxi-11 spec.
=head1 AUTHOR
daniel, E<lt>daniel@E<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2013 by daniel
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.14.2 or,
at your option, any later version of Perl 5 you may have available.
=cut
|
