Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  MATHLIB0.MOD - Trigonometry (core library)                              *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1987..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  IMPLEMENTATION MODULE MathLib0;
   12  
   13  FROM MATHLIB IMPORT ATan, Cos, Exp, Log, Sin, Sqrt;
   14  
   15  
   16  PROCEDURE arctan( r: REAL) : REAL;
   17  BEGIN
   18      RETURN REAL( ATan( LONGREAL( r)));
*****                   ^ not supported yet
*****                                    ^ not supported yet
   19  END arctan;
*****      ^ not supported yet
   20  
   21  
   22  PROCEDURE cos( r: REAL) : REAL;
   23  BEGIN
   24      RETURN REAL( Cos( LONGREAL( r)));
*****                   ^ not supported yet
*****                                   ^ not supported yet
   25  END cos;
*****      ^ not supported yet
   26  
   27  
   28  PROCEDURE entier( r: REAL) : INTEGER;
   29  VAR
   30      i : INTEGER;
   31  BEGIN
   32      i := TRUNC( r);
*****           ^ undeclared identifier
*****                   ^ not supported yet
   33      IF (r < 0.0) AND (r <> FLOAT( i)) THEN
*****                             ^ undeclared identifier
*****                                     ^ not supported yet
   34          DEC( i);
*****          ^ undeclared identifier
*****                ^ not supported yet
   35      END;
   36      RETURN i;
   37  END entier;
*****      ^ not supported yet
   38  
   39  
   40  PROCEDURE exp( r: REAL) : REAL;
   41  BEGIN
   42      RETURN REAL( Exp( LONGREAL( r)));
*****                   ^ not supported yet
*****                                   ^ not supported yet
   43  END exp;
*****      ^ not supported yet
   44  
   45  
   46  PROCEDURE ln( r: REAL) : REAL;
   47  BEGIN
   48      RETURN REAL( Log( LONGREAL( r)));
*****                   ^ not supported yet
*****                                   ^ not supported yet
   49  END ln;
*****      ^ not supported yet
   50  
   51  
   52  PROCEDURE real( i: INTEGER) : REAL;
   53  BEGIN
   54      RETURN REAL( i);
*****                    ^ not supported yet
   55  END real;
*****      ^ not supported yet
   56  
   57  
   58  PROCEDURE sin( r:REAL) : REAL;
   59  BEGIN
   60      RETURN REAL( Sin( LONGREAL( r)));
*****                   ^ not supported yet
*****                                   ^ not supported yet
   61  END sin;
*****      ^ not supported yet
   62  
   63  
   64  PROCEDURE sqrt( r:REAL) : REAL;
   65  BEGIN
   66      RETURN REAL( Sqrt( LONGREAL( r)));
*****                   ^ not supported yet
*****                                    ^ not supported yet
   67  END sqrt;
*****      ^ not supported yet
   68  
   69  
   70  END MathLib0.
*****      ^ not supported yet

   28 errors