Bryan Preas September 9, 1986 2:39:08 pm PDT

Preas, August 1, 1986 11:51:21 pm PDT

IO,

Imager USING [Context],

IP,

IPConstants,

IPParams,

IPNetTab,

IPChipRose,

Rope,

SymTab,

RTStructure;

-- Intro: This is the table of (I/O) port abstraction. Havent actually used it.

IMPORTS IPParams = BEGIN

Ref: TYPE = REF Rep;

Rep: TYPE = RECORD[ports: SymTab.Ref];

Port: TYPE = REF PortRep;

PortRep: TYPE = IP.PortRep; --name, pinPorts, length

EachPortAction: TYPE = PROC[port: Port] RETURNS [quit: BOOL ← FALSE];

Create: PROC[chipRose: IPChipRose.Ref, netTab: IPNetTab.Ref] RETURNS [Ref];

CreateFromStructure: PROC[structure: RTStructure.Structure, netTab: IPNetTab.Ref] RETURNS [Ref];

FetchPort: PROC[portTab: Ref, name: Rope.ROPE] RETURNS [Port];

Ports: PROC[portTab: Ref, action: EachPortAction];

DescribeSelf: PROC[portTab: Ref, stream: IO.STREAM];

ReconstructSelf: PROC[stream: IO.STREAM, netTab: IPNetTab.Ref] RETURNS [Ref];

--Operation on individual port

PaintPort: PROC [port: Port, context: Imager.Context, xOffset, yOffset: REAL ← 0.0, scaleFactor: REAL ← 1.0, stipple: CARDINAL ← IPConstants.White, size: NAT ← IPParams.DefaultPortSize, showPortName: BOOL ← TRUE];

PortActive: PROC[port: Port] RETURNS [BOOL] = INLINE {RETURN [port.position # NIL]};--PortActive

END.