-- -- FACILITY: ITT Avionics -- 390 Washington Avenue -- Nutley, NJ 07110 -- -- ABSTRACT: This package provides routines that are used by the data -- reduction function 'read_tape' to keep track of any messages -- that have been lost. This file contains the following: package -- MISSING_SEQUENCE_VALUES, procedure INITIALIZE_MISSING_MESSAGE_ -- LIST, procedure LAST_MISSING_MESSAGE, function GET_MISSING_ -- SEQUENCES, procedure SET_LAST_VALID_MESSAGE, and function LAST_ -- VALID_SEQUENCE_NUMBER. -- -- -- -- MODIFICATION HISTORY: -- -- DATE REASON AUTHOR -- -- -- with CALENDAR, UATL_DATA_TYPES; use CALENDAR, UATL_DATA_TYPES; package MISSING_SEQUENCE_VALUES is type MISSING_SET is record BATCH_TIME : DAY_DURATION; SEQUENCE_NUMBER : INTEGER_16; end record; type MISSING_SEQUENCE is record FIRST : MISSING_SET; LAST : MISSING_SET; end record; type MISSING_LIST is array (INTEGER range 1 .. 200) of MISSING_SEQUENCE; type MISSING_SEQUENCES is record LIST : MISSING_LIST; LENGTH : INTEGER range 0 .. MISSING_LIST'last := 0; end record; procedure INITIALIZE_MISSING_MESSAGE_LIST; procedure LAST_MISSING_MESSAGE (VALUE : in MISSING_SET); -- -- PURPOSE: This routine will add a new item to the missing sequences -- list by using the last valid message previously set and -- the new value. -- function GET_MISSING_SEQUENCES return MISSING_SEQUENCES; -- -- PURPOSE: This function returns the current list of missing sequence -- numbers. -- procedure SET_LAST_VALID_MESSAGE (VALUE : in MISSING_SET); function LAST_VALID_SEQUENCE_NUMBER return INTEGER_16; end MISSING_SEQUENCE_VALUES;