os/src/POSIX/OSErrorPosix.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE OSErrorPosix;
Posix

IMPORT Atom, OSError;

PROCEDURE ErrnoAtom(n: CARDINAL): Atom.T;
Return an atom for errno value n.

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;
Return n such that ErrnoAtom(n) = a, or cause a checked runtime error.

END OSErrorPosix.