DIRECTORY
Arpa, Basics, <<Commander, CommanderOps,>> Convert, EnvironmentVariables, IO, PFS, RefText, Rope, SystemNames, XlAuthFriends;

XlAuthImpl: CEDAR MONITOR
IMPORTS <<Commander, CommanderOps,>> Convert, EnvironmentVariables, IO, PFS, RefText, Rope, SystemNames, XlAuthFriends =
BEGIN

AuthRec: TYPE = RECORD [
family: CARD16,
adress, displayNumber, method, data: Rope.ROPE
];

familyLocal: CARD16 = 256;    	--Xauth.h
familyWildCard: CARD16 = 65535;	--Xauth.h
familyInternet: CARD16 = 0; 	--X11/X.h
familyDECnet: CARD16 = 1; 	--X11/X.h
familyChaos: CARD16 = 2;   	--X11/X.h

GetAuth: XlAuthFriends.AuthentifierProc = {
IF family=familyInternet THEN {
IF Rope.Equal[adress, "127.0.0.1"] 
THEN family м familyLocal
ELSE {
addr: Arpa.Address м Convert.ArpaAddressFromRope[adress];
text: REF TEXT м RefText.New[4];
text[0] м VAL[addr.a];
text[1] м VAL[addr.b];
text[2] м VAL[addr.c];
text[3] м VAL[addr.d];
adress м Rope.FromRefText[text]
};
};
IF family=familyLocal THEN adress м SystemNames.MachineName[];
[method: method, data: data] м GetAuthorization[NIL, family, proposedMethod, adress, display];
};

GetAuthorization: PROC [fileName: Rope.ROPE м NIL, rFamily: CARD16, rMethod: Rope.ROPE, rAdress: Rope.ROPE, rDisplayNumber: Rope.ROPE м NIL] RETURNS [method, data: Rope.ROPE м NIL] = {
ENABLE PFS.Error => GOTO PFSError;
ReadAuthRec: PROC [s: IO.STREAM] RETURNS [ar: AuthRec] = {
Read16: PROC [s: IO.STREAM] RETURNS [CARD16] = {
hword: Basics.HWORD ~ IO.GetHWord[s];
RETURN [hword.hi*256+hword.lo]
};
ReadString: PROC [s: IO.STREAM] RETURNS [Rope.ROPE] = {
leng: CARD16 ~ Read16[s];
RETURN [IO.GetRope[s, leng, TRUE]]
};
ar.family м Read16[s];
ar.adress м ReadString[s]; 
ar.displayNumber м ReadString[s];
ar.method м ReadString[s];
ar.data м ReadString[s];
};
s: IO.STREAM;
IF fileName=NIL THEN {
fileName м EnvironmentVariables.Get["XAUTHORITY"];
IF Rope.IsEmpty[fileName] THEN {
fileName м Rope.Concat[SystemNames.SimpleHomeDirectory[], ".Xauthority"];
};
};
s м PFS.StreamOpen[PFS.PathFromRope[fileName]];
BEGIN --for goto out of loop
DO --until end of file or a good entry is found
ENABLE IO.EndOfStream, IO.Error => GOTO IODone;
ar: AuthRec м ReadAuthRec[s];
IF ar.family=familyWildCard OR rFamily=familyWildCard OR ar.family=rFamily THEN {
IF Rope.IsEmpty[ar.adress] OR Rope.IsEmpty[rAdress] OR Rope.Equal[ar.adress, rAdress] THEN {
IF Rope.IsEmpty[ar.displayNumber] OR Rope.IsEmpty[rDisplayNumber] OR Rope.Equal[ar.displayNumber, rDisplayNumber] THEN {
IF Rope.IsEmpty[ar.method] OR Rope.IsEmpty[rMethod] OR Rope.Equal[ar.method, rMethod] THEN {
method м ar.method;
data м ar.data;
RETURN
};
};
};
};
ENDLOOP;
EXITS IODone => {}
END;
IO.Close[s];
EXITS PFSError => {method м data м NIL}
};


XlAuthFriends.authentifier м GetAuth;
END.

  В  
XlAuthImpl.mesa
Copyright ╙ 1993 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 27, 1993 11:49:40 am PDT 
Christian Jacobi, October 27, 1993 5:41 pm PDT

Implements pluggable authentication for Xl
This is inverted: it does not export XlAuthFriends, but imports it so that Xl could run without XlAuthImpl.

