Printing3.cr
Copyright © 1986 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) October 9, 1986 1:26:03 am PDT
Printing: PROGRAM 4 VERSION 3 = BEGIN
DEPENDS UPON
BulkData (0) VERSION 1,
Authentication (14) VERSION 2,
Time (15) VERSION 2;
Primitive types
Source: TYPE = BulkData.Source;
Time: TYPE = Time.Time; -- the standard time and date format
UndefinedProblem: TYPE = CARDINAL;
Enumerated types
AttributeKind: TYPE = {
printObjectName(0),
printObjectCreateDate(1),
senderName(2)
};
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.
};
FormatterStatus: TYPE = {
available(0),
busy(1),
disabled(2)
};
InterpressMasterStatus: TYPE = {
pending(0),
inProgress(1),
completed(2),
completedWithWarning(3),
unknown(4),
rejected(5),
aborted(6),
canceled(7),
held(8)
};
JobStatusKind: TYPE = {
status(0),
statusMessage(1)
};
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)
};
MarkingEngineStatus: TYPE = {
available(0),
busy(1),
disabled(2),
needsAttention(3),
needsKeyOperator(4)
};
MediumKind: TYPE = {
paper(0)
};
OptionKind: TYPE = {
printObjectSize(0),
recipientName(1),
message(2),
copyCount(3),
pagesToPrint(4),
mediumHint(5),
priorityHint(6),
releaseKey(7),
staple(8),
twoSided(9)
};
PaperKind: TYPE = {
unknown(0),
knownSize(1),
otherSize(2)
};
Priority: TYPE = {
low(0),
normal(1),
high(2)
};
PropertyKind: TYPE = {
ppmedia(0),
ppstaple(1),
pptwoSided(2)
};
SpoolerStatus: TYPE = {
available(0),
busy(1),
disabled(2),
full(3)
};
StatusKind: TYPE = {
spooler(0),
formatter(1),
printer(2),
media(3)
};
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.
};
Array types
RequestID: TYPE = ARRAY 5 OF UNSPECIFIED; -- the standard time and date format
Record Types
DocumentSubrange: TYPE = RECORD [
beginningPageNumber: CARDINAL, -- default is 1, the first page of the master
endingPageNumber: CARDINAL -- default is the last page of the master
];
EmptyRecord: TYPE = RECORD [
];
PaperDimensions: TYPE = RECORD [
width: CARDINAL, -- both in millimeters
length: CARDINAL
];
Choice Types
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
};
JobStatus: TYPE = CHOICE JobStatusKind OF {
status => InterpressMasterStatus, -- (0)
statusMessage => STRING -- (1) default is ""
};
Medium: TYPE = CHOICE MediumKind OF {
paper => Paper -- (0)
};
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
};
Paper: TYPE = CHOICE PaperKind OF {
unknown => EmptyRecord, -- (0)
knownSize => KnownPaperSize, -- (1)
otherSize => PaperDimensions -- (2)
};
Property: TYPE = CHOICE PropertyKind OF {
ppmedia => Media, -- (0)
ppstaple => BOOLEAN, -- (1) default is FALSE
pptwoSided => BOOLEAN -- (2) default is FALSE
};
ServiceStatus: TYPE = CHOICE StatusKind OF {
spooler => SpoolerStatus, -- (0)
formatter => FormatterStatus, -- (1)
printer => MarkingEngineStatus, -- (2)
media => Media -- (3)
};
Sequence Types
Media: TYPE = SEQUENCE 100 OF Medium;
PrintAttributes: TYPE = SEQUENCE 3 OF Attribute;
PrinterProperties: TYPE = SEQUENCE 3 OF Property;
PrinterStatus: TYPE = SEQUENCE 4 OF ServiceStatus;
PrintOptions: TYPE = SEQUENCE 10 OF Option;
RequestStatus: TYPE = SEQUENCE 2 OF JobStatus;
Constants
Initialized Constants
Remote Errors
Busy: ERROR = 0; -- service cannot accept a new request at this time
ConnectionError: ERROR [problem: ConnectionProblem] = 11;
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 = 5; -- service is not accepting any remote procedure calls
ServiceUnavailable: ERROR = 4;
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;
Undefined: ERROR [problem: UndefinedProblem] = 10; -- some procedure in Printing is not implemented
Remote procedures
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;
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;
END.