
Printing: PROGRAM 4 VERSION 3 = BEGIN
DEPENDS UPON
BulkData (0) VERSION 1,
Authentication (14) VERSION 2,
Time (15) VERSION 2;

EmptyRecord: TYPE = RECORD [ ];

Time: TYPE = Time.Time;	-- the standard time and date format

RequestID: TYPE = ARRAY 5 OF UNSPECIFIED;	-- the standard time and date format

PrintAttributes: TYPE = SEQUENCE 3 OF Attribute;

Attribute: TYPE = CHOICE AttributeKind OF {
printObjectName => STRING,	-- (0) default is implementation-dependent
printObjectCreateDate => Time,	-- (1) default is implementation-dependent
senderName => STRING	-- (2) default is implementation-dependent
};

AttributeKind: TYPE = {
printObjectName(0),
printObjectCreateDate(1),
senderName(2)
};

PrintOptions: TYPE = SEQUENCE 10 OF Option;

Option: TYPE = CHOICE OptionKind OF {
printObjectSize => LONG CARDINAL, -- (0) default is size of master
recipientName => STRING, -- (1) default is senderName
message => STRING, -- (2) default is ""
copyCount => CARDINAL, -- (3) default is 1
pagesToPrint => DocumentSubrange, -- (4)
mediumHint => Medium, -- (5) default is implementation-dependent
priorityHint => Priority, -- (6) default is implementation-dependent
releaseKey => Authentication.HashedPassword, -- (7) default is 177777B
staple => BOOLEAN, -- (8) default is FALSE
twoSided => BOOLEAN -- (9) default is FALSE
};

OptionKind: TYPE = {
printObjectSize(0),
recipientName(1),
message(2),
copyCount(3),
pagesToPrint(4),
mediumHint(5),
priorityHint(6),
releaseKey(7),
staple(8),
twoSided(9)
};

DocumentSubrange: TYPE = RECORD [
beginningPageNumber: CARDINAL, -- default is 1, the first page of the master
endingPageNumber: CARDINAL  -- default is the last page of the master
];

Priority: TYPE = {
low(0),
normal(1),
high(2)
};

PrinterProperties: TYPE = SEQUENCE 3 OF Property;

Property: TYPE = CHOICE PropertyKind OF {
ppmedia => Media, -- (0)
ppstaple => BOOLEAN, -- (1) default is FALSE
pptwoSided => BOOLEAN -- (2) default is FALSE
};

PropertyKind: TYPE = {
ppmedia(0),
ppstaple(1),
pptwoSided(2)
};

PrinterStatus: TYPE = SEQUENCE 4 OF ServiceStatus;

ServiceStatus: TYPE = CHOICE StatusKind OF {
spooler => SpoolerStatus, -- (0)
formatter => FormatterStatus, -- (1)
printer => MarkingEngineStatus, -- (2)
media => Media -- (3)
};

StatusKind: TYPE = {
spooler(0),
formatter(1),
printer(2),
media(3)
};

SpoolerStatus: TYPE = {
available(0),
busy(1),
disabled(2),
full(3)
};

FormatterStatus: TYPE = {
available(0),
busy(1),
disabled(2)
};

MarkingEngineStatus: TYPE = {
available(0),
busy(1),
disabled(2),
needsAttention(3),
needsKeyOperator(4)
};

Media: TYPE = SEQUENCE 100 OF Medium;

Medium: TYPE = CHOICE MediumKind OF {
paper => Paper -- (0)
};

MediumKind: TYPE = {
paper(0)
};


Paper: TYPE = CHOICE PaperKind OF {
unknown => EmptyRecord, -- (0)
knownSize => KnownPaperSize, -- (1)
otherSize => PaperDimensions -- (2)
};

PaperKind: TYPE = {
unknown(0),
knownSize(1),
otherSize(2)
};

KnownPaperSize: TYPE = {
usLetter(1), -- defined as 8.5" x 11.0" or 216mm x 297mm
usLegal(2), -- defined as 8.5" x 14.0" or 216mm x 356mm
a0(3), -- anybody know what an 'a' is?
a1(4),
a2(5),
a3(6),
a4(7),
a5(8),
a6(9),
a7(10), 
a8(11),
a9(12),
a10(35), -- sneaky!
isoB0(13), -- anybody know what an 'iso' is?
isoB1(14),
isoB2(15),
isoB3(16),
isoB4(17),
isoB5(18),
isoB6(19),
isoB7(20),
isoB8(21),
isoB9(22),
isoB10(23),
jisB0(24), -- anybody know what an 'jis' is?
jisB1(25),
jisB2(26),
jisB3(27),
jisB4(28),
jisB5(29),
jisB6(30),
jisB7(31),
jisB8(32),
jisB9(33),
jisB10(34)
};

