
    <<P5S.mesa >>
        <<Copyright © 1985 by Xerox Corporation.  All rights reserved.>>
        <<Sweet, April 9, 1980  9:44 PM>>
        <<Satterthwaite, 31-Dec-81 10:40:31>>
        <<Russ Atkinson (RRA) March 6, 1985 11:06:54 pm PST>>

    DIRECTORY
        CodeDefs USING [Lexeme],
        Tree USING [Index];

    P5S: DEFINITIONS = BEGIN OPEN CodeDefs;

        <<from Address>>
            DIndex: PROC [node: Tree.Index] RETURNS [Lexeme];
            Index: PROC [node: Tree.Index] RETURNS [Lexeme];
            SeqIndex: PUBLIC PROC [node: Tree.Index] RETURNS [Lexeme];

        <<from Calls>>
            Bind: PROC [node: Tree.Index];
            Call: PROC [node: Tree.Index];
            CallExp: PUBLIC PROC [node: Tree.Index] RETURNS [Lexeme];
            Create: PROC [node: Tree.Index] RETURNS[Lexeme];
            ErrExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            ForkExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            Free: PROC [node: Tree.Index];
            InlineCall: PROC [node: Tree.Index];
            InlineCallExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            JoinExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            Join: PROC [node: Tree.Index];
            ProcCheck: PROC [node: Tree.Index] RETURNS [Lexeme];
            Restart: PROC [node: Tree.Index];
            RetWithError: PROC [node: Tree.Index];
            SigErr: PROC [node: Tree.Index];
            SigExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            Start: PROC [node: Tree.Index];
            StartExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            Stop: PROC [node: Tree.Index];
            SysErrExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            Unlock: PROC [node: Tree.Index];
            Wait: PROC [node: Tree.Index];

        <<from Driver>>
            Lock: PROC [node: Tree.Index];
            Result: PROC [node: Tree.Index];
            Resume: PROC [node: Tree.Index];
            Return: PROC [node: Tree.Index];
            StringInit: PROC [node: Tree.Index] RETURNS [Lexeme];
            Subst: PROC [node: Tree.Index];
            SubstExp: PROC [node: Tree.Index] RETURNS [Lexeme];

        <<from Flow>>
            CatchMark: PROC [node: Tree.Index];
            Continue: PROC;
            Exit: PROC;
            GoTo: PROC [node: Tree.Index];
            Label: PROC [node: Tree.Index];
            Loop: PROC;
            Retry: PROC;

        <<from Store>>
            Assign: PROC [node: Tree.Index];
            AssignExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            BodyInit: PROC [node: Tree.Index] RETURNS [Lexeme];
            Extract: PROC [node: Tree.Index];
            ExtractExp: PROC [node: Tree.Index] RETURNS [Lexeme];
            ProcInit: PROC [node: Tree.Index];

            END.