git.rot13.org Git - vrDialog/blob - dialog.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Data::Dump qw(dump);
   6 use Device::SerialPort qw(:STAT);
   7
   8 my $debug = $ENV{DEBUG} || 0;
   9
  10 my $port = Device::SerialPort->new('/dev/ttyUSB0');
  11 $port->baudrate(9600);
  12 $port->databits(8);
  13 $port->parity('none');
  14 $port->stopbits(1);
  15 $port->handshake('none');
  16
  17 $port->read_char_time(500);
  18 $port->read_const_time(1000);
  19
  20 sub as_hex {
  21         my @out;
  22         foreach my $str ( @_ ) {
  23                 my $hex = uc unpack( 'H*', $str );
  24                 $hex =~ s/(..)/$1 /g if length( $str ) > 2;
  25                 $hex =~ s/\s+$//;
  26                 push @out, $hex;
  27         }
  28         return join(' | ', @out);
  29 }
  30
  31 sub hex2bytes {
  32         my $bytes;
  33         $bytes .= pack('C', hex('0x' . $_)) foreach split(/\s+/,join(' ',@_));
  34         return $bytes;
  35 }
  36
  37 sub crc {
  38         my $data = shift;
  39         my $crc = 0;
  40         for my $i ( 0 .. length($data) - 2 ) {
  41                 if ( $crc & 0x80 ) {
  42                         $crc = ( $crc << 1 ) ^ 25;
  43                 } else {
  44                         $crc = $crc << 1;
  45                 }
  46                 $crc = $crc & 0xff;
  47                 my $byte = ord(substr($data,$i,1));
  48                 $crc = $crc ^ $byte;
  49 #               warn "## ", as_hex(chr($byte)), " crc = ", $crc, " ", as_hex(chr($crc));
  50         }
  51         if ( chr($crc) ne substr($data,-1,1) ) {
  52                 warn "CRC error for ",as_hex($data), " calulated ", as_hex(chr($crc));
  53         }
  54 }
  55
  56 sub v {
  57         my ($hex,$desc) = @_;
  58         my $bytes = hex2bytes( $hex );
  59         warn "# $desc\n";
  60 retry:
  61         warn ">> ",as_hex( $bytes );
  62         crc( $bytes );
  63         $port->write( $bytes );
  64
  65         my $data = $port->read(1);
  66         warn "<< len: ",ord($data) if $debug;
  67
  68         goto retry if ord($data) == 0;
  69
  70         $data .= $port->read(ord($data) - 1);
  71         crc($data);
  72         warn "<< ",as_hex($data);
  73
  74 }
  75
  76 v '07 02 00 00 00 04 C4', "hardware version";
  77
  78 v '07 0A 00 00 00 04 44', 'software version';
  79
  80 v '07 00 01 00 06 0E EA', 'temperatures';
  81
  82 v '07 00 00 00 26 0A A6', 'last errros';
  83
  84 v '07 00 00 00 26 00 AC', 'last errros (with invalid length)';