- my @bytes = unpack("C*", $data);
-
- push @{ $self->{bytes} }, @bytes;
- @bytes = @{ $self->{bytes} };
-
- my @bad_bytes;
-
- while (@bytes > $PACKET_SIZE) {
- if ($bytes[0] != 0x55) {
- push @bad_bytes, shift @bytes;
- next;
- }
- my $cmd = $bytes[1];
-
- if ($bytes[$PACKET_SIZE] != 0x05
- || SCX::CRC::digest(@bytes[0..$PACKET_SIZE-2])
- != $bytes[$PACKET_SIZE-1]) {
- push @bad_bytes, shift @bytes;
- next;
- }
-
- if (@bad_bytes) { # Report previous bad bytes first
- $self->log_bytes(\@bad_bytes, "Cannot parse packet");
- @bad_bytes = ();
- }
-
- my @packet = splice @bytes, 0, $PACKET_SIZE+1;
- my $rv = &{ $self->{callback} }(@packet[1..$PACKET_SIZE]);
- $self->log_bytes(@packet, $rv);
- }
- $self->log_bad_bytes(\@bad_bytes, "Cannot parse packet");
-
- @{ $self->{bytes} } = @bytes;
-}