PaperDimensions: TYPE = RECORD [
width: CARDINAL,  -- both in millimeters
length: CARDINAL
];

RequestStatus: TYPE = SEQUENCE 2 OF JobStatus;

JobStatus: TYPE = CHOICE JobStatusKind OF {
status => InterpressMasterStatus, -- (0)
statusMessage => STRING -- (1) default is ""
};

JobStatusKind: TYPE = {
status(0),
statusMessage(1)
};

InterpressMasterStatus: TYPE = {
pending(0),
inProgress(1),
completed(2),
completedWithWarning(3),
unknown(4),
rejected(5),
aborted(6),
canceled(7),
held(8)
};


Print: PROCEDURE [master: Source, printAttributes: PrintAttributes, printOptions: PrintOptions]
RETURNS [printRequestID: RequestID]
REPORTS [Busy, ConnectionError, InsufficientSpoolSpace, InvalidPrintParameters, MasterTooLarge, MediumUnavailable, ServiceUnavailable, SpoolingDisabled, SpoolingQueueFull, SystemError, TooManyClients, TransferError, Undefined] = 0;

Source: TYPE = BulkData.Source;

GetPrinterProperties: PROCEDURE
RETURNS [properties: PrinterProperties]
REPORTS [ServiceUnavailable, SystemError, Undefined] = 1;

GetPrintRequestStatus: PROCEDURE [printRequestID: RequestID]
RETURNS [status: RequestStatus]
REPORTS [ServiceUnavailable, SystemError, Undefined] = 2;

GetPrinterStatus: PROCEDURE
RETURNS [status: PrinterStatus]
REPORTS [ServiceUnavailable, SystemError, Undefined] = 3;

Busy: ERROR = 0;	-- service cannot accept a new request at this time

ConnectionError: ERROR [problem: ConnectionProblem] = 11;

ConnectionProblem: TYPE = {
noRoute(0),	-- no route to the other party could be found.
noResponse(1),	-- the other party never answered.
transmissionHardware(2),	-- some local transmission hardware was inoperative.
transportTimeout(3),	-- the other party responded once, but later failed to respond.
tooManyLocalConnections(4),	-- no additional connection is possible.
tooManyRemoteConnections(5),	-- the other party rejected the connection attempt.
missingCourier(6),	-- the other party has no Courier implementation.
missingProgram(7),	-- the other party does not implement the Bulk Data program.
missingProcedure(8),	-- the other party does not implement the procedure.
protocolMismatch(9),	-- the two parties have no Courier version in commmon.
parameterInconsistency(10),	-- a protocol violation occurred in parameters.
invalidMessage(11),	-- a protocol violation occurred in message format.
returnTimedOut(12),	-- the procedure call never returned.
otherCallProblem(177777B)	-- some other protocol violation occurred during a call.
};

InsufficientSpoolSpace: ERROR = 1;	-- service does not have enough space to spool a new request

InvalidPrintParameters: ERROR = 2;	-- call to Print specified inconsistent arguments

MasterTooLarge: ERROR = 3;	-- master is too large for the printer service to ever accept

MediumUnavailable: ERROR = 4;

ServiceUnavailable: ERROR = 5;	-- service is not accepting any remote procedure calls

SpoolingDisabled: ERROR = 6;	-- service is not accepting print requests

SpoolingQueueFull: ERROR = 7;	-- service does not have enough space to accept a new request

SystemError: ERROR = 8;	-- service is in an internally inconsistent state

TooManyClients: ERROR = 9;	-- service does not have enough resources to open a new connection

TransferError: ERROR [problem: TransferProblem] = 12;

TransferProblem: TYPE = {
aborted(0),	-- The bulk data transfer was aborted by the party at the other end of the connection.
formatIncorrect(2),	-- The bulk data received from the souce did not have the expected format.
noRendezvous(3),	-- The identifier from the other party never appeared.
wrongDirection(4)	-- The other party wanted to transfer the data in the wrong direction.
};

Undefined: ERROR [problem: UndefinedProblem] = 10;	-- some procedure in Printing is not implemented

UndefinedProblem: TYPE = CARDINAL;

END.

    Ú  
Printing3.cr
Copyright Ó 1986, 1987, 1992 by Xerox Corporation.  All rights reserved.
Bill Jackson (bj) January 31, 1987 3:08:23 am PST
Foote, January 7, 1992 3:11 pm PST
Types

Remote Procedures
Remote Errors

