(****************************************
*                                       *
*     MODULA-2 Multi-Pass Compiler      *
*     ****************************      *
*                                       *
*         VAX  Implementation           *
*                                       *
*                                       *
*     MVCR1:                            *
*                                       * 
*     Real constant handling in Pass 1  *
*                                       * 
*     Version 3.1 of  1-FEB-1983        *
*                                       *
*                                       *
*                                       *
*     Based on PDP11 Implementation:    *
*     Version M22 of 24.12.80           *
*                                       *
*     Institut fuer Informatik          *
*     ETH-Zuerich                       *
*     CH-8092 Zuerich                   *
*                                       *
****************************************)

(****************************************
* Updates: see implementation module    *
****************************************)

DEFINITION MODULE MVCR1;         (* LG *)

  (* real constant handling in Pass 1 *)

  FROM MVCompiler IMPORT Constval;

  EXPORT QUALIFIED
         InitRealConst, ConvertToFraction, ConvertToExponent, TermRealConst;

  PROCEDURE InitRealConst;
  (* initialise the calculation of a constant real number *)

  PROCEDURE ConvertToFraction(ch: CHAR);
  (* convert a character to the fraction of a constant real number *)

  PROCEDURE ConvertToExponent(ch: CHAR);
  (* convert a character to the exponent of a constant real number *)

  PROCEDURE TermRealConst(VAR cval: Constval; VAR err: BOOLEAN);
  (* terminate the calculation of a constant real number *)

END MVCR1.