//
// Copyright (C) 1999, 2000 Refal+ Development Group
//
// Refal+ is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// Refal+ is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with Refal+; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
// $Source$
// $Revision$
// $Date$
// Author: Andrey Slepuhin <pooh@msu.ru>

// rfp_err.rfi
$use "rfp_src" ; // rfp_src.rfi

$use Box ;
$use Arithm ;
$use StdIO ;

RFP-Error (s.idx s.type s.row s.column) (e.message) =
  <? &Error-Counter> : s.n,
  <Store &Error-Counter <"+" s.n 1>>,
  <PrintLN <RFP-Source-File-Name s.idx> ": "
     s.row ", " s.column " --- Error: " e.message>;

RFP-Warning (s.idx s.type s.row s.column) (e.message) =
  <? &Warning-Counter> : s.n,
  <Store &Warning-Counter <"+" s.n 1>>,
  <PrintLN <RFP-Source-File-Name s.idx> ": "
     s.row ", " s.column " --- Warning: " e.message>;