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, usage];
[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 ← NEW [XNSPrintRequestManager.ContextObject];
XNSPrintRequestManager.GetDefaults[context];
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;
};