gm2-libs-log/FloatingUtilities (The GNU Modula-2 Compiler)

#### 4.2.14 gm2-libs-log/FloatingUtilities ¶

    DEFINITION MODULE FloatingUtilities ;

    EXPORT QUALIFIED Frac, Round, Float, Trunc,
                     Fracl, Roundl, Floatl, Truncl ;

    (*
       Frac - returns the fractional component of, r.
    *)

    PROCEDURE Frac (r: REAL) : REAL ;

    (*
       Int - returns the integer part of r. It rounds the value towards zero.
    *)

    PROCEDURE Int (r: REAL) : INTEGER ;

    (*
       Round - returns the number rounded to the nearest integer.
    *)

    PROCEDURE Round (r: REAL) : INTEGER ;

    (*
       Float - returns a REAL value corresponding to, i.
    *)

    PROCEDURE Float (i: INTEGER) : REAL ;

    (*
       Trunc - round to the nearest integer not larger in absolute
               value.
    *)

    PROCEDURE Trunc (r: REAL) : INTEGER ;

    (*
       Fracl - returns the fractional component of, r.
    *)

    PROCEDURE Fracl (r: LONGREAL) : LONGREAL ;

    (*
       Intl - returns the integer part of r. It rounds the value towards zero.
    *)

    PROCEDURE Intl (r: LONGREAL) : LONGINT ;

    (*
       Roundl - returns the number rounded to the nearest integer.
    *)

    PROCEDURE Roundl (r: LONGREAL) : LONGINT ;

    (*
       Floatl - returns a REAL value corresponding to, i.
    *)

    PROCEDURE Floatl (i: INTEGER) : LONGREAL ;

    (*
       Truncl - round to the nearest integer not larger in absolute
                value.
    *)

    PROCEDURE Truncl (r: LONGREAL) : LONGINT ;

    END FloatingUtilities.