chiark / gitweb /
Source code reorganization:
[disorder] / clients / playrtp-log
1 #! /usr/bin/perl -w
2 use strict;
3
4 our $last;
5 my %start = ();
6 my %end = ();
7 while(<>) {
8     if(/sequence (\d+) timestamp (\w+) length (\w+) end (\w+)/) {
9         my $seq = $1;
10         my $timestamp = hex($2);
11         my $length = hex($3);
12         my $end = hex($4);
13
14         if(defined $last) {
15             if($seq < $last) {
16                 print "$seq < $last\n";
17             } elsif($seq != $last + 1) {
18                 printf "%u when %u expected, missed %d\n",
19                 $seq, $last + 1, $seq - $last;
20             }
21         }
22         if(exists $start{$seq}) {
23             print "$seq: duplicate";
24         }
25         $start{$seq} = $timestamp;
26         $end{$seq} = $end;
27         if(exists $start{$seq-1}) {
28             if($end{$seq-1} != $start{$seq}) {
29                 printf "%u ends at %x but %u starts at %x (delta=%d)\n",
30                 $seq-1, $end{$seq-1}, $seq, $start{$seq},
31                 $start{$seq}-$end{$seq-1};
32             }
33         }
34
35
36         $last = $seq;
37     }
38 }