
DIRECTORY 
Atom, Commander, CommanderOps, ProcessProps, Rope, X11CommanderOps, Xl, XTk, XTkDB, XTkShellWidgets, XTkNotification;

X11CommanderOpsImpl: CEDAR PROGRAM
IMPORTS Atom, Commander, CommanderOps, ProcessProps, Rope, Xl, XTkDB, XTkNotification, XTkShellWidgets
EXPORTS X11CommanderOps ~ 
BEGIN

CreateOrFail: PROC [serverName: Rope.ROPE, synch: BOOL] RETURNS [connection: Xl.Connection м NIL] = {
reason: Rope.ROPE;
connection м Xl.CreateConnection[server: serverName, synchronized: synch ! Xl.connectionNotCreated => {reason м why.reason; CONTINUE}];
IF ~Xl.Alive[connection] THEN 
ERROR CommanderOps.Failed[Rope.Concat["** ", reason]];
};

SetConnection: PROC [widget: XTk.Widget, connection: Xl.Connection] = {
IF Xl.Alive[connection] THEN {
widget.connection м connection;
Xl.IncRefCount[connection, widget];
Xl.DecRefCount[connection];
};
};

FillInConnection: XTk.WidgetNotifyProc = {
IF Xl.Alive[widget.connection] THEN RETURN;
WITH ProcessProps.GetProp[$CommanderHandle] SELECT FROM
cmd: Commander.Handle => {--we won't need cmd; finding cmd guarantees that we are called from a commander and are allowed to raise CommanderOps.Failed
server: REF м ProcessProps.GetProp[$X11server];
geometry: REF м ProcessProps.GetProp[$X11geometry];
synch: BOOL м ProcessProps.GetProp[$X11synch]=$TRUE;
IF geometry#NIL THEN {
hints: REF XTkShellWidgets.ICCCMHints м NIL;
s: Xl.Size; p: Xl.Point; xneg, yneg: BOOL;
[s, p, xneg, yneg] м XTkDB.ScanGeometry[geometry];
IF XTkShellWidgets.IsShell[widget] THEN {
hints м XTkShellWidgets.GetHints[widget];
};
IF s.width>0 AND s.height>0 THEN {
widget.s.geometry.size м s;
IF hints#NIL THEN {
hints.wmNormalHints.obsoleteSz м hints.wmNormalHints.baseSz м s; 
hints.wmNormalHints.userSize м hints.wmNormalHints.clientSize м TRUE;
hints.wmNormalHintsChanged м TRUE;
};
};
IF p.x>=0 AND p.y>=0 AND ~xneg AND ~yneg THEN {
widget.s.geometry.pos м p;
IF hints#NIL THEN {
hints.wmNormalHints.obsoletePos м p; 
hints.wmNormalHints.userPos м hints.wmNormalHints.clientPos м TRUE;
hints.wmNormalHintsChanged м TRUE;
};
};
};
WITH server SELECT FROM
r: Rope.ROPE => {
connection: Xl.Connection м CreateOrFail[r, synch];
SetConnection[widget, connection];
};
connection: Xl.Connection => {
IF ~Xl.Alive[connection] THEN 
CommanderOps.Failed["** Dead default connection"];
widget.connection м connection;
Xl.IncRefCount[connection, widget];
};
ENDCASE => {
connection: Xl.Connection;
IF server#NIL THEN 
CommanderOps.Failed["** Default for connection not recognized"];
connection м CreateOrFail[NIL, synch];
SetConnection[widget, connection];
}; 
};
ENDCASE => {}
};

DoWithConnection: PUBLIC PROC [proc: X11CommanderOps.ConnectionProc, catchXErrors: BOOL _ TRUE, application: ATOM м NIL] = {
mustDec: BOOL _ FALSE;
connection: Xl.Connection;
server: REF м ProcessProps.GetProp[$X11server];
synch: BOOL м ProcessProps.GetProp[$X11synch]=$TRUE;
Cleanup: PROC [] = {
IF mustDec THEN Xl.DecRefCount[connection];
};
WITH server SELECT FROM
r: Rope.ROPE => {
connection м CreateOrFail[r, synch]; 
mustDec м TRUE; 
};
c: Xl.Connection => {connection м c};
ENDCASE => {
IF server#NIL THEN 
CommanderOps.Failed["** Default for connection not recognized"];
connection м CreateOrFail[NIL, synch]; 
mustDec м TRUE; 
}; 
IF ~Xl.Alive[connection] THEN CommanderOps.Failed["** Dead connection"];
proc[connection ! 
Xl.XError => {IF catchXErrors THEN CommanderOps.Failed[err.explanation]};
UNWIND => Cleanup[];
];
Cleanup[];
};

