95 lines
2.1 KiB
Plaintext
95 lines
2.1 KiB
Plaintext
(* Abbreviation: Terminal *)
|
||
(* Version 1.10, Nov 1984 *)
|
||
DEFINITION MODULE Terminal;
|
||
(*
|
||
|
||
Terminal Input/Output
|
||
|
||
This module uses the read and write procedures from
|
||
module TermBase, which allows to redirect the i/o.
|
||
|
||
Derived from the Lilith Modula-2 system developed by the
|
||
group of Prof. N. Wirth at ETH Zurich, Switzerland.
|
||
*)
|
||
|
||
|
||
EXPORT QUALIFIED
|
||
Read, KeyPressed, ReadAgain, ReadString,
|
||
Write, WriteString, WriteLn;
|
||
|
||
|
||
PROCEDURE Read (VAR ch: CHAR);
|
||
(*
|
||
- Read a character from the terminal.
|
||
|
||
out: ch character that was read.
|
||
|
||
The character is not echoed.
|
||
The character ASCII.cr is transformed into ASCII.EOL.
|
||
*)
|
||
|
||
|
||
PROCEDURE KeyPressed (): BOOLEAN;
|
||
(*
|
||
- Test if a character is available to Read from terminal.
|
||
*)
|
||
|
||
|
||
PROCEDURE ReadAgain;
|
||
(*
|
||
- Undo the last read: Make the last character be re-read.
|
||
*)
|
||
|
||
|
||
PROCEDURE ReadString(VAR string: ARRAY OF CHAR);
|
||
(*
|
||
- Read (with echo) a line from the terminal.
|
||
|
||
out: string receives the text of the line
|
||
|
||
Characters are accepted (and echoed) from the keyboard
|
||
until <cr> is entered. The <cr> is not returned or
|
||
echoed. <del> and <bs> can be used for editing.
|
||
Tabs may be entered, but are expanded into blanks
|
||
immediately. No other control characters may be entered.
|
||
*)
|
||
|
||
|
||
PROCEDURE Write (ch: CHAR);
|
||
(*
|
||
- Write a character to the terminal.
|
||
|
||
in: ch character to be written.
|
||
|
||
If terminal output has not been redirected, the following
|
||
interpretations are made:
|
||
|
||
ASCII.EOL (36C) = go to beginning of next line
|
||
ASCII.ff (14C) = clear screen and set cursor home
|
||
ASCII.del (177C) = erase the last character on the left
|
||
ASCII.bs (10C) = move 1 character to the left
|
||
ASCII.cr (15C) = go to beginning of current line
|
||
ASCII.lf (12C) = move 1 line down, same column
|
||
*)
|
||
|
||
|
||
PROCEDURE WriteString (string: ARRAY OF CHAR);
|
||
(*
|
||
- Write a string to the terminal.
|
||
|
||
in: string string to be written.
|
||
|
||
The string is terminated by its physical length or by a
|
||
null character (0C).
|
||
*)
|
||
|
||
|
||
PROCEDURE WriteLn;
|
||
(*
|
||
- Write a new-line to the terminal.
|
||
[Equivalent to Write(ASCII.EOL)]
|
||
*)
|
||
|
||
|
||
END Terminal.
|
||
|