home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / modula / terminal.def < prev    next >
Encoding:
Modula Definition  |  1993-10-23  |  1.1 KB  |  58 lines
  1. DEFINITION MODULE Terminal;
  2.  
  3.  
  4. TYPE
  5.   ReadProcedure  = PROCEDURE (VAR CHAR);
  6.   WriteProcedure = PROCEDURE (CHAR);
  7.   ErrorProcedure = PROCEDURE (ARRAY OF CHAR);
  8.  
  9.  
  10. VAR
  11.   ctrlc:      BOOLEAN;
  12.   echo:       BOOLEAN;
  13.   termCH:     CHAR;
  14.  
  15.  
  16.   RawRead:    ReadProcedure;
  17.  
  18.   BusyRead:   ReadProcedure;   (* PROCEDURE BusyRead (VAR ch: CHAR);       *)
  19.  
  20.   Write:      WriteProcedure;  (* PROCEDURE Write (ch: CHAR);              *)
  21.  
  22.   WriteError: ErrorProcedure;  (* PROCEDURE WriteError (s: ARRAY OF CHAR); *)
  23.  
  24.  
  25.  
  26.  
  27. PROCEDURE Read (VAR ch: CHAR);
  28.  
  29. (* Aufruf von "RawRead" mit Berücksichtigung von "ctrlc", "echo"
  30.    und "ReadAgain *)
  31.  
  32. PROCEDURE ReadString (VAR str: ARRAY OF CHAR);
  33.  
  34. PROCEDURE ReadAgain;
  35.  
  36. PROCEDURE WriteString (string: ARRAY OF CHAR);
  37.  
  38. PROCEDURE WriteLn;
  39.  
  40.  
  41.  
  42. PROCEDURE AssignRead (rp: ReadProcedure; VAR done: BOOLEAN);
  43.  
  44. PROCEDURE AssignBusyRead (rp: ReadProcedure; VAR done: BOOLEAN);
  45.  
  46. PROCEDURE AssignWrite (wp: WriteProcedure; VAR done: BOOLEAN);
  47.  
  48.  
  49.  
  50. PROCEDURE StdRead (VAR ch: CHAR);
  51.  
  52. PROCEDURE StdBusyRead (VAR ch: CHAR);
  53.  
  54. PROCEDURE StdWrite (ch: CHAR);
  55.  
  56. END Terminal.
  57.  
  58.