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

(* File: EnumExpr.i3                                           *)
(* Last Modified On Wed Aug 23 15:45:01 1989 By muller         *)
(*      Modified On Wed Jul 26 09:09:42 1989 By kalsow         *)

INTERFACE EnumExpr;

IMPORT Expr, Type;

PROCEDURE New (type: Type.T; value: INTEGER): Expr.T;

PROCEDURE Split (e: Expr.T;  VAR value: INTEGER;  VAR t: Type.T): BOOLEAN;

PROCEDURE SplitPair (a, b: Expr.T;  VAR x, y: INTEGER): BOOLEAN;

PROCEDURE Compare (a, b: Expr.T;  VAR sign: INTEGER): BOOLEAN;

END EnumExpr.