Copyright Ó 1987, 1988 by Xerox Corporation. All rights reserved.

Bertrand Serlet, March 15, 1988 1:23:11 pm PST

CoreClasses, CoreIO,

Pipal, PipalInt, PipalMos;

Handle: TYPE = CoreIO.Handle;

ClassWriteProc: TYPE = PROC [h: Handle, object: Pipal.Object];

ClassReadProc: TYPE = PROC [h: Handle] RETURNS [object: Pipal.Object];

RegisterObjectClass: PROC [class: Pipal.Class, write: ClassWriteProc, read: ClassReadProc];

WriteVector: PROC [h: Handle, vector: PipalInt.Vector];

ReadVector: PROC [h: Handle] RETURNS [vector: PipalInt.Vector];

WriteRectangle: PROC [h: Handle, rectangle: PipalInt.Rectangle];

ReadRectangle: PROC [h: Handle] RETURNS [rectangle: PipalInt.Rectangle];

WriteOrient: PROC [h: Handle, orientation: PipalInt.Orientation];

ReadOrient: PROC [h: Handle] RETURNS [orientation: PipalInt.Orientation];

WriteLayer: PROC [h: Handle, layer: PipalMos.Layer];

ReadLayer: PROC [h: Handle] RETURNS [layer: PipalMos.Layer];

WriteTrans: PROC [h: Handle, transformation: PipalInt.Transformation];

ReadTrans: PROC [h: Handle] RETURNS [transformation: PipalInt.Transformation];

WriteObject: PROC [h: Handle, object: Pipal.Object];

ReadObject: PROC [h: Handle] RETURNS [object: Pipal.Object];