
DIRECTORY
AccessCH USING [GetFullLoginName, HostForDatabase, NSNameFromRope, Problem],
AdobeCommon,
AdobeCommonInternal USING [NoServer, NoService, SystemNotFound],
AdobeP75V2,
AdobeOps USING [ARSystemHandle, ARSystemObject],
Rope USING [Cat, Concat, Equal, FromChar, Fetch, Length, ROPE],
MailBasics,
XNSAdobeClientOps USING [GetDatabaseDescription--, server--, UnknownAddress];

AdobeCommonImplB: CEDAR MONITOR 
IMPORTS AccessCH, AdobeCommon, AdobeCommonInternal, AdobeP75V2, Rope, XNSAdobeClientOps
EXPORTS AdobeCommon = {
OPEN Adobe2: AdobeP75V2;
ROPE: TYPE ~ Rope.ROPE;

SystemNotFound: PUBLIC SIGNAL[system: Rope.ROPE] = CODE;
NoCredentials: PUBLIC ERROR = CODE;

GetFullLoginName: PUBLIC PROC [h: AdobeCommon.Handle м NIL] RETURNS[loginName: Rope.ROPE м NIL] ~ {
loginName м AccessCH.GetFullLoginName[h];
};

ServerForDatabase: PROC [system: Adobe2.Database] RETURNS [server: ROPE, local: ROPE] ~ {
nsName, sysNSName: AdobeP75V2.NSName м NIL;
nsName м AccessCH.NSNameFromRope[GetFullLoginName[]];
sysNSName м AccessCH.NSNameFromRope[system];

IF sysNSName.domain = NIL THEN {
sysNSName.domain м nsName.domain;
system м system.Cat[":", nsName.domain];
};
IF sysNSName.org = NIL THEN {
sysNSName.org м nsName.org;
system м system.Cat[":", nsName.org];
};

server м AccessCH.HostForDatabase[system]; -- default rather than computed!
RETURN[server, sysNSName.local];
};

LocateSystemInKnownSystems: PUBLIC PROCEDURE [name: Rope.ROPE, 
systems: AdobeCommon.SystemsHandle] 
RETURNS [system: CARDINAL м 0] = {
IF systems = NIL THEN SIGNAL AdobeCommonInternal.SystemNotFound[system: name];
FOR i: CARD IN [0..systems.next) DO
IF Rope.Equal[systems.system[i], name] THEN
RETURN[i];
ENDLOOP;
SIGNAL AdobeCommonInternal.SystemNotFound[system: name];
};

AddSystemToKnownSystems: PUBLIC PROCEDURE[name: Rope.ROPE, 
systems: AdobeCommon.SystemsHandle] ~ {
store: REF AdobeCommon.SysList м systems.system;
systems.system м NEW[AdobeCommon.SysList[systems.next + 1]];
FOR i: CARD IN [0..systems.next) DO
systems.system[i] м store[i];
ENDLOOP;
systems.system[systems.next] м name;
systems.next м systems.next + 1;
};

FindSystemInternal: ENTRY PROC [systemName: ROPE]
RETURNS [arSH: AdobeOps.ARSystemHandle] = {
ENABLE { UNWIND => NULL };
local, host: ROPE м NIL;
system: Adobe2.Database ~ systemName;
desc: Adobe2.Description;
[host, local] м ServerForDatabase[system];
desc м XNSAdobeClientOps.GetDatabaseDescription[host, local];
arSH м NEW[AdobeOps.ARSystemObject м [
name: desc.name,
host: desc.host,
directory: desc.directory,
refCount: 0,
sysQL: NIL,
otherQLs: NIL,
version: desc.version,
service: host,
fieldList: desc.fieldList
]];
};

FindSystem: PUBLIC PROC [head: AdobeCommon.LockedSysDescPtr, toolData: AdobeCommon.Handle, systemName: Rope.ROPE, useDescList: BOOLEAN] 
RETURNS [arSH: AdobeOps.ARSystemHandle] = {
ENABLE  {
UNWIND => NULL;
NoCredentials => GOTO noLogin;
XNSAdobeClientOps.UnknownAddress => GOTO badServer;
AdobeP75V2.ServerUnreachable, AdobeP75V2.ServerDown => GOTO noServer;
AdobeP75V2.NoAdobeServiceAtServer => GOTO noService;
AdobeP75V2.UnknownSystem => GOTO unknownSystem;
AdobeP75V2.IllegalLogin => GOTO illegalLogin;
AdobeP75V2.SysDescChanging => {
AdobeCommon.PostMessage[toolData, FALSE, "The Adobe database is changing.  Contact support for more information."];
ERROR ABORTED};
AdobeP75V2.TooManyConnections =>  {
AdobeCommon.PostMessage[toolData, FALSE, "Too many connections to Adobe service. Try again later."];
ERROR ABORTED};
AdobeP75V2.Spare1 =>  {
AdobeCommon.PostMessage[toolData, FALSE, "Protocol version mismatch with server."];
ERROR ABORTED};
AdobeP75V2.Others =>  {
AdobeCommon.PostMessage[toolData, FALSE, "Server problem."];
ERROR ABORTED};
AccessCH.Problem => SELECT type FROM
badDatabaseName => GOTO unknownSystem;
ENDCASE
};
localName: Rope.ROPE м NIL;
IF ( systemName = NIL ) THEN GOTO unknownSystem;

FOR i: INTEGER IN [0..systemName.Length[]) DO
ch: CHAR ~ systemName.Fetch[i];
IF ( ch = ': ) THEN EXIT;
localName м localName.Concat[Rope.FromChar[ch]];
ENDLOOP;

arSH м FindSystemInternal[systemName];
EXITS
unknownSystem => {
AdobeCommon.PostMessage[toolData, TRUE, "Bad system."];
RETURN WITH ERROR AdobeCommonInternal.SystemNotFound[systemName];
};
illegalLogin => AdobeCommon.PostMessage[toolData, FALSE, "Invalid login. "];
noService => RETURN WITH ERROR AdobeCommonInternal.NoService;
noServer => RETURN WITH ERROR AdobeCommonInternal.NoServer;
badServer => AdobeCommon.PostMessage[toolData, TRUE, "Invalid server. "];
noLogin => {
AdobeCommon.PostMessage[toolData, TRUE, "You must xnslogin first."];
toolData.system м LAST[CARDINAL];
toolData.assistLogin[];
};
};
}.
     
AdobeCommonImplB.mesa
Copyright ╙ 1990, 1991, 1992 by Xerox Corporation. All rights reserved.
Philip James, March 9, 1992 9:10 am PST
Bill Jackson (bj), March 28, 1990 8:01 pm PST
Christian Jacobi, April 7, 1992 5:38 pm PDT
For searching in known descs
Э╩s  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЪЬЩKЪЬ
╧eЬ<ЩGKЪЬ'Щ'KЩ-KЩ+ЧKШ Ъ╧k	Ш	KЪЬ	ЮЬ>ШLKЪЬШKЪЬЮЬ'Ш@KЪЬШKЪЬ	ЮЬ"Ш0KЪЬЮЬ/ЮЬШ?KЪЬШKЪЬЮЬ╧cЬШMЧKШ Ъ╧nЬЮЬЮЬШ KЪЮЬPШWKЪЮЬШKЪЮЬаЬШKЪЮЬЮЬЮЬШKШ KЪ
аЬЮЬЮЬЮЬЮЬШ8KЪаЬЮЬЮЬЮЬШ#KШ ЪаЬЮЬЮЬЮЬЮЬЮЬЮЬШcKЪЬ	ЮЬЮЬШ)KШKШ ЧЪ
аЬЮЬЮЬ
ЮЬ	ЮЬШYKЪЬ'ЮЬШ+KШ5KШ,KШ ЪЮЬЮЬЮЬШ KШ!KШ(KШЧЪЮЬЮЬЮЬШKШKШ%KШKШ ЧKЪЬ+Я ШKKЪЮЬШ KШKШ ЧЪ
аЬЮЬЮЬ(ЮЬ
ЮЬ	ШЗKЪЮЬЮЬЮЬЮЬ2ШNЪЮЬЮЬЮЬЮШ#ЪЮЬ%ЮШ+KЪЮЬШ
ЧKЪЮЬШЧKЪЮЬ2Ш8KШKШ ЧЪаЬЮЬЮЬ*ШcKЪЬЮЬ&Ш0KЪЬЮЬ(Ш<ЪЮЬЮЬЮЬЮШ#KШKЪЮЬШЧKШ$KШ KШKШ ЧЪ
аЬЮЬЮЬЮЬЮЬ$Ш]KЪЮЬЮЬЮЬШKЪЬЮЬЮЬШKЪЬ%Ш%KЪЬШKШ*KШ=ЪЬЮЬШ&KШKШKШKЪЬШKЪЬЮЬШKЪЬ
ЮЬШKШKШKШKШЧKШKШ ЧЪа
ЬЮЬЮЬUЮЬЮЬЮЬ$Ш┤ЪЮЬШ	KЪЮЬЮЬШKЪЬЮЬ	ШKЪЬ$ЮЬШ3KЪЬ7ЮЬ
ШEKЪЬ%ЮЬШ4KЪЬЮЬШ/KЪЬЮЬШ-ЪЬШKЪЬ"ЮЬLШsKЪЮЬЮЬШЧЪЬ#Ш#KЪЬ"ЮЬ=ШdKЪЮЬЮЬШЧЪЬШKЪЬ"ЮЬ,ШSKЪЮЬЮЬШЧЪЬШKЪЬ"ЮЬШ<KЪЮЬЮЬШЧЪЬЮЬЮШ$KЪЬЮЬШ&KЪЮШЧKШЧKЪЬЮЬЮЬШKЪЮЬЮЬЮЬЮЬШ0KШ KЪЬЩЪЮЬЮЬЮЬЮШ-KЪЬЮЬШKЪЮЬЮЬЮЬШKШ0KЪЮЬШЧKШ KШ&ЪЮШЪЬШKЪЬ"ЮЬШ7KЪЮЬЮЬЮЬ0ШAKШЧKЪЬ2ЮЬШLKЪЬЮЬЮЬЮЬШ=KЪЬЮЬЮЬЮЬШ;KЪЬ/ЮЬШIЪЬШKЪЬ"ЮЬШDKЪЬЮЬЮЬШ!KШKШЧЧKШЧKШЧЧ ЕЧ      Й  