Topspeed_JPI/TS-V3/INCLUDE/IO.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  IO.DEF - Modula-2 screen input/output                                   *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# call(o_a_copy => off) *)
   12  (*%F _fdata *)
   13  (*# call(seg_name => null) *)
   14  (*# data(seg_name => null) *)
   15  (*%E *)
   16  (*# module(implementation=>off) *)
   17  DEFINITION MODULE IO;
   18  
   19  CONST
   20    MaxRdLength = 256;
   21  
   22  TYPE
   23    WrStrType   = PROCEDURE ( ARRAY OF CHAR );
*****                  ^ not supported yet
*****                                       ^ not supported yet
   24    RdStrType   = PROCEDURE ( VAR ARRAY OF CHAR );
*****                  ^ not supported yet
*****                                           ^ not supported yet
   25    CHARSET     = SET OF CHAR;
*****                         ^ not supported yet
   26  
   27  
   28  PROCEDURE WrChar   ( V: CHAR );
   29  PROCEDURE WrBool   ( V: BOOLEAN  ; Length: INTEGER );
   30  PROCEDURE WrShtInt ( V: SHORTINT ; Length: INTEGER );
   31  PROCEDURE WrInt    ( V: INTEGER  ; Length: INTEGER );
   32  PROCEDURE WrLngInt ( V: LONGINT  ; Length: INTEGER );
   33  PROCEDURE WrShtCard( V: SHORTCARD; Length: INTEGER );
   34  PROCEDURE WrCard   ( V: CARDINAL ; Length: INTEGER );
   35  PROCEDURE WrLngCard( V: LONGCARD ; Length: INTEGER );
*****                          ^ undeclared identifier
   36  PROCEDURE WrShtHex ( V: SHORTCARD; Length: INTEGER );
   37  PROCEDURE WrHex    ( V: CARDINAL ; Length: INTEGER );
   38  PROCEDURE WrLngHex ( V: LONGCARD ; Length: INTEGER );
*****                          ^ undeclared identifier
   39  
   40  PROCEDURE WrReal      ( V: REAL     ; Precision: CARDINAL; Length: INTEGER);
   41  PROCEDURE WrLngReal   ( V: LONGREAL ; Precision: CARDINAL; Length: INTEGER);
   42  PROCEDURE WrFixReal   ( V: REAL     ; Precision: CARDINAL; Length: INTEGER);
   43  PROCEDURE WrFixLngReal( V: LONGREAL ; Precision: CARDINAL; Length: INTEGER);
   44  
   45  PROCEDURE WrCharRep( V: CHAR ; Count: CARDINAL );
   46  
   47  PROCEDURE WrStr    ( S: ARRAY OF CHAR );
*****                                   ^ not supported yet
   48  
   49  (*# save,
   50      call(o_a_copy => on) *)
   51  PROCEDURE WrStrAdj ( S: ARRAY OF CHAR; Length: INTEGER );
*****                                   ^ not supported yet
   52  (*# restore *)
   53  PROCEDURE WrLn;
   54  
   55  
   56  PROCEDURE RdChar()    : CHAR;
   57  PROCEDURE RdBool()    : BOOLEAN;
   58  PROCEDURE RdShtInt()  : SHORTINT;
   59  PROCEDURE RdInt()     : INTEGER;
   60  PROCEDURE RdLngInt()  : LONGINT;
   61  PROCEDURE RdShtCard() : SHORTCARD;
   62  PROCEDURE RdCard()    : CARDINAL;
   63  PROCEDURE RdLngCard() : LONGCARD;
*****                          ^ undeclared identifier
   64  PROCEDURE RdShtHex()  : SHORTCARD;
   65  PROCEDURE RdHex()     : CARDINAL;
   66  PROCEDURE RdLngHex()  : LONGCARD;
*****                          ^ undeclared identifier
   67  
   68  PROCEDURE RdReal()    : REAL;
   69  PROCEDURE RdLngReal() : LONGREAL;
   70  PROCEDURE RdStr(VAR S: ARRAY OF CHAR);
*****                                  ^ not supported yet
   71  PROCEDURE RdItem(VAR V: ARRAY OF CHAR);
*****                                   ^ not supported yet
   72  PROCEDURE RdLn;
   73  PROCEDURE EndOfRd(Skip: BOOLEAN) : BOOLEAN;
   74  PROCEDURE KeyPressed() : BOOLEAN;
   75  PROCEDURE RdKey() : CHAR;
   76  
   77  CONST RdCharDirect ::= RdKey;
*****                     ^ not supported yet
   78  
   79  PROCEDURE RedirectInput (FileName: ARRAY OF CHAR);
*****                                              ^ not supported yet
   80  
   81  PROCEDURE RedirectOutput(FileName: ARRAY OF CHAR);
*****                                              ^ not supported yet
   82  
   83  PROCEDURE ThreadOK(): BOOLEAN;
   84  
   85  VAR RdLnOnWr        : BOOLEAN;      (* Clear buffered input after write     *)
   86  VAR Prompt          : BOOLEAN;      (* Prompt ('?') on read from empty line *)
   87  VAR InputRedirected : BOOLEAN;
   88  VAR OutputRedirected: BOOLEAN;
   89  
   90  VAR WrStrRedirect   : WrStrType;
   91  VAR RdStrRedirect   : RdStrType;
   92  
   93  VAR Separators  : CHARSET;
*****                    ^ not supported yet
   94  VAR OK          : BOOLEAN;
   95  VAR ChopOff     : BOOLEAN;
   96  VAR Eng         : BOOLEAN;      (* Engineering notation *)
   97  VAR PrefixChar  : CHAR;
   98  VAR SuffixChar  : CHAR;
   99  
  100  END IO.
*****      ^ not supported yet

   18 errors