
DIRECTORY Ascii, Atom, Convert, EnvironmentVariables, Identification, IO, NetworkName, SystemNames, Rope, XlAccess;

XlAccessImpl: CEDAR PROGRAM
IMPORTS Ascii, Atom, Convert, EnvironmentVariables, IO, NetworkName, Rope, SystemNames
EXPORTS Identification, XlAccess =
BEGIN 

hostName: Rope.ROPE м SystemNames.MachineName[];
cirioPort: Rope.ROPE м GetCirioPortRope[];
ident: Rope.ROPE м IO.PutFR["%g (%g)", IO.rope[hostName], IO.rope[cirioPort]];

GetCirioPortNum: PROC [] RETURNS [n: CARD м 0] = {
Get: PROC [] RETURNS [CARD] = TRUSTED MACHINE CODE {
"CirioNubLocalGetPort"
};
n м Get[ ! UNCAUGHT => CONTINUE ]
};

GetCirioPortRope: PROC [] RETURNS [Rope.ROPE] = {
RETURN [Convert.RopeFromCard[GetCirioPortNum[]]]
};

Self: PUBLIC PROC [a: ATOM м NIL] RETURNS [Rope.ROPE] = {
SELECT a FROM
NIL => RETURN [ident];
$Host => RETURN [hostName];
$Cirio => RETURN [cirioPort];
ENDCASE => RETURN [ident];
};
ServerNameFromProperties: PROC [for: ATOM] RETURNS [name: Rope.ROPE м NIL] = {
IF for=NIL THEN for м $X11;
WITH Atom.GetProp[for, $DISPLAY] SELECT FROM
r: Rope.ROPE => name м r;
ENDCASE => {};
};

IsArpaAddress: PROC [r: Rope.ROPE] RETURNS [BOOL м FALSE] ~ {
len: INT ~ Rope.Length[r];
IF len>0 AND Ascii.Digit[Rope.Fetch[r, 0]] THEN 
IF Rope.SkipOver[s: r, skip: "0123456789."] >= len THEN 
IF Rope.Match[pattern: "*.*.*.*", object: r] THEN RETURN [TRUE]
};

SubstituteLocalNames: PROC [serverName: Rope.ROPE] RETURNS [Rope.ROPE] = {
IF ~IsLocalHost[serverName] THEN RETURN [serverName] 
ELSE {
localHost: Rope.ROPE ~ "localhost";
colonPos: INT ~ Rope.SkipTo[s: serverName, skip: ":"];
RETURN [ Rope.Replace[base: serverName, len: colonPos, with: localHost] ];
};
};

StripDisplayNumber: PROC [name: Rope.ROPE] RETURNS [Rope.ROPE] = {
colonPos: INT м Rope.SkipTo[s: name, skip: ":"];
RETURN [Rope.Substr[name, 0, colonPos]]
};

IsLocalHost: PUBLIC PROC [serverName: Rope.ROPE] RETURNS [BOOL] = {
serverName м StripDisplayNumber[serverName];
SELECT TRUE FROM
Rope.IsEmpty[serverName] => RETURN [TRUE];
Rope.Equal["localhost", serverName, FALSE] => RETURN [TRUE];
Rope.Equal["unix", serverName, FALSE] => RETURN [TRUE];
Rope.Equal["127.0.0.1", serverName, FALSE] => RETURN [TRUE];
Rope.Equal["[127.0.0.1]", serverName, FALSE] => RETURN [TRUE];
Rope.Equal[hostName, serverName, FALSE] => RETURN [TRUE];
ENDCASE => RETURN [FALSE]
};

DefaultServer: PUBLIC PROC [for: ATOM м NIL] RETURNS [serverName: Rope.ROPE] = {
IF for#$Unix THEN {
serverName м ServerNameFromProperties[for];
IF Rope.IsEmpty[serverName] AND for#NIL THEN 
serverName м ServerNameFromProperties[NIL]
};
IF Rope.IsEmpty[serverName] THEN serverName м EnvironmentVariables.Get["DISPLAY"];
serverName м SubstituteLocalNames[serverName];
};

