(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: RealExpr.i3                                           *)
(* Last Modified On Fri Jul 28 08:39:02 1989 By kalsow         *)

INTERFACE RealExpr;

IMPORT Expr, String;

PROCEDURE NewS (value: String.T): Expr.T;
PROCEDURE New  (value: LONGREAL): Expr.T;

PROCEDURE Split (e: Expr.T;  VAR r: LONGREAL): BOOLEAN;

PROCEDURE Compare  (a, b: Expr.T;  VAR sign: INTEGER): BOOLEAN;
PROCEDURE Add      (a, b: Expr.T;  VAR c: Expr.T): BOOLEAN;
PROCEDURE Subtract (a, b: Expr.T;  VAR c: Expr.T): BOOLEAN;
PROCEDURE Multiply (a, b: Expr.T;  VAR c: Expr.T): BOOLEAN;
PROCEDURE Divide   (a, b: Expr.T;  VAR c: Expr.T): BOOLEAN;
PROCEDURE Negate   (a: Expr.T;     VAR c: Expr.T): BOOLEAN;

END RealExpr.