lang/m2/libm2/XXTermcap.def

   1 (*
   2   (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
   3   See the copyright notice in the ACK home directory, in the file "Copyright".
   4 *)
   5
   6 (*
   7   Module:       Interface to termcap database
   8   From:         Unix manual chapter 3
   9   Version:      $Id: XXTermcap.def,v 1.2 1994/06/24 12:50:32 ceriel Exp $
  10 *)
  11
  12 (*$Foreign*)
  13
  14 DEFINITION MODULE XXTermcap;
  15 (* See the Unix termcap manual to see what this does.
  16    Interfaces directly to C routines. Not pretty.
  17    Use Termcap.def instead for a nicer interface.
  18 *)
  19
  20   FROM SYSTEM IMPORT ADDRESS;
  21
  22   TYPE PUTPROC = PROCEDURE(CHAR);
  23
  24   VAR PC: CHAR;
  25       UP, BC: ADDRESS;
  26       ospeed: INTEGER[0..32767];
  27
  28
  29 PROCEDURE tgetent(bp, name: ADDRESS): INTEGER;
  30 (* name must be null-terminated *)
  31
  32 PROCEDURE tgetnum(id: ADDRESS): INTEGER;
  33 (* id must be null-terminated *)
  34
  35 PROCEDURE tgetflag(id: ADDRESS): INTEGER;
  36 (* id must be null-terminated *)
  37
  38 PROCEDURE tgetstr(id: ADDRESS; area: ADDRESS): ADDRESS;
  39 (* id must be null-terminated *)
  40
  41 PROCEDURE tgoto(cm: ADDRESS; col, line: INTEGER) : ADDRESS;
  42 (* cm must be null-terminated *)
  43
  44 PROCEDURE tputs(cp: ADDRESS; affcnt: INTEGER; p: PUTPROC);
  45 (* cp must be null-terminated *)
  46
  47 END XXTermcap.