DIRECTORYIPBasic USING [Any, Identifier, Integer, maxInteger, Number, Operator, Vector, zero],IPConvert USING [IntegerToReal, NumberToInteger, NumberToReal],IPErrors USING [MasterError, MasterWarning],Real USING [Fix, RealException];IPConvertImpl: CEDAR PROGRAMIMPORTS IPConvert, IPErrors, RealEXPORTS IPConvert= BEGIN OPEN IPConvert, IPBasic;RealToInteger: PUBLIC PROC[r: REAL] RETURNS[Integer] = {Fix: PROC[r: REAL] RETURNS[INT] = { RETURN[Real.Fix[r]] };i: INT = Fix[r ! Real.RealException => GOTO Fail];IF i IN[0..maxInteger] AND i=r THEN RETURN[i] ELSE GOTO Fail;EXITS Fail => ERROR IPErrors.MasterError[NarrowFailed];};AnyToNumber: PUBLIC PROC[x: Any] RETURNS[Number] = {IF x.type=number THEN RETURN[x.number]ELSE IF x.type=nil THEN { SIGNAL IPErrors.MasterWarning[NullValue]; RETURN[zero] }ELSE ERROR IPErrors.MasterError[WrongType];};AnyToReal: PUBLIC PROC[x: Any] RETURNS[REAL] = {IF x.type=number THEN RETURN[NumberToReal[x.number]]ELSE IF x.type=nil THEN { SIGNAL IPErrors.MasterWarning[NullValue]; RETURN[0] }ELSE ERROR IPErrors.MasterError[WrongType];};AnyToInteger: PUBLIC PROC[x: Any] RETURNS[Integer] = {IF x.type=number THEN RETURN[NumberToInteger[x.number]]ELSE IF x.type=nil THEN { SIGNAL IPErrors.MasterWarning[$NullValue]; RETURN[0] }ELSE ERROR IPErrors.MasterError[WrongType];};AnyToIdentifier: PUBLIC PROC[x: Any] RETURNS[Identifier] = {IF x.type=identifier THEN RETURN[NARROW[x.ref]]ELSE ERROR IPErrors.MasterError[WrongType];};AnyToVector: PUBLIC PROC[x: Any] RETURNS[Vector] = {IF x.type=vector THEN RETURN[x.ref]ELSE ERROR IPErrors.MasterError[WrongType];};AnyToOperator: PUBLIC PROC[x: Any] RETURNS[Operator] = {IF x.type=operator THEN RETURN[NARROW[x.ref]]ELSE ERROR IPErrors.MasterError[WrongType];};NumberToAny: PUBLIC PROC[x: Number] RETURNS[Any] = {RETURN[[type: number, number: x]];};RealToAny: PUBLIC PROC[x: REAL] RETURNS[Any] = {RETURN[[type: number, number: [real[x]]]];};IntegerToAny: PUBLIC PROC[x: Integer] RETURNS[Any] = {RETURN[[type: number, number: [int[x]]]];};IdentifierToAny: PUBLIC PROC[x: Identifier] RETURNS[Any] = {RETURN[[type: identifier, ref: x]];};VectorToAny: PUBLIC PROC[x: Vector] RETURNS[Any] = {RETURN[[type: vector, ref: x]];};OperatorToAny: PUBLIC PROC[x: Operator] RETURNS[Any] = {RETURN[[type: operator, ref: x]];};END.    Т  IPConvertImpl.mesaLast edited by:Doug Wyatt, April 29, 1983 2:17 pmWrap a procedure call around Real.Fix so we can catch RealException Э╩┼  Ш headЪЬЩЪЬЩJЪЬ"Щ"ЧJШ Ъ╧k	Ш	JЪЬЭЬHШUJЪЬ
ЭЬ0Ш?JЪЬ	ЭЬШ,JЪЬЭЬШ ЧJШ ЧЪЬЭЬЭШJЪЭЬШ!JЪЭЬ
ШJЪЬЭЬЭЬШ JЩ Ъ
╧nЬЭЬЭЬЭЬЭЬШ8ЪЮЬЭЬЭЬЭЬЭЬЭЬШ:JЪЬCЩCЧJЪЬЭЬ!ЭЬШ2JЪЭЬЭЬЭЬЭЬЭЬЭЬЭЬШ=JЪЭЬ	ЭЬ$Ш7JШЧJШ ЪЮЬЭЬЭЬ	ЭЬШ4JЪЭЬЭЬЭЬ
Ш&JЪ
ЭЬЭЬЭЬЭЬ$ЭЬШRJЪЭЬЭЬ!Ш+JШЧЪ
Ю	ЬЭЬЭЬ	ЭЬЭЬШ0JЪЭЬЭЬЭЬШ4JЪ
ЭЬЭЬЭЬЭЬ$ЭЬШOJЪЭЬЭЬ!Ш+JШЧЪЮЬЭЬЭЬ	ЭЬШ6JЪЭЬЭЬЭЬШ7JЪ
ЭЬЭЬЭЬЭЬ%ЭЬШPJЪЭЬЭЬ!Ш+JШЧЪЮЬЭЬЭЬ	ЭЬШ<JЪЭЬЭЬЭЬЭЬШ/JЪЭЬЭЬ!Ш+JШЧЪЮЬЭЬЭЬ	ЭЬШ4JЪЭЬЭЬЭЬШ#JЪЭЬЭЬ!Ш+JШЧЪЮЬЭЬЭЬ	ЭЬШ8JЪЭЬЭЬЭЬЭЬШ-JЪЭЬЭЬ!Ш+JШЧJШ ЪЮЬЭЬЭЬЭЬ	Ш4JЪЭЬШ"JЪЬШЧЪ
Ю	ЬЭЬЭЬЭЬЭЬ	Ш0JЪЭЬ$Ш*JЪЬШЧЪЮЬЭЬЭЬЭЬ	Ш6JЪЭЬ#Ш)JЪЬШЧЪЮЬЭЬЭЬЭЬ	Ш<JЪЭЬШ#JЪЬШЧЪ
ЮЬЭЬЭЬЭЬЭЬШ4JЪЭЬШJЪЬШЧЪ
ЮЬЭЬЭЬЭЬЭЬШ8JЪЭЬШ!JЪЬШЧJШ JЪЭЬШЧЧ ЕЧ    	0  З  