AddressFromNameFailed: PUBLIC ERROR [msg: Rope.ROPE] = CODE;

AddressFromName: PUBLIC PROC [name: Rope.ROPE] RETURNS [address: Rope.ROPE м NIL] = {
Raise: PROC[msg: Rope.ROPE] = {AddressFromNameFailed[msg]};
name м StripDisplayNumber[name];
IF IsArpaAddress[name] THEN RETURN [name];
IF IsLocalHost[name] THEN RETURN ["127.0.0.1"];
address м NetworkName.AddressFromName[family: $ARPA, name: name, components: host ! NetworkName.Error => Raise[msg]].addr;
};

END.

   L  XlAccessImpl.mesa
Copyright ╙ 1988, 1991, 1992, 1993 by Xerox Corporation.  All rights reserved.
Christian Jacobi, May 11, 1988 6:05 pm PST 
Christian Jacobi, March 10, 1993 10:43 am PST
Willie-s, September 30, 1991 6:24 pm PDT

NOTE: different source for different architectures.
This is for portable Cedar on top of PCR.


 Э╩╥  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЩKЪЬ
╧eЬCЩNKЪЬ+Щ+KЩ-KЩ(KЩ KЩ3KЩ)KЩ ЧЪ╧k	Ь;ЮЬ+ШsKШ ЧЪ╧nЬЮЬЮШKЪЮЬ-ЮЬ ШVKЪЮЬШ"ЧKЪЮЬШKШ KЪЬЮЬШ0KЪЬЮЬШ*KЪ	ЬЮЬЮЬЮЬЮЬШNKШ ЪЯЬЮЬЮЬЮЬ	Ш2ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШ4KШKШЧKЪЬЮЬЮЬШ!KЪЬШKШ ЧЪЯЬЮЬЮЬЮЬШ1KЪЮЬ*Ш0KШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШ9ЪЮЬЮШKЪЮЬЮЬ	ШKЪЬ	ЮЬШKЪЬ
ЮЬШKЪЮЬЮЬ	ШЧKШKЩ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШNKЪЮЬЮЬЮЬШЪЮЬЮЬЮШ,KЪЬЮЬШKЪЮЬШЧKШЧKШ ЪЯЬЮЬ
ЮЬЮЬЮЬЮЬШ=KЪЬЮЬШЪЮЬЮЬЮЬШ0ЪЮЬ1ЮЬШ8KЪЮЬ+ЮЬЮЬЮЬШ?ЧЧKЪЬШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШJKЪЮЬЮЬЮЬШ5ЪЮЬШKЪЬЮЬШ#KЪЬ
ЮЬ)Ш6KЪЮЬDШJKШЧKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШBKЪЬ
ЮЬ#Ш0KЪЮЬ!Ш'KЪЬШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШCKЪЬ,Ш,ЪЮЬЮЬЮШKЪЬЮЬЮЬШ*KЪЬ$ЮЬЮЬЮЬШ<KЪЬЮЬЮЬЮЬШ7KЪЬ$ЮЬЮЬЮЬШ<KЪЬ&ЮЬЮЬЮЬШ>KЪЬ!ЮЬЮЬЮЬШ9KЪЮЬЮЬЮЬШЧKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШPЪЮЬЮЬШKЪЬ+Ш+ЪЮЬЮЬЮЬЮЬШ-KЪЬ&ЮЬШ*ЧKШЧKЪЮЬЮЬ2ШRKЪЬ.Ш.KШKШ ЧKЪ
ЯЬЮЬЮЬЮЬЮЬШ<KШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШUKЪЯЬЮЬЮЬ!Ш;KЪЬ Ш KЪЮЬЮЬЮЬШ*KЪЮЬЮЬЮЬШ/KЪЬzШzKШKШ ЧKЪЮЬШKШ Ч ЕЧ    b  А  