Topspeed_JPI/TS-V3/INCLUDE/INOUT.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  INOUT.DEF - Modula-2 core library interface                             *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  DEFINITION MODULE InOut ;
   12  
   13  CONST EOL = 36C ;
   14  VAR
   15        Done   : BOOLEAN ;
   16        termCH : CHAR ;
   17  
   18  PROCEDURE OpenInput   ( defext : ARRAY OF CHAR ) ;
*****                                            ^ not supported yet
   19  PROCEDURE OpenOutput  ( defext : ARRAY OF CHAR ) ;
*****                                            ^ not supported yet
   20  PROCEDURE CloseInput ;
   21  PROCEDURE CloseOutput ;
   22  
   23  PROCEDURE Read        ( VAR v : CHAR ) ;
   24  PROCEDURE ReadString  ( VAR v : ARRAY OF CHAR ) ;
*****                                           ^ not supported yet
   25  PROCEDURE ReadCard    ( VAR v : CARDINAL ) ;
   26  PROCEDURE ReadInt     ( VAR v : INTEGER ) ;
   27  
   28  PROCEDURE Write       ( v : CHAR ) ;
   29  PROCEDURE WriteLn ;
   30  PROCEDURE WriteString ( v : ARRAY OF CHAR ) ;
*****                                       ^ not supported yet
   31  PROCEDURE WriteCard   ( v : CARDINAL ; w : CARDINAL ) ;
   32  PROCEDURE WriteInt    ( v : INTEGER ;  w : CARDINAL ) ;
   33  PROCEDURE WriteOct    ( v : CARDINAL ; w : CARDINAL ) ;
   34  PROCEDURE WriteHex    ( v : CARDINAL ; w : CARDINAL ) ;
   35  
   36  END InOut.
*****      ^ not supported yet

    5 errors