-- -- FACILITY: ITT Avionics -- 390 Washington Avenue -- Nutley, NJ 07110 -- -- ABSTRACT: This package provides the necessary routines needed to record -- data. This file contains the following: package DATA_RECORDING, -- procedure START_RECORDING, function MESSAGE_WILL_BE_RECORDED, -- procedure RECORD_MESSAGE, and procedure STOP_RECORDING. -- -- -- MODIFICATION HISTORY: -- -- DATE REASON AUTHOR -- -- -- with UATL_DATA_TYPES; use UATL_DATA_TYPES; package DATA_RECORDING is procedure START_RECORDING (CONTROL_MESSAGE : in UATL_DATA_TYPES.BATCH_CONTROL := ALL_DEACTIVATED; TEST_LABEL : in TEST_DESCRIPTION := " "; RUN_LABEL : in TEST_DESCRIPTION := " "; DEVICE_NAME : in STRING := ""); -- -- PURPOSE: This procedure is called to start data recording and to -- change the control message. -- function MESSAGE_WILL_BE_RECORDED (INTERFACE_ID : in INTERFACE_DEVICE; BATCH_ID : in BATCH_NUMBER) return BOOLEAN; -- -- PURPOSE: This function checks to see if recording is activated and -- if the control message setup be 'start recording' indicates -- whether the message will be recorded. A user should call -- this function before actually calling the 'record message' -- procedure in order to save processing time. -- procedure RECORD_MESSAGE (MSG : in BYTE_ARRAY; INTERFACE_ID : in INTERFACE_DEVICE; BATCH_ID : in BATCH_NUMBER); -- -- PURPOSE: This procedure is called everytime the user wants a message -- recorded. The procedure will check to see if recording -- has been activated -- procedure STOP_RECORDING; -- -- PURPOSE: This procedure will deactivate recording. -- -- exceptions ASSIGNMENT_ERROR : exception; END_OF_VOLUME : exception; DEVICE_ERROR : exception; end DATA_RECORDING;