packages feed

language-Modula2-0.1: examples/Modula-2_Libraries/C.-Lins_Modula-2_Software_Component_Library/Vol2/DeQueues/DQHANDLE.DEF

(*
This module provides a simple exception handler for the
various Deque abstractions. Given an error code, it reports
the exception to standard output in the following format:
### Error "<error text>" raised in Routine "<routine name>" in Module <module #>

The system beep is made before issuing the message and a WriteLn
follows the message display.
*)

DEFINITION MODULE DQHandlers; 
(*==============================================================
    Version  : 1.00  16 May 1989  C. Lins
    Compiler : TopSpeed Modula-2
    Component: Deque Exception Handlers Utility

    REVISION HISTORY
    v1.00  16 May 1989  C. Lins:
	Initial implementation
    (C) Copyright 1989 Charles A. Lins
==============================================================*)

FROM QEnum IMPORT
	(*--type*) Exceptions, Operations;


PROCEDURE WriteHandler (    theModule 	 : CARDINAL   (*--in   *);
							theOperation : Operations (*--in   *);
							theException : Exceptions (*--in   *));

END DQHandlers.