PDInterpControl.mesa
Michael Plass, November 9, 1983 9:15 am
DIRECTORY PDInterpInput;
PDInterpControl: DEFINITIONS = BEGIN
maxRanges: NAT = 30;
PageSpec: TYPE = ARRAY [0..maxRanges) OF PageRange;
PageRange: TYPE = RECORD [skipCount: CARDINAL ← 0, printCount: CARDINAL ← 0];
nullPageRange: PageRange = [0, 0];
RequestService: PROC [handle: PDInterpInput.Handle, pageSpec: PageSpec];
SetSuspendablePages: PROC [suspendablePages: NAT] RETURNS [prevValue: NAT];
Jobs may be suspended whenever the number of pages that have been printed is divisible by suspendablePages.
END.