stv0g/comedilib
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Perl demos moved from perl/ directory

Browse source
This commit is contained in:
David Schleef 2001-07-10 22:28:06 +00:00
parent 0dd63c60de
commit f8cab16c4d
2 changed files with 47 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
demo/perl/info.perl Executable file
View file

@ -0,0 +1,45 @@
#!/usr/bin/perl
use Comedi qw( :SubdeviceTypes );
use Comedi::Lib;
sub help {
print STDERR "info </dev/comediN>\n";
exit(0);
}
%subdevice_types = (
COMEDI_SUBD_UNUSED, 'unused',
COMEDI_SUBD_AI, 'analog input',
COMEDI_SUBD_AO, 'analog output',
COMEDI_SUBD_DI, 'digital input',
COMEDI_SUBD_DO, 'digital output',
COMEDI_SUBD_DIO, 'digital I/O',
COMEDI_SUBD_COUNTER, 'counter',
COMEDI_SUBD_TIMER, 'timer',
COMEDI_SUBD_MEMORY, 'memory',
COMEDI_SUBD_CALIB, 'calibration',
COMEDI_SUBD_PROC, 'processor',
);
#
# Main Program
#
help() if (@ARGV != 1);
$it = comedi_open($ARGV[0]) || die "cannot open $ARGV[0]: $!";
printf("overall info:\n");
printf(" version code: %d.%d.%d (0x%06x)\n", comedi_get_version($it), comedi_get_version_code($it));
printf(" driver name: %s\n", comedi_get_driver_name($it));
printf(" board name: %s\n", comedi_get_board_name($it));
printf(" number of subdevices: %d\n", $n_subdevices = comedi_get_n_subdevices($it));
for ($i = 0; $i < $n_subdevices; $i++) {
printf("subdevice %d:\n", $i);
$type = comedi_get_subdevice_type($it, $i);
printf(" type: %d (%s)\n", $type, $subdevice_types{$type});
printf(" number of channels: %d\n", comedi_get_n_channels($it, $i));
printf(" max data value: %d\n", comedi_get_maxdata($it, $i, 0));
}

2
demo/perl/inp.pl Executable file
View file

@ -0,0 +1,2 @@
#!/usr/bin/perl