lang/m2/libm2/Terminal.def

   1 DEFINITION MODULE Terminal;
   2 (*
   3   Module:       Input/Output to/from terminals
   4   From:         "Programming in Modula-2", 3rd, corrected edition, by N. Wirth
   5   Version:      $Id: Terminal.def,v 1.3 1994/06/24 12:50:16 ceriel Exp $
   6 *)
   7
   8         PROCEDURE Read(VAR ch : CHAR);
   9         (* Read a character from the terminal and leave it in ch
  10         *)
  11
  12         PROCEDURE BusyRead(VAR ch : CHAR);
  13         (* Read a character from the terminal and leave it in ch.
  14            This is a non-blocking call. It returns 0C in ch if no
  15            character was typed.
  16         *)
  17
  18         PROCEDURE ReadAgain;
  19         (* Causes the last character read to be returned again upon the
  20            next call of Read.
  21         *)
  22
  23         PROCEDURE Write(ch : CHAR);
  24         (* Write character ch to the terminal.
  25         *)
  26
  27         PROCEDURE WriteLn;
  28         (* Terminate line.
  29         *)
  30
  31         PROCEDURE WriteString(s : ARRAY OF CHAR);
  32         (* Write string s to the terminal.
  33         *)
  34
  35 END Terminal.