DIRECTORY
Args USING [Arg, ArgsGet, NArgs],
BasicTime USING [GMT, ToNSTime],
CHNameP2V0 USING [Name],
Commander USING [CommandProc, Register],
CommandTool USING [ArgumentVector, Failed, Parse],
File USING [GetVolumeName, SystemVolume],
FileNames USING [ResolveRelativePath],
FS USING [ComponentPositions, Error, ErrorDesc, ExpandName, FileInfo, StreamOpen],
FSPseudoServers USING [TranslateForRead, TranslateForWrite],
IO USING [Close, PutF, PutRope, rope, STREAM],
Process USING [CheckForAbort],
Rope USING [Cat, Concat, Equal, Length, ROPE, Substr],
ThisMachine USING [Name],
PrintingP4V3 USING [PrinterProperties, PrinterStatus, RequestID],
PrintingP4V3Aux USING [ExposePrinterProperties, ExposePrinterStatus, ExposeRequestID],
XNSPrintRequestManager;

XNSPrintCommands: CEDAR PROGRAM
IMPORTS Args, BasicTime, Commander, CommandTool, File, FileNames, FS, FSPseudoServers, IO, PrintingP4V3Aux, Process, Rope, ThisMachine, XNSPrintRequestManager ~ {
OPEN CHName: CHNameP2V0, Printing: PrintingP4V3, PrintingAux: PrintingP4V3Aux;

ROPE: TYPE ~ Rope.ROPE;

GetPrintStatus: ROPE = "GetPrintStatus";
statusdoc: ROPE = "{Printer}*\nFind out the status of an XNS based printer.";
statususage: ROPE = Rope.Concat["Usage: GetPrintStatus ", statusdoc];

GetPrintProperties: ROPE = "GetPrintProperties";
propdoc: ROPE = "{Printer}*\nFind out the properties of an XNS based printer.\nSwitches: <none yet>";
propusage: ROPE = Rope.Concat["Usage: GetPrintProperties ", propdoc];

SendIPMaster: ROPE ~	"SendIPMaster";
senddoc: ROPE ~ "<IPMaster> [-c <copies> -h <serviceName> -1 -2 -f <firstPageNumber> -l <lastPageNumber>]\nTransmit a master to an XNS based printer.\nSwitches:\n    -c <copies> print multiple copies\n    -h <serviceName> print on that service\n    -1 print one-sided\n    -2 print two-sided\n    -f <firstPageNumber>\n    -l <lastPageNumber>";
sendusage: ROPE ~ Rope.Concat["Usage: SendIPMaster ", senddoc];


DecodeRequestID: PROC [out: IO.STREAM, request: XNSPrintRequestManager.PrintRequest] ~ {
msg: ROPE;
IO.PutF[out, "  Service: [%g:%g:%g]\n  ",
IO.rope[request.distinguishedName.object],
IO.rope[request.distinguishedName.domain],
IO.rope[request.distinguishedName.organization]
];
msg _ Rope.Concat[PrintingAux.ExposeRequestID[request.requestID, 1], "\n"]; -- nest 2 spaces
IO.PutRope[out, msg];
};

DecodeProperties: PROC [out: IO.STREAM, service: CHName.Name, status: Printing.PrinterProperties] ~ {
msg: ROPE _ NIL;
IO.PutF[out, "  Service: [%g:%g:%g]\n  ",
IO.rope[service.object],
IO.rope[service.domain],
IO.rope[service.organization]
];
msg _ Rope.Concat[PrintingAux.ExposePrinterProperties[status, 1], "\n"]; -- nest 2 spaces
IO.PutRope[out, msg];
};

DecodeStatus: PROC [out: IO.STREAM, service: CHName.Name, status: Printing.PrinterStatus] ~ {
msg: ROPE _ NIL;
IO.PutF[out, "  Service: [%g:%g:%g]\n  ",
IO.rope[service.object],
IO.rope[service.domain],
IO.rope[service.organization]
];
msg _ Rope.Concat[PrintingAux.ExposePrinterStatus[status, 1], "\n"]; -- nest 2 spaces
IO.PutRope[out, msg];
};


FSErrorMsg: PROC [error: FS.ErrorDesc] RETURNS [ROPE] ~ {
RETURN[Rope.Concat[FSErrorMsgBrief[error], "\n"]];
};

FSErrorMsgBrief: PROC [error: FS.ErrorDesc] RETURNS [ROPE] ~ {
SELECT error.group FROM
lock => {
RETURN["  -- locked!"];
};
ENDCASE =>  {
IF (error.code = $unknownFile)
THEN RETURN ["  -- not found!"]
ELSE RETURN[Rope.Concat["\n  -- FS.Error: ", error.explanation]];
};
};

FixUpFilename: PROC [name: ROPE _ NIL, copyFrom: BOOL] RETURNS [newName: ROPE] ~ {
body: ROPE;
platformHost: ROPE _ ThisMachine.Name[];
platformVolume: ROPE _ File.GetVolumeName[File.SystemVolume[]];
prefix: ROPE;
cp: FS.ComponentPositions;

[fullFName: newName, cp: cp] _ FS.ExpandName[name];
prefix _ Rope.Substr[newName, 0, 4];
body _ Rope.Substr[newName, 4, Rope.Length[newName]];
IF Rope.Equal[prefix, "[]<>"] THEN {
newName _ Rope.Cat["[", platformHost, "]<", platformVolume, ">"];
newName _ Rope.Cat[newName, body];
}
ELSE newName _ Rope.Cat[
"[",
IF copyFrom THEN
FSPseudoServers.TranslateForRead[Rope.Substr[newName, cp.server.start, cp.server.length]].first
ELSE
FSPseudoServers.TranslateForWrite[Rope.Substr[newName, cp.server.start, cp.server.length]],
"]<",
Rope.Substr[newName, cp.dir.start, Rope.Length[newName]]];
};

GetPrintPropertiesProc: Commander.CommandProc ~ {
argsProcessed: NAT _ 0;
argv: CommandTool.ArgumentVector _ CommandTool.Parse[cmd: cmd, starExpand: FALSE
! CommandTool.Failed => {msg _ errorMsg; GO TO failed}];
out: IO.STREAM ~ cmd.out;

CheckProperties: PROC [arg: ROPE] ~ {
service: CHName.Name;
status: Printing.PrinterProperties;
argsProcessed _ argsProcessed + 1;
Process.CheckForAbort[];
[service, status] _ XNSPrintRequestManager.GetPrinterProperties[arg];
DecodeProperties[out, service, status];
};

FOR i: NAT IN [1..argv.argc) DO
printerName: ROPE ~ argv[i];
Process.CheckForAbort[];
IF (Rope.Length[printerName] = 0) THEN LOOP;
CheckProperties[printerName];
ENDLOOP;

SELECT argsProcessed FROM
0 => {
context: XNSPrintRequestManager.Context;
context _ XNSPrintRequestManager.GetDefaults[];
IF (context.printerName = NIL)
THEN msg _ propusage
ELSE CheckProperties[context.printerName];
};
ENDCASE => { NULL };
EXITS
failed => {result _ $Failure};
};

GetPrintStatusProc: Commander.CommandProc ~ {
argsProcessed: NAT _ 0;
argv: CommandTool.ArgumentVector _ CommandTool.Parse[cmd: cmd, starExpand: FALSE
! CommandTool.Failed => { msg _ errorMsg; GO TO failed; }];
out: IO.STREAM ~ cmd.out;

CheckPrinter: PROC [arg: ROPE] = {
service: CHName.Name;
status: Printing.PrinterStatus;
argsProcessed _ argsProcessed + 1;
Process.CheckForAbort[];
[service, status] _ XNSPrintRequestManager.GetPrinterStatus[arg];
DecodeStatus[out, service, status];
};

FOR i: NAT IN [1..argv.argc) DO
printerName: ROPE ~ argv[i];
Process.CheckForAbort[];
IF (Rope.Length[printerName] = 0) THEN LOOP;
CheckPrinter[printerName];
ENDLOOP;

SELECT argsProcessed FROM
0 => {
context: XNSPrintRequestManager.Context;
context _ XNSPrintRequestManager.GetDefaults[];
IF (context.printerName = NIL)
THEN msg _ statususage
ELSE CheckPrinter[context.printerName];
};
ENDCASE => NULL;
EXITS
failed => {result _ $Failure};
};

SendMasterProc: Commander.CommandProc ~ {
context: XNSPrintRequestManager.Context;
request: XNSPrintRequestManager.PrintRequest;
ok: BOOL;
out: IO.STREAM ~ cmd.out;
name, copies, host, oneSided, twoSided, first, last, pages: Args.Arg;

PrintAFile: PROC [name: ROPE] RETURNS [request: XNSPrintRequestManager.PrintRequest] ~ {
s: IO.STREAM;
Process.CheckForAbort[];
s _ FS.StreamOpen[name
! FS.Error => IF (error.group # $bug)
THEN { msg _ FSErrorMsg[error]; ERROR CommandTool.Failed[msg]; }
];
request _ XNSPrintRequestManager.PrintFromStream[s, context];
DecodeRequestID[out, request];
IF (s # NIL) THEN IO.Close[s];
};

IF Args.NArgs[cmd] = 0 THEN RETURN[$Failure, sendusage];
[ok, name, copies, host, oneSided, twoSided, first, last, pages] _ Args.ArgsGet[cmd, "%s-c%i-h%s-1%b-2%b-f%i-l%i-p%i"];
IF NOT ok THEN RETURN[$Failure, "Command syntax error."];

context _ XNSPrintRequestManager.GetDefaults[];

IF copies.ok THEN context.copyCount _ copies.int;
IF host.ok THEN context.printerName _ host.rope;
IF twoSided.ok AND twoSided.bool THEN context.twoSided _ TRUE;
IF oneSided.ok AND oneSided.bool THEN context.twoSided _ FALSE;
IF first.ok THEN context.pageFirst _ first.int;
IF last.ok THEN context.pageLast _ last.int;
IF pages.ok THEN context.pageLast _ context.pageFirst+pages.int;

name.rope _ FileNames.ResolveRelativePath[name.rope];
context.printObjectName _ FixUpFilename[name.rope, FALSE];
{
fullFName: ROPE;
attachedTo: ROPE;
keep: CARDINAL;
bytes: INT;
created: BasicTime.GMT;

[fullFName, attachedTo, keep, bytes, created]  _ FS.FileInfo[name~name.rope, remoteCheck~FALSE];
context.printObjectCreateDate _ BasicTime.ToNSTime[created];
};

IO.PutF[out, "  Sending %s to %s\n",
IO.rope[context.printObjectName],
IO.rope[context.printerName]
];

request _ PrintAFile[name.rope];
XNSPrintRequestManager.RegisterPrintRequest[request]; -- registered for later status requests!
request _ NIL;
};

Init: PROC ~ {
Commander.Register[GetPrintProperties, GetPrintPropertiesProc, propdoc];
Commander.Register[GetPrintStatus, GetPrintStatusProc, statusdoc];
Commander.Register[SendIPMaster, SendMasterProc, senddoc];
};

Init[];

}...






>XNSPrintCommands.mesa
Copyright Σ 1985, 1986, 1987 by Xerox Corporation.  All rights reserved.
Russ Atkinson, April 2, 1985 4:22:08 pm PST
Bill Jackson (bj) February 6, 1987 5:42:53 am PST
Demers, June 6, 1986 3:09:39 pm PDT
Commander Constants

Commander Constants

Decode Procs
Helper PROCs
Commander Procs


Κ
˜
codeš
œ™Kš
œH™HKš
œ+™+K™1K™#—K˜š
Οk	˜	Kšœœ˜!Kšœ
œœ˜ Kšœœ˜Kšœ
œ˜(Kšœœ!˜2Kšœœ˜)Kšœ
œ˜&Kšœ
œJ˜RKšœœ'˜<Kšœ
œœ˜.Kšœœ˜Kšœœœ
˜6Kšœœ˜Kšœ
œ/˜AKšœœA˜VKš
œ˜—K˜šΟnœœ
˜Kšœ;œœI˜’
Kšœ
žœžœžœ˜N—K˜Kšœœœ
˜K˜š
œ™K™Kšžœœ˜(KšΟb	œœ>˜MKšŸœœ)Ÿ	œ˜EK˜—š
œ™K™Kšžœœ˜0KšŸœœX˜eKšŸ	œœ-Ÿœ˜EK˜KšΠbnœœ˜$KšŸœœΛ˜ΨKšŸ	œœ'Ÿœ˜?K˜—š
œ™K˜šžœœœ
œ3˜XKšœœ
˜
šœ'˜)Kšœ(˜*Kšœ(˜*Kšœ-˜/Kš
œ˜—KšœLΟc˜\Kšœ˜K˜K˜—šžœœœ
œ?˜eKšœœœ
˜šœ'˜)Kšœ˜Kšœ˜Kšœ˜Kš
œ˜—KšœI‘˜YKšœ˜K˜K˜—šžœœœ
œ;˜]Kšœœœ
˜šœ'˜)Kšœ˜Kšœ˜Kšœ˜Kš
œ˜—KšœE‘˜UKšœ˜K˜K˜——š
œ™K˜š
ž
œœ	œœœ˜9Kšœ,˜2Kš
œ˜K˜—š
žœœ	œœœ˜>šœ
˜š
œ	˜	Kšœ˜Kš
œ˜—šœ˜
šœ˜Kšœ
œ˜Kšœ
œ6˜A—Kš
œ˜——Kš
œ˜K˜—šž
œœœœœœœ˜RKšœœ
˜Kšœœ˜(Kšœœ+˜?Kšœœ
˜
Kšœœ˜K˜Kšœœ˜3Kš
œ$˜$Kš
œ5˜5šœœ˜$Kš
œA˜AKš
œ"˜"Kš
œ
˜
—šœ˜Kš
œ˜šœ
˜Kš
œ_˜_—š
˜Kš
œ[˜[—Kš
œ˜Kš
œ:˜:—K˜K˜——™K™šžœ˜1Kšœœ˜šœK˜PKšœ)œ
œ
˜8—Kšœ	œ˜K˜šžœœœ˜%Kš
œ˜Kš
œ#˜#Kš
œ"˜"K˜Kš
œE˜EKš
œ'˜'K˜K˜—šœœ
œ˜Kšœ
œ˜K˜Kšœ œ
œ
˜,Kš
œ˜Kšœ
˜K˜—šœ˜š
œ˜Kš
œ(˜(Kš
œ/˜/šœœ
˜KšœŸ	˜Kšœ&˜*—K˜—Kšœœ˜—š
˜Kš
œ˜—K˜K˜—šžœ˜-Kšœœ˜•StartOfExpansionI[cmd: 
Commander.Handle, starExpand: 
BOOL _ FALSE, switchChar: 
CHAR]šœK˜PKšœ*œ
œ˜;—Kšœ	œ˜K˜šžœœœ˜"Kš
œ˜Kš
œ˜Kš
œ"˜"K˜Kš
œA˜AKš
œ#˜#K˜K˜—šœœ
œ˜Kšœ
œ˜K˜Kšœ œ
œ
˜,Kš
œ˜Kšœ
˜K˜—šœ˜š
œ˜Kš
œ(˜(Kš
œ/˜/šœœ
˜KšœŸ˜Kšœ#˜'—K˜—Kšœœ
˜—š
˜Kš
œ˜—K˜K˜—šžœ˜)Kš
œ(˜(Kš
œ-˜-Kšœœ
˜	Kšœ	œ˜K˜EK˜šž
œœœœ3˜XKšœœ
œ
˜
Kš
œ˜šœœ˜šœœ
œ˜%Kšœœ˜@—Kš
œ˜—Kš
œ=˜=Kš
œ˜Kšœœœ
œ
˜K˜K˜—Kšœœ
œŸ	œ˜8K˜wKšœ
œœ
œ$˜9K˜Kš
œ/˜/K˜Kšœœ ˜1Kšœ	œ!˜0Kšœ
œœœ
˜>Kšœ
œœœ
˜?Kšœ
œ˜/Kšœ	œ˜,Kšœ
œ0˜@K˜Kš
œ5˜5Kšœ3œ˜:š
œ
˜
Kšœœ
˜Kšœœ
˜Kšœœ
˜Kšœœ
˜Kšœœ
˜K˜Jšœ1œ%œ˜`Kš
œ<˜<Kš
œ˜K˜—šœ"˜$Kšœ˜!Kšœ˜Kš
œ˜—K˜Kš
œ ˜ Kšœ6‘(˜^Kšœ
œ
˜K˜K˜—šžœœ˜KšœŸœŸœ
Οo
Ÿœ˜HKšœŸœŸœŸ	œ˜BKšœŸœŸœ
’
Ÿœ˜:K˜——K˜K˜K˜Kš
œ˜K˜š
œ˜K™—J˜—…— b+±