PipalSch.mesa 
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Louis Monier January 13, 1988 9:46:38 am PST
DIRECTORY Pipal, PipalInt, PipalPaint, Rope;
PipalSch: CEDAR DEFINITIONS = BEGIN
Theory
Main definitions for schematics-related data structures.
Object Classes
Segments
Horizontal and Vertical segment could be added.
segmentClass: Pipal.Class;
SegmentData: TYPE = REF SegmentDataRec;
SegmentDataRec: TYPE = RECORD [
vector: PipalInt.Vector,
color: PipalPaint.Color];
CreateSegment: PROC [vector: PipalInt.Vector, color: PipalPaint.Color] RETURNS [object: Pipal.Object];
Cell
cellClass: Pipal.Class;
CellData: TYPE = REF CellDataRec;
CellDataRec: TYPE = RECORD [
child: Pipal.Object,
ports: SEQUENCE size: NAT OF Pipal.Object];
CreateCell: PROC [ports: Pipal.Objects, child: Pipal.Object] RETURNS [object: Pipal.Object];
END.