home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / terminal.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  2.0 KB  |  59 lines
  1. DEFINITION MODULE Terminal;
  2. (* Direct to the terminal I/O for performance. *)
  3.  
  4.  
  5. (*
  6. *    Copyright (c) 1985,1986,1987,1988,1989 by
  7. *    ana-systems, Foster City, California.
  8. *    All Rights Reserved.
  9. *
  10. *    This software is furnished under a license and may be used and copied
  11. *    only  in accordance with  the  terms  of  such  license and  with the
  12. *    inclusion of the above copyright notice.  This software or  any other
  13. *    copies thereof may not be provided or otherwise made available to any
  14. *    other  person.   No title to and ownership of the  software is  herby
  15. *    transferred.
  16. *
  17. *    The information in this software is  subject to change without notice
  18. *    and  should  not be construed as a commitment by ana-systems.   No
  19. *    warranty is implied or expressed.
  20. *
  21. *   SCCID  = "1.2    10/8/86"; 
  22. *)
  23. EXPORT QUALIFIED
  24.         ReadChar,       ReadString,     CondRead, Read,
  25.         WriteChar,      WriteString,    WriteLn, Write,
  26.         WriteErrorString, ReadLn,       EOL;
  27.  
  28. (* Following routines not yet implemented.
  29.    They need to be clearly defined as they are very hardware dependant.
  30.  
  31.         NumRows,        NumCols,        GotoRowCol,
  32.         EraseScreen,    EraseToEOL,     EraseToEOS;
  33. *)
  34.  
  35. PROCEDURE ReadChar    ( VAR      ch : CHAR );      (* Read with echo *)
  36.  
  37. PROCEDURE Read        ( VAR      ch : CHAR );      (* Read with echo *)
  38.  
  39. PROCEDURE ReadLn;
  40.  
  41. PROCEDURE ReadString  ( VAR     str : ARRAY OF CHAR ); (* until EOL or EOS *)
  42.  
  43. PROCEDURE CondRead    ( VAR      ch : CHAR;        (* Read next char, no wait *)
  44.                         VAR success : BOOLEAN );   (* false if no char avail. *)
  45.  
  46. PROCEDURE WriteChar   ( ch  : CHAR );
  47.  
  48. PROCEDURE Write   ( ch  : CHAR );
  49.  
  50. PROCEDURE WriteString ( VAR str : ARRAY OF CHAR );
  51.  
  52. PROCEDURE WriteLn;                                  (* writln  (from Pascal) *)
  53.  
  54. PROCEDURE WriteErrorString ( VAR str : ARRAY OF CHAR ); (* Write errors *)
  55.  
  56. PROCEDURE EOL() : BOOLEAN;
  57.  
  58. END Terminal.
  59.