Copyright (C) 1994, Digital Equipment Corp. INTERFACEPosixOSErrorPosix ;
IMPORT Atom, OSError; PROCEDURE ErrnoAtom(n: CARDINAL): Atom.T;
Return an atom forerrno
valuen
.
PROCEDURE Raise() RAISES {OSError.E};
== Raise0(Uerror.errno))
PROCEDURE Raise0(errno: INTEGER) RAISES {OSError.E};
== RAISE OSError.E(AtomList.List1(ErrnoAtom(errno)))
PROCEDURE AtomToErrno(a: Atom.T): CARDINAL;
Returnn
such thatErrnoAtom(n) = a
, or cause a checked runtime error.
END OSErrorPosix.