Topspeed_JPI/TS/MODBASE/NUMBERS.DEF

DEFINITION MODULE Numbers;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/numbers.dev   1.4   30 Dec 1990 18:03:06   coleb  $
 *
 *)


  FROM NumTypes IMPORT Real8;

  PROCEDURE Between(min, x, max : CARDINAL) :
      CARDINAL;

  PROCEDURE C( num: LONGINT ): CARDINAL;

  PROCEDURE CardIsBetween(min, x, max: CARDINAL):
      BOOLEAN;

  PROCEDURE CardSqrt( n: CARDINAL ): CARDINAL;

  PROCEDURE I( num: LONGINT ): INTEGER;

  PROCEDURE IntIsBetween(min, x, max: INTEGER):
      BOOLEAN;

  PROCEDURE IntMax(first, second : INTEGER) :
      INTEGER;

  PROCEDURE IntMin(first, second : INTEGER) :
      INTEGER;

  PROCEDURE IntToR8( TheInt: INTEGER ): Real8;

  PROCEDURE Lc( num: CARDINAL ): LONGINT;

  PROCEDURE Li( num: INTEGER ): LONGINT;

  PROCEDURE LowestCommonDenom(n1, n2 : INTEGER) :
      INTEGER;

  PROCEDURE LToR8( TheLong: LONGINT ): Real8;

  PROCEDURE Max(first, second : CARDINAL) :
      CARDINAL;

  PROCEDURE Min(first, second : CARDINAL) :
      CARDINAL;

  PROCEDURE Power(x, n : CARDINAL) : CARDINAL;

  PROCEDURE R8ToInt( x: Real8 ): INTEGER;

  PROCEDURE R8ToL( x: Real8 ): LONGINT;

  PROCEDURE Init();

END Numbers.