git.rot13.org Git - zc/blob - zc-queue-inspect

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4
   5 use Data::Dump qw(dump);
   6 use File::Slurp;
   7
   8 use lib '.';
   9 use Protocol;
  10
  11 my $debug = $ENV{DEBUG};
  12 $| = 1;
  13
  14 if ( $debug ) {
  15         warn "## protocol = ",dump( $protocol );
  16         warn "## function_code_description = ",dump( $function_code_description );
  17 }
  18
  19 my $raw;
  20
  21 foreach my $filename ( @ARGV ) {
  22         my $up_down = $1 if $filename =~ m/(up|down)/;
  23         my $raw = read_file $filename;
  24         print "# $filename size:", -s $filename, " ";
  25         my $hash = protocol_decode( $up_down, $raw );
  26
  27         warn "hash = ",dump($hash);
  28
  29         my $function_code = $hash->{function_code} || die "no function_code";
  30         my $fc_desc = $function_code_description->{$up_down}->{$function_code} || die "no function_code_description for $up_down $function_code";
  31         print " function_code=$function_code ",
  32                 $fc_desc,
  33                 " ver=", $hash->{ver},
  34                 " len=", $hash->{len},
  35                 "\n";
  36
  37         foreach my $data_id ( @{ $hash->{data_id_order} } ) {
  38                 print join(" | ",
  39                         $hash->{up_down},
  40                         unpack('H*', chr($data_id)),
  41                         $protocol->{$data_id}->{description},
  42                         $hash->{data_id}->{$data_id},
  43                         "hex:" . unpack('H*', $hash->{data_range}->{$data_id}),
  44                         "len:" . $hash->{data_len}->{$data_id},
  45                         "fmt:" . $protocol->{$data_id}->{pack_fmt},
  46                         "range:" . $protocol->{$data_id}->{range},
  47                         "remark:" . $protocol->{$data_id}->{remark}
  48                 ),"\n";
  49         }
  50         print "\n";
  51
  52 }
  53