<> <> <> <> <<>> DIRECTORY CD, Pipal, PipalInt; PipalCD: CEDAR DEFINITIONS = BEGIN < Pipal Conversion>> CDToPProc: TYPE = PROC [cdobj: CD.Object] RETURNS [obj: Pipal.Object]; CDToPObject: CDToPProc; CDToPInstance: PROC [instance: CD.Instance] RETURNS [obj: Pipal.Object]; CDToPTrans: PUBLIC PROC [trans: CD.Transformation] RETURNS [PipalInt.Transformation]; < CD Conversion>> PToCDProc: TYPE = PROC [obj: Pipal.Object] RETURNS [cdobj: CD.Object, cdprops: CD.PropList]; PToCDObject: PToCDProc; PToCDInstanceProc: TYPE = PROC [obj: Pipal.Object, transformation: PipalInt.Transformation] RETURNS [cdobj: CD.Object, cdprops: CD.PropList, cdtrans: CD.Transformation]; PToCDInstance: PToCDInstanceProc; PToCDTrans: PUBLIC PROC [trans: PipalInt.Transformation] RETURNS [CD.Transformation]; END.