<<>>
<<AdobeCommonImplC.mesa>>
<<Copyright Ó 1990 b, 1992y Xerox Corporation. All rights reserved.>>
<<Philip James, June 26, 1991 2:42 pm PDT>>

    DIRECTORY
        AdobeCommon USING [AddSystemToKnownSystems, Handle, LocateSystemInKnownSystems, SysList, Systems, SystemsHandle],
        AdobeCommonInternal,
        AdobeOps USING [ToolType],
        Rope USING [Equal, ROPE],
        UserProfile USING [ListOfTokens, Number, Token];

    AdobeCommonImplC: CEDAR PROGRAM 
        IMPORTS AdobeCommon, AdobeCommonInternal, Rope, UserProfile
        EXPORTS AdobeCommonInternal = {

        typedInitialSystem: Rope.ROPE Ź NIL;
        SetTypedInitialSystem: PUBLIC PROCEDURE[r: Rope.ROPE] ~ {
            typedInitialSystem Ź r;
            };

        ProcessUserDotCM: PUBLIC PROCEDURE [handle: AdobeCommon.Handle] = {
            systemName: Rope.ROPE Ź NIL;

            handle.unboundFieldHeight Ź GetUBFL[];
            handle.tool Ź handle.oldtool Ź GetToolName[];
            handle.knownSystems Ź GetKnownSystems[];
            IF typedInitialSystem # NIL  THEN {
                systemName Ź  typedInitialSystem;
                typedInitialSystem Ź NIL;
                }
            ELSE 
                systemName Ź GetInitialSystem[];

            handle.oldsystem Ź handle.system Ź 
            AdobeCommon.LocateSystemInKnownSystems[systemName, handle.knownSystems ! AdobeCommonInternal.SystemNotFound => 
            {AdobeCommon.AddSystemToKnownSystems[systemName, handle.knownSystems];
            RETRY}];
            IF handle.system # LAST[CARD] THEN 
                handle.systemName Ź handle.knownSystems.system[handle.system];
            };


        GetUBFL: PROCEDURE RETURNS [len: CARD Ź 3] = {
            profileLen: INT  Ź UserProfile.Number[key: "Adobe.InitialUnboundFieldLength", default: 3];
            IF profileLen < 2 THEN RETURN[2];
            IF profileLen > LAST[CARD] THEN 
                len Ź LAST[CARD]
            ELSE
                len Ź profileLen;
            RETURN[len];
            };


        GetInitialSystem: PROCEDURE RETURNS [system: Rope.ROPE] = {
            system Ź UserProfile.Token[key: "Adobe.InitialSystem", default: "SUN of System Software:OSBU North:Xerox"];
            RETURN[system];
            };


        GetToolName: PROCEDURE RETURNS [AdobeOps.ToolType] = {
            tool: AdobeOps.ToolType Ź edit;
            profileTool: Rope.ROPE Ź UserProfile.Token[key: "Adobe.InitialTool", default: "Edit"];
            SELECT TRUE FROM
                Rope.Equal[profileTool, "edit", FALSE] => tool Ź edit;
                Rope.Equal[profileTool, "submit", FALSE] => tool Ź submit;
                Rope.Equal[profileTool, "query", FALSE] => tool Ź query;
                Rope.Equal[profileTool, "queryList", FALSE] => tool Ź queryList;
                Rope.Equal[profileTool, "report", FALSE] => tool Ź report;
                Rope.Equal[profileTool, "sort", FALSE] => tool Ź sort;
                ENDCASE;
            RETURN[tool];
            };

        GetKnownSystems: PROCEDURE 
        RETURNS [knownSystems: AdobeCommon.SystemsHandle Ź NIL] = {
            count: CARD Ź 0;
            systemsRope: LIST OF Rope.ROPE Ź UserProfile.ListOfTokens[key: "Adobe.KnownSystems", default: LIST ["SUN of System Software"]];

            FOR index: LIST OF Rope.ROPE Ź systemsRope, index.rest UNTIL index = NIL DO
                count Ź count + 1;
                ENDLOOP;
            IF count > 0 THEN {
                knownSystems Ź NEW[AdobeCommon.Systems Ź [0, NEW[AdobeCommon.SysList[count]]]];
                knownSystems.next Ź count;
                count Ź 0;
                FOR index: LIST OF Rope.ROPE Ź systemsRope, index.rest UNTIL index = NIL DO
                    knownSystems.system[count] Ź index.first;
                    count Ź count + 1;
                    ENDLOOP;
                };
            };

        }.