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. H 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. Κ •NewlineDelimiter –(cedarcode) style™code™ Kšœ Οeœ=™HK™K™/K™(K™)K™K™O—K˜KšΟk œ˜K˜KšΠblœžœž˜Kšžœ˜Kšœž˜Kšœžœ˜Kš Οnœžœžœžœ žœ˜MKš Πknœžœžœ žœžœ ˜GKš ‘œžœžœ žœžœ ˜IKš ‘œžœ žœ žœžœ˜EKš ‘œžœžœžœžœžœ ˜OKš ‘œžœžœžœžœžœ ˜IKš œžœžœ žœ˜EKš œžœžœ žœ˜EKš  œžœ žœžœžœ˜EKš  œžœ žœžœžœ˜IKš  œžœ žœžœžœ˜EKš  œžœ žœžœžœ˜BKš  œžœžœžœ žœ˜NKš œžœ žœ žœ˜CKšžœ˜—…—\°