File psl-1983/3-1/kernel/io-errors.red artifact 40d73b7baf part of check-in trunk

%
% IO-ERRORS.RED - Error handlers for input and output
% 
% Author:      Eric Benson
%	       Symbolic Computation Group
%              Computer Science Dept.
%              University of Utah
% Date:        27 August 1981
% Copyright (c) 1981 University of Utah
%

on SysLisp;

syslsp procedure ChannelNotOpen(Chn, Ch);
    ChannelError(Chn, "Channel not open");

syslsp procedure WriteOnlyChannel Chn;
    ChannelError(Chn, "Channel open for write only");

syslsp procedure ReadOnlyChannel(Chn, Ch);
    ChannelError(Chn, "Channel open for read only");

syslsp procedure IllegalStandardChannelClose Chn;
    ChannelError(Chn, "Illegal to close standard channel");

syslsp procedure IOError(Message);
    StdError BldMsg("I/O Error: %s", Message);

syslsp procedure ChannelError(Channel, Message);
    StdError BldMsg("I/O Error on channel %d: %s", IntInf Channel, Message);

off SysLisp;

END;