See
/import/X11R4/source/mit/lib/Xau/README
/import/X11R4/source/mit/lib/Xau/Xauth.h
/import/X11R4/source/mit/lib/Xau/AuRead.c
/import/X11R4/source/mit/lib/Xau/AuGetAddr.c
/import/X11R4/source/mit/lib/X/XOpenDis.c
/import/X11R4/source/mit/lib/X/XConnDis.c

--always MSB first
XlAuthTestCommand: Commander.CommandProc = {
method, data: Rope.ROPE;
fileName: Rope.ROPE м NIL;
rFamily: CARD16 м familyInternet;
rMethod: Rope.ROPE;
rAdress: Rope.ROPE;
rDisplayNumber: Rope.ROPE м "0";
rMethod м CommanderOps.NextArgument[cmd];
rAdress м CommanderOps.NextArgument[cmd];
[method, data] м GetAuth[rFamily, rAdress, rDisplayNumber, rMethod];
IO.PutF1[cmd.out, "method: ""%g""\n", IO.rope[method]];
IO.PutF1[cmd.out, "data: ""%g""\n", IO.rope[data]];
};

Commander.Register["XlAuthTest", XlAuthTestCommand, "Test"];
 Э╩X  ХNewlineDelimiter
Щ ЩIcodeЩ<KЩ>KЩ.KЩ Щ*KЩkЧKЩ ЩJЩ'JЪЬ!╧cЩ(JЩ)JЩ,JЩ)JЩ)ЧKЩ ЧЪ╧k	Ш	KЪЬJЮЬЮЬ,Ш}KШ ЧЪ╧n
ЬЮЬЮШKЪЮЬ=ЮЬЮЬ-ШxЧKЪЮШKШ ЪЬ	ЮЬЮЬШJЪЬЮЬШJЪЬ*ЮШ.JШЧJШ JЪЬЮЬЭ	Ш(JЪЬЮЬ
Э	Ш)JЪЬЮЬЭ	Ш&JЪЬЮЬЭ	Ш$JЪЬЮЬ	Э	Ш%JШ ЪЯЬ$Ш+ЪЮЬЮЬШЪЮЬ!Ш#KЪЮЬШЪЮЬШKШ9KЪЬЮЬЮЬШ KЪЬ
ЮЬ	ШKЪЬ
ЮЬ	ШKЪЬ
ЮЬ	ШKЪЬ
ЮЬ	ШKШKШЧЧKШЧKЪЮЬЮЬ$Ш>KЪЬ0ЮЬ+Ш^KШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ╕KЪЮЬЮЬ
ЮЬ
Ш"Ъ
ЯЬЮЬЮЬЮЬЮЬШ:ЪЯЬЮЬЮЬЮЬЮЬЮЬШ0JЩKЪЬЮЬЮЬШ%JЪЮЬШJШЧЪЯ
ЬЮЬЮЬЮЬЮЬЮЬШ7JЪЬЮЬШJЪЮЬЮЬЮЬШ"JШЧJШJШJШ!JШJШJШЧJЪЬЮЬЮЬШЪЮЬ
ЮЬЮЬШJШ2ЪЮЬЮЬШ JШIJШЧJШЧJЪЬЮЬЮЬШ/ЪЮЬЭШЪЮЬЭ,Ш/JЪЮЬЮЬЮЬ
ЮЬШ/JШЪЮЬЮЬЮЬЮЬШQЪЮЬЮЬЮЬ ЮЬШ\ЪЮЬ ЮЬЮЬ.ЮЬШxЪЮЬЮЬЮЬ ЮЬШ\JШJШJЪЮШKШЧKШЧKШЧKШЧJЪЮЬШЧJЪЮЬШJЪЮЬШЧJЪЮЬ
ШJЪЮЬЮЬШ'JШЧJШ JШ ЪЯЬЩ,KЪЬЮЬЩKЪЬЮЬЮЬЩKЪЬ	ЮЬЩ!KЪЬЮЬЩKЪЬЮЬЩKЪЬЮЬЩ KЩ)KЩ)KЩDKЪЮЬ$ЮЬЩ7KЪЮЬ"ЮЬЩ3KЩKЩ ЧKШ%KЩ<KЪЮЬШJШ Ч ЕЧ    
└  Ъ  