ScaledX.mesa
Copyright Ó 1985, 1986, 1991 by Xerox Corporation. All rights reserved.
Created March 2, 1983
Edited by Michael Plass, March 2, 1983 11:26 am
Doug Wyatt, March 7, 1985 5:14:24 pm PST
Carl Hauser, June 23, 1988 9:25:07 am PDT
Expansions for inlines in Scaled.mesa, callable by the interpreter or debugger.
DIRECTORY Scaled;
ScaledX: CEDAR PROGRAM
IMPORTS Scaled
= BEGIN
Value: TYPE = Scaled.Value;
FromInt: PROC [int: INTEGER] RETURNS [Value] = {RETURN[Scaled.FromInt[int]]};
PLUS: PROC [a, b: Value] RETURNS [Value] = {RETURN[Scaled.PLUS[a, b]]};
MINUS: PROC [a, b: Value] RETURNS [Value] = {RETURN[Scaled.MINUS[a, b]]};
UMINUS: PROC [a: Value] RETURNS [Value] = {RETURN[Scaled.UMINUS[a]]};
GREATER: PROC [a, b: Value] RETURNS [BOOLEAN] = {RETURN[Scaled.GREATER[a, b]]};
LESS: PROC [a, b: Value] RETURNS [BOOLEAN] = {RETURN[Scaled.LESS[a, b]]};
Max: PROC [a, b: Value] RETURNS [Value] = {RETURN[Scaled.Max[a, b]]};
Min: PROC [a, b: Value] RETURNS [Value] = {RETURN[Scaled.Min[a, b]]};
Floor: PROC [a: Value] RETURNS [INTEGER] = {RETURN[Scaled.Floor[a]]};
Ceiling: PROC [a: Value] RETURNS [INTEGER] = {RETURN[Scaled.Ceiling[a]]};
Round: PROC [a: Value] RETURNS [INTEGER] = {RETURN[Scaled.Round[a]]};
Float: PROC [a: Value] RETURNS [REAL] = {RETURN[Scaled.Float[a]]};
FromReal: PROC [real: REAL] RETURNS [Value] = {RETURN[Scaled.FromReal[real]]};
Halve: PROC [a: Value] RETURNS [Value] = {RETURN[Scaled.Halve[a]]};
END.