err.sa

 
---------------------------> Sather 1.1 source file <--------------------------
-- Rewritten by Ari Juhani Huttunen (Ari.Huttunen@hut.fi), 1994              --
-- Copyright (C) International Computer Science Institute, 1994.  COPYRIGHT  --
-- NOTICE: This code is provided "AS IS" WITHOUT ANY WARRANTY and is subject --
-- to the terms of the SATHER LIBRARY GENERAL PUBLIC LICENSE contained in    --
-- the file "Doc/License" of the Sather distribution.  The license is also   --
-- available from ICSI, 1947 Center St., Suite 600, Berkeley CA 94704, USA.  --
--------> Please email comments to sather-bugs@icsi.berkeley.edu. <----------

-- err.sa: Output on stderr.


class ERR < $OSTREAM 
class ERR < $OSTREAM is
    -- Direct access to stderr.

    create:SAME is return self; end;
    
    plus(s:$STR):SAME is 
	-- Print `s' on stderr and return self.
	FILE::stderr.plus(s);
	return self;
    end;
    
    plus(s:$STR) is 
	-- Print `s' on stderr.
	FILE::stderr.plus(s);
    end;

end; -- class ERR