<> <> <> DIRECTORY TSTypes, Real USING [RoundI]; TSTypesImpl: CEDAR PROGRAM IMPORTS Real EXPORTS TSTypes = BEGIN OPEN TSTypes; DimnInt: PUBLIC PROCEDURE [num,denom: Dimn] RETURNS [INTEGER] = BEGIN t:REAL_num.texPts/denom.texPts; s:INTEGER _ 1; IF t<0 THEN {t _ -t; s _ -s}; IF t<=LAST[NAT] THEN RETURN[s*Real.RoundI[t]] ELSE RETURN[s*LAST[NAT]] END; END. Michael Plass, November 2, 1982 10:10 am. CEDARized.