Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  REALINOU.MOD - Real input/output (core library)                         *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*$V-*)
   12  IMPLEMENTATION MODULE RealInOut ;
   13  
   14  IMPORT IO,Str,InOut ;
   15  
   16  
   17  
   18  PROCEDURE ReadReal  ( VAR v : REAL ) ;
   19  VAR s : ARRAY[0..80] OF CHAR;
*****                   ^ not supported yet
*****                          ^ not supported yet
   20      r,a : LONGREAL;
   21  BEGIN
   22    InOut.ReadString( s );
*****    ^ not supported yet
*****          ^ not supported yet
*****                      ^ not supported yet
   23    r := Str.StrToReal( s,Done );
*****         ^ not supported yet
*****             ^ not supported yet
*****                        ^ not supported yet
*****                          ^ undeclared identifier
   24    a := ABS( r );
*****         ^ undeclared identifier
*****                ^ not supported yet
   25    Done := Done AND (a >= 1.2E-38 ) AND (a <= 3.4E38 );
*****    ^ undeclared identifier
*****            ^ undeclared identifier
   26    v := REAL(r) ;
*****               ^ not supported yet
   27  END ReadReal;
*****      ^ not supported yet
   28  
   29  PROCEDURE WriteReal ( v : REAL ; w : CARDINAL ) ;
   30  BEGIN
   31    IO.WrReal(v,MAX(CARDINAL),INTEGER(w)) ;
*****    ^ not supported yet
*****       ^ not supported yet
*****                ^ undeclared identifier
*****                            ^ not supported yet
*****                                       ^ not supported yet
   32    Done := IO.OK ;
*****    ^ undeclared identifier
*****            ^ not supported yet
*****               ^ not supported yet
   33  END WriteReal ;
*****      ^ not supported yet
   34  
   35  BEGIN
   36    Done := TRUE ;
*****    ^ undeclared identifier
   37  END RealInOut.
*****      ^ not supported yet

   26 errors