home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ober1096.zip / libsrc / in.obe < prev    next >
Text File  |  1995-04-04  |  1KB  |  46 lines
  1. (*===============================================================*)
  2. (*            Library Module for Gardens Point Oberon            *) 
  3. (*===============================================================*)
  4.  
  5. FOREIGN MODULE In;
  6.  
  7. (** Oberon-2 library module for input *)
  8.  
  9. IS IN "in.o";
  10.  
  11. VAR
  12.   Done* : BOOLEAN;
  13.   (** Status of In procedure calls - TRUE if the operation was 
  14.       successful, FALSE otherwise. *)
  15.  
  16. PROCEDURE Open*;
  17. (** Prompts for filename and makes file standard input *)
  18.  
  19. PROCEDURE Close*;
  20. (** Closes input file *)
  21.  
  22. PROCEDURE Char*(VAR ch : CHAR);
  23. (** Reads character from standard input *)
  24.  
  25. PROCEDURE Int*(VAR i : INTEGER);
  26. (** Reads integer from standard input *)
  27.  
  28. PROCEDURE LongInt*(VAR i : LONGINT);
  29. (** Reads long integer from standard input *)
  30.  
  31. PROCEDURE Real*(VAR r : REAL);
  32. (** Reads real from standard input *)
  33.  
  34. PROCEDURE LongReal*(VAR r : LONGREAL);
  35. (** Reads long real from standard input *)
  36.  
  37. PROCEDURE Name*(VAR name : ARRAY OF CHAR);
  38. (** Reads a string containing alphanumerics and periods 
  39.     from standard input *)
  40.  
  41. PROCEDURE String*(VAR str : ARRAY OF CHAR);
  42. (** Reads a string from current position to next blank 
  43.     from standard input *)
  44.  
  45. END In.
  46.