Код: Выделить всё
TYPECASE r OF
NULL => RETURN "NIL"
| REF BOOLEAN (rb) => RETURN Fmt.Bool(rb^)
| REF INTEGER (ri) => RETURN Fmt.Int(ri^)
END
Подробнее здесь: https://stackoverflow.com/questions/797 ... -statement
Код: Выделить всё
TYPECASE r OF
NULL => RETURN "NIL"
| REF BOOLEAN (rb) => RETURN Fmt.Bool(rb^)
| REF INTEGER (ri) => RETURN Fmt.Int(ri^)
END