
DIRECTORY 
Commander, IO, PFS, Rope, SystemNames, UnixSpawnTCP, Xl, XTk, XTkWidgets;

ScannerTool: CEDAR PROGRAM
IMPORTS Commander, IO, PFS, Rope, SystemNames, UnixSpawnTCP, Xl, XTk, XTkWidgets ~ 
BEGIN

InstanceRec: TYPE = RECORD [
lock: Xl.TQ,
filenameWidget: XTk.Widget м NIL,
log: IO.STREAM м NIL,
s: REF UnixSpawnTCP.SpawnData м NIL,
resolution: INT м 300
];

Scan: <<i.lock>> XTkWidgets.ButtonHitProcType = {
i: REF InstanceRec ~ NARROW[registerData];
fileName: Rope.ROPE м XTkWidgets.GetText[i.filenameWidget];
command: Rope.ROPE;
IF i.s#NIL THEN {
IO.PutRope[i.log, "\nwait..."];
RETURN;
};
command м IO.PutFR["/tmp/ScannerTool-scan-page -r %g %g", IO.int[i.resolution], IO.int[i.resolution]];
command м Rope.Concat[command, " | /tmp/ScannerTool-rotate90 -90"];
command м Rope.Cat[command, " | /tmp/ScannerTool-writeip > ", fileName, "\n"];
BEGIN --debugging
IO.PutRope[i.log, "\n"];
IO.PutRope[i.log, command];
END;
IO.PutRope[i.log, "\nSTART "];
i.s м UnixSpawnTCP.Spawn[command: command, out: i.log, clientData: i, finish: Finish];
IF i.s = NIL THEN {
IO.PutRope[i.log, "can't connect to streams"];
GOTO Oops;
};
UnixSpawnTCP.Close[i.s];
EXITS Oops => {};
};

Stop: <<i.lock>> XTkWidgets.ButtonHitProcType = {
i: REF InstanceRec ~ NARROW[registerData];
s: REF UnixSpawnTCP.SpawnData м i.s;
IF s#NIL 
THEN {
UnixSpawnTCP.Kill[s];
IO.PutRope[i.log, "\nSTOPPED"];
i.s м NIL;
}
ELSE {
IO.PutRope[i.log, "\nnothing to stop..."];
};
};

Finish: UnixSpawnTCP.FinishProc = {
i: REF InstanceRec ~ NARROW[clientData];
Protected: PROC = {
IO.PutRope[i.log, " END "];
i.s м NIL;
};
Xl.CallWithLock[i.lock, Protected];
};

ResolutionHit: XTkWidgets.ButtonHitProcType = {
i: REF InstanceRec ~ NARROW[registerData];
i.resolution м NARROW[callData, REF INT]н;
};

X11ScannerWidgetCommand: Commander.CommandProc ~ {
Ruler: PROC [w, h: INT м -1] RETURNS [ruler: XTk.Widget] = {
RETURN [ XTkWidgets.CreateRuler[widgetSpec: [geometry: [size: [w, h]]]] ];
};
lock: Xl.TQ м Xl.CreateTQ[];
i: REF InstanceRec м NEW[InstanceRec м [lock: lock]];
resolutionWidget: XTk.Widget ~ XTkWidgets.CreateChoices[
choices: LIST [
["300", NEW[INT м 300]], 
["200", NEW[INT м 200]], 
["150", NEW[INT м 150]], 
["100", NEW[INT м 100]],
["75", NEW[INT м 75]]
],
hitProc: ResolutionHit, registerData: i
];
label: XTk.Widget ~ XTkWidgets.CreateLabel[[],  "  resolution:"];
doitWidget: XTk.Widget ~ XTkWidgets.CreateButton[[],  "DOIT", [], Scan, i, i, lock];
killWidget: XTk.Widget ~ XTkWidgets.CreateButton[[],  "STOP  ", [], Stop, i, i, lock];
topControlsContainer: XTk.Widget ~ XTkWidgets.CreateXStack[[], LIST[doitWidget, killWidget, label, resolutionWidget]];
filenameWidget: XTk.Widget м i.filenameWidget м  XTkWidgets.CreateLabeledField[label: "filename>", init: "/tmp/slate.ip"];
logWidget: XTk.Widget ~ XTkWidgets.CreateStreamWidget[widgetSpec: [geometry: XTk.G[-1, 50]]];
yContainer: XTk.Widget ~ XTkWidgets.CreateYStack[[], LIST[topControlsContainer, filenameWidget, Ruler[h: 1], logWidget]];
shell: XTkWidgets.Widget м XTkWidgets.CreateShell[child: yContainer, windowHeader: Rope.Concat["Scanner on ", SystemNames.MachineName[]], standardMigration: TRUE];
i.log м XTkWidgets.CreateStream[logWidget];
XTkWidgets.RealizeShell[shell];
};

