DIRECTORY Convert, Rope, PrintingP4V3, PrintingP4V3Aux; PrintingP4V3AuxImpl: CEDAR PROGRAM IMPORTS Convert, Rope EXPORTS PrintingP4V3Aux ~ { OPEN PrintingP4V3, PrintingP4V3Aux; ROPE: TYPE ~ Rope.ROPE; ExposeAttribute: PUBLIC PROC [c: Attribute, level: NAT] RETURNS [x: ROPE] ~ { x _ "Attribute("; x _ Rope.Concat[x, ExposeAttributeKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: printObjectName Attribute => { x _ Rope.Concat[x, Convert.RopeFromRope[v.printObjectName]]; }; v: printObjectCreateDate Attribute => { x _ Rope.Concat[x, Convert.RopeFromCard[v.printObjectCreateDate]]; }; v: senderName Attribute => { x _ Rope.Concat[x, Convert.RopeFromRope[v.senderName]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposePrintAttributes: PUBLIC PROC [s: PrintAttributes, level: NAT] RETURNS [x: ROPE] ~ { x _ "PrintAttributes: ["; FOR i: CARDINAL IN [0..s.length) DO x _ Rope.Concat[x, "\n"]; FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP; x _ Rope.Concat[x, "("]; x _ Rope.Concat[x, Convert.RopeFromCard[i]]; x _ Rope.Concat[x, ") "]; x _ Rope.Concat[x, ExposeAttribute[s[i], (level+1)]]; ENDLOOP; x _ Rope.Concat[x, "]"]; }; ExposeInterpressMasterStatus: PUBLIC PROC [e: InterpressMasterStatus, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM pending => x _ "pending"; inProgress => x _ "inProgress"; completed => x _ "completed"; completedWithWarning => x _ "completedWithWarning"; unknown => x _ "unknown"; rejected => x _ "rejected"; aborted => x _ "aborted"; canceled => x _ "canceled"; held => x _ "held"; ENDCASE => x _ "unknown InterpressMasterStatus"; }; ExposeStatusKind: PUBLIC PROC [e: StatusKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM spooler => x _ "spooler"; formatter => x _ "formatter"; printer => x _ "printer"; media => x _ "media"; ENDCASE => x _ "unknown StatusKind"; }; ExposeJobStatusKind: PUBLIC PROC [e: JobStatusKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM status => x _ "status"; statusMessage => x _ "statusMessage"; ENDCASE => x _ "unknown JobStatusKind"; }; ExposeEmptyRecord: PUBLIC PROC [--r: EmptyRecord,-- level: NAT] RETURNS [x: ROPE] ~ { x _ "["; x _ Rope.Concat[x, "]"]; }; ExposePaperKind: PUBLIC PROC [e: PaperKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM unknown => x _ "unknown"; knownSize => x _ "knownSize"; otherSize => x _ "otherSize"; ENDCASE => x _ "unknown PaperKind"; }; ExposeTransferProblem: PUBLIC PROC [e: TransferProblem, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM aborted => x _ "aborted"; formatIncorrect => x _ "formatIncorrect"; noRendezvous => x _ "noRendezvous"; wrongDirection => x _ "wrongDirection"; ENDCASE => x _ "unknown TransferProblem"; }; ExposeKnownPaperSize: PUBLIC PROC [e: KnownPaperSize, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM usLetter => x _ "usLetter"; usLegal => x _ "usLegal"; a0 => x _ "a0"; a1 => x _ "a1"; a2 => x _ "a2"; a3 => x _ "a3"; a4 => x _ "a4"; a5 => x _ "a5"; a6 => x _ "a6"; a7 => x _ "a7"; a8 => x _ "a8"; a9 => x _ "a9"; isoB0 => x _ "isoB0"; isoB1 => x _ "isoB1"; isoB2 => x _ "isoB2"; isoB3 => x _ "isoB3"; isoB4 => x _ "isoB4"; isoB5 => x _ "isoB5"; isoB6 => x _ "isoB6"; isoB7 => x _ "isoB7"; isoB8 => x _ "isoB8"; isoB9 => x _ "isoB9"; isoB10 => x _ "isoB10"; jisB0 => x _ "jisB0"; jisB1 => x _ "jisB1"; jisB2 => x _ "jisB2"; jisB3 => x _ "jisB3"; jisB4 => x _ "jisB4"; jisB5 => x _ "jisB5"; jisB6 => x _ "jisB6"; jisB7 => x _ "jisB7"; jisB8 => x _ "jisB8"; jisB9 => x _ "jisB9"; jisB10 => x _ "jisB10"; a10 => x _ "a10"; ENDCASE => x _ "unknown KnownPaperSize"; }; ExposeOptionKind: PUBLIC PROC [e: OptionKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM printObjectSize => x _ "printObjectSize"; recipientName => x _ "recipientName"; message => x _ "message"; copyCount => x _ "copyCount"; pagesToPrint => x _ "pagesToPrint"; mediumHint => x _ "mediumHint"; priorityHint => x _ "priorityHint"; releaseKey => x _ "releaseKey"; staple => x _ "staple"; twoSided => x _ "twoSided"; ENDCASE => x _ "unknown OptionKind"; }; ExposeMedia: PUBLIC PROC [s: Media, level: NAT] RETURNS [x: ROPE] ~ { x _ "Media: ["; FOR i: CARDINAL IN [0..s.length) DO x _ Rope.Concat[x, "\n"]; FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP; x _ Rope.Concat[x, "("]; x _ Rope.Concat[x, Convert.RopeFromCard[i]]; x _ Rope.Concat[x, ") "]; x _ Rope.Concat[x, ExposeMedium[s[i], (level+1)]]; ENDLOOP; x _ Rope.Concat[x, "]"]; }; ExposePriority: PUBLIC PROC [e: Priority, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM low => x _ "low"; normal => x _ "normal"; high => x _ "high"; ENDCASE => x _ "unknown Priority"; }; ExposeMarkingEngineStatus: PUBLIC PROC [e: MarkingEngineStatus, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM available => x _ "available"; busy => x _ "busy"; disabled => x _ "disabled"; needsAttention => x _ "needsAttention"; needsKeyOperator => x _ "needsKeyOperator"; ENDCASE => x _ "unknown MarkingEngineStatus"; }; ExposeAttributeKind: PUBLIC PROC [e: AttributeKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM printObjectName => x _ "printObjectName"; printObjectCreateDate => x _ "printObjectCreateDate"; senderName => x _ "senderName"; ENDCASE => x _ "unknown AttributeKind"; }; ExposePrintOptions: PUBLIC PROC [s: PrintOptions, level: NAT] RETURNS [x: ROPE] ~ { x _ "PrintOptions: ["; FOR i: CARDINAL IN [0..s.length) DO x _ Rope.Concat[x, "\n"]; FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP; x _ Rope.Concat[x, "("]; x _ Rope.Concat[x, Convert.RopeFromCard[i]]; x _ Rope.Concat[x, ") "]; x _ Rope.Concat[x, ExposeOption[s[i], (level+1)]]; ENDLOOP; x _ Rope.Concat[x, "]"]; }; ExposeSpoolerStatus: PUBLIC PROC [e: SpoolerStatus, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM available => x _ "available"; busy => x _ "busy"; disabled => x _ "disabled"; full => x _ "full"; ENDCASE => x _ "unknown SpoolerStatus"; }; ExposeServiceStatus: PUBLIC PROC [c: ServiceStatus, level: NAT] RETURNS [x: ROPE] ~ { x _ "ServiceStatus("; x _ Rope.Concat[x, ExposeStatusKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: spooler ServiceStatus => { x _ Rope.Concat[x, ExposeSpoolerStatus[v.spooler, (level+1)]]; }; v: formatter ServiceStatus => { x _ Rope.Concat[x, ExposeFormatterStatus[v.formatter, (level+1)]]; }; v: printer ServiceStatus => { x _ Rope.Concat[x, ExposeMarkingEngineStatus[v.printer, (level+1)]]; }; v: media ServiceStatus => { x _ Rope.Concat[x, ExposeMedia[v.media, (level+1)]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposePrinterProperties: PUBLIC PROC [s: PrinterProperties, level: NAT] RETURNS [x: ROPE] ~ { x _ "PrinterProperties: ["; FOR i: CARDINAL IN [0..s.length) DO x _ Rope.Concat[x, "\n"]; FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP; x _ Rope.Concat[x, "("]; x _ Rope.Concat[x, Convert.RopeFromCard[i]]; x _ Rope.Concat[x, ") "]; x _ Rope.Concat[x, ExposeProperty[s[i], (level+1)]]; ENDLOOP; x _ Rope.Concat[x, "]"]; }; ExposePrinterStatus: PUBLIC PROC [s: PrinterStatus, level: NAT] RETURNS [x: ROPE] ~ { x _ "PrinterStatus: ["; FOR i: CARDINAL IN [0..s.length) DO x _ Rope.Concat[x, "\n"]; FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP; x _ Rope.Concat[x, "("]; x _ Rope.Concat[x, Convert.RopeFromCard[i]]; x _ Rope.Concat[x, ") "]; x _ Rope.Concat[x, ExposeServiceStatus[s[i], (level+1)]]; ENDLOOP; x _ Rope.Concat[x, "]"]; }; ExposeProperty: PUBLIC PROC [c: Property, level: NAT] RETURNS [x: ROPE] ~ { x _ "Property("; x _ Rope.Concat[x, ExposePropertyKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: ppmedia Property => { x _ Rope.Concat[x, ExposeMedia[v.ppmedia, (level+1)]]; }; v: ppstaple Property => { x _ Rope.Concat[x, Convert.RopeFromBool[v.ppstaple]]; }; v: pptwoSided Property => { x _ Rope.Concat[x, Convert.RopeFromBool[v.pptwoSided]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposeMediumKind: PUBLIC PROC [e: MediumKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM paper => x _ "paper"; ENDCASE => x _ "unknown MediumKind"; }; ExposeRequestStatus: PUBLIC PROC [s: RequestStatus, level: NAT] RETURNS [x: ROPE] ~ { x _ "RequestStatus: ["; FOR i: CARDINAL IN [0..s.length) DO x _ Rope.Concat[x, "\n"]; FOR i: CARDINAL IN [0..2*level) DO x _ Rope.Concat[x, " "]; ENDLOOP; x _ Rope.Concat[x, "("]; x _ Rope.Concat[x, Convert.RopeFromCard[i]]; x _ Rope.Concat[x, ") "]; x _ Rope.Concat[x, ExposeJobStatus[s[i], (level+1)]]; ENDLOOP; x _ Rope.Concat[x, "]"]; }; ExposeRequestID: PUBLIC PROC [a: RequestID, level: NAT] RETURNS [x: ROPE] ~ { x _ "RequestID: ["; FOR i: CARDINAL IN [0..4) DO x _ Rope.Concat[x, Convert.RopeFromCard[a[i]]]; x _ Rope.Concat[x, ", "]; ENDLOOP; x _ Rope.Concat[x, Convert.RopeFromCard[a[4]]]; x _ Rope.Concat[x, "]"]; }; ExposeJobStatus: PUBLIC PROC [c: JobStatus, level: NAT] RETURNS [x: ROPE] ~ { x _ "JobStatus("; x _ Rope.Concat[x, ExposeJobStatusKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: status JobStatus => { x _ Rope.Concat[x, ExposeInterpressMasterStatus[v.status, (level+1)]]; }; v: statusMessage JobStatus => { x _ Rope.Concat[x, Convert.RopeFromRope[v.statusMessage]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposeFormatterStatus: PUBLIC PROC [e: FormatterStatus, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM available => x _ "available"; busy => x _ "busy"; disabled => x _ "disabled"; ENDCASE => x _ "unknown FormatterStatus"; }; ExposePaper: PUBLIC PROC [c: Paper, level: NAT] RETURNS [x: ROPE] ~ { x _ "Paper("; x _ Rope.Concat[x, ExposePaperKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: unknown Paper => { x _ Rope.Concat[x, ExposeEmptyRecord[--v.unknown,-- (level+1)]]; }; v: knownSize Paper => { x _ Rope.Concat[x, ExposeKnownPaperSize[v.knownSize, (level+1)]]; }; v: otherSize Paper => { x _ Rope.Concat[x, ExposePaperDimensions[v.otherSize, (level+1)]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposePropertyKind: PUBLIC PROC [e: PropertyKind, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM ppmedia => x _ "ppmedia"; ppstaple => x _ "ppstaple"; pptwoSided => x _ "pptwoSided"; ENDCASE => x _ "unknown PropertyKind"; }; ExposeOption: PUBLIC PROC [c: Option, level: NAT] RETURNS [x: ROPE] ~ { x _ "Option("; x _ Rope.Concat[x, ExposeOptionKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: printObjectSize Option => { x _ Rope.Concat[x, Convert.RopeFromCard[v.printObjectSize]]; }; v: recipientName Option => { x _ Rope.Concat[x, Convert.RopeFromRope[v.recipientName]]; }; v: message Option => { x _ Rope.Concat[x, Convert.RopeFromRope[v.message]]; }; v: copyCount Option => { x _ Rope.Concat[x, Convert.RopeFromCard[v.copyCount]]; }; v: pagesToPrint Option => { x _ Rope.Concat[x, ExposeDocumentSubrange[v.pagesToPrint, (level+1)]]; }; v: mediumHint Option => { x _ Rope.Concat[x, ExposeMedium[v.mediumHint, (level+1)]]; }; v: priorityHint Option => { x _ Rope.Concat[x, ExposePriority[v.priorityHint, (level+1)]]; }; v: releaseKey Option => { x _ Rope.Concat[x, Convert.RopeFromCard[v.releaseKey]]; }; v: staple Option => { x _ Rope.Concat[x, Convert.RopeFromBool[v.staple]]; }; v: twoSided Option => { x _ Rope.Concat[x, Convert.RopeFromBool[v.twoSided]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposeConnectionProblem: PUBLIC PROC [e: ConnectionProblem, level: NAT] RETURNS [x: ROPE] ~ { SELECT e FROM noRoute => x _ "noRoute"; noResponse => x _ "noResponse"; transmissionHardware => x _ "transmissionHardware"; transportTimeout => x _ "transportTimeout"; tooManyLocalConnections => x _ "tooManyLocalConnections"; tooManyRemoteConnections => x _ "tooManyRemoteConnections"; missingCourier => x _ "missingCourier"; missingProgram => x _ "missingProgram"; missingProcedure => x _ "missingProcedure"; protocolMismatch => x _ "protocolMismatch"; parameterInconsistency => x _ "parameterInconsistency"; invalidMessage => x _ "invalidMessage"; returnTimedOut => x _ "returnTimedOut"; otherCallProblem => x _ "otherCallProblem"; ENDCASE => x _ "unknown ConnectionProblem"; }; ExposePaperDimensions: PUBLIC PROC [r: PaperDimensions, level: NAT] RETURNS [x: ROPE] ~ { x _ "["; x _ Rope.Concat[x, "width: "]; x _ Rope.Concat[x, Convert.RopeFromCard[r.width]]; x _ Rope.Concat[x, ", "]; x _ Rope.Concat[x, "length: "]; x _ Rope.Concat[x, Convert.RopeFromCard[r.length]]; x _ Rope.Concat[x, "]"]; }; ExposeMedium: PUBLIC PROC [c: Medium, level: NAT] RETURNS [x: ROPE] ~ { x _ "Medium("; x _ Rope.Concat[x, ExposeMediumKind[c.type, (level+1)]]; x _ Rope.Concat[x, "): "]; WITH c SELECT FROM v: paper Medium => { x _ Rope.Concat[x, ExposePaper[v.paper, (level+1)]]; }; ENDCASE => { x _ Rope.Concat[x, "Unknown"]; }; }; ExposeDocumentSubrange: PUBLIC PROC [r: DocumentSubrange, level: NAT] RETURNS [x: ROPE] ~ { x _ "["; x _ Rope.Concat[x, "beginningPageNumber: "]; x _ Rope.Concat[x, Convert.RopeFromCard[r.beginningPageNumber]]; x _ Rope.Concat[x, ", "]; x _ Rope.Concat[x, "endingPageNumber: "]; x _ Rope.Concat[x, Convert.RopeFromCard[r.endingPageNumber]]; x _ Rope.Concat[x, "]"]; }; }... ÔPrintingP4V3AuxImpl.Mesa Copyright (C) 1986 by Xerox Corporation. All rights reserved. Generated by BJackson.pa at December 6, 1986 10:10:11 pm PST using Sirocco [1.0] of September 25, 1986 3:44:23 am PDT Ê §˜šœ™Jšœ>™>Jšœ<™J˜—˜J˜BJ˜—˜J˜DJ˜—˜J˜4J˜—Jšœ'˜.—J˜—J˜š žœœœœœœ˜]J˜šœœœ˜#J˜Jš œœœœœ˜DJ˜J˜,J˜J˜4Jšœ˜—J˜J˜—J˜š žœœœœœœ˜UJ˜šœœœ˜#J˜Jš œœœœœ˜DJ˜J˜,J˜J˜9Jšœ˜—J˜J˜—J˜š žœœœœœœ˜KJ˜J˜:J˜šœœ˜˜J˜6J˜—˜J˜5J˜—˜J˜7J˜—Jšœ'˜.—J˜—J˜š žœœœœœœ˜Ošœ˜ J˜Jšœ˜$—J˜—J˜š žœœœœœœ˜UJ˜šœœœ˜#J˜Jš œœœœœ˜DJ˜J˜,J˜J˜5Jšœ˜—J˜J˜—J˜š žœœœœœœ˜MJ˜šœœœ˜J˜/J˜Jšœ˜—J˜/J˜J˜—J˜š žœœœœœœ˜MJ˜J˜;J˜šœœ˜˜J˜FJ˜—˜J˜:J˜—Jšœ'˜.—J˜—J˜š žœœœœœœ˜Yšœ˜ J˜J˜J˜Jšœ"˜)—J˜—J˜š ž œœœœœœ˜EJ˜ J˜7J˜šœœ˜˜Jšœ%Ÿœ ˜@J˜—˜J˜AJ˜—˜J˜BJ˜—Jšœ'˜.—J˜—J˜š žœœœœœœ˜Sšœ˜ J˜J˜J˜Jšœ˜&—J˜—J˜š ž œœœœœœ˜GJ˜J˜8J˜šœœ˜˜J˜J˜—˜J˜7J˜—˜J˜3J˜—˜J˜5J˜—Jšœ'˜.—J˜—J˜š žœœœœœœ˜]šœ˜ J˜J˜J˜3J˜+J˜9J˜;J˜'J˜'J˜+J˜+J˜7J˜'J˜'J˜+Jšœ$˜+—J˜—J˜š žœœœœœœ˜YJ˜J˜J˜2J˜J˜J˜3J˜J˜—J˜š ž œœœœœœ˜GJ˜J˜8J˜šœœ˜˜J˜4J˜—Jšœ'˜.—J˜—J˜š žœœœœœœ˜[J˜J˜,J˜@J˜J˜)J˜=J˜J˜—J˜—J˜J˜—…—32?­