DIRECTORY CoreClasses, CoreIO, Pipal, PipalInt, PipalMos; PipalMosIO: CEDAR DEFINITIONS ~ BEGIN 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]; END. ŠPipalMosIO.mesa Copyright Σ 1987, 1988 by Xerox Corporation. All rights reserved. Bertrand Serlet, March 15, 1988 1:23:11 pm PST Κw˜codešœ™KšœB™Bšœ.™.K™——šΟk ˜ Kšœ˜Kšœ˜K˜—šΟn œœ œœ˜&K˜šœœ˜K˜—Kšœœœ#˜>šœœœ œ˜FK˜—šžœœB˜[K˜—Kšž œœ&˜7Kšž œœ œ˜?Kšžœœ,˜@Jšž œœ œ!˜HKšž œœ0˜AKšž œœ œ%˜IKšž œœ$˜4Kšž œœ œ˜