PipalCD.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Created by Bertrand Serlet March 6, 1988 3:07:38 pm PST
Bertrand Serlet May 7, 1988 5:54:41 pm PDT
DIRECTORY
CD, Pipal, PipalInt;
PipalCD: CEDAR DEFINITIONS
= BEGIN
CD -> 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];
Pipal -> 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.