<> <> <> <<>> PDQueue: DEFINITIONS = BEGIN <> Request: TYPE = RECORD [ fileName: LONG STRING, <foo.pd!33".>> requestTime: LONG STRING, requestor: LONG STRING, requestorPassword: LONG STRING, separator: LONG STRING, <> copies: CARDINAL ]; Reset: PROC; <> QueueRequest: PROC [request: Request] RETURNS [requestNumber: INT]; <> Reprint: PROC [copies: CARDINAL]; CancelReprint: PROC; ReprintCancelled: PROC RETURNS [BOOLEAN]; DoRequest: PROC [action: PROC [request: Request, requestNumber: CARDINAL, abort: LONG POINTER TO BOOLEAN]]; <> <> CheckRequest: PROC [requestNumber: CARDINAL, action: PROC [request: Request, status: RequestStatus]]; RequestStatus: TYPE = {notFound, canceled, waiting, printing}; CancelRequest: PROC [requestNumber: CARDINAL] RETURNS [ok: BOOLEAN]; <> CountRequests: PROC RETURNS [requestCount: NAT]; <> EnumerateRequests: PROC [action: PROC [requestNumber: CARDINAL, request: Request, status: RequestStatus] RETURNS [continue: BOOLEAN]]; RegisterDisk: PROC [read, write: PROC [address: LONG POINTER, nwords: CARDINAL], maxWords: CARDINAL]; <> RegisterTTY: PROC [writeLine: PROC [LONG STRING]]; <> GetSuspended: PROC RETURNS [BOOLEAN]; SetSuspended: PROC [suspended: BOOLEAN] RETURNS [old: BOOLEAN]; <> LogMessage: PROC [message: LONG STRING, requestNumber: INT _ -1, userName: LONG STRING _ NIL]; <> SetLogState: PROC [logging: BOOLEAN] RETURNS [old: BOOLEAN]; <> EnumerateMessages: PROC [PROC[message: LONG STRING] RETURNS [continue: BOOLEAN]]; <> DeferSaving: PROC; <> << >> DoDeferredSave: PROC; <> <<>> END.