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[a.PLUS[b]]}; MINUS: PROC [a, b: Value] RETURNS [Value] = {RETURN[a.MINUS[b]]}; UMINUS: PROC [a: Value] RETURNS [Value] = {RETURN[a.UMINUS[]]}; GREATER: PROC [a, b: Value] RETURNS [BOOLEAN] = {RETURN[a.GREATER[b]]}; LESS: PROC [a, b: Value] RETURNS [BOOLEAN] = {RETURN[a.LESS[b]]}; Max: PROC [a, b: Value] RETURNS [Value] = {RETURN[a.Max[b]]}; Min: PROC [a, b: Value] RETURNS [Value] = {RETURN[a.Min[b]]}; Floor: PROC [a: Value] RETURNS [INTEGER] = {RETURN[a.Floor[]]}; Ceiling: PROC [a: Value] RETURNS [INTEGER] = {RETURN[a.Ceiling[]]}; Round: PROC [a: Value] RETURNS [INTEGER] = {RETURN[a.Round[]]}; Float: PROC [a: Value] RETURNS [REAL] = {RETURN[a.Float[]]}; FromReal: PROC [real: REAL] RETURNS [Value] = {RETURN[Scaled.FromReal[real]]}; Halve: PROC [a: Value] RETURNS [Value] = {RETURN[a.Halve[]]}; END. œScaledX.mesa expansions for inlines in Scaled.mesa, callable by the debugger. Created March 2, 1983 Edited by Michael Plass, March 2, 1983 11:26 am ΚΈ˜J™NJ™J™/JšΟk œ˜šœ œœœ ˜-Iunitšœœ˜Kš Οnœœœœ œ˜MKš Πknœœœ œœ˜?Kš Ÿœœœ œœ˜AKš Ÿœœ œ œœ˜?Kš Ÿœœœœœœ˜GKš Ÿœœœœœœ˜AKšžœœœ œ ˜=Kšžœœœ œ ˜=Kš žœœ œœœ ˜?Kš žœœ œœœ˜CKš žœœ œœœ ˜?Kš žœœ œœœ ˜