Ê¶  •NewlineDelimiter
–(cedarcode) style™ šœ™Icodešœ
Ïeœ=™HK™1K™"—J˜ JšÏnœÏkœŸœŸ˜%šŸœŸ˜JšœŸœ˜JšœŸœ˜Jšœ
Ÿœ˜—J˜ šœ™J™ šœŸœŸœ˜J˜ —JšœŸœÏc$˜<J˜ Jš
œŸœŸœŸœŸœ $˜NJ˜ šœŸœŸœŸœ˜0J˜ šœŸœŸœŸœ˜+JšœŸœ *˜EJšœ *˜IJšœŸœ *˜?Jšœ˜—J˜ šœŸœ˜Jšœ˜Jšœ˜Jšœ˜J˜——J˜ šœŸœŸœŸœ˜+J˜ šœŸœŸœŸœ˜%JšœŸœŸœ  ˜BJšœŸœ ˜5JšœŸœ ˜'JšœŸœ ˜*Jšœ" ˜(Jšœ *˜@Jšœ *˜DJšœ- ˜FJšœ
Ÿœ ˜*JšœŸœ ˜+Jšœ˜—J˜ šœŸœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ˜Jšœ
˜
Jšœ˜J˜—J˜ šœŸœŸœ˜!JšœŸœ -˜LJšœŸœ )˜EJšœ˜—J˜ šœ
Ÿœ˜Jšœ˜Jšœ
˜
Jšœ˜J˜——J˜ šœŸœŸœŸœ
˜1J˜ šœ
ŸœŸœŸœ˜)Jšœ ˜JšœŸœ ˜,JšœŸœ ˜-Jšœ˜—J˜ šœŸœ˜Jšœ˜Jšœ˜Jšœ˜J˜——J˜ šœŸœŸœŸœ˜2J˜ šœŸœŸœŸœ˜,Jšœ ˜ Jšœ ˜$Jšœ  ˜&Jšœ ˜J˜—J˜ šœŸœ˜J˜J˜J˜J˜J˜—J˜ šœŸœ˜J˜J˜J˜J˜J˜—J˜ šœŸœ˜J˜J˜J˜J˜—J˜ šœŸœ˜J˜J˜J˜J˜J˜J˜——J˜ JšœŸœŸœŸœ˜%J˜ šœŸœŸœŸœ˜%Jšœ ˜Jšœ˜J˜ šœŸœ˜Jšœ˜J˜J˜ ——J˜ šœŸœŸœŸœ˜#Jšœ ˜Jšœ ˜#Jšœ ˜#Jšœ˜J˜ šœŸœ˜Jšœ˜Jšœ˜Jšœ˜J˜—J˜ šœŸœ˜Jšœ +˜8Jšœ +˜7Jšœ ˜&J˜J˜J˜J˜J˜J˜J˜J˜J˜Jšœ	 
˜Jšœ !˜,J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜Jšœ !˜,J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜
J˜—J˜ šœŸœŸœ˜ JšœŸœ ˜(JšœŸ˜Jšœ˜——J˜ šœŸœŸœŸœ˜.J˜ šœŸœŸœŸœ˜+Jšœ" ˜(JšœŸœ ˜,Jšœ˜—J˜ šœŸœ˜J˜
Jšœ˜J˜—J˜ šœŸœ˜ J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜——J˜ —šœ™J˜ šžœŸ	œO˜_JšŸœ˜#JšŸœà˜ç—J˜ JšœŸœ˜J˜ šžœŸ	˜JšŸœ ˜'JšŸœ2˜9J˜ —šžœŸ	œ˜<JšŸœ˜JšŸœ2˜9—J˜ šžœŸ	˜JšŸœ˜JšŸœ2˜9J˜ ——šœ™J™ JšžœŸœ 3˜DJ˜ JšžœŸœ#˜9J˜ šœŸœ˜Jšœ .˜:Jšœ "˜1Jšœ 4˜MJšœ ?˜TJšœ (˜DJšœ 3˜PJšœ 1˜DJšœ <˜OJšœ 4˜IJšœ 6˜KJšœ /˜KJšœ 3˜GJšœ %˜9Jšœ 8˜RJšœ˜J˜ —JšžœŸœ <˜_J˜ JšžœŸœ 1˜TJ˜ JšžœŸœ =˜XJ˜ JšžœŸœ˜J˜ JšžœŸœ 6˜UJ˜ JšžœŸœ *˜GJ˜ JšžœŸœ =˜[J˜ JšžœŸœ 1˜IJ˜ JšžœŸœ B˜]J˜ JšžœŸœ!˜5J˜ šœŸœ˜Jšœ V˜bJšœ J˜^Jšœ 6˜GJšœ F˜XJšœ˜—J˜ Jšž	œŸœ# 0˜cJ˜ JšœŸœŸœ˜"—J˜ JšŸœ˜J˜ — …—    ^  %î  