<<>>
<<AdobeCommonInternal.mesa>>
<<Copyright Ó 1990 b, 1992y Xerox Corporation. All rights reserved.>>
<<Philip James, June 21, 1991 4:22 pm PDT>>

    DIRECTORY
        AdobeCommon USING [DataHandle, FormatType, InitialSetStatus, Handle, OrderInfo, ReportFields, RowBuffer, SetStatus, StringArray],
        AdobeOps USING [ARNumber, ARSystemHandle, nilARNumber, ToolType, QueryList],
    <<ARAccess USING [ARHandle],>>
        Buttons USING [ButtonProc],
        Containers USING [Container],
        IO USING [STREAM],
        Rope USING [ROPE];

    AdobeCommonInternal: CEDAR DEFINITIONS = {

        SystemNotFound: SIGNAL[system: Rope.ROPE];
        NoServer: SIGNAL;
        NoService: SIGNAL;

    <<Types>>

        InstanceDataHandle: TYPE = REF InstanceData;
        InstanceData: TYPE = RECORD [
            formSW: Containers.Container Ź NIL, 
            cmdSW: Containers.Container Ź NIL,
            background: BOOLEAN Ź TRUE,
            formDirty: BOOLEAN Ź FALSE,
            toolData: SELECT type:AdobeOps.ToolType FROM
            edit => [
                checkedOut: BOOLEAN Ź FALSE, 
                arIdNumber: AdobeOps.ARNumber Ź AdobeOps.nilARNumber, 
            <<sH: Stream.Handle _ NIL, >>
            <<arH: ARAccess.ARHandle _ NIL, >>
                useQL: BOOLEAN Ź FALSE,
                fileName: Rope.ROPE Ź NIL,
            <<editMenu: Menu.Handle _ NIL,>>
                qlName: Rope.ROPE Ź NIL,
                qlSetStatus: AdobeCommon.SetStatus Ź AdobeCommon.InitialSetStatus,
                qlHandle: AdobeOps.QueryList Ź NIL],
            submit => [
            <<sH: Stream.Handle _ NIL,>>
                fileName: Rope.ROPE Ź NIL],
            report => [
                format: AdobeCommon.FormatType Ź plain,
                overwrite: BOOLEAN Ź FALSE,
                outputFile: Rope.ROPE Ź NIL,
                outSH: IO.STREAM Ź NIL,
                templateFile: Rope.ROPE Ź NIL,
                qlName: Rope.ROPE Ź NIL,
                fieldsInReport: AdobeCommon.ReportFields Ź NIL,
                orderInfo: AdobeCommon.OrderInfo Ź NIL,
                rowBuffer: AdobeCommon.RowBuffer Ź NIL, --[NIL, NIL],
                rowLength: CARDINAL Ź 0,
                entryBytes: EntryBytes,
                sortKeysSH: IO.STREAM Ź NIL
                ],
            query  => [
                queryStrings: REF AdobeCommon.StringArray Ź NIL,
                qlName: Rope.ROPE Ź NIL],
            sort   => [
                maxLen: Rope.ROPE Ź NIL,
                sortInputFile: Rope.ROPE Ź NIL,
                sortOutputFile: Rope.ROPE Ź NIL,
                keySpecs: Rope.ROPE Ź NIL,
                fileNumber: CARDINAL Ź 1,
                inputSH: IO.STREAM Ź NIL,
                outputSH: IO.STREAM Ź NIL,
                sortKeysSH: IO.STREAM Ź NIL
                ],
            queryList  => [
                operand1: Rope.ROPE Ź NIL,
                operand2: Rope.ROPE Ź NIL,
                result: Rope.ROPE Ź NIL,
                list: Rope.ROPE Ź NIL],
            ENDCASE];

        EntryBytes: TYPE = REF EntryBytesType Ź NIL;
        EntryBytesType: TYPE = RECORD [
            eb: CARDINAL Ź 0];
    <<herald Names>>
        editHeraldName: Rope.ROPE;
        editCkdOutHeraldName: Rope.ROPE;
        submitHeraldName: Rope.ROPE;
        reportHeraldName: Rope.ROPE;
        queryHeraldName: Rope.ROPE;
        sortHeraldName: Rope.ROPE;
        queryListHeraldName: Rope.ROPE;

    <<Tool Creation Routines>>

        CreateEditSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
        RETURNS [initialMsg: Rope.ROPE];
        CreateSubmitSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
        RETURNS [initialMsg: Rope.ROPE];
        CreateReportSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
        RETURNS [initialMsg: Rope.ROPE];
        CreateQuerySW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
        RETURNS [initialMsg: Rope.ROPE];
        CreateSortSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
        RETURNS [initialMsg: Rope.ROPE];
        CreateQuerylistSW: PROCEDURE[w: AdobeCommon.Handle, makeCmdSW: BOOLEAN]
        RETURNS [initialMsg: Rope.ROPE];
    <<MakeARFormSW: FormSW.ClientItemsProcType;>>
        FixOrdering: PROCEDURE[data: AdobeCommon.DataHandle,
        formProc: Buttons.ButtonProc, w: AdobeCommon.Handle, index: CARDINAL]
        RETURNS [msg: Rope.ROPE]; 
        AllocateInstanceData: PROCEDURE[data: AdobeCommon.DataHandle]
        RETURNS[instanceData: InstanceDataHandle];


    <<Routines for changing between systems>>
        StartSystem: PROCEDURE[toolData: AdobeCommon.DataHandle, arSH: AdobeOps.ARSystemHandle];
        FlushCurrentSystem: PROCEDURE[toolData: AdobeCommon.DataHandle];

    <<Other routines>>

        GetSystemDescriptionFromParent: PROCEDURE[toolData, parent: AdobeCommon.DataHandle] RETURNS[arSH: AdobeOps.ARSystemHandle];
        OpenAccessSession: PROCEDURE[toolData: AdobeCommon.DataHandle];
        ProcessUserDotCM: PROCEDURE[toolData: AdobeCommon.Handle];
        SetDefaultsAndUserContext: PROCEDURE[toolData: AdobeCommon.DataHandle, 
        arSH: AdobeOps.ARSystemHandle];
        SetFieldDirty: Buttons.ButtonProc;
    <<SetLogin: PROCEDURE[session: ARAccess.Session];>>
        SetReadOnlys: PROCEDURE [data: AdobeCommon.Handle];
        SetTheDefaults: PROCEDURE[data: AdobeCommon.Handle, sysMustOnly: BOOLEAN];
        SetTinyName: PROCEDURE [toolData: AdobeCommon.Handle];
        SetWindowName: PROCEDURE[w: AdobeCommon.Handle, system, toolName: Rope.ROPE];
        SetTypedInitialSystem: PROCEDURE[r: Rope.ROPE];

    <<Routine for confirmation>>

        ClickToConfirm: PROCEDURE [data: AdobeCommon.Handle, 
        couldBeForked: BOOLEAN Ź TRUE] RETURNS [confirmed: BOOLEAN];

        }.