<<>>
<<Copyright Ó 1983, 1984, 1985  , 1992by Xerox Corporation. All rights reserved. >>
<<File: AdobeToolContextImplA.mesa>>
<<Freedman      19-Jul-83 11:26:51>>
<<RSF         28-Feb-84 16:25:10>>
<<JCS         31-Jul-85 15:48:58>>
<<Philip James, February 1, 1991 10:57 am PST>>


    DIRECTORY
        AdobeOps,
        AdobeToolContext,
        BasicTime USING [nullGMT],
        Rope USING [ROPE];

    AdobeToolContextImplA: CEDAR PROGRAM 
        EXPORTS AdobeToolContext =
        BEGIN

    <<sequence used for Table Lookup>>
        ValueSequencePtr: TYPE = REF ValueSequence;
        ValueSequence: TYPE = RECORD [seq: SEQUENCE length: CARDINAL OF Rope.ROPE];

        loginName: Rope.ROPE Ź NIL;


        InitializeUserContext: PUBLIC PROCEDURE [
            arSH: AdobeOps.ARSystemHandle, tool: AdobeOps.ToolType]
            RETURNS [userContext: AdobeToolContext.UserContext] =
            BEGIN
        <<allocate user context with object the size of field list>>
            userContext Ź NEW[AdobeToolContext .UserContextRec[arSH.fieldList.length]];
            userContext.arSH Ź arSH;
            InitializedToNonDisplayed[userContext];
            SetDisplayed[userContext, tool];
            END;

        UCOR: TYPE ~ AdobeToolContext.UserContextObjectRec;
        UCBR: TYPE ~ AdobeToolContext.UserContextBodyRec;

        InitializedToNonDisplayed: PROCEDURE [
            userContext: AdobeToolContext.UserContext] =
            BEGIN
            FOR i: CARDINAL IN [0..userContext.length) DO
                userContext[i] Ź NEW[UCOR.nonDisplayedField Ź [FALSE, nonDisplayedField[NIL]]]
                ENDLOOP;
            END;

        SetDisplayed: PROCEDURE [
            uC: AdobeToolContext.UserContext, tool: AdobeOps.ToolType] =
            BEGIN
            formOrder: AdobeOps.UserSpecifiedOrder Ź uC.arSH.formSWOrderArray[tool];
            fL: AdobeOps.FieldList Ź uC.arSH.fieldList;
            FOR i: CARDINAL IN [0..formOrder.length) DO
                WITH fL[formOrder[i]] SELECT FROM
                    body: AdobeOps.ArFIO =>
                        uC[formOrder[i]] Ź NEW[UCOR.displayedField Ź 
                        [FALSE, displayedField[NEW[UCBR Ź [arId[AdobeOps.nilARNumber]]]]]];
                    body: AdobeOps.FixFIO =>
                        uC[formOrder[i]] Ź NEW[UCOR.displayedField Ź 
                        [FALSE, displayedField[NEW[UCBR Ź [fixedLengthString[NIL]]]]]];
                    body: AdobeOps.StrFIO => uC[formOrder[i]] Ź NEW[UCOR.displayedField Ź 
                    [FALSE, displayedField[NEW[UCBR Ź [string[NIL]]]]]];
                    body: AdobeOps.DateFIO =>
                        uC[formOrder[i]] Ź NEW[UCOR.displayedField Ź 
                        [FALSE, displayedField[NEW[UCBR Ź [dateTime[NIL, BasicTime.nullGMT]]]]]];
                    body: AdobeOps.NumFIO => uC[formOrder[i]] Ź NEW[UCOR.displayedField Ź 
                    [FALSE, displayedField[NEW[UCBR Ź [numeric[0]]]]]];
                    body: AdobeOps.EnumFIO =>
                        uC[formOrder[i]] Ź NEW[UCOR.displayedField Ź 
                        [FALSE, displayedField[NEW[UCBR Ź [enumerated[AdobeOps.nilEnum]]]]]];
                    ENDCASE;
                ENDLOOP;
            END;

        FreeUserContext: PUBLIC PROCEDURE [uCPtr: REF AdobeToolContext.UserContext] = {
            ResetUserContext[uCPtr­]; 
            };

        ResetUserContext: PUBLIC PROCEDURE [uC: AdobeToolContext.UserContext] = {
            FOR i: CARDINAL IN [0..uC.length) DO
                WITH uC[i] SELECT FROM
                    type: REF UCOR.nonDisplayedField => {}; --z.FREE[@type.readOnlyField];
                    type: REF UCOR.displayedField =>
                        WITH type.editableField SELECT FROM
                            body: REF UCBR.arId => body.arn Ź AdobeOps.nilARNumber;
                            body: REF UCBR.dateTime => {}; --z.FREE[@body.temp];
                            body: REF UCBR.numeric => body.num Ź 0;
                            body: REF UCBR.fixedLengthString => {}; --z.FREE[@body.s];
                            body: REF UCBR.string => {}; --z.FREE[@body.s];
                            body: REF UCBR.enumerated => body.value Ź AdobeOps.nilEnum;
                            ENDCASE;
                    ENDCASE;
                ENDLOOP;
            };

        ClearUserContext: PUBLIC PROCEDURE [uC: AdobeToolContext.UserContext] = {
            FOR i: CARDINAL IN [0..uC.length) DO
                WITH uC[i] SELECT FROM
                    type: REF UCOR.displayedField =>
                        WITH type.editableField SELECT FROM
                            body: REF UCBR.arId => body.arn Ź AdobeOps.nilARNumber;
                            body: REF UCBR.dateTime => IF body.temp # NIL THEN body.temp Ź NIL; --.Length Ź 0;
                            body: REF UCBR.numeric => body.num Ź 0;
                            body: REF UCBR.fixedLengthString => IF body.s # NIL THEN body.s Ź NIL; -- body.s.Length Ź 0;
                            body: REF UCBR.string => IF body.s # NIL THEN body.s Ź NIL; -- body.s.Length Ź 0;
                            body: REF UCBR.enumerated => body.value Ź AdobeOps.nilEnum;
                            ENDCASE;
                    ENDCASE;
                ENDLOOP};


        END.....