DIRECTORY
Buttons USING [ButtonProc, Create, Destroy],
Commander USING [CommandProc, Register],
Imager USING [black, MaskRectangle, SetColor, white],
ImagerBackdoor USING [GetBounds],
IO USING [card, PutFR, PutRope, rope, STREAM],
PrintingP4V3 USING [RequestID],
PrintingP4V3Aux USING [ExposeInterpressMasterStatus],
Process USING [Detach],
Rope USING [ROPE],
TypeScript USING [Create],
UserProfile USING [Boolean],
ViewerClasses USING [AdjustProc, DestroyProc, PaintProc, Viewer, ViewerClass, ViewerClassRec],
ViewerIO USING [CreateViewerStreams],
ViewerOps USING [CreateViewer, EnumerateViewers, EnumProc, EstablishViewerPosition, OpenIcon, RegisterViewerClass],
XNSPrint USING [GetPrintRequestList, GetPrintRequestStatus, RequestListChanged, PrintRequest, PrintRequestList, RequestStatus];

XNSPrintRequestWatcherImpl: CEDAR MONITOR
IMPORTS Buttons, Commander, Imager, ImagerBackdoor, IO, PrintingP4V3Aux, Process, TypeScript, UserProfile, ViewerIO, ViewerOps, XNSPrint ~ {
OPEN Printing: PrintingP4V3, PrintingAux: PrintingP4V3Aux, XNSPrint;


XNSPrintRequestWatcher: ROPE ~	"XNSPrintRequestWatcher";
doc: ROPE ~ "\nCreate viewer to monitor and/or manipulate XNS print requests";
usage: ROPE ~ "Usage: XNSPrintRequestWatcher";

NAMESTRIPE: ROPE ~ "Print Request Manipulation";
TYPESCRIPT: ROPE ~ "/vux/tmp/XNSPrintRequestWatcher.log";

AUTOOPEN: ROPE ~ "HardcopyWatcher.AutoOpen";
pendingPrintRequests: PrintRequestList ¬ NIL;
printManipViewerClass: ViewerClasses.ViewerClass;
watcher: Data ¬ NIL;

ButtonList: TYPE ~ LIST OF Viewer;
ROPE: TYPE ~ Rope.ROPE;
Viewer: TYPE ~ ViewerClasses.Viewer;

Data: TYPE ~ REF DataRec;
DataRec: TYPE ~ RECORD [
actualRequest: PrintRequest ¬ NIL, -- only for the ButtonProc
autoOpen: BOOL ¬ FALSE,
buttons: ButtonList ¬ NIL,
requests: PrintRequestList ¬ NIL,
typeScript: Viewer ¬ NIL,
typeScriptIn: IO.STREAM ¬ NIL,
typeScriptOut: IO.STREAM ¬ NIL,
viewer: Viewer ¬ NIL
];


WaitTilListChanged: ENTRY PROC ~ {
WAIT RequestListChanged;
};

WatchRequestList: PROC ~ {
enum: ViewerOps.EnumProc ~ {
IF (v.class = printManipViewerClass) THEN UpdateViewer[NARROW [v.data]];
};
DO  -- Forever
WaitTilListChanged[];
ViewerOps.EnumerateViewers[enum];
ENDLOOP; -- Forever
};

ClearWatcher: ENTRY PROC ~ {
watcher ¬ NIL;
};

ConditionallySetWatcher: ENTRY PROC [new: Data] RETURNS [old: Data] ~ {
old ¬ watcher;
IF (watcher = NIL) THEN watcher ¬ new;
};

RequestWatcherCmd: Commander.CommandProc ~ {
data: Data ¬ NEW [DataRec];
otherGuy: Data ¬ ConditionallySetWatcher[data];

IF (otherGuy # NIL) THEN {
UpdateViewer[otherGuy, TRUE];
RETURN;
};

data.autoOpen ¬ UserProfile.Boolean[AUTOOPEN, FALSE];

data.viewer ¬ ViewerOps.CreateViewer[
flavor: $XNSPrintRequestWatcher,
info: [name: NAMESTRIPE, data: data]
];

data.typeScript ¬ TypeScript.Create[[parent: data.viewer, border: TRUE, wh: 60]];
[data.typeScriptIn, data.typeScriptOut] ¬ ViewerIO.CreateViewerStreams[NIL, data.typeScript, TYPESCRIPT];

TypeScriptWrite[data, "Beginning of Typescript...\n"];
UpdateViewer[data];
};

TypeScriptWrite: PUBLIC PROC [data: Data, rope: ROPE] ~ {
IF (data.typeScriptOut # NIL) THEN IO.PutRope[data.typeScriptOut, rope];
};

AdjustProc: ViewerClasses.AdjustProc ~ {
data: Data ¬ NARROW [self.data];
nButtons: NAT ¬ 0;
height: INTEGER ¬ self.wh-12;
FOR buttons: ButtonList ¬ data.buttons, buttons.rest WHILE (buttons # NIL) DO
button: Viewer ¬ buttons.first;
nButtons ¬ nButtons+1;
ViewerOps.EstablishViewerPosition[button, 0, (height-(20*nButtons)), button.ww, button.wh];
ENDLOOP;
ViewerOps.EstablishViewerPosition[data.typeScript, 0, 0, self.ww, (height-(20*nButtons)-4)];
RETURN[TRUE];
};

DestroyProc: ViewerClasses.DestroyProc ~ {
data: Data ¬ NARROW [self.data];
ClearWatcher[];
};

PaintProc: ViewerClasses.PaintProc = {
data: Data ¬ NARROW [self.data];

IF (whatChanged = NIL) THEN {
Imager.SetColor[context, Imager.white];
Imager.MaskRectangle[context, ImagerBackdoor.GetBounds[context]];
Imager.SetColor[context, Imager.black];
};
};

UpdateViewer: PROC [data: Data, forceOpen: BOOL ¬ FALSE] ~ {
data.requests ¬ GetPrintRequestList[];
MakeButtons[data];
IF ( (data.autoOpen) OR (forceOpen) ) THEN {
IF (data.viewer.iconic) THEN ViewerOps.OpenIcon[data.viewer];
};
};

ButtonProc: Buttons.ButtonProc ~ {
data: Data ¬ NARROW [clientData];
msg: ROPE ¬ NIL;
request: PrintRequest ¬ data.actualRequest;
requestStatus: RequestStatus;

TypeScriptWrite[data, "Checking: "];
TypeScriptWrite[data, data.actualRequest.fileName];
TypeScriptWrite[data, "\n"];

requestStatus ¬ XNSPrint.GetPrintRequestStatus[request];
msg ¬ PrintingAux.ExposeInterpressMasterStatus[requestStatus.status, 1];
TypeScriptWrite[data, "status: ("];
TypeScriptWrite[data, msg];
TypeScriptWrite[data, ") statusMessage: "];
TypeScriptWrite[data, requestStatus.statusMessage];
TypeScriptWrite[data, "\n"];
};

MakeButtons: PROC [data: Data] ~ {
FOR buttons: ButtonList ¬ data.buttons, buttons.rest WHILE (buttons # NIL) DO
Buttons.Destroy[buttons.first];
ENDLOOP;

data.buttons ¬ NIL;

FOR pr: PrintRequestList ¬ data.requests, pr.rest WHILE (pr # NIL) DO
MakeButton[pr.first, data];
ENDLOOP;

[] ¬ AdjustProc[data.viewer];
};

MakeButton: PROC [request: PrintRequest, data: Data] ~ {
buttonName: ROPE ¬ NIL;
id: ROPE ¬ NIL;
IF (request = NIL) THEN RETURN;
FOR n: NAT IN [0..5) DO
id ¬ IO.PutFR["%g %g", IO.rope[id], IO.card[request.requestID[n]]];
ENDLOOP;
buttonName ¬ IO.PutFR["%g %g %g",
IO.rope[request.context.printerName], IO.rope[id], IO.rope[request.fileName]];
data.actualRequest ¬ request;
data.buttons ¬ CONS[
Buttons.Create[
info: [parent: data.viewer, name: buttonName], 
proc: ButtonProc,
clientData: data
],
data.buttons
];
};


Init: PROC ~ {
printManipViewerClass ¬ NEW[ViewerClasses.ViewerClassRec ¬ [
paint: PaintProc,
adjust: AdjustProc,
destroy: DestroyProc
]];

ViewerOps.RegisterViewerClass[$XNSPrintRequestWatcher, printManipViewerClass];
Commander.Register[XNSPrintRequestWatcher, RequestWatcherCmd, doc];
TRUSTED {Process.Detach[ FORK WatchRequestList]};
};

Init[];

}...

  Ò  
XNSPrintRequestWatcherImpl.mesa
Copyright Ó 1985, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, October 29, 1986 10:03:43 pm PST
Bill Jackson (bj) February 6, 1987 5:39:11 am PST
Tim Diebert: February 9, 1987 11:00:03 am PST
Michael Plass, October 9, 1991 12:37 pm PDT

Commander Constants

UserProfile Tags

Global State

Types

Display update Procs

Procs guarding "watcher" state
Commander Proc

Viewer Procs

Button Procs

Initialization
 Ê
Ö  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ	Ïeœ6™BKšœ*Ïk™-Kšœ1™1K™-K™+K™ —šž	˜	Kšœžœ˜,Kšœ
žœ˜(Kšœžœ)˜5Kšœžœ˜!Kšžœžœžœ˜.Kšœžœ˜Kšœžœ ˜5Kšœžœ
˜Kšœžœžœ˜Kšœžœ
˜Kšœžœ˜KšœžœK˜^Kšœ	žœ˜%Kšœ
žœd˜sKšœ	žœq˜—K˜ šÐlnœžœž˜)Kšžœ-žœV˜ŒKšžœÏnœ œ˜D—K˜ šœ™K˜ Kš œžœ˜8KšÏbœžœE˜NKš¡œžœ#˜.K˜ KšÐbk
œžœ ˜0Kš¢
œžœ)˜9K™ —šœ™K˜ Kš¢œžœ¡œ˜,K™ —™K™ Kšœ)žœ˜-Kšœ1˜1Kšœžœ˜K˜ —™K™ Kšœžœžœžœ˜"Kšžœžœžœ˜šœžœ˜$K˜ —Kšœžœžœ	˜šœ	žœžœ˜KšœžœÏc˜=Kšœ
žœžœ˜Kšœžœ˜Kšœžœ˜!Kšœžœ˜Kšœžœžœžœ˜Kšœžœžœžœ˜Kšœž˜K˜—K˜ —™K˜ š œžœžœ˜"Kšžœ˜Kšœ˜K˜ —š œžœ˜šœ˜Kšžœ#žœžœ˜HK˜—šžœ£
˜Kšœ˜Kšœ!˜!Kšžœ£
˜—Kšœ˜—K™ —™K˜ š œžœžœ˜Kšœ
žœ˜Kšœ˜K˜ —š œžœžœžœ˜GK˜Kšžœžœžœ˜&Kšœ˜—K˜ —™K™ šÐbn œ˜,Kšœžœ˜K˜/K˜ šžœžœžœ˜Kšœžœ˜Kšžœ˜Kšœ˜—K˜ Kšœ$¢œžœ˜5K˜ •StartOfExpansion¿[flavor: ViewerClasses.ViewerFlavor, info: ViewerClasses.ViewerRec _ [class: NIL, wx: 0, wy: 0, ww: 0, wh: 0, cx: 0, cy: 0, cw: 0, ch: 0, lock: [process: PROCESS#0B, count: 0B (0)], tipTable: NIL, name: NIL, file: NIL, label: NIL, menu: NIL, icon: 177777B?, column: left, caption: FALSE, scrollable: TRUE, hscrollable: FALSE, iconic: TRUE, border: TRUE, newVersion: FALSE, newFile: FALSE, visible: TRUE, offDeskTop: FALSE, destroyed: FALSE, init: FALSE, saveInProgress: FALSE, inhibitDestroy: FALSE, guardDestroy: FALSE, paintingWedged: FALSE, ...], paint: BOOL _ TRUE]˜%Kšœ ˜ Kšœ¢
œ˜$Kšœ˜K˜ —KšœBžœ˜QKšœGžœ¢
œ˜iK˜ K˜6Kšœ˜K˜—K˜ —™K™ š œžœžœžœ˜9Kšžœžœžœžœ#˜HK˜K˜ —š¤
œ˜(Kšœžœ˜ Kšœ
žœ˜Kšœžœ˜šžœ2žœžœž˜MK˜K˜Kšœ[˜[Kšžœ˜—Kšœ\˜\Kšžœžœ˜K˜K˜ —š¤œ˜*Kšœžœ˜ Kšœ˜Kšœ˜K˜ —–y -- [self: ViewerClasses.Viewer, context: Imager.Context, whatChanged: REF ANY, clear: BOOL] RETURNS [quit: BOOL _ FALSE]š 	œ˜&Kšœžœ˜ K˜ šžœžœžœ˜Kšœ'˜'KšœA˜AKšœ'˜'K˜—K˜K˜ —š œžœžœžœ˜<K˜&K˜šžœžœžœ˜,Kšžœžœ!˜=K˜—K˜—K˜ —™K™ š 
œ˜"Kšœžœ˜!Kšœžœžœ˜K˜+Kšœ˜K˜ Kšœ$˜$Kšœ3˜3Kšœ˜K˜ K˜8K˜HKšœ#˜#Kšœ˜Kšœ+˜+Kšœ3˜3Kšœ˜Kšœ˜K˜ —š œžœ˜"šžœ2žœžœž˜MK˜Kšžœ˜K˜ —Kšœžœ˜K˜ šžœ/žœžœž˜EKšœ˜Kšžœ˜—K˜ K˜Kšœ˜K˜ —š 
œžœ(˜8Kšœžœžœ˜Kšœžœžœ˜Kšžœžœžœžœ˜šžœžœžœž˜Kšœžœžœžœ˜CKšžœ˜—šœžœ˜!Kšžœ$žœžœ˜N—K˜šœžœ˜šœ˜Kšœ/˜/Kšœ˜Kšœ˜K˜Kšœ˜—Kšœ˜—K˜—K˜ —šœ™K˜ š œžœ˜šœžœ!˜<Kšœ˜Kšœ˜Kšœ˜Kšœ˜K˜ —KšœN˜NKšœ¡œ¡œ¡œ˜CKšžœžœ˜1K˜——K˜ K˜K˜ Kšœ˜K˜ — …—    f  $  