<<>>
    <<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>>

    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 searching in known descs>>
            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[];
                    };
            };
        }.