DIRECTORY Core, CoreIO, Pipal, PipalInt, PipalMos, PipalIO, PipalMosIO;PipalMosIOImpl: CEDAR PROGRAM IMPORTS CoreIO, Pipal, PipalInt, PipalIO, PipalMos =BEGIN OPEN CoreIO, PipalIO;ReadObjects: PROC [h: Handle, size: NAT] RETURNS [objects: Pipal.Objects _ NIL] = {THROUGH [0 .. size) DO objects _ CONS [ReadObject[h], objects] ENDLOOP;RETURN [Pipal.Reverse[objects]];};WriteOverlay: ClassWriteProc = {overlay: Pipal.Overlay _ NARROW [object];WriteInt[h, overlay.size];FOR i: NAT IN [0 .. overlay.size) DO WriteObject[h, overlay[i]] ENDLOOP;};ReadOverlay: ClassReadProc = {size: NAT = ReadInt[h];object _ Pipal.CreateOverlay[ReadObjects[h, size]];};WriteIcon: ClassWriteProc = {icon: Pipal.Icon _ NARROW [object];WriteObject[h, icon.reference]; WriteObject[h, icon.referent];};ReadIcon: ClassReadProc = {reference: Pipal.Object _ ReadObject[h];referent: Pipal.Object _ ReadObject[h];object _ Pipal.CreateIcon[reference, referent];};WriteAnnotation: ClassWriteProc = {annotation: Pipal.Annotation _ NARROW [object];WriteAtom[h, annotation.key];IF annotation.value=NIL THEN WriteAtom[h, $Nil] ELSE WITH annotation.value SELECT FROMatom: ATOM	=> {WriteAtom[h, $Atom];WriteAtom[h, atom];};rope: Pipal.ROPE	=> {WriteAtom[h, $Rope];WriteRope[h, rope];};refRect: REF PipalInt.Rectangle => {WriteAtom[h, $Rectangle];WriteRectangle[h, refRect^];};ENDCASE	=> ERROR;WriteObject[h, annotation.child];};ReadAnnotation: ClassReadProc = {key: ATOM _ ReadAtom[h];valueKey: ATOM _ ReadAtom[h];value: REF _ SELECT valueKey FROM$Nil			=> NIL,$Atom		=> ReadAtom[h],$Rope			=> ReadRope[h],$Rectangle	=> NEW [PipalInt.Rectangle _ ReadRectangle[h]],ENDCASE		=> ERROR;object _ Pipal.CreateAnnotation[ReadObject[h], key, value];};WriteTransform: ClassWriteProc = {trans: PipalInt.Transformation;sub: Pipal.Object _ NIL;EachChild: PipalInt.EachChildProc = {IF sub#NIL THEN ERROR;sub _ child; trans _ transformation;};IF PipalInt.Enumerate[object, EachChild] THEN ERROR;IF sub=NIL THEN ERROR;WriteTransformation[h, trans];WriteObject[h, sub];};ReadTransform: ClassReadProc = {transformation: PipalInt.Transformation _ ReadTransformation[h];object _ PipalInt.TransformObject[transformation, ReadObject[h]];};WriteAbut: ClassWriteProc = {abut: PipalInt.Abut _ NARROW [object];WriteBool[h, abut.inX];WriteInt[h, abut.size];FOR i: NAT IN [0 .. abut.size) DO WriteObject[h, abut[i]] ENDLOOP;};ReadAbut: ClassReadProc = {inX: BOOL = ReadBool[h];size: NAT = ReadInt[h];object _ PipalInt.CreateAbut[inX, ReadObjects[h, size]];};WriteBox: ClassWriteProc = {box: PipalMos.Box = NARROW [object];WriteVector[h, box.size];WriteAtom[h, box.layer];};ReadBox: ClassReadProc = {size: PipalInt.Size = ReadVector[h];layer: PipalMos.Layer = ReadAtom[h];RETURN [PipalMos.CreateBox[size, layer]]};WriteStar: ClassWriteProc = {star: PipalMos.Star _ NARROW [object];WriteBool[h, star.overlayStar];WriteObject[h, star.master];WriteInt[h, star.size];FOR i: NAT IN [0 .. star.size) DO WriteObject[h, star[i]] ENDLOOP;};ReadStar: ClassReadProc = {overlayStar: BOOL _ ReadBool[h];master: Pipal.Object _ ReadObject[h];size: NAT = ReadInt[h];object _ PipalMos.CreateStar[master, ReadObjects[h, size], overlayStar];};WriteRouting: ClassWriteProc = {routing: PipalMos.Routing _ NARROW [object];WriteInt[h, routing.size];FOR i: NAT IN [0 .. routing.size) DO WriteObject[h, routing[i]] ENDLOOP;};ReadRouting: ClassReadProc = {size: NAT = ReadInt[h];object _ PipalMos.CreateRouting[ReadObjects[h, size]];};WriteTiling: ClassWriteProc = {tiling: PipalMos.Tiling _ NARROW [object];WriteInt[h, tiling.sizeX];WriteInt[h, tiling.sizeY];FOR y: NAT IN [0 .. tiling.sizeY) DOFOR x: NAT IN [0 .. tiling.sizeX) DO WriteObject[h, tiling.xyTile[x, y, tiling.data]] ENDLOOP;ENDLOOP;};TileArrayRec: TYPE = RECORD [SEQUENCE sizeY: NAT OF REF TileLinesRec];TileLinesRec: TYPE = RECORD [SEQUENCE sizeX: NAT OF Pipal.Object];TileArrayXY: PipalMos.XYTileProc = {tileArray: REF TileArrayRec _ NARROW [data];RETURN [tileArray[y][x]];};ReadTiling: ClassReadProc = {sizeX: NAT _ NAT [ReadInt[h]];sizeY: NAT _ NAT [ReadInt[h]];tileArray: REF TileArrayRec _ NEW [TileArrayRec[sizeY]];FOR y: NAT IN [0 .. sizeY) DOtileArray[y] _ NEW [TileLinesRec[sizeX]];FOR x: NAT IN [0 .. sizeX) DO tileArray[y][x] _ ReadObject[h] ENDLOOP;ENDLOOP;object _ PipalMos.CreateTiling[sizeX, sizeY, TileArrayXY, tileArray];};WriteMarker: ClassWriteProc = {marker: PipalMos.Marker = NARROW [object];WriteVector[h, marker.size];WriteAtom[h, marker.layer];};ReadMarker: ClassReadProc = {size: PipalInt.Size = ReadVector[h];layer: PipalMos.Layer = ReadAtom[h];RETURN [PipalMos.CreateMarker[size, layer]]};WriteText: ClassWriteProc = {ERROR;};ReadText: ClassReadProc = {ERROR;};WritePicture: ClassWriteProc = {ERROR;};ReadPicture: ClassReadProc = {ERROR;};RegisterClass[Pipal.overlayClass, WriteOverlay, ReadOverlay];RegisterClass[Pipal.iconClass, WriteIcon, ReadIcon];RegisterClass[Pipal.annotationClass, WriteAnnotation, ReadAnnotation];RegisterClass[PipalInt.transformClass, WriteTransform, ReadTransform];RegisterClass[PipalInt.translationClass, WriteTransform, ReadTransform];RegisterClass[PipalInt.orientClass, WriteTransform, ReadTransform];RegisterClass[PipalInt.abutClass, WriteAbut, ReadAbut];RegisterClass[PipalMos.boxClass, WriteBox, ReadBox];RegisterClass[PipalMos.starClass, WriteStar, ReadStar];RegisterClass[PipalMos.routingClass, WriteRouting, ReadRouting];RegisterClass[PipalMos.tilingClass, WriteTiling, ReadTiling];RegisterClass[PipalMos.markerClass, WriteMarker, ReadMarker];RegisterClass[PipalMos.textClass, WriteText, ReadText];RegisterClass[PipalMos.textClass, WritePicture, ReadPicture];END.   .  PipalMosIOImpl.mesa	Copyright ╙ 1986, 1987, 1988 by Xerox Corporation.  All rights reserved.Bertrand Serlet March 31, 1988 10:06:01 pm PSTBarth, December 4, 1986 6:01:02 pm PSTUtilityOverlayIconAnnotationAll TransformationsAbutBoxStarRoutingTilingMarkerTextPictureInitializationЭ╩г  Ш Ц"Cedar" styleЪЬЩIcodeЦ"Cedar" styleЪЬHЩHKЪЬ.Щ.KЪЬ#╧kЩ&JШ ЧЪЭ	ЬШ
JЪЬШJЪЬ/Ш/JШ ЧЪ╧nЬЭЬЭЬШJЪЭЬ-Ш4JЪЭЬЭЬШЧheadЩЪ
ЮЬЭЬЭЬЭЬЭЬШSKЪЭЬЭЬЭЬЭЬШGKЪЭЬШ KЪЬШЧЧЩЪЮЬШ KЪЬЭЬ
Ш)KШKЪ
ЭЬЭЬЭЬЭЬЭЬШHKШKШ ЧЪЮЬШKЪЬЭЬШKЪЬ3Ш3KЪЬШЧЧЩЪЮ	ЬШKЪЬЭЬ
Ш#KЪЬ>Ш>KШKШ ЧЪЮЬШKЪЬ(Ш(KЪЬ'Ш'KЪЬ/Ш/KЪЬШЧЧЩ
ЪЮЬШ#KЪЬЭЬ
Ш/KЪЬШЪЭЬЭЬШJЪЭЬШЪЭЬЭЬЭЬЭШ&ЪЬЭЬШJЪЬШJЪЬШJШЧЪЬЭЬШJЪЬШJЪЬШJШЧЪЬ	ЭЬШ$JЪЬШJЪЬШJШЧJЪЭЬЭЬШЧЧKЪЬ!Ш!KШKШ ЧЪЮЬШ!KЪЬЭЬШKЪЬ
ЭЬШЪЬЭЬЭЬ
ЭШ!JЪЬ
ЭЬШJЪЬШJЪЬШJЪЬЭЬ)Ш:JЪЭЬЭЬШЧKЪЬ;Ш;KЪЬШЧЧЩЪЮЬШ"JШJЪЬЭЬШЪЮ	ЬШ%JЪЭЬЭЬЭЬЭЬШJШ$JШЧJЪЭЬ'ЭЬЭЬШ4JЪЭЬЭЬЭЬЭЬШJШKЪЬШKШKШ ЧЪЮЬШ KЪЬ@Ш@KЪЬAШAKЪЬШЧЧЩЪЮ	ЬШKЪЬЭЬ
Ш&KШKШKЪ
ЭЬЭЬЭЬЭЬЭЬШBKШKШ ЧЪЮЬШKЪЬЭЬШKЪЬЭЬШKЪЬ8Ш8KЪЬШЧЧЪЬЩЪ╨bnЬШKЪЬЭЬ
Ш$KЪЬШKЪЬШKЪЬШKШ ЧЪЯЬШKЪЬ$Ш$KЪЬ$Ш$KЪЭЬ"Ш(KЪЬШЧЧЩЪЮ	ЬШKЪЬЭЬ
Ш&KЪЬШKЪЬШKЪЬШKЪ
ЭЬЭЬЭЬЭЬЭЬШBKШKШ ЧЪЮЬШJЪЬЭЬШ JШ%KЪЬЭЬШKЪЬHШHKЪЬШЧЧЩЪЮЬШ KЪЬЭЬ
Ш,KЪЬШKЪ
ЭЬЭЬЭЬЭЬЭЬШHKШKШ ЧЪЮЬШKЪЬЭЬШKЪЬ6Ш6KЪЬШЧЧЩЪЮЬШKЪЬЭЬ
Ш*JЪЬШJЪЬШЪЭЬЭЬЭЬЭШ$KЪ
ЭЬЭЬЭЬЭЬ2ЭЬШ^KЪЭЬШЧKЪЬШKШ ЧKЪЬЭЬЭЬЭЬЭЬЭЬЭЬШFKЪЬЭЬЭЬЭЬЭЬЭЬШBЪЮЬШ$KЪЬЭЬЭЬШ,KЪЭЬШKШKШ ЧЪЮ
ЬШKЪЬЭЬЭЬШKЪЬЭЬЭЬШKЪЬЭЬЭЬШ8ЪЭЬЭЬЭЬЭШKЪЬЭЬШ)KЪ
ЭЬЭЬЭЬЭЬ!ЭЬШFKЪЭЬШЧKЪЬEШEKЪЬШЧЧЩЪЯЬШKЪЬЭЬ
Ш*KЪЬШKЪЬШKЪЬШKШ ЧЪЯ
ЬШKЪЬ$Ш$KЪЬ$Ш$KЪЭЬ%Ш+KЪЬШЧЧЩЪЯ	╧bШJЪ╨bkаШKЪаШKШ ЧЪЯаШJЪбаШKЪаШЧЧЩЪЯаШ JЪбаШKЪаШKШ ЧЪЯаШJЪбаШKЪаШЧЧЩKЪЬ=Ш=KЪЬ4Ш4ЪЬFШFKШ ЧKЪЬFШFKЪЬHШHKЪЬCШCЪЬ7Ш7KШ ЧKЪЬ4Ш4KЪЬ7Ш7KЪЬ@Ш@KЪЬ=Ш=KЪЬ=Ш=KЪЬ7Ш7KЪЬ=Ш=KШ ЧJЪЭЬШJШ Ч ЕЧ    и  y  