X11Command: Commander.CommandProc = {
decRefCountOnThis: Xl.Connection м NIL;
server: Rope.ROPE м NIL; 
check, synch: BOOL м FALSE;
appIdx: NAT м 0; 
i: NAT м 1;
propList: Atom.PropList м NIL;
argv: CommanderOps.ArgumentVector м CommanderOps.Parse[cmd];
pos: INT м Rope.Find[cmd.commandLine, " -- "];
IF pos<0 THEN CommanderOps.Failed[" ** must specify -- and a command"];
DO
IF i>=argv.argc THEN CommanderOps.Failed[" ** missed --"]
ELSE {
this: Rope.ROPE ~ argv[i]; 
i м i+1;
SELECT TRUE FROM
(Rope.Equal["-display", this, FALSE] OR Rope.Equal["-server", this, FALSE]) AND i<argv.argc => {
server м argv[i]; i м i+1;
propList м Atom.PutPropOnList[propList, $X11server, server];
};
Rope.Equal["-synch", this, FALSE] OR Rope.Equal["-sync", this, FALSE] => {
synch м TRUE;
propList м Atom.PutPropOnList[propList, $X11synch, $TRUE];
};
Rope.Equal["-check", this, FALSE] => {
check м TRUE;
};
Rope.Equal["-geometry", this, FALSE] AND i<argv.argc => {
propList м Atom.PutPropOnList[propList, $X11geometry, argv[i]];
i м i+1; 
};
Rope.Equal["--", this] => {
appIdx м i; 
EXIT
};
ENDCASE => CommanderOps.Failed[Rope.Cat[" ** unrecognized argument: ", this, "\n"]];
};
ENDLOOP;
IF appIdx=0 THEN ERROR CommanderOps.Failed[" ** missed --"];
IF check THEN {
c: Xl.Connection м decRefCountOnThis м CreateOrFail[server, synch];
propList м Atom.PutPropOnList[propList, $X11server, c];
};
BEGIN
ExecuteRealCommand: PROC ~ { 
commandLine: Rope.ROPE м Rope.Substr[cmd.commandLine, pos+4];
result м CommanderOps.DoCommand[commandLine, cmd];
};
ProcessProps.AddPropList[propList: propList, inner: ExecuteRealCommand];
END;
IF decRefCountOnThis#NIL THEN Xl.DecRefCount[decRefCountOnThis];
};


XTkNotification.RegisterGlobal[$GetShellConnection, FillInConnection, NIL, TRUE];
Commander.Register["X11", X11Command, "Executes command following -- with default server.\n	Format: X11 [-display ServerName] [-sync] [-check] [-geometry wXh[+x+y]] -- Real Command\n"];
END.

  D  X11CommanderOpsImpl.mesa
Copyright ╙ 1991, 1992 by Xerox Corporation.  All rights reserved.
Christian Jacobi, October 9, 1992 0:04 am PDT
Willie-s, September 30, 1991 2:04 pm PDT

Allows access to X window connection from command procedures.  Selects X server according to environment parameters.  (The X11 command)

ALSO: hack which fills in the connection into shell widgets by reading commander options

It is a separate module to not introduce dependencies of higher level Cedar modules into XTkShellWidgets.  The trick to make it mutually independent is to use global notifications and a convention in XTkShellWidgetsImpl.  

September 25, 1992: I don't remember why this shouldn't import XTkShellWidgets and made an import. 

And raise CommanderOps.Failed on troubles
--This procedure is called when a connection is needed.  
--It hopes to find arguments from properties.
--The DecRefCount is done by the X11 command...
This X11 command reads in default values and puts them onto properties, ready for eventual connection creators and then executes the rest of the command line.
 Э╩!  ХNewlineDelimiter
