[Cyan]<CedarPS>PSKMessages>ControlMessagesImpl.mesa!1

ControlMessagesImpl.mesa

Last edited by Jacks 7-Nov-85 17:51:46

Tim Diebert: October 8, 1986 1:14:04 pm PDT

DIRECTORY

ControlMessages USING [Key, totalKeys],

PSKMessages USING [Name],

XMessage USING [AllocateMessages, Handle, MsgEntry, MsgID, RegisterMessages],

XString USING [FromSTRING];

ControlMessagesImpl: CEDAR PROGRAM

IMPORTS PSKMessages, XMessage, XString

EXPORTS ControlMessages =

BEGIN

ControlMsgEntry: TYPE = RECORD [

key: ControlMessages.Key,

msg: LONG STRING,

id: XMessage.MsgID,

translatable: BOOLEAN ← TRUE];

InitMessages: PUBLIC PROCEDURE RETURNS [controlMsgs: PSKMessage.Handle] = BEGIN

id: CARDINAL ← 0; --NOTE: Hardcode message keys after rewriting DecomposerControlImpl

entries: ARRAY [0..ControlMessages.totalKeys) OF ControlMsgEntry = [

BANNER MESSAGES

[mBannerPrinter, "Xerox Print Service <1> on <2>", id ← id + 5],

[mVersion, "10.0", id ← id + 5], --NOTE: Change this msg for each release; MOVE THIS MESSAGE TO END, SINCE IT CHANGES EACH RELEASE

[mBannerMasterError, "Master Error", id ← id + 5],

[mBannerExceptionTemplate, "<1> (page <2>): <3><4>.", id ← id + 5],

[mBannerJobPurged,

"Banner only: job purged from <1> at System Restart.", id ← id + 5],

[mBannerPurgedCommQ, "Communications Queue", id ← id + 5],

[mBannerPurgedFormatter, "Formatter", id ← id + 5],

[mBannerPurgedMarker, "Marker", id ← id + 5],

[mBannerPurgedOtherQ, "In-Process Queue", id ← id + 5],

[mBannerDocNotPrinted,

"Banner only: document not printed because of <1>.", id ← id + 5],

[mBannerTransmitError, "transmit error", id ← id + 5],

[mBannerFormattingError,

"error in processing interpress master", id ← id + 5],

[mBannerMarkingError, "marking error", id ← id + 5],

[mBannerOtherError, "error", id ← id + 5],

[mDecompErrorNoResources, "no resources; ", id ← id + 5],

[mDecompErrorParseFailure, "parse failure; ", id ← id + 5],

[mDecompErrorFeatureNotImplemented,

"feature not implemented; ", id ← id + 5],

[mDecompErrorFontProblem, "font problem; ", id ← id + 5],

[mDecompErrorNoDefaultFont, "no default font; ", id ← id + 5],

[mDecompErrorPlateTooComplicated, "plate too complicated; ", id ← id + 5],

[mDecompErrorTooManyPlates, "too many plates; ", id ← id + 5],

[mDecompErrorLogicError, "logic error; ", id ← id + 5],

[mDecompErrorUnknown, "unknown", id ← id + 5],

[mOk, "Okay.", id ← id + 5],

INFORMATIONAL/ERROR MESSAGES

[mSystemControl, "System Control", id ← id + 20], --duplicated in ExecMessages

[mUINoDefaultFont,

" ** Missing default font. Install fonts and 'Start Printing' to continue.", id ← id + 5],

[mMissingDefaultFont,

"Missing default font", id ← id + 5],

[mInsufficientFreePages,

" ** Insufficient free pages on disk to format: ""<1>""", id ← id + 5],

[mCantRecover,

" ** Unrecoverable problem encountered trying to format: ""<1>""", id ← id + 5],

[mDocAborted, " ** Document aborted.", id ← id + 5],

[mSetTargetWarning,

" ** Warning: Target Print Service did not respond to status request.", id ← id + 5], --duplicated in ExecMessages

[mRepairModeEntered, " ** Repair Mode entered.", id ← id + 5],

[mRepairModeExited, " ** Repair Mode exited.", id ← id + 5],

[mPrinterStatus2, " ** Printer status = <1>.", id ← id + 5],

[mPrintEngineFailure,

" ** Print engine failure, 'Start Printing' to continue.", id ← id + 5],

[mEngineFailure, "Print engine failure", id ← id + 5],

[mForwardingError, " ** Forwarding status = <1>.", id ← id + 5],

[mCatalogingFonts,

"Cataloging fonts (this may take a while)...", id ← id + 5],

[mBeginFontRotation, "Rotating fonts for <1>...", id ← id + 5],

[mRotatingFont, " Rotating ""<1>""...", id ← id + 5],

[mRotationDone, "Rotation of <1> font files completed.", id ← id + 5],

[mRotationError, " ** Rotation error: <1>.", id ← id + 5],

[mInsufficientVolSpace, "Insufficient volume space", id ← id + 5],

[mUnknown, "Unknown", id ← id + 5],

[mBanshee, "NS 8000 Laser CP Electronic Printer", id ← id + 5], --duplicated in ExecMessages

[mTPLocalPrintCompleted,

"Test pattern local print completed: status = <1>.", id ← id + 5],

[mTPRemotePrintCompleted,

"Test pattern remote print completed: status = <1>.", id ← id + 5],

[mPrinted, "Printed", id ← id + 5], --duplicated in ExecMessages

[mTransmitted, "Transmitted", id ← id + 5], --duplicated in ExecMessages

[mBusy, "Busy", id ← id + 5], --duplicated in ExecMessages

[mNoAnswer, "No answer", id ← id + 5], --duplicated in ExecMessages

[mTransmitError, "Transmit error", id ← id + 5], --duplicated in ExecMessages

[mFaxFailure, "ocal fax failure", id ← id + 5], --duplicated in ExecMessages

[mAborted, "Aborted", id ← id + 5] --duplicated in ExecMessages

];

messages: ARRAY [0..ControlMessages.totalKeys) OF XMessage.MsgEntry ← NULL;

FOR i: CARDINAL IN [0..ControlMessages.totalKeys) DO

messages[i] ← [

msgKey: ORD[entries[i].key], msg: XString.FromSTRING[entries[i].msg],

translationNote: NIL, translatable: entries[i].translatable,

type: userMsg, id: entries[i].id];

ENDLOOP;

controlMsgs ← XMessage.AllocateMessages[

applicationName: PSKMessages.Name[control],

maxMessages: ControlMessages.totalKeys,

clientData: NIL, proc: NIL];

XMessage.RegisterMessages[

h: controlMsgs, messages: DESCRIPTOR[messages],

stringBodiesAreReal: FALSE];

END; -- InitMessages

END. -- of ControlMessagesImpl

LOG [when - who - what]

23-Jul-85 15:29:53 - Jacks - Created.

29-Jul-85 16:20:20 - Jacks - Fixed catch phrase for MsgOps.DomainsFromFile.

28-Aug-85 15:47:01 - Jacks - Changed mBanshee slightly.

25-Sep-85 16:20:40 - Jacks - Took hyphen out of mBanshee.

6-Nov-85 14:18:42 - Jacks - Removed RegisterMsgs and GetHandle; made InitMessages public.

7-Nov-85 17:51:28 - Jacks - Changed mPrinterStatus2 and mForwardingError slightly.