------------------------------------------------------------------------------ -- -- package Debugging (spec) -- -- This package is used to log debugging messages. -- If the program is executed with command line arguments, then the last -- argument is used as the name Current_Error is logged to. Otherwise -- will Current_Error be redirected to Standard_Output. -- ------------------------------------------------------------------------------ -- Update information: -- -- 1996.04.05 (Jacob Sparre Andersen) -- Written. -- -- 1996.05.07 (Jacob S. A. & Jesper H. V. L.) -- Added the exceptions Not_Implemented_Yet and Can_Not_Be_Implemented. -- -- 1996.07.26 (Jacob Sparre Andersen) -- Added the exception This_Can_Never_Happen. -- -- (Insert additional update information above this line.) ------------------------------------------------------------------------------ package Debugging is Debug : constant Boolean := True; --------------------------------------------------------------------------- -- Exceptions: Not_Implemented_Yet : exception; Can_Not_Be_Implemented : exception; This_Can_Never_Happen : exception; ----------------------------------------------------------------------- -- procedure Message: -- -- Writes a message to Current_Error if debugging is activated. procedure Message (Item : in String); pragma Inline (Message); ----------------------------------------------------------------------- -- procedure Message_Line: -- -- Writes a message and a new line to Current_Error if debugging is -- activated. procedure Message_Line (Item : in String); pragma Inline (Message_Line); ----------------------------------------------------------------------- end Debugging;
Typeset with Ada_To_HTML (Jacob and Jesper)