<> <> <> <> <<>> DIRECTORY Rope USING [ ROPE ]; EdgeBlt: CEDAR DEFINITIONS ~ BEGIN <> EdgeDesc: TYPE ~ RECORD[ val: INT32, -- current value for incrementation, byte address or value stepsLeft: WORD _ 0, -- number of increments remaining length: WORD _ 0, -- total number of increments to make hiccups: WORD _ 0, -- number of offsets (hiccups) to make lngthIncr: INTEGER _ 0, -- amount to increment by hicIncr: INTEGER _ 0, -- amount to offset at hiccup bias: INTEGER _ 0, -- change to number of increments to first offset (for wizards) indirect: BOOLEAN _ TRUE, -- incrementing addresses if TRUE, else values nextEdge: CARD16 _ 0 -- next edge if part of a chain of edges (index in Sequence) ]; EdgeSequence: TYPE ~ RECORD [length: NAT _ 0, s: SEQUENCE maxLength: NAT OF EdgeBlt.EdgeDesc ]; EdgeBltOptions: TYPE ~ RECORD[ includeStart: BOOL _ TRUE, -- include start point includeEnd: BOOL _ TRUE -- include endpoint ]; defaultOptions: EdgeBltOptions ~ [TRUE, TRUE]; EdgeBltTable: TYPE ~ RECORD[ dst, src: EdgeDesc, options: EdgeBltOptions _ defaultOptions ]; EdgeBltError: SIGNAL [reason: ErrorDesc]; ErrorDesc: TYPE ~ RECORD [code: ATOM, explanation: Rope.ROPE]; <> <> Incr: PROC[edge: EdgeDesc, array: REF EdgeSequence _ NIL] RETURNS[EdgeDesc]; <> Blt: PROC[ebt: EdgeBltTable]; END.