<> <> <> <> <> DIRECTORY <> <> <> MiscUtilities USING [KeyForBansheeStatus, KeyForCommunicationStatus, KeyForRavenStatus], NSExec USING [CheckForAbort, Error, ExecProc, Handle, OutputHandle, UserAServerSA], NSString USING [AppendDecimal, AppendLongDecimal, FreeString, String], <> PaperTypes USING [PaperSize], <> PSActivity USING [Basic, Printer, Spooler], PSAsyncMsg USING [Msg], PSCommand USING [GetPrintServiceActivity, GetPrintServiceStatus], PSExecInternal USING [ExpandKeyAndPrint, printServiceName], PSExecMessages USING [Key], <> PSKMessages USING [GetHandle], PSState USING [CurrentActivity, StateHandle], <> Rope USING [ToRefText], <> <> XFormat USING [Blanks, Date, Handle, NSLine, NSString, NSStringObject], XMessage USING [Compose, Get, Handle, StringArray]; PSExecDImpl: CEDAR PROGRAM IMPORTS MiscUtilities, NSExec, NSString, PSCommand, PSExecInternal, PSKMessages, Rope, XFormat, XMessage EXPORTS PSExecInternal SHARES NSString = BEGIN nsNil: NSString.String = NIL; tab0: CARDINAL = 2; tab1: CARDINAL = 4; tab2: CARDINAL = 6; tab3: CARDINAL = 8; <> execMsgs: XMessage.Handle _ PSKMessages.GetHandle[exec]; DisplayPrintServiceStatus: PUBLIC NSExec.ExecProc = BEGIN ENABLE NSExec.Error => IF type = invalidExec THEN GOTO Exit; state: PSState.StateHandle _ PSCommand.GetPrintServiceStatus[]; activity: PSState.CurrentActivity _ PSCommand.GetPrintServiceActivity[]; showInternalState: BOOLEAN _ NSExec.UserAServerSA[exec]; DisplayBasicStatus[exec, state, showInternalState]; IF NSExec.CheckForAbort[exec] THEN GOTO Exit; IF showInternalState THEN ShowVolumeStatus[exec, activity]; IF NSExec.CheckForAbort[exec] THEN GOTO Exit; DisplayOptionSpecificStatus[exec, state, activity, showInternalState]; IF NSExec.CheckForAbort[exec] THEN GOTO Exit; DisplayStats[exec, state, showInternalState]; EXITS Exit => NULL; END; --DisplayPrintServiceStatus QueryTargetPrintService: PUBLIC NSExec.ExecProc = TRUSTED BEGIN ENABLE NSExec.Error => IF type = invalidExec THEN GOTO Exit; outputHandle: XFormat.Handle _ NSExec.OutputHandle[exec]; stringArray: REF XMessage.StringArray _ NEW [XMessage.StringArray[2]]; state: PSState.StateHandle _ PSCommand.GetPrintServiceStatus[]; WITH s: state SELECT FROM < >> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<"Clearinghouse name:..." >> <> <> <> <> <> <> <> <> <> <<"Network address:...">> <> <> <> <> <> <> <<[targetActivity, targetProperties] _ PSCommand.GetTargetPSStatus[>> < BEGIN --display error message and exit>> <> < stringArray[0] _ M[mTargetNotSet];>> < stringArray[0] _ MGeneric[MiscUtilities.KeyForCommunicationStatus[what]];>> < stringArray[0] _ M[mUnknownProblem];>> <> <> <> <<]; >> <<"Spooler:...">> <> <> <> <<"Formatter:...">> <> <> <> <<"Printer:...">> <> <> <> <> <<"Paper size(s):...">> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<"Two-sided copy:...">> <> <> <> <<"Stapling:...">> <> <> <> <> ENDCASE => ERROR; EXITS Exit => NULL; END; --QueryTargetPrintService <<********************* >> <> <<*********************>> DisplayBasicStatus: PROCEDURE [exec: NSExec.Handle, state: PSState.StateHandle, showInternalState: BOOLEAN] = BEGIN outputHandle: XFormat.Handle _ NSExec.OutputHandle[exec]; stringArray: REF XMessage.StringArray _ NEW [XMessage.StringArray[2]]; freeThisString: NSString.String; freeString: BOOLEAN _ FALSE; <> nsDateAndTime: NSString.String _ NEW[TEXT[40]]; nsDateTimeObject: XFormat.Handle _ XFormat.NSStringObject[nsDateAndTime]; sCount: NSString.String _ NEW[TEXT[20]]; <<"Print Service "" ">> stringArray[0] _ IF PSExecInternal.printServiceName = [NIL, NIL, NIL] THEN nsNil ELSE Rope.ToRefText[PSExecInternal.printServiceName.object]; stringArray[1] _ M[ SELECT state.mode.current FROM diagnostic => mDiagMode, repair => mRepairMode, shutDown, notStarted => mStopped, ENDCASE => mStarted]; PSExecInternal.ExpandKeyAndPrint[exec, mStatusHerald, stringArray]; IF state.mode.current # shutDown OR state.mode.returnTo # shutDown THEN BEGIN <<"Queuing {Started|Stopped|Preempted}">> SELECT TRUE FROM state.clientControl.spooler = enabled AND state.internalControl.spooler = enabled => BEGIN --Queuing started stringArray[0] _ IF state.lastUserToStartQueuing.length > 0 THEN state.lastUserToStartQueuing ELSE nsNil; PSExecInternal.ExpandKeyAndPrint[exec, mQueuingStartedBy, stringArray]; END; state.clientControl.spooler # enabled => BEGIN --Queuing stopped IF state.lastStopQueuingReason.length > 0 THEN BEGIN stringArray[0] _ state.lastStopQueuingReason; freeThisString _ XMessage.Compose[M[mReason], stringArray]; freeString _ TRUE; stringArray[1] _ freeThisString; END ELSE stringArray[1] _ nsNil; stringArray[0] _ IF state.lastUserToStopQueuing.length > 0 THEN state.lastUserToStopQueuing ELSE nsNil; PSExecInternal.ExpandKeyAndPrint[exec, mQueuingStoppedBy, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; END; ENDCASE => --Queuing preempted outputHandle.NSLine[M[mQueuingPreempted]]; <<"Printing {Started|Stopped|Preempted}">> SELECT TRUE FROM state.clientControl.markerEnabled AND state.internalControl.markerEnabled => BEGIN --Printing started stringArray[0] _ IF state.lastUserToStartPrinting.length > 0 THEN state.lastUserToStartPrinting ELSE nsNil; PSExecInternal.ExpandKeyAndPrint[exec, mPrintingStartedBy, stringArray]; END; NOT state.clientControl.markerEnabled => BEGIN --Printing stopped IF state.lastStopPrintingReason.length > 0 THEN BEGIN stringArray[0] _ state.lastStopPrintingReason; freeThisString _ XMessage.Compose[M[mReason], stringArray]; freeString _ TRUE; stringArray[1] _ freeThisString; END ELSE stringArray[1] _ nsNil; stringArray[0] _ IF state.lastUserToStopPrinting.length > 0 THEN state.lastUserToStopPrinting ELSE nsNil; PSExecInternal.ExpandKeyAndPrint[exec, mPrintingStoppedBy, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; END; ENDCASE => --Printing preempted outputHandle.NSLine[M[mPrintingPreempted]]; END; -- state.mode # shutDown <<"Installed {; Times Rebooted=n}">> IF showInternalState THEN BEGIN nsDateAndTime.length _ 0; XFormat.Date[nsDateTimeObject, state.lastInstallation]; --aopends date to nsDateAndTime stringArray[0] _ nsDateAndTime; IF state.nBoots > 0 THEN BEGIN <> XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, state.nBoots]]; stringArray[1] _ NEW[TEXT[20]]; freeThisString _ XMessage.Compose[M[mTimesRebooted], stringArray]; freeString _ TRUE; stringArray[0] _ freeThisString; END; PSExecInternal.ExpandKeyAndPrint[exec, mInstalled, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; END; <<"Last booted ">> IF showInternalState THEN BEGIN nsDateAndTime.length _ 0; XFormat.Date[nsDateTimeObject, state.lastBoot]; --appends date to nsDateAndTime stringArray[0] _ nsDateAndTime; PSExecInternal.ExpandKeyAndPrint[exec, mServerBooted, stringArray]; END; <<"Statistics Reset ">> IF showInternalState THEN BEGIN nsDateAndTime.length _ 0; XFormat.Date[nsDateTimeObject, state.statisticsReset]; --aopends date to nsDateAndTime stringArray[0] _ nsDateAndTime; PSExecInternal.ExpandKeyAndPrint[exec, mStatsReset, stringArray]; END; <<"Last Activity ">> nsDateAndTime.length _ 0; XFormat.Date[nsDateTimeObject, state.lastActivity]; --aopends date to nsDateAndTime stringArray[0] _ nsDateAndTime; PSExecInternal.ExpandKeyAndPrint[exec, mLastActivity, stringArray]; END; -- of DisplayBasicStatus DisplayCurrentFaxRetries: PROCEDURE [exec: NSExec.Handle, currentCount: CARDINAL, currentDelay: LONG CARDINAL, reasonKey: PSExecMessages.Key, showInternalState: BOOLEAN _ TRUE] = BEGIN outputHandle: XFormat.Handle _ NSExec.OutputHandle[exec]; sCount1: NSString.String _ NEW[TEXT[20]]; sCount2: NSString.String _ NEW[TEXT[20]]; freeThisString: NSString.String; freeString: BOOLEAN _ FALSE; stringArray: REF XMessage.StringArray _ NEW[XMessage.StringArray[2]]; XFormat.NSString[outputHandle, NSString.AppendDecimal[sCount1, currentCount]]; IF currentCount > 0 AND showInternalState THEN BEGIN <> XFormat.NSString[outputHandle, NSString.AppendDecimal[sCount2, currentDelay]]; <> freeThisString _ XMessage.Compose[M[mRetryDelay], stringArray]; freeString _ TRUE; stringArray[1] _ freeThisString; END ELSE stringArray[1] _ NEW[TEXT[20]]; stringArray[0] _ M[reasonKey]; outputHandle.Blanks[tab2]; PSExecInternal.ExpandKeyAndPrint[exec, mTransmissionRetries, stringArray]; IF freeString THEN NSString.FreeString[freeThisString]; END; --DisplayCurrentFaxRetries DisplayOptionSpecificStatus: PROCEDURE [exec: NSExec.Handle, state: PSState.StateHandle, activity: PSState.CurrentActivity, showInternalState: BOOLEAN] = TRUSTED BEGIN outputHandle: XFormat.Handle _ NSExec.OutputHandle[exec]; stringArray: REF XMessage.StringArray _ NEW[XMessage.StringArray[2]]; freeThisString: NSString.String; freeString: BOOLEAN _ FALSE; <<"Printing option: <>{, }">> WITH s: state SELECT FROM bansheeDl => stringArray[0] _ M[mBanshee]; d1 => stringArray[0] _ M[mD1]; fax295 => stringArray[0] _ M[mTC295]; fax495 => stringArray[0] _ M[mTC495]; feps9700 => stringArray[0] _ M[mFEPS]; fx3500 => stringArray[0] _ M[mFX3500]; raven => BEGIN stringArray[0] _ M[mRaven]; stringArray[1] _ M[ SELECT s.engineBuild FROM b1 => mRavenB1, b2, b2TraySensing, b2XSISModified => mRavenB2, ENDCASE => mQuestion]; freeThisString _ XMessage.Compose[M[mOneCommaTwo], stringArray]; freeString _ TRUE; stringArray[0] _ freeThisString; END; ENDCASE => ERROR; PSExecInternal.ExpandKeyAndPrint[exec, mPrintingOption, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; WITH a: activity SELECT FROM <<"Printer ; Status: ">> bansheeDl => BEGIN stringArray[0] _ M[IF a.marker IN [marking..paused] THEN mBusy ELSE mIdle]; stringArray[1] _ MGeneric[MiscUtilities.KeyForBansheeStatus[a.bansheeStatus]]; PSExecInternal.ExpandKeyAndPrint[exec, mPrinterStatus, stringArray]; END; < BEGIN>> <> <> <> <> < BEGIN>> <> <> <> <> <<"Forwarding activity: ; Status = <>>>> feps9700 => BEGIN IF a.forwarder = busy THEN BEGIN <> stringArray[0] _ MGeneric[MiscUtilities.KeyForCommunicationStatus[a.forwardingStatus]]; freeThisString _ XMessage.Compose[M[mRetrying], stringArray]; freeString _ TRUE; stringArray[0] _ freeThisString; END ELSE stringArray[0] _ M[mNone]; PSExecInternal.ExpandKeyAndPrint[exec, mForwardingActivity, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; END; < BEGIN>> <> <> <> <> raven => BEGIN stringArray[0] _ M[IF a.marker IN [marking..paused] THEN mBusy ELSE mIdle]; stringArray[1] _ MGeneric[MiscUtilities.KeyForRavenStatus[a.ravenStatus]]; PSExecInternal.ExpandKeyAndPrint[exec, mPrinterStatus, stringArray]; END; ENDCASE; <> WITH s: state SELECT FROM < BEGIN>> <<"Operational Parameters: ">> <> <<"Paper size = <>">> <> <> <> <> <> <> <> <> <> <> <> <> <<"Print Order = <>">> <> <> < mFirstPagePrintedFirst,>> < mLastPagePrintedFirst];>> <> <> <<"Banner = <>">> <> <> < mPerCopy,>> < mPerSetOfCopies,>> < mSuppressed];>> <> <> <> <<>> < BEGIN>> < PSInit.unlimitedPrintingCutOffMemSize THEN BEGIN>> <<"Unlimited printing: ">> <> <> <> <> <<"Paper size = <>">> <> <> <> <> <<"Banner = <>">> <> <> < mPerCopy,>> < mPerSetOfCopies,>> < mSuppressed];>> <> <> <> <<>> < BEGIN>> <<"Operational Parameters: ">> <> <<"Transmission retries (no connection) = <>{, retry delay (minutes) = <>">> <> <> <> <> <> <<"Transmission retries (transmit error) = <>{, retry delay (minutes) = <>">> <> <> <> <> <> <<"Local banner = <>">> <> <> < mPerCopy,>> < mPerSetOfCopies,>> < mSuppressed];>> <> <> <<"Remote banner = <>">> <> <> < mPerCopy,>> < mPerSetOfCopies,>> < mSuppressed];>> <> <> <<"Local duplicate copies = <>">> <> <> <> <> <> <<"Remote duplicate copies = <>">> <> <> <> <> <> <> <<>> < BEGIN>> <> <> <> <> <<"Target Print Service: <>">> <> < BEGIN>> <> <> <> <> <> < BEGIN>> <> <> <> <> < BEGIN>> <> <> <> <> <> <> <> <> <> <> <> <> <> <<"Paper size = <>">> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<"Two-sided copy = <>">> <> <> <> <<"Stapling = <>">> <> <> <> <> <<>> < BEGIN>> <> <<(s.paperSupply.size2 # s.paperSupply.size1) OR>> <<(s.topPaperTrayEmpty # s.bottomPaperTrayEmpty);>> <<"Operational Parameters: ">> <> <<"Paper Size = <>">> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <<"Feed = <>">> <> <> <> <> < mFromBottom,>> < mFromBottomBannerfromTopTray,>> < mFromBottomorTopTray,>> < mFromTop,>> < mAlternateBottomAndTop>> <<];>> <> <> <<"Print Order = <>">> <> <> < mFirstPagePrintedFirst,>> < mLastPagePrintedFirst];>> <> <> <<"Banner = <>">> <> <> < mPerCopy,>> < mPerSetOfCopies,>> < mSuppressed];>> <> <> <> raven => BEGIN twoPaperSizesLoaded: BOOLEAN _ s.paperSupply.size2 # s.paperSupply.size1; < PSInit.unlimitedPrintingCutOffMemSize THEN BEGIN>> <<"Unlimited printing: ">> <> <> <> <> <<"Operational Parameters: ">> outputHandle.NSLine[M[mOperationalParms]]; <<"Paper Size = <>">> stringArray[0] _ M[ IF twoPaperSizesLoaded THEN mTopTray ELSE mBothTrays]; stringArray[1] _ StringForPaper[s.paperSupply.size2]; outputHandle.Blanks[tab2]; PSExecInternal.ExpandKeyAndPrint[exec, mPaperSize2, stringArray]; IF twoPaperSizesLoaded THEN BEGIN stringArray[0] _ M[mBottomTray]; stringArray[1] _ StringForPaper[s.paperSupply.size1]; outputHandle.Blanks[tab2]; PSExecInternal.ExpandKeyAndPrint[exec, mPaperSize2, stringArray]; END; <<"Feed = <>">> stringArray[0] _ IF twoPaperSizesLoaded THEN M[mAsAppropriate] ELSE M[ SELECT s.paperFeed FROM fromBottomBannerFromTop => mFromBottomBannerfromTopTray, ENDCASE => mFromBottomorTopTray]; outputHandle.Blanks[tab2]; PSExecInternal.ExpandKeyAndPrint[exec, mPaperFeed, stringArray]; <<"Stacking = <>">> IF s.engineBuild > b1 THEN BEGIN --Stacking only applies to B2 or later engines. stringArray[0] _ M[ SELECT s.paperStacking FROM aligned => mAligned, documentOffset => mCopyOffset, ENDCASE --jobOffset-- => mSetOfCopiesOffset]; outputHandle.Blanks[tab2]; PSExecInternal.ExpandKeyAndPrint[exec, mOutputStacking, stringArray]; END; <<"Banner = <>">> stringArray[0] _ M[ SELECT s.banner FROM oncePerDocument => mPerCopy, oncePerJob => mPerSetOfCopies, ENDCASE => mSuppressed]; outputHandle.Blanks[tab2]; PSExecInternal.ExpandKeyAndPrint[exec, mBanner2, stringArray]; END; --raven parms ENDCASE; END; -- of DisplayOptionSpecificStatus DisplayStats: PROCEDURE [exec: NSExec.Handle, state: PSState.StateHandle, showInternalState: BOOLEAN] = TRUSTED BEGIN outputHandle: XFormat.Handle _ NSExec.OutputHandle[exec]; stringArray: REF XMessage.StringArray _ NEW[XMessage.StringArray[2]]; freeThisString: NSString.String; freeString: BOOLEAN _ FALSE; sCount1: NSString.String _ NEW[TEXT[20]]; sCount2: NSString.String _ NEW[TEXT[20]]; <> <<"Documents Printed: <> {; Total Since Installed: <>}" or>> <<"Documents Forwarded: <>" for feps9700>> sCount1.length _ sCount2.length _ 0; XFormat.NSString[outputHandle, NSString.AppendDecimal[NIL, state.docsPrinted.total]]; IF showInternalState THEN XFormat.NSString[outputHandle, NSString.AppendLongDecimal[ NIL, state.docsPrinted.grandTotal + state.docsPrinted.total]]; <> <> stringArray[0] _ NEW[TEXT[20]]; IF showInternalState THEN BEGIN -- mTotalSinceInstalled is inserted into mDocsPrinted stringArray[1] _ NEW[TEXT[20]]; freeThisString _ XMessage.Compose[M[mTotalSinceInstalled], stringArray]; freeString _ TRUE; stringArray[0] _ freeThisString; END; IF state.option = feps9700 THEN PSExecInternal.ExpandKeyAndPrint[exec, mDocsForwarded, stringArray] ELSE PSExecInternal.ExpandKeyAndPrint[exec, mDocsPrinted, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; WITH s: state SELECT FROM fax495 => BEGIN <<" Documents Transmitted: <> {; Total Since Installed: <>}">> sCount1.length _ sCount2.length _ 0; <> stringArray[0] _ NEW[TEXT[20]]; IF showInternalState THEN BEGIN -- mTotalSinceInstalled is inserted into mDocsTransmitted <> <> stringArray[1] _ NEW[TEXT[20]]; <> freeString _ TRUE; stringArray[0] _ freeThisString; END; PSExecInternal.ExpandKeyAndPrint[exec, mDocsTransmitted, stringArray]; IF freeString THEN BEGIN NSString.FreeString[freeThisString]; freeString _ FALSE; END; END; ENDCASE; IF showInternalState AND (state.docsAborted.total # 0 OR state.docsAborted.grandTotal # 0) THEN BEGIN <<" Documents Canceled: <1>; Total Since Installed: <2>">> sCount1.length _ sCount2.length _ 0; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, state.docsAborted.total]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[ NIL, state.docsAborted.grandTotal + state.docsAborted.total]]; stringArray[0] _ NEW[TEXT[20]]; stringArray[1] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mDocsCanceledStat, stringArray]; END; IF showInternalState AND (state.commErrors.total # 0 OR state.commErrors.grandTotal # 0) THEN BEGIN <<" Failed Communications Attempts: <1>; Total Since Installed: <2>">> sCount1.length _ sCount2.length _ 0; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, state.commErrors.total]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[ NIL, state.commErrors.grandTotal + state.commErrors.total]]; stringArray[0] _ NEW[TEXT[20]]; stringArray[1] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mCommErrorsStat, stringArray]; END; IF showInternalState AND (state.testPatternsPrinted.total # 0 OR state.testPatternsPrinted.grandTotal # 0) THEN BEGIN <<" TestPattern Requests: <1>; Total Since Installed: <2>">> sCount1.length _ sCount2.length _ 0; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, state.testPatternsPrinted.total]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[ NIL, state.testPatternsPrinted.grandTotal + state.testPatternsPrinted.total]]; stringArray[0] _ NEW[TEXT[20]]; stringArray[1] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mTPRequests, stringArray]; END; IF showInternalState AND (state.docsRetried.total # 0 OR state.docsRetried.grandTotal # 0) THEN BEGIN <<" Recovery Retry Requests: <1>; Total Since Installed: <2>">> sCount1.length _ sCount2.length _ 0; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, state.docsRetried.total]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[ NIL, state.docsRetried.grandTotal + state.docsRetried.total]]; stringArray[0] _ NEW[TEXT[20]]; stringArray[1] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mRecoveryRetryRequests, stringArray]; END; IF showInternalState AND (state.docsPurged.total # 0 OR state.docsPurged.grandTotal # 0) THEN BEGIN <<" Docs Purged at Recovery: <1>; Total Since Installed: <2>">> sCount1.length _ sCount2.length _ 0; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, state.docsPurged.total]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[ NIL, state.docsPurged.grandTotal + state.docsPurged.total]]; stringArray[0] _ NEW[TEXT[20]]; stringArray[1] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mDocsPurgedAtRecovery, stringArray]; END; <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <> <volume pages = <2>; Free pages = <3>">> stringArray[0] _ nsNil; <<[usedPages, freePages] _ NSVolumeControl.GetSpaceAttributes[userVolID];>> XFormat.NSString[outputHandle, NSString.AppendLongDecimal[sCount1, usedPages + freePages]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[sCount2, freePages]]; stringArray[1] _ NEW[TEXT[20]]; stringArray[2] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mTotalVolumePages, stringArray]; sCount1.length _ sCount2.length _ 0; <<" Queue pages allocated = <1>; Font pages allocated = <2>">> XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, activity.queuePages]]; XFormat.NSString[outputHandle, NSString.AppendLongDecimal[NIL, activity.fontPages]]; stringArray[0] _ NEW[TEXT[20]]; stringArray[1] _ NEW[TEXT[20]]; PSExecInternal.ExpandKeyAndPrint[exec, mPagesAllocated, stringArray]; END; -- ShowVolumeStatus StringForActivity: PROCEDURE [a: PSActivity.Basic] RETURNS [NSString.String] = BEGIN RETURN [M[ SELECT a FROM available => mAvailable, busy => mBusy, disabled => mDisabled, ENDCASE => mQuestion]]; END; --StringForActivity StringForPaper: PROCEDURE [p: PaperTypes.PaperSize] RETURNS [NSString.String] = BEGIN <> <> RETURN [M[ SELECT p FROM letter => mLetter, legal => mLegal, a4 => mA4, a5 => mA5, jisB4 => mB4, jisB5 => mB5, fxPostcard => mPostalCard, ENDCASE => mQuestion] ]; END; --StringForPaper StringForPrinterActivity: PROCEDURE [p: PSActivity.Printer] RETURNS [NSString.String] = BEGIN RETURN [M[ SELECT p FROM available => mAvailable, busy => mBusy, disabled => mDisabled, needsAttention => mNeedsAttention, needsKeyOperator => mNeedsKeyOperator, ENDCASE => mQuestion]]; END; --StringForPrinterActivity StringForSpoolerActivity: PROCEDURE [s: PSActivity.Spooler] RETURNS [NSString.String] = BEGIN RETURN [M[SELECT s FROM available, spooling => mAvailable, busy => mBusy, disabled => mDisabled, full => mFull, ENDCASE => mQuestion]]; END; --StringForSpoolerActivity <> <> M: PROCEDURE [key: PSExecMessages.Key] RETURNS [string: NSString.String] = { RETURN[XMessage.Get[execMsgs, ORD[key]]]}; MGeneric: PROCEDURE [msg: PSAsyncMsg.Msg] RETURNS [string: NSString.String] = { RETURN[XMessage.Get[msg.domain, msg.key]]}; <<>> END. --PSExecDImpl LOG when/who/what 10-Jan-84 11:20:27 - Jacks - Split off from PSTTYExecAImpl, which was too large. 26-Jan-84 18:11:54 - Jacks - Converted to 8.0 SCS. 9-Feb-84 14:40:29 - Jacks - Updated FX3500 status msg keys; added FX3500 parameters status. 14-Feb-84 14:04:50 - Jacks - Fixed engine type and FX3500 feeding display. 17-Feb-84 18:50:04 - Jacks - mFaxAddPaper became mAddPaper. 23-Feb-84 21:14:25 - Jacks - Fixed display of queuing/printing status to show user and reason; converted to private heap. 8-Mar-84 10:34:25 - Jacks - Changed a msg key; changed stop/start printing/queuing status. 21-Mar-84 15:32:28 - Jacks - Set up to display fax retries for no connection and transmit error; made adjustments to StringForFaxStatus. 30-Mar-84 15:44:33 - Jacks - Minor output format change. 2-Apr-84 11:01:14 - Jacks - Removed NewControlMessages. 3-Apr-84 19:18:29 - Jacks - Added support for multiple execs. 6-Apr-84 17:01:01 - Jacks - Fixed storage leak. 18-Apr-84 16:30:53 - Jacks - Minor editing. 15-Sep-84 13:55:51 - Jacks - Converted to new 9.0 PS interfaces: PSState, PSCommand. 4-Oct-84 13:48:34 - Jacks - Renamed from PSTTYExecDImpl to PSExecDImpl; added calls to NSExec.CheckForAbort. 18-Oct-84 14:47:59 - Jacks - DisplayPrintServiceStatus: Made engine type and service name display for all users; got rid of "Operation Mode" line; added "Last booted" line; using new MiscUtilities I/F for KeyFor*Status procs instead of defining StringFor*Status procs in module//added QueryTargetPrintService//renamed ttyHeap to execHeap. 1-Nov-84 18:00:26 - Jacks - Added catch phrases to call to PSCommand.GetTargetPSStatus; added feps9700 stuff to DisplayPrintServiceStatus. 16-Nov-84 12:31:07 - Jacks - Updated to new PSCommand/PSState/StatusTypes interfaces; removed TTY.Rubout catch phrases. 28-Nov-84 14:18:32 - Jacks - Fixed small bug in DisplayPrintServiceStatus marker status display; don't display all '5 switch parms for feps9700. 13-Dec-84 14:58:00 - Jacks - QueryTargetPrintService and Show Status now show two sided copy and stapling attributes. 16-Jan-85 15:47:59 - Jacks - Added "ps" prefix to all new msg keys for 9.0. 28-Feb-85 15:30:37 - Jacks - Added comment. 8-Mar-85 11:23:53 - Jacks - Changed forwarding activity display. 20-Jun-85 10:31:34 - Jacks - Added copyright notice; updated to PS Euclid interfaces; turned off public error catching by SCS in development mode in all exec procs. 28-Jun-85 15:09:35 - Jacks - Added d1 code; removed SetCatching calls. 19-Jul-85 13:53:05 - Jacks - Converted to XMessage; changed ShowVolumeStatus somewhat. 7-Aug-85 18:07:36 - Jacks - Removed system volume stats from Show Status. 15-Aug-85 17:13:09 - Jacks - Slight change to optional status display. 28-Aug-85 15:51:09 - Jacks - Changed ShowVolumeStatus slightly. 26-Sep-85 9:32:44 - Jacks - Added fxPostcard to StringForPaper; added unlimited printing to status for banshee and raven. 27-Sep-85 12:17:30 - Jacks - Only display unlimited printing info if memory size is big enough. 8-Oct-85 12:57:45 - Jacks - Updated to new PSInit. 15-Oct-85 10:15:54 - Jacks - Converted to new banshee paper in PSState. 6-Nov-85 13:13:54 - Jacks - Call PSKMessages for msg handle. 7-Nov-85 17:03:14 - Jacks - Display # of band buffers not pages; split DisplayPrintServiceStatus into little procs because it got too big for compiler. 13-Dec-85 16:45:17 - Jacks - ExecMessages renamed to PSExecMessages.