Ц(cedarcode) styleШ codeЩKЪЬ
╧eЬ7ЩBKЩ-KЩ(KЩ KЩЗKЩ KЪ╨bfXЩXKЩ KЪЬ▐Щ▐KЩ KЩcKЩ ЧЪ╧k	ЬШ
KШuKШ ЧЪ╧nЬЯЬЯШ"KЪЯЬ_ШfKЪЯЬШЧЪЯШKШ ЧЪаЬЯЬЯЬ	ЯЬЯЬЯЬШeKЩ)KЪЬЯЬШKЪЬ|ЯЬШЗЪЯЬЯЬШKЪЯЬ1Ш6ЧKЪЬШKШ ЧЪаЬЯЬ4ШGЪЯЬЯЬШKШKШ#KШKШЧKШЧKШ ЪаЬШ*KЩ9KЩ-KЪЯЬЯЬЯЬШ+ЪЯЬ(ЯЬЯШ7ЪЬ╧c|ШЦKЪЬЯЬ$Ш/KЪЬ
ЯЬ&Ш3KЪЬЯЬ)Ш4ЪЯЬ
ЯЬЯЬШKЪЬЯЬЯЬШ,KЪЬ%ЯЬШ*KЪЬ2Ш2ЪЯЬ!ЯЬШ)KШ)KШЧЪЯЬЯЬЯЬШ"KШЪЯЬЯЬЯЬШKШAKЪЬ@ЯЬШEKЪЬЯЬШ"KШЧKШЧЪ
ЯЬЯЬЯЬЯЬЯЬШ/KЪЬШЪЯЬЯЬЯЬШKШ%KЪЬ>ЯЬШCKЪЬЯЬШ"KШЧKШЧKШЧЪЯЬЯЬЯШЪЬЯЬШKШ3KШ"KШЧЪЬШЪЯЬЯЬШKШ2ЧKШKШ#KЩ/KШЧЪЯЬШKШЪЯЬЯЬЯЬШKШ@ЧKЪЬЯЬ	Ш&KШ"KЪЬШЧЧKШЧKЪЯЬШЧKШЧKШ ЪаЬЯЬЯЬ6ЯЬЯЬЯЬЯЬШ|KЪЬ	ЯЬЯЬШKШKЪЬЯЬ$Ш/KЪЬЯЬ)Ш4ЪаЬЯЬШKЪЯЬ	ЯЬШ+KШЧЪЯЬЯЬЯШЪЬЯЬШKШ%KЪЬ
ЯЬШKШЧKШ%ЪЯЬШЪЯЬЯЬЯЬШKШ@ЧKЪЬЯЬ
Ш'KЪЬ
ЯЬШKЪЬШЧЧKЪЯЬЯЬ+ШHШKЪЬЯЬЯЬ'ШIKЪЯЬШKШЧKШ
KШKШ ЧЪа
ЬШ%KЩЮKЪЬ#ЯЬШ'KЪЬЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬШKЪЬЯЬШKЪЬЯЬШKЪЬ<Ш<KЪЬЯЬ&Ш.KЪЯЬЯЬ:ШGЪЯШKЪЯЬЯЬ%Ш9ЪЯЬШKЪЬЯЬШKЪЬШЪЯЬЯЬЯШЪ	ЬЯЬЯЬЯЬЯЬШ`KЪЬШKШ<KШЧЪЬЯЬЯЬЯЬШJKЪЬЯЬШKШ:KШЧЪЬЯЬШ&KЪЬЯЬШKШЧЪЬЯЬЯЬШ9KШ?KЪЬ	Ш	KШЧЪЬШKШKЪЯШKШЧKЪЯЬMШTЧKШЧKЪЯЬШЧKЪЯЬ
ЯЬЯЬ&Ш<ЪЯЬЯЬШKШCKШ7KШЧЪЯШЪаЬЯЬШKЪЬЯЬ'Ш=KШ2KЪЬШЧKШHKЪЯЬШЧKЪЯЬЯЬЯЬ#Ш@KШЧKШ KШ KЪЬFЯЬЯЬШQKШ╣KЪЯЬШKШ Ч ЕЧ      u  