3 # This file is part of DisOrder.
4 # Copyright (C) 2007 Richard Kettlewell
6 # This program is free software: you can redistribute it and/or modify
7 # it under the terms of the GNU General Public License as published by
8 # the Free Software Foundation, either version 3 of the License, or
9 # (at your option) any later version.
11 # This program is distributed in the hope that it will be useful,
12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with this program. If not, see <http://www.gnu.org/licenses/>.
25 if(/sequence (\d+) timestamp (\w+) length (\w+) end (\w+)/) {
27 my $timestamp = hex($2);
33 print "$seq < $last\n";
34 } elsif($seq != $last + 1) {
35 printf "%u when %u expected, missed %d\n",
36 $seq, $last + 1, $seq - $last;
39 if(exists $start{$seq}) {
40 print "$seq: duplicate";
42 $start{$seq} = $timestamp;
44 if(exists $start{$seq-1}) {
45 if($end{$seq-1} != $start{$seq}) {
46 printf "%u ends at %x but %u starts at %x (delta=%d)\n",
47 $seq-1, $end{$seq-1}, $seq, $start{$seq},
48 $start{$seq}-$end{$seq-1};