with ConsAKD; use ConsAKD;
	with TextAKD; use TextAKD;

	package body ErroAKD is
	----------------------------------------------------------------------
	-- Copyright (C) 1994 David Wallace Croft.  All rights reserved.
	----------------------------------------------------------------------

	procedure Report ( Status : in Status_Type ) is
	----------------------------------------------------------------------
	begin
	  Put_Line ( Status_Type'image ( Status ) );
	end Report;

	procedure Notify (
		 ErrorLocation : in string;
		 ErrorName     : in string := "Unknown" ) is
	----------------------------------------------------------------------
	begin
	  Put_Line ( ErrorName & " exception raised in " & ErrorLocation
	 & "!");
	end Notify;

	procedure Warn (
	  ErrorStr: in string ) is
	----------------------------------------------------------------------
	begin
	  New_Line;
	  Pause ( "Warning:  error """ & ErrorStr & """ has occured!" );
	end Warn;

	----------------------------------------------------------------------
	----------------------------------------------------------------------
	end ErroAKD;