Topspeed_JPI/TS-V3/INCLUDE/MATHLIB0.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  MATHLIB0.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 MathLib0;
   12  
   13    PROCEDURE arctan (x: REAL) : REAL;
   14    PROCEDURE cos(x: REAL) : REAL;
   15    PROCEDURE entier(x: REAL) : INTEGER;
   16    PROCEDURE exp(x: REAL) : REAL;
   17    PROCEDURE ln(x: REAL) : REAL;
   18    PROCEDURE real(x: INTEGER) : REAL;
   19    PROCEDURE sin(x:REAL) : REAL;
   20    PROCEDURE sqrt(x:REAL) : REAL;
   21  
   22  END MathLib0.
*****      ^ not supported yet

    1 error