MakeLocalCopies: PROC[] = {
Copy: PROC [from, to: Rope.ROPE] = {
Confirm: PFS.NameConfirmProc = {RETURN [TRUE]};
PFS.Copy[from: PFS.PathFromRope[from], to: PFS.PathFromRope[to], confirmProc: Confirm];
};
Copy["/Cedar/ScannerTool/sun4/scan-page", "/tmp/ScannerTool-scan-page"];
Copy["/Cedar/ScannerTool/sun4/writeip", "/tmp/ScannerTool-writeip"];
Copy["/Cedar/ScannerTool/sun4/rotate90", "/tmp/ScannerTool-rotate90"];
};

MakeLocalCopies[];
Commander.Register["ScannerTool", X11ScannerWidgetCommand, "Create a scanner widget"];
END.

    ScannerTool.mesa
Copyright ╙ 1992 by Xerox Corporation.  All rights reserved.
Christian Jacobi, February 6, 1992 10:44 am PST
Christian Jacobi, July 14, 1992 11:58 am PDT
Jules Bloomenthal July 19, 1992 10:42 pm PDT

Make copies for the benefit of shrink wrapping process which does not otherwise understand UnixSpawn
Manually made copyies of these files to the Cedar release directory using the real files at
/import/system33/bin/scan-page
/import/sandpiper-dover/bin/rotate90
/import/sandpiper-dover/bin/writeip
Э╩l  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЪЬЩKЪЬ
╧eЬ1Щ<KЪЬ,╧kЩ/KЩ,KЩ,KЩ ЧЪЮ	ЬШ
KШIKШ ЧЪ╧nЬЮЬЮШKЪЮЬЮЬ>ШSЧЪЮШKШ ЧЪЬЮЬЮЬШKЪЬ	ЮЬШKЪЬЮЬШ!KЪЬЮЬЮЬЮЬШKЪЬЮЬЮЬШ$KЪЬЮЬШKЪЬШЧKШ ЪЯЬ-Ш1KЪЬЮЬЮЬШ*KЪЬЮЬ(Ш;KЪЬЮЬШЪЮЬЮЬЮЬШKЪЮЬШKЪЮЬШKШЧKЪЬ
ЮЬ.ЮЬЮЬШfKШCKШNЪЮЬ╧cШKЪЮЬШKЪЮЬШKЪЮЬШЧKЪЮЬШKШVЪЮЬЮЬЮЬШKЪЮЬ,Ш.KЪЮЬШ
KШЧKШKЪЮЬШKЪЬШKШ ЧЪЯЬ-Ш1KЪЬЮЬЮЬШ*KЪЬЮЬШ$ЪЮЬЮЬШ	ЪЮЬШKШKЪЮЬШKЪЬЮЬШ
KЪЬШЧЪЮЬШKЪЮЬ(Ш*KЪЬШЧЧKЪЬШЧKШ ЪЯЬШ#KЪЬЮЬЮЬШ(ЪЯ	ЬЮЬШKЪЮЬШKЪЬЮЬШ
KШЧKЪЬ#Ш#KШЧKШ ЪЯЬ"Ш/KЪЬЮЬЮЬШ*KЪЬЮЬЮЬЮЬШ*KЪЬШKШ ЧЪЯЬШ2ЪЯЬЮЬЮЬЮЬШ<KЪЮЬDШJKЪЬШЧKЪЬ	ЮЬШKЪЬЮЬЮЬШ5ЪЬ8Ш8ЪЬ	ЮЬШKЪЬЮЬЮЬ
ШKЪЬЮЬЮЬ
ШKЪЬЮЬЮЬ
ШKЪЬЮЬЮЬ	ШKЪЬЮЬЮЬШKЪЬШЧKЪЬ'Ш'KЪЬШЧKЪЬAШAKЪЬTШTKЪЬVШVKЪЬ?ЮЬ3ШvKШzKЪЬ]Ш]KЪЬ5ЮЬ@ШyKЪЬЭЮЬШгKШ+KЪЬШKШKШ ЧЪЯЬЮЬШЪЯЬЮЬЮЬШ$KЪЯЬЮЬЮЬЮЬШ/KЪЮЬЮЬЮЬ)ШWKШЧKЩdЩ[KЩKЩ$KЩ#ЧKШHKШDKШFKШЧKШ KШKШVKЪЮЬШKШ Ч ЕЧ    ж    