--
package CONTROL_INTERCEPTION is 
--+----------------------------------------------------------------------
--
--	Unit Type : package type
--	Unit Name : CONTROL_INTERCEPTION.ADA
--	Version   : V01.00
--
--	Author : Stephen R. Rainier		--  Date : 8/30/85 --
--
--	Purpose : This package establishes a CTRL/C and CTRL/Y handler
--		  when it is elaborated.
--
--		  If your tasking program fails to stop when you type
--		  ^Y EXIT, or fails to invoke DEBUG when you type
--		  ^Y DEBUG, WITHing this package can cure the problem.
--		  WITH the package and elaborate it PRIOR to creating
--		  tasks in the program.
--
--		  Example:
--		      WITH CONTROL_C_INTERCEPTION;
--		      pragma ELABORATE(CONTROL_C_INTERCEPTION);
--		      procedure MY_MAIN_PROGRAM is ...
--		      
--		  Then, if CTRL/Y does not work as a way to invoke 
--		  the debugger or exit, type CTRL/C. This will invoke
--		  the VAX Ada CTRL/C interceptor, which will give you
--		  most of the same options that CTRL/Y would. NOTE: other
--		  CTRL/C handlers that might be present in the program 
--		  will also be able to execute (provided they are also 
--		  "outband" AST handlers), either before or after 
--		  the VAX Ada CTRL/C interceptor gives its prompt.
--
--		  CAUTION:   
--		  Use of this package can override the intentions of
--		  the DCL command SET NOCONTROL_Y.  It allows a user to 
--		  type CTRL/C and get the same degree of control over 
--		  the program.  Hence, any Ada program that uses this
--		  package should NOT be used in "captive" command files
--		  (command files that prevent a user from gaining 
--		  control by typing CTRL/Y).  
--
--
--	Modifications :
--
--	Name			Date		Description of Change
--	----			----		---------------------
--
--
--	Packages "WITH"ed : None.
--
--
--	Procedure/Function "CALL"s : None.
--
--
--	Exceptions :
--
--	Name			Handled/Raised		Description
--	----			--------------		-----------
--
--
--
--	Side Effects :
--
--
--	Comments :
--
--%----------------------------------------------------------------------

end CONTROL_INTERCEPTION;