(*
This module provides a simple exception handler for the
various Bag 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 #>
*)

DEFINITION MODULE BagHandlers;
(*==============================================================
    Version  : 1.00  02 May 1989  C. Lins
    Compiler : TopSpeed Modula-2
    Component: Bag Exception Handlers Utility

    REVISION HISTORY
    v1.00  02 May 1989  C. Lins:
        Initial implementation

    (C) Copyright 1989 Charles A. Lins
==============================================================*)

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


PROCEDURE WriteHandler (    theModule  : CARDINAL   (*--in   *);
                            theRoutine : Operations (*--in   *);
                            theError   : Exceptions (*--in   *));

END BagHandlers.