// $Id$

//X/$functor Stream-Error (S : IndexedStream) (P : Stream-Position);

$use Arithm Box StdIO;


$box Error_Box;
/*
 * Format: ... ((e.name) (s.row s.column) (e.message)) ...
 */

//** $func Errors = errors;
//** $func Clear-Errors = ;

Errors = <Get &Error_Box>;

Clear_Errors = <Store &Error_Box /*empty*/>;


//** $func Error    stream e.message = ;
//** $func Error-At t.pos  e.message = ;

Error stream e.message =
  <Put &Error_Box	(() (0 0) (e.message))>;
//X/	<Put &Error-Box
//X/		((<S.Name stream>) (<S.Row stream> <"-" <S.Column stream> 1>) (e.message))>;

Error_At t.pos e.message =
  <Put &Error_Box	(() (0 0) (e.message))>;
//X/	<Put &Error-Box
//X/		((<P.Name t.pos>) (<P.Row t.pos> <P.Column t.pos>) (e.message))>;


//** $func Print-Errors = ;

Print_Errors, {
  <Errors> : e ((e.name) (s.row s.col) (e.message)) e,
    <PrintLn e.name": "s.row", "s.col" --- Error: "e.message>,
    $fail;;
};