src/simulator-trackdata.adb

   1 with Ada.Numerics;
   2 with Ada.Numerics.Generic_Elementary_Functions;
   3
   4 with Ada.Containers; use Ada.Containers;
   5 package body Simulator.TrackData is
   6    function "=" (Left, Right : CarIDVector_T.Vector) return Boolean is
   7       length : Count_Type := Left.Length;
   8       equals : Boolean := True;
   9    begin
  10       if (Right.Length /= length) then
  11          return False;
  12       end if;
  13       for i in Count_Type(Exit_Count_T'First) .. length loop
  14          if Left.Element(Exit_Count_T(i)) /= Right.Element(Exit_Count_T(i)) then
  15             return False;
  16          end if;
  17       end loop;
  18       return True;
  19    end "=";
  20
  21
  22
  23 end Simulator.TrackData;