RaceParser: compare our and controller unit standing and timing

diff --git a/SCX/RaceParser.pm b/SCX/RaceParser.pm
index 51f06762408ad458cef7abc7d14e4ab525027557..90ae735c29c9d7103a8e7ff0d8304beca7b8a48a 100644 (file)
--- a/SCX/RaceParser.pm
+++ b/SCX/RaceParser.pm
@@ -132,5 +132,29 @@ sub controller_status {
        }
 }
 
+sub standings {
+       my ($self, @order) = @_;
+
+       return 0; # for now
+       for my $i (0..$#order) {
+               my $car_id = $order[$i];
+               if ($self->track->car($car_id)->{order} != $i) {
+                       print $self->now(), " car $car_id out of order (we: ",
+                               $self->track->car($car_id)->{order},
+                               ", controller unit: $i)\n";
+               }
+       }
+}
+
+sub car_lap_time {
+       my ($self, $car_id, $lap, $time) = @_;
+
+       if ($self->track->car($car_id)->{lap} != $lap) {
+               print $self->now(), " car $car_id lap mismatch - we: ",
+                       $self->track->car($car_id)->{lap},
+                       ", controller unit: $lap\n";
+       }
+}
+
 1;