123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- (*
- (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
- See the copyright notice in the ACK home directory, in the file "Copyright".
- *)
-
- (*
- Module: Interface to termcap database
- From: Unix manual chapter 3
- Version: $Id$
- *)
- (*
- Use this like the C-version. In this Modula-2 version, some of the buffers,
- that are explicit in the C-version, are hidden. These buffers are initialized
- by a call to Tgetent. The "ARRAY OF CHAR" parameters must be null-terminated.
- You can call them with a constant string argument, as these are always
- null-terminated in our Modula-2 implementation.
- Unlike the C version, this version takes care of UP, BC, PC, and ospeed
- automatically.
- If Tgetent is not called by the user, it is called by the module itself,
- using the TERM environment variable, or "dumb" if TERM does not exist.
- *)
- DEFINITION MODULE Termcap;
- TYPE STRCAP;
- PUTPROC = PROCEDURE(CHAR);
- PROCEDURE Tgetent(name: ARRAY OF CHAR) : INTEGER;
- PROCEDURE Tgetnum(id: ARRAY OF CHAR): INTEGER;
- PROCEDURE Tgetflag(id: ARRAY OF CHAR): BOOLEAN;
- PROCEDURE Tgoto(cm: STRCAP; col, line: INTEGER): STRCAP;
- (* Result exists until next call to Tgoto *)
- PROCEDURE Tgetstr(id: ARRAY OF CHAR; VAR res: STRCAP) : BOOLEAN;
- (* Returns FALSE if capability does not exist;
- Result exists until next call to Tgetent.
- *)
- PROCEDURE Tputs(cp: STRCAP; affcnt: INTEGER; p: PUTPROC);
- END Termcap.
|