Tigr-m2/tvision-m2/tvtty.def

DEFINITION MODULE FOR "C" tvtty;

(* Minimal libc binding used by the terminal backend.  This is the only
   non-Modula-2 dependency of the TVision-style library: the ISO language
   has no way to put a tty in raw mode or to query its size, so we call
   tcgetattr/tcsetattr/ioctl/read/write directly.  Everything else is plain
   GNU Modula-2. *)

FROM SYSTEM IMPORT ADDRESS;

EXPORT UNQUALIFIED tcgetattr, tcsetattr, ioctl, read, write;

PROCEDURE tcgetattr(fd : INTEGER; termios : ADDRESS) : INTEGER;
PROCEDURE tcsetattr(fd, action : INTEGER; termios : ADDRESS) : INTEGER;
PROCEDURE ioctl(fd : INTEGER; request : CARDINAL; arg : ADDRESS) : INTEGER;
PROCEDURE read(fd : INTEGER; buf : ADDRESS; count : CARDINAL) : INTEGER;
PROCEDURE write(fd : INTEGER; buf : ADDRESS; count : CARDINAL) : INTEGER;

END tvtty.